Please suggest a correction in the code: Urgent

Question

I am capturing the Material Document No., Material No., Material Description, Quantity etc. into a main_table in my code so as to write/print labels containing GRN details (movement type '105') using se38. These labels are to be pasted on the material received in stores, the exact requirement is 100% material identification sticker on all items to maintain FIFO. Obviously the no. of these stickers, to be printed, shall solely depend on the Quantity of a particular material received.
I have written the following piece of code to print the captured information of GRN. The problem is that my code is unable to track the change in material document number. For example if I have 10 nos of quantity for a particular material say 1001 and 5 no.s of quantity for a subsequent material 1002. I should get 10 labels for 1001 and 5 for 1002 but my code is giving me 10 labels for 1002 also.
Hope you got it.
Please suggest the necessary correction on the following code.You can execute the following code and get a real time feeling of my problem.
REPORT  ZMM_GRN_LABEL_REPORT_38.
TABLES : MKPF, MSEG, MAKT.
DATA : BEGIN OF I_MKPF OCCURS 0,
       MBLNR LIKE MSEG-MBLNR,
       BLDAT LIKE MKPF-BLDAT,
       MJAHR LIKE MKPF-MJAHR,
       END OF I_MKPF.
DATA : BEGIN OF I_MSEG OCCURS 0,
       MBLNR LIKE MSEG-MBLNR,
       MATNR LIKE MSEG-MATNR,
       EBELN LIKE MSEG-EBELN,
       LIFNR LIKE MSEG-LIFNR,
       MENGE LIKE MSEG-MENGE,
       END OF I_MSEG.
DATA : BEGIN OF I_MAKT OCCURS 0,
       MATNR LIKE MAKT-MATNR,
       MAKTX LIKE MAKT-MAKTX,
       END OF I_MAKT.
DATA : BEGIN OF I_LFA1 OCCURS 0,
       LIFNR LIKE LFA1-LIFNR,
       NAME1 LIKE LFA1-NAME1,
       END OF I_LFA1.
DATA: BEGIN OF MAIN_TABLE OCCURS 0,
      MBLNR LIKE MSEG-MBLNR,
      MATNR LIKE MSEG-MATNR,
      BLDAT LIKE MKPF-BLDAT,
      MAKTX LIKE MAKT-MAKTX,
      MENGE LIKE MSEG-MENGE,
      MJAHR LIKE MSEG-MJAHR,
      EBELN LIKE MSEG-EBELN,
      LIFNR LIKE MSEG-LIFNR,
      NAME1 LIKE LFA1-NAME1,
      END OF MAIN_TABLE.
DATA : N LIKE MSEG-MENGE.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_MBLNR FOR MSEG-MBLNR.
PARAMETERS : P_GJAHR LIKE MSEG-GJAHR.
SELECTION-SCREEN END OF BLOCK B1.
select MBLNR MJAHR BLDAT
into corresponding fields of
table I_MKPF
from Mkpf
where
MBLNR in S_MBLNR and
MJAHR EQ p_GJAHR.
LOOP AT I_MKPF.
MAIN_TABLE-MBLNR = I_MKPF-MBLNR.
MAIN_TABLE-MJAHR = I_MKPF-MJAHR.
MAIN_TABLE-BLDAT = I_MKPF-BLDAT.
APPEND MAIN_TABLE.
CLEAR MAIN_TABLE.
ENDLOOP.
IF I_MKPF[] IS NOT INITIAL.
SELECT MBLNR MATNR EBELN LIFNR MENGE
INTO CORRESPONDING FIELDS OF
TABLE I_MSEG FROM
MSEG
FOR ALL ENTRIES IN I_MKPF
WHERE
MBLNR = I_MKPF-MBLNR.
ENDIF.
LOOP AT I_MSEG.
LOOP AT MAIN_TABLE WHERE MBLNR = I_MSEG-MBLNR.
MAIN_TABLE-MATNR = I_MSEG-MATNR.
MAIN_TABLE-EBELN = I_MSEG-EBELN.
MAIN_TABLE-LIFNR = I_MSEG-LIFNR.
MAIN_TABLE-MENGE = I_MSEG-MENGE.
MODIFY MAIN_TABLE INDEX SY-TABIX.
ENDLOOP.
ENDLOOP.
IF I_MSEG[] IS NOT INITIAL.
SELECT MATNR MAKTX
INTO CORRESPONDING FIELDS OF
TABLE I_MAKT FROM MAKT
WHERE
MATNR = I_MSEG-MATNR.
ENDIF.
LOOP AT I_MAKT.
LOOP AT MAIN_TABLE WHERE MATNR = I_MAKT-MATNR.
MAIN_TABLE-MAKTX = I_MAKT-MAKTX.
MODIFY MAIN_TABLE INDEX SY-TABIX.
ENDLOOP.
ENDLOOP.
IF I_MSEG[] IS NOT INITIAL.
SELECT LIFNR NAME1
INTO CORRESPONDING FIELDS OF
TABLE I_LFA1 FROM LFA1
FOR ALL ENTRIES IN I_MSEG
WHERE
LIFNR = I_MSEG-LIFNR.
ENDIF.
LOOP AT I_LFA1.
LOOP AT MAIN_TABLE WHERE LIFNR = I_LFA1-LIFNR.
MAIN_TABLE-NAME1 = I_LFA1-NAME1.
MODIFY MAIN_TABLE INDEX SY-TABIX.
ENDLOOP.
ENDLOOP.
******************************Problem lies somewhere here
N = MAIN_TABLE-MENGE.
DO N TIMES.
SORT MAIN_TABLE BY MBLNR.
LOOP AT MAIN_TABLE.
WRITE :/5 MAIN_TABLE-MBLNR.
WRITE :/5 MAIN_TABLE-MAKTX, 50 MAIN_TABLE-MATNR.
ENDLOOP.
ENDDO.

Answer 1

Hello,
Take one new table with three fields ie. it_no with mblnr, matnr and menge.
collect data to new table form main_table.
and replace your doubtful code by
SORT MAIN_TABLE BY MBLNR.
loop at it_no.
N = it_no-MENGE.
DO N TIMES.
LOOP AT MAIN_TABLE where matnr = it_no-matnr.
WRITE :/5 MAIN_TABLE-MBLNR.
WRITE :/5 MAIN_TABLE-MAKTX, 50 MAIN_TABLE-MATNR.
ENDLOOP.
ENDDO.
endloop.
regards,
Naimesh