ABAP Select data from SAP table PJP_COM_EAD into internal table

Get Example source ABAP code based on a different SAP table
  Get ABAP code

Below is a number of ABAP code snippets to demonstrate how to select data from SAP PJP_COM_EAD table and store it within an internal table, including using the newer @DATA inline declaration methods. It also shows you various ways to process this data using ABAP work area, inline declaration or field symbols including executing all the relevant CONVERSION_EXIT routines specific to PJP_COM_EAD. See here for more generic Select statement tips.

Sometimes data within SAP is stored within the database table in a different format to what it is displayed to the user. These input/output conversation FM routines are what translates the data between the two formats.

There is also a full declaration of the PJP_COM_EAD table where each field has a char/string type for you to simply copy and paste. This allows you to use processing that is only available to these field types such as the CONCATENATE statement.

DATA: IT_PJP_COM_EAD TYPE STANDARD TABLE OF PJP_COM_EAD,
      WA_PJP_COM_EAD TYPE PJP_COM_EAD,
      GD_STR TYPE STRING.

DATA: lo_typedescr type REF TO cl_abap_typedescr.
DATA: lv_fieldname type fieldname.

FIELD-SYMBOLS: <FIELD> TYPE any.
FIELD-SYMBOLS: <PJP_COM_EAD> TYPE PJP_COM_EAD.

*Process all fields in table header/work area as string values
  PERFORM process_as_string_field_values CHANGING wa_PJP_COM_EAD.

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM PJP_COM_EAD
  INTO TABLE IT_PJP_COM_EAD.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PJP_COM_EAD
*  INTO TABLE @DATA(IT_PJP_COM_EAD2).
*--Further methods of using ABAP code to  select data from SAP database tables

*You can also declare the header/work area using the in-line DATA declaration method
READ TABLE IT_PJP_COM_EAD INDEX 1 INTO DATA(WA_PJP_COM_EAD2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_PJP_COM_EAD ASSIGNING <PJP_COM_EAD>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PJP_COM_EAD>-ITXMF = 1.
<PJP_COM_EAD>-SORTFG = 1.
<PJP_COM_EAD>-RTXMF = 1.
<PJP_COM_EAD>-TXTID = 1.
<PJP_COM_EAD>-PERNR = 1.

ENDLOOP.

LOOP AT IT_PJP_COM_EAD INTO WA_PJP_COM_EAD.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PJP_COM_EAD-RCTVC, sy-vline,
  WA_PJP_COM_EAD-ADDR, sy-vline,
  WA_PJP_COM_EAD-NAME, sy-vline,
  WA_PJP_COM_EAD-KANA, sy-vline,
  WA_PJP_COM_EAD-PLANS_TEXT, sy-vline,
  WA_PJP_COM_EAD-INCOME, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PJP_COM_EAD you want to display...

  WRITE:/ sy-uline.
* Aternatively use generic code to Write field values (and NAME) to screen report
  DO.
    ASSIGN COMPONENT sy-index OF STRUCTURE wa_PJP_COM_EAD TO <field>.
    IF sy-subrc <> 0. EXIT. ENDIF.
    WRITE:/ 'Field Value', <field>, sy-vline.
    gd_str = <field> .
    lo_typedescr ?= CL_ABAP_DATADESCR=>DESCRIBE_BY_DATA( <field> ).
    lv_fieldname = lo_typedescr->GET_RELATIVE_NAME( ).
    WRITE:/ 'Field Name', lv_fieldname.
  ENDDO.

  
*Redo loop but convert all fields from internal to out value  
LOOP AT IT_PJP_COM_EAD INTO WA_PJP_COM_EAD.


*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Convert all fields to display/output versions using conversion routines
  PERFORM convert_all_field_values CHANGING wa_EKKO.
	 
ENDLOOP.

  
*&---------------------------------------------------------------------*
*& Form convert_all_field_values
*&---------------------------------------------------------------------*
FORM convert_all_field_values CHANGING p_EKKO LIKE wa_EKKO.
DATA: ld_input(1000) TYPE c, ld_output(1000) TYPE C.

*Conversion exit ALPHA, internal->external for field KOSTL
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_PJP_COM_EAD-KOSTL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PJP_COM_EAD-KOSTL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field GRANT_NBR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_PJP_COM_EAD-GRANT_NBR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PJP_COM_EAD-GRANT_NBR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field SGMNT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_PJP_COM_EAD-SGMNT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PJP_COM_EAD-SGMNT.
WRITE:/ 'New Value:', ld_input.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_PJP_COM_EAD_STR, 
ITXMF TYPE STRING,
SORTFG TYPE STRING,
RTXMF TYPE STRING,
TXTID TYPE STRING,
PERNR TYPE STRING,
RCTVC TYPE STRING,
ADDR TYPE STRING,
NAME TYPE STRING,
KANA TYPE STRING,
PLANS_TEXT TYPE STRING,
INCOME TYPE STRING,
YEAID TYPE STRING,
TTIPRE TYPE STRING,
TOTDED TYPE STRING,
DEFTAX TYPE STRING,
WITTAX TYPE STRING,
SUPIXE TYPE STRING,
SUPIXE2 TYPE STRING,
SUPNON TYPE STRING,
SUPNON2 TYPE STRING,
SUPOLD TYPE STRING,
DESPOU TYPE STRING,
NUMSPO TYPE STRING,
NUMSPO2 TYPE STRING,
NUMDOL TYPE STRING,
NUMOLD TYPE STRING,
NUMOLD2 TYPE STRING,
NUMGEN TYPE STRING,
NUMGEN2 TYPE STRING,
NUMU16 TYPE STRING,
NUMSDW TYPE STRING,
NUMSER TYPE STRING,
NUMDIS TYPE STRING,
SKK TYPE STRING,
SITOT TYPE STRING,
DEDLIF TYPE STRING,
DEDNON TYPE STRING,
DEDHUS TYPE STRING,
DEFERM TYPE STRING,
TEXT1 TYPE STRING,
TEXT2 TYPE STRING,
TEXT3 TYPE STRING,
OVERFLOW TYPE STRING,
SUPINC TYPE STRING,
PERPEN TYPE STRING,
NLINSL TYPE STRING,
BASDED TYPE STRING,
ADJDED TYPE STRING,
HUSBAN TYPE STRING,
MINOR TYPE STRING,
OTURAN TYPE STRING,
INDDIS TYPE STRING,
INDELS TYPE STRING,
INDOLD TYPE STRING,
INDKAF TYPE STRING,
INDKAT TYPE STRING,
PRSKAO TYPE STRING,
PARENT TYPE STRING,
INDSTU TYPE STRING,
INDSIB TYPE STRING,
INDSAI TYPE STRING,
INDGAI TYPE STRING,
FLGEM1 TYPE STRING,
FLGRET TYPE STRING,
YEAST1 TYPE STRING,
MONST1 TYPE STRING,
DAYST1 TYPE STRING,
FLGMEI TYPE STRING,
FLGTAI TYPE STRING,
FLGSYO TYPE STRING,
FLGHEI TYPE STRING,
GENBTH TYPE STRING,
YARBTH TYPE STRING,
MONBTH TYPE STRING,
DAYBTH TYPE STRING,
TELNR TYPE STRING,
CMPADR TYPE STRING,
CMPNAM TYPE STRING,
ID_NUM1 TYPE STRING,
ID_NUM2 TYPE STRING,
BOFID TYPE STRING,
SUBADR TYPE STRING,
SUBNAM TYPE STRING,
NONRES_ID TYPE STRING,
PER_ID TYPE STRING,
BIRTH_WAREKI TYPE STRING,
HIRE_WAREKI TYPE STRING,
FIRE_WAREKI TYPE STRING,
PRVADR TYPE STRING,
PRVIND TYPE STRING,
PRVNAM TYPE STRING,
PRVINC TYPE STRING,
PRVWIT TYPE STRING,
PRVSIP TYPE STRING,
PRVRET TYPE STRING,
PRVRET_WAREKI TYPE STRING,
PRVSKK TYPE STRING,
HOUSTA TYPE STRING,
HOUSTA_WAREKI TYPE STRING,
DETAIL TYPE STRING,
PASNO TYPE STRING,
TXI1D TYPE STRING,
TXI2D TYPE STRING,
BUKRS TYPE STRING,
WERKS TYPE STRING,
PERSG TYPE STRING,
PERSK TYPE STRING,
VDSK1 TYPE STRING,
GSBER TYPE STRING,
BTRTL TYPE STRING,
JUPER TYPE STRING,
ABKRS TYPE STRING,
ANSVH TYPE STRING,
KOSTL TYPE STRING,
ORGEH TYPE STRING,
PLANS TYPE STRING,
STELL TYPE STRING,
MSTBR TYPE STRING,
SACHA TYPE STRING,
SACHP TYPE STRING,
SACHZ TYPE STRING,
SNAME TYPE STRING,
ENAME TYPE STRING,
OTYPE TYPE STRING,
SBMOD TYPE STRING,
KOKRS TYPE STRING,
FISTL TYPE STRING,
GEBER TYPE STRING,
FKBER TYPE STRING,
GRANT_NBR TYPE STRING,
SGMNT TYPE STRING,
BUDGET_PD TYPE STRING,
CHOSHU TYPE STRING,
AOIRO TYPE STRING,
JOYAKU TYPE STRING,
JUKYUNUM TYPE STRING,
CLCNR TYPE STRING,
SORTF TYPE STRING,
TOTINC TYPE STRING,
SIYEA TYPE STRING,
HOUSNUM TYPE STRING,
HOUSDED TYPE STRING,
HOUSTY1 TYPE STRING,
HOUSLOAN1 TYPE STRING,
HOUSDATE2 TYPE STRING,
HOUSD2_WAREKI TYPE STRING,
HOUSTY2 TYPE STRING,
HOUSLOAN2 TYPE STRING,
HOUSDATE3 TYPE STRING,
HOUSD3_WAREKI TYPE STRING,
HOUSTY3 TYPE STRING,
HOUSLOAN3 TYPE STRING,
TEKIYO TYPE STRING,
NPTOT TYPE STRING,
CLTOT TYPE STRING,
NLTOT TYPE STRING,
NSTOT TYPE STRING,
BUTXT TYPE STRING,
KOSTX TYPE STRING,
PBTXT TYPE STRING,
BTRTX TYPE STRING,
ORGTX TYPE STRING,
FDFLG TYPE STRING,
RCLID TYPE STRING,
SIADJ TYPE STRING,
NATPEN TYPE STRING,
PREDCP TYPE STRING,
SKKINS TYPE STRING,
RNCID TYPE STRING,
HSSA1 TYPE STRING,
HSSA2 TYPE STRING,
HSSA3 TYPE STRING,
CORPN TYPE STRING,
INDNR TYPE STRING,
DEP_NRSNO TYPE STRING,
SPO_KANA TYPE STRING,
SPO_KANJI TYPE STRING,
SPO_NONRE TYPE STRING,
SPO_INDNR TYPE STRING,
DEP_KANA1 TYPE STRING,
DEP_KANJI1 TYPE STRING,
DEP_NONRE1 TYPE STRING,
DEP_INDNR1 TYPE STRING,
DEP_KANA2 TYPE STRING,
DEP_KANJI2 TYPE STRING,
DEP_NONRE2 TYPE STRING,
DEP_INDNR2 TYPE STRING,
DEP_KANA3 TYPE STRING,
DEP_KANJI3 TYPE STRING,
DEP_NONRE3 TYPE STRING,
DEP_INDNR3 TYPE STRING,
DEP_KANA4 TYPE STRING,
DEP_KANJI4 TYPE STRING,
DEP_NONRE4 TYPE STRING,
DEP_INDNR4 TYPE STRING,
DEP_BIKO TYPE STRING,
DEP_JU_KANA1 TYPE STRING,
DEP_JU_KANJI1 TYPE STRING,
DEP_JU_NONRE1 TYPE STRING,
DEP_JU_INDNR1 TYPE STRING,
DEP_JU_KANA2 TYPE STRING,
DEP_JU_KANJI2 TYPE STRING,
DEP_JU_NONRE2 TYPE STRING,
DEP_JU_INDNR2 TYPE STRING,
DEP_JU_KANA3 TYPE STRING,
DEP_JU_KANJI3 TYPE STRING,
DEP_JU_NONRE3 TYPE STRING,
DEP_JU_INDNR3 TYPE STRING,
DEP_JU_KANA4 TYPE STRING,
DEP_JU_KANJI4 TYPE STRING,
DEP_JU_NONRE4 TYPE STRING,
DEP_JU_INDNR4 TYPE STRING,
DEP_JU_BIKO TYPE STRING,
SPEINC TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PJP_COM_EAD_STR type T_EKKO_STR.

DATA: ld_text TYPE string.

LOOP AT IT_EKKO INTO WA_EKKO.
  MOVE-CORRESPONDING wa_EKKO TO WA_EKKO_STR.
  CONCATENATE: sy-vline
WA_PJP_COM_EAD_STR-ITXMF sy-vline 
WA_PJP_COM_EAD_STR-SORTFG sy-vline 
WA_PJP_COM_EAD_STR-RTXMF sy-vline 
WA_PJP_COM_EAD_STR-TXTID sy-vline 
WA_PJP_COM_EAD_STR-PERNR sy-vline 
WA_PJP_COM_EAD_STR-RCTVC sy-vline 
WA_PJP_COM_EAD_STR-ADDR sy-vline 
WA_PJP_COM_EAD_STR-NAME sy-vline 
WA_PJP_COM_EAD_STR-KANA sy-vline 
WA_PJP_COM_EAD_STR-PLANS_TEXT sy-vline 
WA_PJP_COM_EAD_STR-INCOME sy-vline 
WA_PJP_COM_EAD_STR-YEAID sy-vline 
WA_PJP_COM_EAD_STR-TTIPRE sy-vline 
WA_PJP_COM_EAD_STR-TOTDED sy-vline 
WA_PJP_COM_EAD_STR-DEFTAX sy-vline 
WA_PJP_COM_EAD_STR-WITTAX sy-vline 
WA_PJP_COM_EAD_STR-SUPIXE sy-vline 
WA_PJP_COM_EAD_STR-SUPIXE2 sy-vline 
WA_PJP_COM_EAD_STR-SUPNON sy-vline 
WA_PJP_COM_EAD_STR-SUPNON2 sy-vline 
WA_PJP_COM_EAD_STR-SUPOLD sy-vline 
WA_PJP_COM_EAD_STR-DESPOU sy-vline 
WA_PJP_COM_EAD_STR-NUMSPO sy-vline 
WA_PJP_COM_EAD_STR-NUMSPO2 sy-vline 
WA_PJP_COM_EAD_STR-NUMDOL sy-vline 
WA_PJP_COM_EAD_STR-NUMOLD sy-vline 
WA_PJP_COM_EAD_STR-NUMOLD2 sy-vline 
WA_PJP_COM_EAD_STR-NUMGEN sy-vline 
WA_PJP_COM_EAD_STR-NUMGEN2 sy-vline 
WA_PJP_COM_EAD_STR-NUMU16 sy-vline 
WA_PJP_COM_EAD_STR-NUMSDW sy-vline 
WA_PJP_COM_EAD_STR-NUMSER sy-vline 
WA_PJP_COM_EAD_STR-NUMDIS sy-vline 
WA_PJP_COM_EAD_STR-SKK sy-vline 
WA_PJP_COM_EAD_STR-SITOT sy-vline 
WA_PJP_COM_EAD_STR-DEDLIF sy-vline 
WA_PJP_COM_EAD_STR-DEDNON sy-vline 
WA_PJP_COM_EAD_STR-DEDHUS sy-vline 
WA_PJP_COM_EAD_STR-DEFERM sy-vline 
WA_PJP_COM_EAD_STR-TEXT1 sy-vline 
WA_PJP_COM_EAD_STR-TEXT2 sy-vline 
WA_PJP_COM_EAD_STR-TEXT3 sy-vline 
WA_PJP_COM_EAD_STR-OVERFLOW sy-vline 
WA_PJP_COM_EAD_STR-SUPINC sy-vline 
WA_PJP_COM_EAD_STR-PERPEN sy-vline 
WA_PJP_COM_EAD_STR-NLINSL sy-vline 
WA_PJP_COM_EAD_STR-BASDED sy-vline 
WA_PJP_COM_EAD_STR-ADJDED sy-vline 
WA_PJP_COM_EAD_STR-HUSBAN sy-vline 
WA_PJP_COM_EAD_STR-MINOR sy-vline 
WA_PJP_COM_EAD_STR-OTURAN sy-vline 
WA_PJP_COM_EAD_STR-INDDIS sy-vline 
WA_PJP_COM_EAD_STR-INDELS sy-vline 
WA_PJP_COM_EAD_STR-INDOLD sy-vline 
WA_PJP_COM_EAD_STR-INDKAF sy-vline 
WA_PJP_COM_EAD_STR-INDKAT sy-vline 
WA_PJP_COM_EAD_STR-PRSKAO sy-vline 
WA_PJP_COM_EAD_STR-PARENT sy-vline 
WA_PJP_COM_EAD_STR-INDSTU sy-vline 
WA_PJP_COM_EAD_STR-INDSIB sy-vline 
WA_PJP_COM_EAD_STR-INDSAI sy-vline 
WA_PJP_COM_EAD_STR-INDGAI sy-vline 
WA_PJP_COM_EAD_STR-FLGEM1 sy-vline 
WA_PJP_COM_EAD_STR-FLGRET sy-vline 
WA_PJP_COM_EAD_STR-YEAST1 sy-vline 
WA_PJP_COM_EAD_STR-MONST1 sy-vline 
WA_PJP_COM_EAD_STR-DAYST1 sy-vline 
WA_PJP_COM_EAD_STR-FLGMEI sy-vline 
WA_PJP_COM_EAD_STR-FLGTAI sy-vline 
WA_PJP_COM_EAD_STR-FLGSYO sy-vline 
WA_PJP_COM_EAD_STR-FLGHEI sy-vline 
WA_PJP_COM_EAD_STR-GENBTH sy-vline 
WA_PJP_COM_EAD_STR-YARBTH sy-vline 
WA_PJP_COM_EAD_STR-MONBTH sy-vline 
WA_PJP_COM_EAD_STR-DAYBTH sy-vline 
WA_PJP_COM_EAD_STR-TELNR sy-vline 
WA_PJP_COM_EAD_STR-CMPADR sy-vline 
WA_PJP_COM_EAD_STR-CMPNAM sy-vline 
WA_PJP_COM_EAD_STR-ID_NUM1 sy-vline 
WA_PJP_COM_EAD_STR-ID_NUM2 sy-vline 
WA_PJP_COM_EAD_STR-BOFID sy-vline 
WA_PJP_COM_EAD_STR-SUBADR sy-vline 
WA_PJP_COM_EAD_STR-SUBNAM sy-vline 
WA_PJP_COM_EAD_STR-NONRES_ID sy-vline 
WA_PJP_COM_EAD_STR-PER_ID sy-vline 
WA_PJP_COM_EAD_STR-BIRTH_WAREKI sy-vline 
WA_PJP_COM_EAD_STR-HIRE_WAREKI sy-vline 
WA_PJP_COM_EAD_STR-FIRE_WAREKI sy-vline 
WA_PJP_COM_EAD_STR-PRVADR sy-vline 
WA_PJP_COM_EAD_STR-PRVIND sy-vline 
WA_PJP_COM_EAD_STR-PRVNAM sy-vline 
WA_PJP_COM_EAD_STR-PRVINC sy-vline 
WA_PJP_COM_EAD_STR-PRVWIT sy-vline 
WA_PJP_COM_EAD_STR-PRVSIP sy-vline 
WA_PJP_COM_EAD_STR-PRVRET sy-vline 
WA_PJP_COM_EAD_STR-PRVRET_WAREKI sy-vline 
WA_PJP_COM_EAD_STR-PRVSKK sy-vline 
WA_PJP_COM_EAD_STR-HOUSTA sy-vline 
WA_PJP_COM_EAD_STR-HOUSTA_WAREKI sy-vline 
WA_PJP_COM_EAD_STR-DETAIL sy-vline 
WA_PJP_COM_EAD_STR-PASNO sy-vline 
WA_PJP_COM_EAD_STR-TXI1D sy-vline 
WA_PJP_COM_EAD_STR-TXI2D sy-vline 
WA_PJP_COM_EAD_STR-BUKRS sy-vline 
WA_PJP_COM_EAD_STR-WERKS sy-vline 
WA_PJP_COM_EAD_STR-PERSG sy-vline 
WA_PJP_COM_EAD_STR-PERSK sy-vline 
WA_PJP_COM_EAD_STR-VDSK1 sy-vline 
WA_PJP_COM_EAD_STR-GSBER sy-vline 
WA_PJP_COM_EAD_STR-BTRTL sy-vline 
WA_PJP_COM_EAD_STR-JUPER sy-vline 
WA_PJP_COM_EAD_STR-ABKRS sy-vline 
WA_PJP_COM_EAD_STR-ANSVH sy-vline 
WA_PJP_COM_EAD_STR-KOSTL sy-vline 
WA_PJP_COM_EAD_STR-ORGEH sy-vline 
WA_PJP_COM_EAD_STR-PLANS sy-vline 
WA_PJP_COM_EAD_STR-STELL sy-vline 
WA_PJP_COM_EAD_STR-MSTBR sy-vline 
WA_PJP_COM_EAD_STR-SACHA sy-vline 
WA_PJP_COM_EAD_STR-SACHP sy-vline 
WA_PJP_COM_EAD_STR-SACHZ sy-vline 
WA_PJP_COM_EAD_STR-SNAME sy-vline 
WA_PJP_COM_EAD_STR-ENAME sy-vline 
WA_PJP_COM_EAD_STR-OTYPE sy-vline 
WA_PJP_COM_EAD_STR-SBMOD sy-vline 
WA_PJP_COM_EAD_STR-KOKRS sy-vline 
WA_PJP_COM_EAD_STR-FISTL sy-vline 
WA_PJP_COM_EAD_STR-GEBER sy-vline 
WA_PJP_COM_EAD_STR-FKBER sy-vline 
WA_PJP_COM_EAD_STR-GRANT_NBR sy-vline 
WA_PJP_COM_EAD_STR-SGMNT sy-vline 
WA_PJP_COM_EAD_STR-BUDGET_PD sy-vline 
WA_PJP_COM_EAD_STR-CHOSHU sy-vline 
WA_PJP_COM_EAD_STR-AOIRO sy-vline 
WA_PJP_COM_EAD_STR-JOYAKU sy-vline 
WA_PJP_COM_EAD_STR-JUKYUNUM sy-vline 
WA_PJP_COM_EAD_STR-CLCNR sy-vline 
WA_PJP_COM_EAD_STR-SORTF sy-vline 
WA_PJP_COM_EAD_STR-TOTINC sy-vline 
WA_PJP_COM_EAD_STR-SIYEA sy-vline 
WA_PJP_COM_EAD_STR-HOUSNUM sy-vline 
WA_PJP_COM_EAD_STR-HOUSDED sy-vline 
WA_PJP_COM_EAD_STR-HOUSTY1 sy-vline 
WA_PJP_COM_EAD_STR-HOUSLOAN1 sy-vline 
WA_PJP_COM_EAD_STR-HOUSDATE2 sy-vline 
WA_PJP_COM_EAD_STR-HOUSD2_WAREKI sy-vline 
WA_PJP_COM_EAD_STR-HOUSTY2 sy-vline 
WA_PJP_COM_EAD_STR-HOUSLOAN2 sy-vline 
WA_PJP_COM_EAD_STR-HOUSDATE3 sy-vline 
WA_PJP_COM_EAD_STR-HOUSD3_WAREKI sy-vline 
WA_PJP_COM_EAD_STR-HOUSTY3 sy-vline 
WA_PJP_COM_EAD_STR-HOUSLOAN3 sy-vline 
WA_PJP_COM_EAD_STR-TEKIYO sy-vline 
WA_PJP_COM_EAD_STR-NPTOT sy-vline 
WA_PJP_COM_EAD_STR-CLTOT sy-vline 
WA_PJP_COM_EAD_STR-NLTOT sy-vline 
WA_PJP_COM_EAD_STR-NSTOT sy-vline 
WA_PJP_COM_EAD_STR-BUTXT sy-vline 
WA_PJP_COM_EAD_STR-KOSTX sy-vline 
WA_PJP_COM_EAD_STR-PBTXT sy-vline 
WA_PJP_COM_EAD_STR-BTRTX sy-vline 
WA_PJP_COM_EAD_STR-ORGTX sy-vline 
WA_PJP_COM_EAD_STR-FDFLG sy-vline 
WA_PJP_COM_EAD_STR-RCLID sy-vline 
WA_PJP_COM_EAD_STR-SIADJ sy-vline 
WA_PJP_COM_EAD_STR-NATPEN sy-vline 
WA_PJP_COM_EAD_STR-PREDCP sy-vline 
WA_PJP_COM_EAD_STR-SKKINS sy-vline 
WA_PJP_COM_EAD_STR-RNCID sy-vline 
WA_PJP_COM_EAD_STR-HSSA1 sy-vline 
WA_PJP_COM_EAD_STR-HSSA2 sy-vline 
WA_PJP_COM_EAD_STR-HSSA3 sy-vline 
WA_PJP_COM_EAD_STR-CORPN sy-vline 
WA_PJP_COM_EAD_STR-INDNR sy-vline 
WA_PJP_COM_EAD_STR-DEP_NRSNO sy-vline 
WA_PJP_COM_EAD_STR-SPO_KANA sy-vline 
WA_PJP_COM_EAD_STR-SPO_KANJI sy-vline 
WA_PJP_COM_EAD_STR-SPO_NONRE sy-vline 
WA_PJP_COM_EAD_STR-SPO_INDNR sy-vline 
WA_PJP_COM_EAD_STR-DEP_KANA1 sy-vline 
WA_PJP_COM_EAD_STR-DEP_KANJI1 sy-vline 
WA_PJP_COM_EAD_STR-DEP_NONRE1 sy-vline 
WA_PJP_COM_EAD_STR-DEP_INDNR1 sy-vline 
WA_PJP_COM_EAD_STR-DEP_KANA2 sy-vline 
WA_PJP_COM_EAD_STR-DEP_KANJI2 sy-vline 
WA_PJP_COM_EAD_STR-DEP_NONRE2 sy-vline 
WA_PJP_COM_EAD_STR-DEP_INDNR2 sy-vline 
WA_PJP_COM_EAD_STR-DEP_KANA3 sy-vline 
WA_PJP_COM_EAD_STR-DEP_KANJI3 sy-vline 
WA_PJP_COM_EAD_STR-DEP_NONRE3 sy-vline 
WA_PJP_COM_EAD_STR-DEP_INDNR3 sy-vline 
WA_PJP_COM_EAD_STR-DEP_KANA4 sy-vline 
WA_PJP_COM_EAD_STR-DEP_KANJI4 sy-vline 
WA_PJP_COM_EAD_STR-DEP_NONRE4 sy-vline 
WA_PJP_COM_EAD_STR-DEP_INDNR4 sy-vline 
WA_PJP_COM_EAD_STR-DEP_BIKO sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_KANA1 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_KANJI1 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_NONRE1 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_INDNR1 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_KANA2 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_KANJI2 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_NONRE2 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_INDNR2 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_KANA3 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_KANJI3 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_NONRE3 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_INDNR3 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_KANA4 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_KANJI4 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_NONRE4 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_INDNR4 sy-vline 
WA_PJP_COM_EAD_STR-DEP_JU_BIKO sy-vline 
WA_PJP_COM_EAD_STR-SPEINC sy-vline      INTO ld_text SEPARATED BY SPACE.

*Add any further fields from structure WA_EKKO_STR you want to CONCATENATE...
ENDLOOP.
ENDFORM.