Usage of 'for all entries' in Select Statement SAP ABAP INTERVIEW Questions

FORM data_retrieval.

DATA: ld_color(1) TYPE c.

DATA: BEGIN OF T_VBAP OCCURS 0,
     VBELN  LIKE VBAP-VBELN,
     MATNR  LIKE VBAP-MATNR,
     POSNR  LIKE VBAP-POSNR,
     END OF T_VBAP.

DATA: BEGIN OF T_VBFA OCCURS 0,
     VBELV  LIKE VBFA-VBELV,
     VBELN  LIKE VBFA-VBELN,
     VBTYP_N  LIKE VBFA-VBTYP_N,

     END OF T_VBFA.

DATA: BEGIN OF T_VBAK OCCURS 0,
     VBELN  LIKE VBAK-VBELN,
     IHREZ  LIKE VBAK-IHREZ,
     END OF T_VBAK.

DATA: BEGIN OF T_KNA1 OCCURS 0,
     KUNNR  LIKE KNA1-KUNNR,
     NAME1  LIKE KNA1-NAME1,
     END OF T_KNA1.

DATA: BEGIN OF T_MAKT OCCURS 0,
     MATNR  LIKE MAKT-MATNR,
     MAKTX  LIKE MAKT-MAKTX,
     END OF T_MAKT.

SELECT likp~vbeln likp~lifex likp~bldat likp~wadat likp~wadat_ist likp~kodat likp~lfart
      likp~kunnr likp~vstel lips~posnv lips~lfimg lips~vrkme lips~lgmng lips~meins
      lips~werks lips~lgort lips~charg lips~vbelv lips~posnr lips~matnr
      lips~vbeln LIPS~VGBEL LIPS~VGPOS vbup~kosta vbup~wbsta vbup~posnr vbup~vbeln
*           VBAK~IHREZ VBAK~VBELN VBAP~VBELN
  INTO CORRESPONDING FIELDS OF TABLE  it_itab
 FROM ( likp
        INNER JOIN lips
        ON  lips~vbeln = likp~vbeln
        INNER JOIN vbup
        ON  vbup~posnr = lips~posnr
        and VBUP~VBELN = LIPS~VBELN )
*           left outer join VBAK
*           on  VBAK~VBELN = LIPS~VGBEL
*           inner join VBAP
*           on  VBAP~VBELN = VBAK~VBELN )
      WHERE likp~vbeln IN so_vbeln
        AND likp~lifex IN so_lifex
        AND likp~lfart IN so_lfart
        AND likp~kunnr IN so_kunnr
        AND likp~vstel IN so_vstel
        AND likp~bldat IN so_bldat
        AND likp~wadat_ist IN so_wadat
        AND vbup~kosta IN so_kosta
        AND vbup~wbsta IN so_wbsta
        AND LIPS~LFIMG NE 0.

SELECT VBELN IHREZ INTO TABLE T_VBAK
FROM VBAK
FOR ALL ENTRIES IN  IT_ITAB
WHERE VBELN = IT_ITAB-VGBEL.
*  APPEND T_VBAK.
*  ENDSELECT.

SELECT VBELN MATNR POSNR INTO TABLE T_VBAP
FROM VBAP
FOR ALL ENTRIES IN  IT_ITAB
WHERE VBELN = IT_ITAB-VGBEL AND
     MATNR = IT_ITAB-MATNR AND
     POSNR = IT_ITAB-VGPOS.
*  APPEND T_VBAP.
*  ENDSELECT.

SELECT VBELV VBELN VBTYP_N INTO TABLE T_VBFA
FROM VBFA
FOR ALL ENTRIES IN  IT_ITAB
WHERE VBELV = IT_ITAB-VBELN AND
     VBTYP_N = 'M' .

SELECT KUNNR NAME1 INTO TABLE T_KNA1
FROM KNA1
FOR ALL ENTRIES IN IT_ITAB
WHERE KUNNR = IT_ITAB-KUNNR.
*  APPEND T_KNA1.
*  ENDSELECT.

SELECT MATNR MAKTX INTO TABLE T_MAKT
FROM MAKT
FOR ALL ENTRIES IN IT_ITAB
WHERE MATNR = IT_ITAB-MATNR.
*  APPEND T_MAKT.
*  ENDSELECT.


*Populate field with color attributes

LOOP AT it_itab INTO wa_ITAB.

* Populate color variable with colour properties

* Char 1 = C (This is a color property)

* Char 2 = 3 (Color codes: 1 - 7)

* Char 3 = Intensified on/off ( 1 or 0 )

* Char 4 = Inverse display on/off ( 1 or 0 )

* i.e. wa_ekko-line_color = 'C410'
 REFRESH color.
 colourize 'VBELN' 0. " .
 WA_ITAB-farbe = color[].


 ld_color = ld_color + 1.

* Only 7 colours so need to reset color value

 IF ld_color = 3. "8

   ld_color = 1.

 ENDIF.

 CONCATENATE 'C' ld_color '10' INTO wa_ITAB-line_color.
 WA_ITAB-NAME1 = ''.
 WA_ITAB-MAKTX = ''.
 WA_ITAB-IHREZ = ''.
 WA_ITAB-VBELV = ''.
 READ TABLE T_KNA1 WITH KEY KUNNR = WA_ITAB-KUNNR.
 IF SY-SUBRC = 0.
    WA_ITAB-NAME1 = T_KNA1-NAME1.
 ENDIF.
 READ TABLE T_MAKT WITH KEY MATNR = WA_ITAB-MATNR.
 IF SY-SUBRC = 0.
 WA_ITAB-MAKTX = T_MAKT-MAKTX.
 ENDIF.
 READ TABLE T_VBAK WITH KEY VBELN = WA_ITAB-VGBEL.
 IF SY-SUBRC = 0.
 WA_ITAB-IHREZ = T_VBAK-IHREZ.
 ENDIF.
 READ TABLE T_VBFA WITH KEY VBELV = WA_ITAB-VBELN.
 IF SY-SUBRC = 0.
 WA_ITAB-VBELVA = T_VBFA-VBELN.
 ENDIF.
*    READ TABLE T_VBAP WITH KEY VBELN = WA_ITAB-VGBEL
*                               POSNR = WA_ITAB-VGPOS
*                               MATNR = WA_ITAB-MATNR.
*    IF SY-SUBRC = 0.
*    WA_ITAB-IHREZ = T_VBAK-IHREZ.
*    ENDIF.



* wa_ekko-line_color = 'C410'.

 MODIFY it_itab FROM wa_itab.

ENDLOOP.

ENDFORM. " data_retrieval