Looping and append related prob

Question

hi experts,
i need to populate a final internal table from 4 diffrent internal tables,
namely it_vbrk,
it_vbrp,
it_lips, it_mch1
logic here
**loop at it_vbrk into wa_vbrk.
wa_final -   = wa_vbrk----
loop at it_vbrp from idx.   then i use parallel cursor, as i needed multiple items based on single vbrk-vbeln
wa_final---- = wa_vbrk ---
loop at it_lips into wa_lips." based on some cond on where clause
    here also i ve to used loop , as there r multiple batch no .
wa_final - = wa_lips-
loop at it_mch1 into wa_mch1 where charg = wa_lips-charg
wa_final --- = wa_mch1 .
APPEND wa_final TO it_final.
    CLEAR wa_final.
    endloop.
endloop.
    endloop  
  ENDLOOP."
but in this code data getting populated are wrong ones,
can u plz tell me  the exact sequence how to used endloops and append work area values and clear that.
i getting confused ,plz help

Answer 1

Hi,
Reading data from 4 database table into different internal table and then read these table into a final internal table using 'FOR ALL ENTRIES'.
Use this code, its working:-
*          RANGES DECLARATION
*          RANGE VALUE TO BE USED FOR THE ORDER TYPE
RANGES : r_auart FOR aufk-auart. "for order type
*          TYPE DECLARATION
TYPES :
* for table aufk (work order details)
        BEGIN OF t_aufk,
          aufnr TYPE aufk-aufnr, " order number
          ktext TYPE aufk-ktext, " description
          objnr TYPE aufk-objnr, " object number
        END OF t_aufk,
* for table jest (object status details)
        BEGIN OF t_jest,
          objnr TYPE jest-objnr, " object number
        END OF t_jest,
* for table afko (basic finish date details)
        BEGIN OF t_afko,
          aufnr TYPE afko-aufnr, " order number
          gltrp TYPE afko-gltrp, "basic finish date
        END OF t_afko,
* for table qmel (notification number details)
        BEGIN OF t_qmel,
          aufnr TYPE qmel-aufnr, " order number
          qmnum TYPE qmel-qmnum, " notification number
        END OF t_qmel,
* final table from which the records need to be displayed
        BEGIN OF t_final,
          aufnr TYPE aufk-aufnr, " order number
          ktext TYPE aufk-ktext, " description
          qmnum TYPE qmel-qmnum, " notification number
          flag(1), " for selection of records
        END OF t_final.
*          INTERNAL TABLE & WORK AREA DECLARATIONS
* TYPE OF T_AUFK
* internal table to select records for damaged order types
DATA : it_aufk TYPE STANDARD TABLE OF t_aufk,
* work area for damaged order types
       wa_aufk TYPE t_aufk.
* TYPE OF T_JEST
* internal table to select object number based upon user status
DATA : it_jest TYPE STANDARD TABLE OF t_jest,
* work area to select object number based upon user status
       wa_jest TYPE t_jest.
* TYPE OF T_AFKO
* internal table to select the basic finish date corresopnding to work order
DATA : it_afko TYPE STANDARD TABLE OF t_afko,
* work area to select the basic finish date corresopnding to work order
       wa_afko TYPE t_afko.
* TYPE OF T_QMEL
* internal table to select the notification number corresopnding to object number
DATA : it_qmel TYPE STANDARD TABLE OF t_qmel,
* work area to select the notification number corresopnding to object number
       wa_qmel TYPE t_qmel.
* TYPE OF T_FINAL
* final internal table to select final records to be displayed
DATA : it_final TYPE STANDARD TABLE OF t_final,
* final work area to select final records to be displayed
       wa_final TYPE t_final.
*          INITIALIZATION
*          TO INITIALIZE ALL THE VARIABLES TO BE USED
*          IN THE PROGRAM
INITIALIZATION.
  r_auart-sign = 'I'.             " for inclusive
  r_auart-option = 'BT'.          " for between operator
  r_auart-low = 'PM01'.           " order type(low value)
  r_auart-high = 'PM02'.          " order type(high value)
  APPEND r_auart.                 " append values for range
*          START-OF-SELECTION
START-OF-SELECTION.
*          CLEAR ALL THE CONTENTS OF ALL INTERBAL TABLES
  REFRESH it_jest.
  REFRESH it_aufk.
  REFRESH it_afko.
  REFRESH it_qmel.
  REFRESH it_final.
*          select user status from TJ02T for TXT04(status of an object)
*          into variable V_ISTAT
  SELECT SINGLE
    istat
  FROM tj02t
  INTO (v_istat)
  WHERE
    txt04 EQ 'TECO' AND
    spras EQ 'E'.
*          select object number based upon the user status selected
  SELECT
    objnr
  FROM jest
  INTO TABLE it_jest
  WHERE
    stat EQ v_istat.
  IF sy-subrc  0.
    MESSAGE e003.
  ELSE.
*         select into it_aufk table: object number, description and
*         object number based on object number selected and order type
*         in PM01 and PM02
    SELECT
      aufnr
      ktext
      objnr
    FROM aufk
    INTO TABLE it_aufk
    FOR ALL ENTRIES IN it_jest
    WHERE
      objnr EQ it_jest-objnr AND
      auart IN r_auart.
    IF sy-subrc  0.
      MESSAGE e002.
    ELSE.
*         select into it_afko table: order number and basic finish date
*         based upon order number selected and basic finish date as
*         v_cdate variable
      SELECT
        aufnr
        gltrp
      FROM afko
      INTO TABLE it_afko
      FOR ALL ENTRIES IN it_aufk
      WHERE
        aufnr EQ it_aufk-aufnr AND
        gltrp LE sy-datum.
*         select into it_qmel table: order number and notification
*         number based on the order number selected
      SELECT
        aufnr
        qmnum
      FROM qmel
      INTO TABLE it_qmel
      FOR ALL ENTRIES IN it_aufk
      WHERE
        aufnr EQ it_aufk-aufnr.
    ENDIF.
  ENDIF.
*          READ THE RECORDS FOMR THE ABOVE POPULATED INTERNAL TABLE
*          INTO WORK AREA AND THEN POPULATE THE FINAL INTERNAL
*          TABLE
* read internal table it_jest into work area wa_jest
  LOOP AT it_jest INTO wa_jest.
* read it_aufk based on object number from wa_jest
    READ TABLE it_aufk INTO wa_aufk WITH KEY objnr = wa_jest-objnr.
* if records found
    IF sy-subrc EQ 0.
* read it_afko for order number and description based on order number
      READ TABLE it_afko INTO wa_afko WITH KEY aufnr = wa_aufk-aufnr.
* if records found
      IF sy-subrc EQ 0.
        wa_final-aufnr = wa_afko-aufnr. "move order number to it_final
        wa_final-ktext = wa_aufk-ktext. "move description to it_final
      ELSE.
* if no record found then move to next loop pass
        CONTINUE.
      ENDIF.
    ELSE.
* if no record found then move to next loop pass
      CONTINUE.
    ENDIF.
* read it_qmel for description based on the order number selected above
    READ TABLE it_qmel INTO wa_qmel WITH KEY aufnr = wa_final-aufnr.
* if records found
    IF sy-subrc EQ 0.
      wa_final-qmnum = wa_qmel-qmnum. "move notification number to it_final
    ENDIF.
* finally append the records into the final internal table
    APPEND wa_final TO it_final. "append wa_final into it_final
    CLEAR wa_final. "clear work area
    CLEAR wa_aufk.  "clear work area
    CLEAR wa_qmel.  "clear work area
  ENDLOOP.
Hope this helps you.
Thanks & Regards,
Tarun Gambhir