hi,
check this code regarding packagr size ,no of records to be processed to get out put in report,
************************************************************************
TABLES : mkpf,
mseg,
zamatdoc,
mara.
DATA :BEGIN OF gi_mkpf OCCURS 100,
mblnr LIKE mkpf-mblnr,
mjahr LIKE mkpf-mjahr,
END OF gi_mkpf.
DATA: BEGIN OF gi_mseg OCCURS 0.
INCLUDE STRUCTURE zamatdoc.
DATA: END OF gi_mseg.
DATA: gv_date(11)," LIKE ekpo-aedat,
gv_date1(11),
year(4),
month(2),
day(2),
flag(1),
read_flag(1).
DATA :char TYPE i,
count TYPE i.
*select-options : s_mtart for mara-mtart obligatory.
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-110.
SELECT-OPTIONS : records FOR char. " OBLIGATORY.
SELECTION-SCREEN : END OF BLOCK b1.
START-OF-SELECTION.
gv_date1 = sy-datum.
year = gv_date1+0(4).
month = gv_date1+4(2).
day = gv_date1+6(2).
year = year - 3.
CLEAR gv_date1.
CONCATENATE year month day INTO gv_date1.
SELECT mblnr
mjahr
FROM mkpf
INTO TABLE gi_mkpf
WHERE budat <= gv_date1.">" and BUDAT >= ).
IF sy-subrc = 0.
SORT gi_mkpf BY mblnr.
DELETE ADJACENT DUPLICATES FROM gi_mkpf.
CLEAR count.
IF NOT gi_mkpf[] IS INITIAL.
IF NOT records-low IS INITIAL .
IF NOT records-high IS INITIAL.
DESCRIBE TABLE gi_mkpf LINES count.
IF records-high < count.
DELETE gi_mkpf FROM records-high TO count.
ENDIF.
IF records-low <> 1.
IF records-low <> 0.
DELETE gi_mkpf FROM 1 TO records-low.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
SELECT matnr werks FROM mseg INTO CORRESPONDING FIELDS OF TABLE gi_mseg
PACKAGE SIZE 100 FOR ALL ENTRIES IN gi_mkpf
WHERE mblnr = gi_mkpf-mblnr
AND mjahr = gi_mkpf-mjahr.
MODIFY zamatdoc FROM TABLE gi_mseg.
COMMIT WORK.
ENDSELECT.
regards
siva
Bluesky
