Question about statement for all entries

Question

Hi Abap experts,
I have a question concerning the ABAP statement for all entries.
Explanations:
Let’s say that my source package (Source table) contains 2 types of data:
-type1
-type2
I would like to use the statement select from table into internal table
For all entries in source package
But the where statement changes depending on the data type (2 keys when data type is 1 and only 1 key when data type is 2) .
So that would be:
Type1:
Select fields
From table into internal table
Where field1 = source_package-field1
And field2 = source_package-field2.
Type2:
Select fields
From table into internal table
Where field1 = source_package-field1
How can I merge them assming that the field od data type is ftype?
Thanks.
Amine

Answer 1

Hi amine,
i think this is helpful for you.
there are 2 ways  to use the for all entries...
1. with header line:  this method is old one. in this method the internal table (ITAB) is automatically create workarea (WA) with same name, this method 1 drawback is there where we can use WA and ITAB confused that's why this is come difficult.
2. without header line : this is nowadays we can use this method. in this method we create separate ITAb and WA. very clear this method.
EXAMPLES:
1.WITH HEADER LINE METHOD:
PARAMETERS p_kunnr TYPE kna1-kunnr.
DATA:it_kna1 LIKE kna1 OCCURS 0 WITH HEADER LINE,
      it_adrc LIKE adrc OCCURS 0 WITH HEADER LINE,
      it_adr2 LIKE adr2 OCCURS 0 WITH HEADER LINE,
      it_adr6 LIKE adr6 OCCURS 0 WITH HEADER LINE.
START-OF-SELECTION.
   SELECT * FROM kna1 INTO TABLE it_kna1
      UP TO 100 ROWS.
   IF NOT it_kna1[] IS INITIAL.
     SELECT * FROM adrc INTO TABLE it_adrc
     FOR ALL ENTRIES IN it_kna1
     WHERE addrnumber = it_kna1-adrnr.
   ENDIF.
   IF NOT it_adrc[] IS INITIAL.
     SELECT * FROM adr2 INTO TABLE it_adr2
     FOR ALL ENTRIES IN it_adrc
     WHERE  addrnumber = it_adrc-addrnumber.
   ENDIF.
   IF NOT it_adr2[] IS INITIAL.
     SELECT * FROM adr6 INTO TABLE it_adr6
     FOR ALL ENTRIES IN it_adr2
     WHERE  addrnumber = it_adr2-addrnumber.
   ENDIF.
   LOOP AT it_kna1.
     READ TABLE it_adrc WITH KEY addrnumber = it_kna1-adrnr.
     IF sy-subrc = 0.
     ENDIF.
     READ TABLE it_adr2 WITH KEY addrnumber = it_kna1-adrnr.
     IF sy-subrc = 0.
     ENDIF.
     READ TABLE it_adr6 WITH KEY addrnumber = it_kna1-adrnr.
     IF sy-subrc = 0.
     ENDIF.
     WRITE : it_kna1-kunnr, it_kna1-name1, it_adrc-city1, it_adrc-street, it_adrc-po_box_reg,
                  it_adr2-telnr_long, it_adr6-smtp_addr.
   ENDLOOP.
2. WITH OUT HEADER LINE:
TABLES: KNA1 , ADRC.
DATA : IT_KNA1 TYPE STANDARD TABLE OF KNA1,
        IT_ADRC TYPE STANDARD TABLE OF ADRC,
        WA_KNA1 TYPE KNA1,
        WA_ADRC TYPE ADRC.
DATA: BEGIN OF STRTYPE ,
       CUSTMERNO LIKE KNA1-KUNNR,
       FIRSTNAME LIKE KNA1-NAME1,
       LASTNAME  TYPE NAME2,
       CITY TYPE ORT01,
       STATE TYPE REGIO,
       COUNTRY TYPE LAND1,
       ADDRESS LIKE ADRC-ADDRNUMBER,
       END OF STRTYPE.
DATA : IT_1 LIKE TABLE OF STRTYPE.
SELECT-OPTIONS  K_kunnr FOR kna1-kunnr NO-EXTENSION.
SELECT * FROM KNA1 INTO TABLE IT_KNA1 WHERE KUNNR IN K_KUNNR.
IF NOT IT_KNA1[] IS INITIAL.
SELECT * FROM ADRC INTO WA_ADRC FOR ALL ENTRIES IN IT_KNA1 WHERE ADDRNUMBER = IT_KNA1-ADRNR.
ENDSELECT.
ENDIF.
LOOP AT IT_KNA1 INTO WA_KNA1.
   READ TABLE IT_ADRC INTO WA_ADRC WITH KEY ADDRNUMBER = WA_KNA1-ADRNR.
   IF SY-SUBRC = 0.
       STRTYPE-ADDRESS = WA_ADRC-ADDRNUMBER.
   ENDIF.
APPEND  STRTYPE TO IT_1.
   WRITE : / WA_KNA1-KUNNR, WA_KNA1-NAME1, WA_KNA1-NAME2, WA_KNA1-ORT01, WA_KNA1-REGIO, WA_KNA1-LAND1, WA_ADRC-ADDRNUMBER.
ENDLOOP.
regards,
roopa.k