ABAP Select data from SAP table PA0508 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 PA0508 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 PA0508. 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 PA0508 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_PA0508 TYPE STANDARD TABLE OF PA0508,
      WA_PA0508 TYPE PA0508,
      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: <PA0508> TYPE PA0508.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PA0508
*  INTO TABLE @DATA(IT_PA05082).
*--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_PA0508 INDEX 1 INTO DATA(WA_PA05082).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PA0508>-MANDT = 1.
<PA0508>-PERNR = 1.
<PA0508>-SUBTY = 1.
<PA0508>-OBJPS = 1.
<PA0508>-SPRPS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PA0508-ENDDA, sy-vline,
  WA_PA0508-BEGDA, sy-vline,
  WA_PA0508-SEQNR, sy-vline,
  WA_PA0508-AEDTM, sy-vline,
  WA_PA0508-UNAME, sy-vline,
  WA_PA0508-HISTO, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PA0508 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_PA0508 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_PA0508 INTO WA_PA0508.


*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.
ENDFORM. 

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

TYPES: BEGIN OF T_PA0508_STR, 
MANDT TYPE STRING,
PERNR TYPE STRING,
SUBTY TYPE STRING,
OBJPS TYPE STRING,
SPRPS TYPE STRING,
ENDDA TYPE STRING,
BEGDA TYPE STRING,
SEQNR TYPE STRING,
AEDTM TYPE STRING,
UNAME TYPE STRING,
HISTO TYPE STRING,
ITXEX TYPE STRING,
REFEX TYPE STRING,
ORDEX TYPE STRING,
ITBLD TYPE STRING,
PREAS TYPE STRING,
FLAG1 TYPE STRING,
FLAG2 TYPE STRING,
FLAG3 TYPE STRING,
FLAG4 TYPE STRING,
RESE1 TYPE STRING,
RESE2 TYPE STRING,
GRPVL TYPE STRING,
AGENT TYPE STRING,
DEPTS TYPE STRING,
FPFLG TYPE STRING,
HRPWK TYPE STRING,
PERCT TYPE STRING,
CTLSL TYPE STRING,
CTSKL TYPE STRING,
CTTER TYPE STRING,
CTAFP TYPE STRING,
ACCDT TYPE STRING,
ELGDT TYPE STRING,
BLVE1 TYPE STRING,
BOBL1 TYPE STRING,
BFLG1 TYPE STRING,
BLVE2 TYPE STRING,
BOBL2 TYPE STRING,
BFLG2 TYPE STRING,
BLVE3 TYPE STRING,
BOBL3 TYPE STRING,
BFLG3 TYPE STRING,
BLVE4 TYPE STRING,
BOBL4 TYPE STRING,
BFLG4 TYPE STRING,
LVE01 TYPE STRING,
BEG01 TYPE STRING,
END01 TYPE STRING,
MTH01 TYPE STRING,
DAY01 TYPE STRING,
PFT01 TYPE STRING,
PAY01 TYPE STRING,
CAS01 TYPE STRING,
LVE02 TYPE STRING,
BEG02 TYPE STRING,
END02 TYPE STRING,
MTH02 TYPE STRING,
DAY02 TYPE STRING,
PFT02 TYPE STRING,
PAY02 TYPE STRING,
CAS02 TYPE STRING,
LVE03 TYPE STRING,
BEG03 TYPE STRING,
END03 TYPE STRING,
MTH03 TYPE STRING,
DAY03 TYPE STRING,
PFT03 TYPE STRING,
PAY03 TYPE STRING,
CAS03 TYPE STRING,
LVE04 TYPE STRING,
BEG04 TYPE STRING,
END04 TYPE STRING,
MTH04 TYPE STRING,
DAY04 TYPE STRING,
PFT04 TYPE STRING,
PAY04 TYPE STRING,
CAS04 TYPE STRING,
LVE05 TYPE STRING,
BEG05 TYPE STRING,
END05 TYPE STRING,
MTH05 TYPE STRING,
DAY05 TYPE STRING,
PFT05 TYPE STRING,
PAY05 TYPE STRING,
CAS05 TYPE STRING,
LVE06 TYPE STRING,
BEG06 TYPE STRING,
END06 TYPE STRING,
MTH06 TYPE STRING,
DAY06 TYPE STRING,
PFT06 TYPE STRING,
PAY06 TYPE STRING,
CAS06 TYPE STRING,
LVE07 TYPE STRING,
BEG07 TYPE STRING,
END07 TYPE STRING,
MTH07 TYPE STRING,
DAY07 TYPE STRING,
PFT07 TYPE STRING,
PAY07 TYPE STRING,
CAS07 TYPE STRING,
LVE08 TYPE STRING,
BEG08 TYPE STRING,
END08 TYPE STRING,
MTH08 TYPE STRING,
DAY08 TYPE STRING,
PFT08 TYPE STRING,
PAY08 TYPE STRING,
CAS08 TYPE STRING,
LVE09 TYPE STRING,
BEG09 TYPE STRING,
END09 TYPE STRING,
MTH09 TYPE STRING,
DAY09 TYPE STRING,
PFT09 TYPE STRING,
PAY09 TYPE STRING,
CAS09 TYPE STRING,
LVE10 TYPE STRING,
BEG10 TYPE STRING,
END10 TYPE STRING,
MTH10 TYPE STRING,
DAY10 TYPE STRING,
PFT10 TYPE STRING,
PAY10 TYPE STRING,
CAS10 TYPE STRING,
LVE11 TYPE STRING,
BEG11 TYPE STRING,
END11 TYPE STRING,
MTH11 TYPE STRING,
DAY11 TYPE STRING,
PFT11 TYPE STRING,
PAY11 TYPE STRING,
CAS11 TYPE STRING,
LVE12 TYPE STRING,
BEG12 TYPE STRING,
END12 TYPE STRING,
MTH12 TYPE STRING,
DAY12 TYPE STRING,
PFT12 TYPE STRING,
PAY12 TYPE STRING,
CAS12 TYPE STRING,
LVE13 TYPE STRING,
BEG13 TYPE STRING,
END13 TYPE STRING,
MTH13 TYPE STRING,
DAY13 TYPE STRING,
PFT13 TYPE STRING,
PAY13 TYPE STRING,
CAS13 TYPE STRING,
LVE14 TYPE STRING,
BEG14 TYPE STRING,
END14 TYPE STRING,
MTH14 TYPE STRING,
DAY14 TYPE STRING,
PFT14 TYPE STRING,
PAY14 TYPE STRING,
CAS14 TYPE STRING,
LVE15 TYPE STRING,
BEG15 TYPE STRING,
END15 TYPE STRING,
MTH15 TYPE STRING,
DAY15 TYPE STRING,
PFT15 TYPE STRING,
PAY15 TYPE STRING,
CAS15 TYPE STRING,
LVE16 TYPE STRING,
BEG16 TYPE STRING,
END16 TYPE STRING,
MTH16 TYPE STRING,
DAY16 TYPE STRING,
PFT16 TYPE STRING,
PAY16 TYPE STRING,
CAS16 TYPE STRING,
LVE17 TYPE STRING,
BEG17 TYPE STRING,
END17 TYPE STRING,
MTH17 TYPE STRING,
DAY17 TYPE STRING,
PFT17 TYPE STRING,
PAY17 TYPE STRING,
CAS17 TYPE STRING,
LVE18 TYPE STRING,
BEG18 TYPE STRING,
END18 TYPE STRING,
MTH18 TYPE STRING,
DAY18 TYPE STRING,
PFT18 TYPE STRING,
PAY18 TYPE STRING,
CAS18 TYPE STRING,
LVE19 TYPE STRING,
BEG19 TYPE STRING,
END19 TYPE STRING,
MTH19 TYPE STRING,
DAY19 TYPE STRING,
PFT19 TYPE STRING,
PAY19 TYPE STRING,
CAS19 TYPE STRING,
LVE20 TYPE STRING,
BEG20 TYPE STRING,
END20 TYPE STRING,
MTH20 TYPE STRING,
DAY20 TYPE STRING,
PFT20 TYPE STRING,
PAY20 TYPE STRING,
CAS20 TYPE STRING,
LVE21 TYPE STRING,
BEG21 TYPE STRING,
END21 TYPE STRING,
MTH21 TYPE STRING,
DAY21 TYPE STRING,
PFT21 TYPE STRING,
PAY21 TYPE STRING,
CAS21 TYPE STRING,
LVE22 TYPE STRING,
BEG22 TYPE STRING,
END22 TYPE STRING,
MTH22 TYPE STRING,
DAY22 TYPE STRING,
PFT22 TYPE STRING,
PAY22 TYPE STRING,
CAS22 TYPE STRING,
LVE23 TYPE STRING,
BEG23 TYPE STRING,
END23 TYPE STRING,
MTH23 TYPE STRING,
DAY23 TYPE STRING,
PFT23 TYPE STRING,
PAY23 TYPE STRING,
CAS23 TYPE STRING,
LVE24 TYPE STRING,
BEG24 TYPE STRING,
END24 TYPE STRING,
MTH24 TYPE STRING,
DAY24 TYPE STRING,
PFT24 TYPE STRING,
PAY24 TYPE STRING,
CAS24 TYPE STRING,
LVE25 TYPE STRING,
BEG25 TYPE STRING,
END25 TYPE STRING,
MTH25 TYPE STRING,
DAY25 TYPE STRING,
PFT25 TYPE STRING,
PAY25 TYPE STRING,
CAS25 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PA0508_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_PA0508_STR-MANDT sy-vline 
WA_PA0508_STR-PERNR sy-vline 
WA_PA0508_STR-SUBTY sy-vline 
WA_PA0508_STR-OBJPS sy-vline 
WA_PA0508_STR-SPRPS sy-vline 
WA_PA0508_STR-ENDDA sy-vline 
WA_PA0508_STR-BEGDA sy-vline 
WA_PA0508_STR-SEQNR sy-vline 
WA_PA0508_STR-AEDTM sy-vline 
WA_PA0508_STR-UNAME sy-vline 
WA_PA0508_STR-HISTO sy-vline 
WA_PA0508_STR-ITXEX sy-vline 
WA_PA0508_STR-REFEX sy-vline 
WA_PA0508_STR-ORDEX sy-vline 
WA_PA0508_STR-ITBLD sy-vline 
WA_PA0508_STR-PREAS sy-vline 
WA_PA0508_STR-FLAG1 sy-vline 
WA_PA0508_STR-FLAG2 sy-vline 
WA_PA0508_STR-FLAG3 sy-vline 
WA_PA0508_STR-FLAG4 sy-vline 
WA_PA0508_STR-RESE1 sy-vline 
WA_PA0508_STR-RESE2 sy-vline 
WA_PA0508_STR-GRPVL sy-vline 
WA_PA0508_STR-AGENT sy-vline 
WA_PA0508_STR-DEPTS sy-vline 
WA_PA0508_STR-FPFLG sy-vline 
WA_PA0508_STR-HRPWK sy-vline 
WA_PA0508_STR-PERCT sy-vline 
WA_PA0508_STR-CTLSL sy-vline 
WA_PA0508_STR-CTSKL sy-vline 
WA_PA0508_STR-CTTER sy-vline 
WA_PA0508_STR-CTAFP sy-vline 
WA_PA0508_STR-ACCDT sy-vline 
WA_PA0508_STR-ELGDT sy-vline 
WA_PA0508_STR-BLVE1 sy-vline 
WA_PA0508_STR-BOBL1 sy-vline 
WA_PA0508_STR-BFLG1 sy-vline 
WA_PA0508_STR-BLVE2 sy-vline 
WA_PA0508_STR-BOBL2 sy-vline 
WA_PA0508_STR-BFLG2 sy-vline 
WA_PA0508_STR-BLVE3 sy-vline 
WA_PA0508_STR-BOBL3 sy-vline 
WA_PA0508_STR-BFLG3 sy-vline 
WA_PA0508_STR-BLVE4 sy-vline 
WA_PA0508_STR-BOBL4 sy-vline 
WA_PA0508_STR-BFLG4 sy-vline 
WA_PA0508_STR-LVE01 sy-vline 
WA_PA0508_STR-BEG01 sy-vline 
WA_PA0508_STR-END01 sy-vline 
WA_PA0508_STR-MTH01 sy-vline 
WA_PA0508_STR-DAY01 sy-vline 
WA_PA0508_STR-PFT01 sy-vline 
WA_PA0508_STR-PAY01 sy-vline 
WA_PA0508_STR-CAS01 sy-vline 
WA_PA0508_STR-LVE02 sy-vline 
WA_PA0508_STR-BEG02 sy-vline 
WA_PA0508_STR-END02 sy-vline 
WA_PA0508_STR-MTH02 sy-vline 
WA_PA0508_STR-DAY02 sy-vline 
WA_PA0508_STR-PFT02 sy-vline 
WA_PA0508_STR-PAY02 sy-vline 
WA_PA0508_STR-CAS02 sy-vline 
WA_PA0508_STR-LVE03 sy-vline 
WA_PA0508_STR-BEG03 sy-vline 
WA_PA0508_STR-END03 sy-vline 
WA_PA0508_STR-MTH03 sy-vline 
WA_PA0508_STR-DAY03 sy-vline 
WA_PA0508_STR-PFT03 sy-vline 
WA_PA0508_STR-PAY03 sy-vline 
WA_PA0508_STR-CAS03 sy-vline 
WA_PA0508_STR-LVE04 sy-vline 
WA_PA0508_STR-BEG04 sy-vline 
WA_PA0508_STR-END04 sy-vline 
WA_PA0508_STR-MTH04 sy-vline 
WA_PA0508_STR-DAY04 sy-vline 
WA_PA0508_STR-PFT04 sy-vline 
WA_PA0508_STR-PAY04 sy-vline 
WA_PA0508_STR-CAS04 sy-vline 
WA_PA0508_STR-LVE05 sy-vline 
WA_PA0508_STR-BEG05 sy-vline 
WA_PA0508_STR-END05 sy-vline 
WA_PA0508_STR-MTH05 sy-vline 
WA_PA0508_STR-DAY05 sy-vline 
WA_PA0508_STR-PFT05 sy-vline 
WA_PA0508_STR-PAY05 sy-vline 
WA_PA0508_STR-CAS05 sy-vline 
WA_PA0508_STR-LVE06 sy-vline 
WA_PA0508_STR-BEG06 sy-vline 
WA_PA0508_STR-END06 sy-vline 
WA_PA0508_STR-MTH06 sy-vline 
WA_PA0508_STR-DAY06 sy-vline 
WA_PA0508_STR-PFT06 sy-vline 
WA_PA0508_STR-PAY06 sy-vline 
WA_PA0508_STR-CAS06 sy-vline 
WA_PA0508_STR-LVE07 sy-vline 
WA_PA0508_STR-BEG07 sy-vline 
WA_PA0508_STR-END07 sy-vline 
WA_PA0508_STR-MTH07 sy-vline 
WA_PA0508_STR-DAY07 sy-vline 
WA_PA0508_STR-PFT07 sy-vline 
WA_PA0508_STR-PAY07 sy-vline 
WA_PA0508_STR-CAS07 sy-vline 
WA_PA0508_STR-LVE08 sy-vline 
WA_PA0508_STR-BEG08 sy-vline 
WA_PA0508_STR-END08 sy-vline 
WA_PA0508_STR-MTH08 sy-vline 
WA_PA0508_STR-DAY08 sy-vline 
WA_PA0508_STR-PFT08 sy-vline 
WA_PA0508_STR-PAY08 sy-vline 
WA_PA0508_STR-CAS08 sy-vline 
WA_PA0508_STR-LVE09 sy-vline 
WA_PA0508_STR-BEG09 sy-vline 
WA_PA0508_STR-END09 sy-vline 
WA_PA0508_STR-MTH09 sy-vline 
WA_PA0508_STR-DAY09 sy-vline 
WA_PA0508_STR-PFT09 sy-vline 
WA_PA0508_STR-PAY09 sy-vline 
WA_PA0508_STR-CAS09 sy-vline 
WA_PA0508_STR-LVE10 sy-vline 
WA_PA0508_STR-BEG10 sy-vline 
WA_PA0508_STR-END10 sy-vline 
WA_PA0508_STR-MTH10 sy-vline 
WA_PA0508_STR-DAY10 sy-vline 
WA_PA0508_STR-PFT10 sy-vline 
WA_PA0508_STR-PAY10 sy-vline 
WA_PA0508_STR-CAS10 sy-vline 
WA_PA0508_STR-LVE11 sy-vline 
WA_PA0508_STR-BEG11 sy-vline 
WA_PA0508_STR-END11 sy-vline 
WA_PA0508_STR-MTH11 sy-vline 
WA_PA0508_STR-DAY11 sy-vline 
WA_PA0508_STR-PFT11 sy-vline 
WA_PA0508_STR-PAY11 sy-vline 
WA_PA0508_STR-CAS11 sy-vline 
WA_PA0508_STR-LVE12 sy-vline 
WA_PA0508_STR-BEG12 sy-vline 
WA_PA0508_STR-END12 sy-vline 
WA_PA0508_STR-MTH12 sy-vline 
WA_PA0508_STR-DAY12 sy-vline 
WA_PA0508_STR-PFT12 sy-vline 
WA_PA0508_STR-PAY12 sy-vline 
WA_PA0508_STR-CAS12 sy-vline 
WA_PA0508_STR-LVE13 sy-vline 
WA_PA0508_STR-BEG13 sy-vline 
WA_PA0508_STR-END13 sy-vline 
WA_PA0508_STR-MTH13 sy-vline 
WA_PA0508_STR-DAY13 sy-vline 
WA_PA0508_STR-PFT13 sy-vline 
WA_PA0508_STR-PAY13 sy-vline 
WA_PA0508_STR-CAS13 sy-vline 
WA_PA0508_STR-LVE14 sy-vline 
WA_PA0508_STR-BEG14 sy-vline 
WA_PA0508_STR-END14 sy-vline 
WA_PA0508_STR-MTH14 sy-vline 
WA_PA0508_STR-DAY14 sy-vline 
WA_PA0508_STR-PFT14 sy-vline 
WA_PA0508_STR-PAY14 sy-vline 
WA_PA0508_STR-CAS14 sy-vline 
WA_PA0508_STR-LVE15 sy-vline 
WA_PA0508_STR-BEG15 sy-vline 
WA_PA0508_STR-END15 sy-vline 
WA_PA0508_STR-MTH15 sy-vline 
WA_PA0508_STR-DAY15 sy-vline 
WA_PA0508_STR-PFT15 sy-vline 
WA_PA0508_STR-PAY15 sy-vline 
WA_PA0508_STR-CAS15 sy-vline 
WA_PA0508_STR-LVE16 sy-vline 
WA_PA0508_STR-BEG16 sy-vline 
WA_PA0508_STR-END16 sy-vline 
WA_PA0508_STR-MTH16 sy-vline 
WA_PA0508_STR-DAY16 sy-vline 
WA_PA0508_STR-PFT16 sy-vline 
WA_PA0508_STR-PAY16 sy-vline 
WA_PA0508_STR-CAS16 sy-vline 
WA_PA0508_STR-LVE17 sy-vline 
WA_PA0508_STR-BEG17 sy-vline 
WA_PA0508_STR-END17 sy-vline 
WA_PA0508_STR-MTH17 sy-vline 
WA_PA0508_STR-DAY17 sy-vline 
WA_PA0508_STR-PFT17 sy-vline 
WA_PA0508_STR-PAY17 sy-vline 
WA_PA0508_STR-CAS17 sy-vline 
WA_PA0508_STR-LVE18 sy-vline 
WA_PA0508_STR-BEG18 sy-vline 
WA_PA0508_STR-END18 sy-vline 
WA_PA0508_STR-MTH18 sy-vline 
WA_PA0508_STR-DAY18 sy-vline 
WA_PA0508_STR-PFT18 sy-vline 
WA_PA0508_STR-PAY18 sy-vline 
WA_PA0508_STR-CAS18 sy-vline 
WA_PA0508_STR-LVE19 sy-vline 
WA_PA0508_STR-BEG19 sy-vline 
WA_PA0508_STR-END19 sy-vline 
WA_PA0508_STR-MTH19 sy-vline 
WA_PA0508_STR-DAY19 sy-vline 
WA_PA0508_STR-PFT19 sy-vline 
WA_PA0508_STR-PAY19 sy-vline 
WA_PA0508_STR-CAS19 sy-vline 
WA_PA0508_STR-LVE20 sy-vline 
WA_PA0508_STR-BEG20 sy-vline 
WA_PA0508_STR-END20 sy-vline 
WA_PA0508_STR-MTH20 sy-vline 
WA_PA0508_STR-DAY20 sy-vline 
WA_PA0508_STR-PFT20 sy-vline 
WA_PA0508_STR-PAY20 sy-vline 
WA_PA0508_STR-CAS20 sy-vline 
WA_PA0508_STR-LVE21 sy-vline 
WA_PA0508_STR-BEG21 sy-vline 
WA_PA0508_STR-END21 sy-vline 
WA_PA0508_STR-MTH21 sy-vline 
WA_PA0508_STR-DAY21 sy-vline 
WA_PA0508_STR-PFT21 sy-vline 
WA_PA0508_STR-PAY21 sy-vline 
WA_PA0508_STR-CAS21 sy-vline 
WA_PA0508_STR-LVE22 sy-vline 
WA_PA0508_STR-BEG22 sy-vline 
WA_PA0508_STR-END22 sy-vline 
WA_PA0508_STR-MTH22 sy-vline 
WA_PA0508_STR-DAY22 sy-vline 
WA_PA0508_STR-PFT22 sy-vline 
WA_PA0508_STR-PAY22 sy-vline 
WA_PA0508_STR-CAS22 sy-vline 
WA_PA0508_STR-LVE23 sy-vline 
WA_PA0508_STR-BEG23 sy-vline 
WA_PA0508_STR-END23 sy-vline 
WA_PA0508_STR-MTH23 sy-vline 
WA_PA0508_STR-DAY23 sy-vline 
WA_PA0508_STR-PFT23 sy-vline 
WA_PA0508_STR-PAY23 sy-vline 
WA_PA0508_STR-CAS23 sy-vline 
WA_PA0508_STR-LVE24 sy-vline 
WA_PA0508_STR-BEG24 sy-vline 
WA_PA0508_STR-END24 sy-vline 
WA_PA0508_STR-MTH24 sy-vline 
WA_PA0508_STR-DAY24 sy-vline 
WA_PA0508_STR-PFT24 sy-vline 
WA_PA0508_STR-PAY24 sy-vline 
WA_PA0508_STR-CAS24 sy-vline 
WA_PA0508_STR-LVE25 sy-vline 
WA_PA0508_STR-BEG25 sy-vline 
WA_PA0508_STR-END25 sy-vline 
WA_PA0508_STR-MTH25 sy-vline 
WA_PA0508_STR-DAY25 sy-vline 
WA_PA0508_STR-PFT25 sy-vline 
WA_PA0508_STR-PAY25 sy-vline 
WA_PA0508_STR-CAS25 sy-vline      INTO ld_text SEPARATED BY SPACE.

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