Using RANGES in current logic used - Urgent

Question

Hi everyone, need your help again
This is what i have done and it works. However, according to the consultant, i should use the RANGES statement and later do a DELETE...WHERE... statement in my logic as it is more efficient, especially in a scenario where field EBELN from table EKKO would have more than 1 line containing the same PO number.
Any suggestions or comments on this? I need to deliver asap.
FORM WRITE_ALLP.
SELECT A~EBELN B~EBELP C~EINDT C~MENGE
        INTO CORRESPONDING FIELDS OF TABLE ITAB
        FROM ( EKKO AS A
               INNER JOIN EKPO AS B
                 ON B~EBELN = A~EBELN
               INNER JOIN EKET AS C
                 ON C~EBELN = B~EBELN AND
                    C~EBELP = B~EBELP AND
                    C~ETENR = '1')
        WHERE B~WERKS IN I_WERKS AND
              B~LOEKZ = ' ' AND
              A~BUKRS IN I_BUKRS AND
              A~BSTYP = 'F' AND
              A~EBELN IN I_EBELN AND
              A~LIFNR IN I_LIFNR AND
              B~MATNR IN I_MATNR AND
              B~RETPO = ' ' AND
              A~BEDAT BETWEEN V_BEDAT-LOW AND V_BEDAT-HIGH
        ORDER BY A~EBELN B~EBELP.
CHECK NOT ITAB[] IS INITIAL.
*--> PO NO. WITH MOVEMENT TYPE 101 SELECTED
SELECT EBELN EBELP BELNR BUDAT LFBNR
  INTO CORRESPONDING FIELDS OF TABLE INT_101
  FROM EKBE
  FOR ALL ENTRIES IN ITAB
  WHERE EBELN = ITAB-EBELN AND
        EBELP = ITAB-EBELP AND
        VGABE = '1' AND
        BEWTP = 'E' AND
        BWART = '101'.
SORT INT_101 BY EBELN EBELP.
*--> PO NO. WITH MOVEMENT TYPE 102 SELECTED
SELECT EBELN EBELP BELNR BUDAT LFBNR
  INTO CORRESPONDING FIELDS OF TABLE INT_102
  FROM EKBE
  FOR ALL ENTRIES IN ITAB
  WHERE EBELN = ITAB-EBELN AND
        EBELP = ITAB-EBELP AND
        VGABE = '1' AND
        BEWTP = 'E' AND
        BWART = '102'.
SORT INT_102 BY EBELP EBELP.
*--> COMPARE INT_101 MAT DOC NO WITH INT_102 REF NO
*--> DELETE IF THEY MATCH (GR THAT HAVE REVERSAL)
LOOP AT INT_102.
  DELETE INT_101
    WHERE BELNR = INT_102-LFBNR.
ENDLOOP.
*--> MOVE LINES OF NON-REVERSED GR FROM INT_101 TO ITAB
LOOP AT INT_101.
  MOVE: INT_101-BUDAT TO ITAB-BUDAT,
        INT_101-LFBNR TO ITAB-LFBNR,
        INT_101-BELNR TO ITAB-BELNR,
        INT_101-BWART TO ITAB-BWART.
  MODIFY ITAB TRANSPORTING BUDAT LFBNR BELNR BWART
    WHERE EBELN = INT_101-EBELN AND
          EBELP = INT_101-EBELP.
ENDLOOP.
  FORMAT COLOR 5.
  WRITE: / SY-ULINE(86).
  WRITE: /1  '|', 20 'EVALUATION REPORT FOR ALL DELIVERY ITEMS',
          86 '|'.
  WRITE: /1  '|', 25 'FROM', V_BEDAT-LOW, 'TO', V_BEDAT-HIGH,
          86 '|'.
  FORMAT COLOR OFF.
  FORMAT COLOR 5.
  WRITE: / SY-ULINE(86).
  WRITE: /1  '|', 5 'PO No.',
          14 '|', 16 'PO Item No.',
          28 '|', 'PO Delivery Date',
          47 '|', 'Actual Delivery',
          65 '|', 'Overdue Days (+/-)',
          86 '|'.
  FORMAT COLOR OFF.
  WRITE: / SY-ULINE(86).
  NEW-LINE.
LOOP AT ITAB.
  IF NOT ITAB-BUDAT IS INITIAL.
*--> IF BUDAT CONTAINS A DATE, CALCULATE DATE DIFFERENCE
    V_OVERDUE = ITAB-BUDAT - ITAB-EINDT.
  ELSE.
*-- IF BUDAT DOES NOT CONTAIN A DATE, LEAVE BLANK
    CLEAR V_OVERDUE.
  ENDIF.
*--> ALTERNATE COLORS FOR EACH LINE OF OUTPUT, EASIER VIEW FOR USER
    IF LINE_CHECK = 0.
      FORMAT COLOR COL_NORMAL INTENSIFIED ON.
      LINE_CHECK = 1.
  ELSE.
    FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
    LINE_CHECK = 0.
  ENDIF.
*--> DISPLAY BOTH ON-TIME AND OVERDUE ITEMS
  WRITE: /1  '|', 3 ITAB-EBELN,   "PO NO
          14 '|', 19 ITAB-EBELP,  "PO ITEM NO
          28 '|', 33 ITAB-EINDT,  "PO DELIVERY DATE
          47 '|', 51 ITAB-BUDAT,  "ACTUAL DELIVERY DATE
          65 '|', V_OVERDUE,      "OVERDUE DAYS
          86 '|'.
  IF SY-LINNO >= 65.
    NEW-PAGE.
    FORMAT COLOR 5 INTENSIFIED ON.
  WRITE: / SY-ULINE(86).
  WRITE: /1  '|', 20 'EVALUATION REPORT FOR ALL DELIVERY ITEMS',
          86 '|'.
  WRITE: /1  '|', 25 'FROM', V_BEDAT-LOW, 'TO', V_BEDAT-HIGH,
          86 '|'.
  FORMAT COLOR OFF.
  FORMAT COLOR 5.
  WRITE: / SY-ULINE(86).
  WRITE: /1  '|', 5 'PO No.',
          14 '|', 16 'PO Item No.',
          28 '|', 'PO Delivery Date',
          47 '|', 'Actual Delivery',
          65 '|', 'Overdue Days (+/-)',
          86 '|'.
  FORMAT COLOR OFF.
  WRITE: / SY-ULINE(86).
  NEW-LINE.
  ENDIF.
ENDLOOP.
  WRITE: / SY-ULINE(86).

Answer 1

Hi!
Here the order of the replies is a little bit confused (didn't see your second question up to now).
l_index can be local or global variable (by naming local):
data l_index type i.
data itab_sel like itab.
(And yes, you should have a second table like itab.)
L_index should store current line of loop at int_101. Internal 'current line' of SAP will be changed by read statement, so simple 'delete int_101' would get the wrong line.
With
read table int_102 transporting no fields
             with key lfbnr = int_101-belnr
             binary search.
is done a search for reversals; in case of success, current GR is removed (by deleting line l_index out of table int_101).
Regards,
Christian
P.S.: I always forget, if sy-index or sy-tabix are holding current line in loop / after read table. Just check in debugger or help of statements.