Package size can be used to retreive a spcific number of records at
a time. This can be used if you for example only want
tofinish processing a limited amount of data at a time due to
lack of memory.
The exampel below read 50 records at a time from VBAK into an
internal table, and selects the corresponding entries from vbap
into an internal table. Then the two internal tables can be
processed, and the next 50 records from VBAk can be read. remeber
to reinitialize tha tables before the next read.
Note the usage of SELECT - ENDSELECT !
REPORT
z_test
.
TYPES:
BEGIN OF t_vbak,
vbeln LIKE vbak-vbeln,
erdat LIKE vbak-erdat,
END OF t_vbak,
BEGIN OF t_vbap,
posnr LIKE vbap-posnr,
matnr LIKE vbap-matnr,
meins LIKE vbap-meins,
END OF t_vbap,
BEGIN OF t_report,
vbeln LIKE vbak-vbeln,
erdat LIKE vbak-erdat,
posnr LIKE vbap-posnr,
matnr LIKE vbap-matnr,
meins LIKE vbap-meins,
END OF t_report.
DATA:
li_vbak TYPE t_vbak OCCURS 0,
l_vbak TYPE t_vbak,
li_vbap TYPE t_vbap OCCURS 0,
l_vbap TYPE t_vbap,
li_report TYPE t_report OCCURS 0,
l_report TYPE t_report.
START-OF-SELECTION.
SELECT vbeln erdat
FROM vbak
INTO TABLE li_vbak PACKAGE SIZE 50.
SELECT posnr matnr meins
FROM vbap
INTO TABLE li_vbap
FOR ALL ENTRIES IN li_vbak
WHERE vbeln = li_vbak-vbeln.
IF sy-subrc = 0.
* Now you have the two
internal tables li_vbak and liÆ_vbap filled with
data. * Do something with
the data - remember to reinitialize internal tables
ENDIF.