ABAP Select data from SAP table P41_P0812 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 P41_P0812 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 P41_P0812. 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 P41_P0812 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_P41_P0812 TYPE STANDARD TABLE OF P41_P0812,
      WA_P41_P0812 TYPE P41_P0812,
      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: <P41_P0812> TYPE P41_P0812.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM P41_P0812
*  INTO TABLE @DATA(IT_P41_P08122).
*--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_P41_P0812 INDEX 1 INTO DATA(WA_P41_P08122).


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

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

ENDLOOP.

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

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


*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 BZNUM, internal->external for field BIZNUMBER01
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER01
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER01.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER02
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER02
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER02.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER03
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER03
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER03.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER04
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER04
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER04.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER05
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER05
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER05.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER06
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER06
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER06.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER07
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER07
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER07.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER08
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER08
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER08.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER09
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER09
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER09.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER10
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER10
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER10.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER11
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER11
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER11.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER12
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER12
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER12.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER13
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER13
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER13.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER14
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER14
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER14.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER15
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER15
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER15.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER16
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER16
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER16.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER17
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER17
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER17.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BZNUM, internal->external for field BIZNUMBER18
CALL FUNCTION 'CONVERSION_EXIT_BZNUM_OUTPUT'
  EXPORTING
    input =                      WA_P41_P0812-BIZNUMBER18
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P41_P0812-BIZNUMBER18.
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_P41_P0812_STR, 
PERNR TYPE STRING,
INFTY 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,
SUBTYPE01 TYPE STRING,
OBJECTID01 TYPE STRING,
BIZNUMBER01 TYPE STRING,
SUPPLYNAME01 TYPE STRING,
TOTALCOUNT01 TYPE STRING,
TOTALAMOUNT01 TYPE STRING,
CURRENCY01 TYPE STRING,
CREDITCARDCNT01 TYPE STRING,
CREDITAMOUNT01 TYPE STRING,
SUBTYPE02 TYPE STRING,
OBJECTID02 TYPE STRING,
BIZNUMBER02 TYPE STRING,
SUPPLYNAME02 TYPE STRING,
TOTALCOUNT02 TYPE STRING,
TOTALAMOUNT02 TYPE STRING,
CURRENCY02 TYPE STRING,
CREDITCARDCNT02 TYPE STRING,
CREDITAMOUNT02 TYPE STRING,
SUBTYPE03 TYPE STRING,
OBJECTID03 TYPE STRING,
BIZNUMBER03 TYPE STRING,
SUPPLYNAME03 TYPE STRING,
TOTALCOUNT03 TYPE STRING,
TOTALAMOUNT03 TYPE STRING,
CURRENCY03 TYPE STRING,
CREDITCARDCNT03 TYPE STRING,
CREDITAMOUNT03 TYPE STRING,
SUBTYPE04 TYPE STRING,
OBJECTID04 TYPE STRING,
BIZNUMBER04 TYPE STRING,
SUPPLYNAME04 TYPE STRING,
TOTALCOUNT04 TYPE STRING,
TOTALAMOUNT04 TYPE STRING,
CURRENCY04 TYPE STRING,
CREDITCARDCNT04 TYPE STRING,
CREDITAMOUNT04 TYPE STRING,
SUBTYPE05 TYPE STRING,
OBJECTID05 TYPE STRING,
BIZNUMBER05 TYPE STRING,
SUPPLYNAME05 TYPE STRING,
TOTALCOUNT05 TYPE STRING,
TOTALAMOUNT05 TYPE STRING,
CURRENCY05 TYPE STRING,
CREDITCARDCNT05 TYPE STRING,
CREDITAMOUNT05 TYPE STRING,
SUBTYPE06 TYPE STRING,
OBJECTID06 TYPE STRING,
BIZNUMBER06 TYPE STRING,
SUPPLYNAME06 TYPE STRING,
TOTALCOUNT06 TYPE STRING,
TOTALAMOUNT06 TYPE STRING,
CURRENCY06 TYPE STRING,
CREDITCARDCNT06 TYPE STRING,
CREDITAMOUNT06 TYPE STRING,
SUBTYPE07 TYPE STRING,
OBJECTID07 TYPE STRING,
BIZNUMBER07 TYPE STRING,
SUPPLYNAME07 TYPE STRING,
TOTALCOUNT07 TYPE STRING,
TOTALAMOUNT07 TYPE STRING,
CURRENCY07 TYPE STRING,
CREDITCARDCNT07 TYPE STRING,
CREDITAMOUNT07 TYPE STRING,
SUBTYPE08 TYPE STRING,
OBJECTID08 TYPE STRING,
BIZNUMBER08 TYPE STRING,
SUPPLYNAME08 TYPE STRING,
TOTALCOUNT08 TYPE STRING,
TOTALAMOUNT08 TYPE STRING,
CURRENCY08 TYPE STRING,
CREDITCARDCNT08 TYPE STRING,
CREDITAMOUNT08 TYPE STRING,
SUBTYPE09 TYPE STRING,
OBJECTID09 TYPE STRING,
BIZNUMBER09 TYPE STRING,
SUPPLYNAME09 TYPE STRING,
TOTALCOUNT09 TYPE STRING,
TOTALAMOUNT09 TYPE STRING,
CURRENCY09 TYPE STRING,
CREDITCARDCNT09 TYPE STRING,
CREDITAMOUNT09 TYPE STRING,
SUBTYPE10 TYPE STRING,
OBJECTID10 TYPE STRING,
BIZNUMBER10 TYPE STRING,
SUPPLYNAME10 TYPE STRING,
TOTALCOUNT10 TYPE STRING,
TOTALAMOUNT10 TYPE STRING,
CURRENCY10 TYPE STRING,
CREDITCARDCNT10 TYPE STRING,
CREDITAMOUNT10 TYPE STRING,
SUBTYPE11 TYPE STRING,
OBJECTID11 TYPE STRING,
BIZNUMBER11 TYPE STRING,
SUPPLYNAME11 TYPE STRING,
TOTALCOUNT11 TYPE STRING,
TOTALAMOUNT11 TYPE STRING,
CURRENCY11 TYPE STRING,
CREDITCARDCNT11 TYPE STRING,
CREDITAMOUNT11 TYPE STRING,
SUBTYPE12 TYPE STRING,
OBJECTID12 TYPE STRING,
BIZNUMBER12 TYPE STRING,
SUPPLYNAME12 TYPE STRING,
TOTALCOUNT12 TYPE STRING,
TOTALAMOUNT12 TYPE STRING,
CURRENCY12 TYPE STRING,
CREDITCARDCNT12 TYPE STRING,
CREDITAMOUNT12 TYPE STRING,
SUBTYPE13 TYPE STRING,
OBJECTID13 TYPE STRING,
BIZNUMBER13 TYPE STRING,
SUPPLYNAME13 TYPE STRING,
TOTALCOUNT13 TYPE STRING,
TOTALAMOUNT13 TYPE STRING,
CURRENCY13 TYPE STRING,
CREDITCARDCNT13 TYPE STRING,
CREDITAMOUNT13 TYPE STRING,
SUBTYPE14 TYPE STRING,
OBJECTID14 TYPE STRING,
BIZNUMBER14 TYPE STRING,
SUPPLYNAME14 TYPE STRING,
TOTALCOUNT14 TYPE STRING,
TOTALAMOUNT14 TYPE STRING,
CURRENCY14 TYPE STRING,
CREDITCARDCNT14 TYPE STRING,
CREDITAMOUNT14 TYPE STRING,
SUBTYPE15 TYPE STRING,
OBJECTID15 TYPE STRING,
BIZNUMBER15 TYPE STRING,
SUPPLYNAME15 TYPE STRING,
TOTALCOUNT15 TYPE STRING,
TOTALAMOUNT15 TYPE STRING,
CURRENCY15 TYPE STRING,
CREDITCARDCNT15 TYPE STRING,
CREDITAMOUNT15 TYPE STRING,
SUBTYPE16 TYPE STRING,
OBJECTID16 TYPE STRING,
BIZNUMBER16 TYPE STRING,
SUPPLYNAME16 TYPE STRING,
TOTALCOUNT16 TYPE STRING,
TOTALAMOUNT16 TYPE STRING,
CURRENCY16 TYPE STRING,
CREDITCARDCNT16 TYPE STRING,
CREDITAMOUNT16 TYPE STRING,
SUBTYPE17 TYPE STRING,
OBJECTID17 TYPE STRING,
BIZNUMBER17 TYPE STRING,
SUPPLYNAME17 TYPE STRING,
TOTALCOUNT17 TYPE STRING,
TOTALAMOUNT17 TYPE STRING,
CURRENCY17 TYPE STRING,
CREDITCARDCNT17 TYPE STRING,
CREDITAMOUNT17 TYPE STRING,
SUBTYPE18 TYPE STRING,
OBJECTID18 TYPE STRING,
BIZNUMBER18 TYPE STRING,
SUPPLYNAME18 TYPE STRING,
TOTALCOUNT18 TYPE STRING,
TOTALAMOUNT18 TYPE STRING,
CURRENCY18 TYPE STRING,
CREDITCARDCNT18 TYPE STRING,
CREDITAMOUNT18 TYPE STRING,
NTS_DATA_FLG TYPE STRING,
PCD01 TYPE STRING,
PCD02 TYPE STRING,
PCD03 TYPE STRING,
PCD04 TYPE STRING,
PCD05 TYPE STRING,
PCD06 TYPE STRING,
PCD07 TYPE STRING,
PCD08 TYPE STRING,
PCD09 TYPE STRING,
PCD10 TYPE STRING,
PCD11 TYPE STRING,
PCD12 TYPE STRING,
PCD13 TYPE STRING,
PCD14 TYPE STRING,
PCD15 TYPE STRING,
PCD16 TYPE STRING,
PCD17 TYPE STRING,
PCD18 TYPE STRING,
STY01 TYPE STRING,
STY02 TYPE STRING,
STY03 TYPE STRING,
STY04 TYPE STRING,
STY05 TYPE STRING,
STY06 TYPE STRING,
STY07 TYPE STRING,
STY08 TYPE STRING,
STY09 TYPE STRING,
STY10 TYPE STRING,
STY11 TYPE STRING,
STY12 TYPE STRING,
STY13 TYPE STRING,
STY14 TYPE STRING,
STY15 TYPE STRING,
STY16 TYPE STRING,
STY17 TYPE STRING,
STY18 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_P41_P0812_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_P41_P0812_STR-PERNR sy-vline 
WA_P41_P0812_STR-INFTY sy-vline 
WA_P41_P0812_STR-SUBTY sy-vline 
WA_P41_P0812_STR-OBJPS sy-vline 
WA_P41_P0812_STR-SPRPS sy-vline 
WA_P41_P0812_STR-ENDDA sy-vline 
WA_P41_P0812_STR-BEGDA sy-vline 
WA_P41_P0812_STR-SEQNR sy-vline 
WA_P41_P0812_STR-AEDTM sy-vline 
WA_P41_P0812_STR-UNAME sy-vline 
WA_P41_P0812_STR-HISTO sy-vline 
WA_P41_P0812_STR-ITXEX sy-vline 
WA_P41_P0812_STR-REFEX sy-vline 
WA_P41_P0812_STR-ORDEX sy-vline 
WA_P41_P0812_STR-ITBLD sy-vline 
WA_P41_P0812_STR-PREAS sy-vline 
WA_P41_P0812_STR-FLAG1 sy-vline 
WA_P41_P0812_STR-FLAG2 sy-vline 
WA_P41_P0812_STR-FLAG3 sy-vline 
WA_P41_P0812_STR-FLAG4 sy-vline 
WA_P41_P0812_STR-RESE1 sy-vline 
WA_P41_P0812_STR-RESE2 sy-vline 
WA_P41_P0812_STR-GRPVL sy-vline 
WA_P41_P0812_STR-SUBTYPE01 sy-vline 
WA_P41_P0812_STR-OBJECTID01 sy-vline 
WA_P41_P0812_STR-BIZNUMBER01 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME01 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT01 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT01 sy-vline 
WA_P41_P0812_STR-CURRENCY01 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT01 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT01 sy-vline 
WA_P41_P0812_STR-SUBTYPE02 sy-vline 
WA_P41_P0812_STR-OBJECTID02 sy-vline 
WA_P41_P0812_STR-BIZNUMBER02 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME02 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT02 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT02 sy-vline 
WA_P41_P0812_STR-CURRENCY02 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT02 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT02 sy-vline 
WA_P41_P0812_STR-SUBTYPE03 sy-vline 
WA_P41_P0812_STR-OBJECTID03 sy-vline 
WA_P41_P0812_STR-BIZNUMBER03 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME03 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT03 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT03 sy-vline 
WA_P41_P0812_STR-CURRENCY03 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT03 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT03 sy-vline 
WA_P41_P0812_STR-SUBTYPE04 sy-vline 
WA_P41_P0812_STR-OBJECTID04 sy-vline 
WA_P41_P0812_STR-BIZNUMBER04 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME04 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT04 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT04 sy-vline 
WA_P41_P0812_STR-CURRENCY04 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT04 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT04 sy-vline 
WA_P41_P0812_STR-SUBTYPE05 sy-vline 
WA_P41_P0812_STR-OBJECTID05 sy-vline 
WA_P41_P0812_STR-BIZNUMBER05 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME05 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT05 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT05 sy-vline 
WA_P41_P0812_STR-CURRENCY05 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT05 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT05 sy-vline 
WA_P41_P0812_STR-SUBTYPE06 sy-vline 
WA_P41_P0812_STR-OBJECTID06 sy-vline 
WA_P41_P0812_STR-BIZNUMBER06 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME06 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT06 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT06 sy-vline 
WA_P41_P0812_STR-CURRENCY06 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT06 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT06 sy-vline 
WA_P41_P0812_STR-SUBTYPE07 sy-vline 
WA_P41_P0812_STR-OBJECTID07 sy-vline 
WA_P41_P0812_STR-BIZNUMBER07 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME07 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT07 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT07 sy-vline 
WA_P41_P0812_STR-CURRENCY07 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT07 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT07 sy-vline 
WA_P41_P0812_STR-SUBTYPE08 sy-vline 
WA_P41_P0812_STR-OBJECTID08 sy-vline 
WA_P41_P0812_STR-BIZNUMBER08 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME08 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT08 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT08 sy-vline 
WA_P41_P0812_STR-CURRENCY08 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT08 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT08 sy-vline 
WA_P41_P0812_STR-SUBTYPE09 sy-vline 
WA_P41_P0812_STR-OBJECTID09 sy-vline 
WA_P41_P0812_STR-BIZNUMBER09 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME09 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT09 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT09 sy-vline 
WA_P41_P0812_STR-CURRENCY09 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT09 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT09 sy-vline 
WA_P41_P0812_STR-SUBTYPE10 sy-vline 
WA_P41_P0812_STR-OBJECTID10 sy-vline 
WA_P41_P0812_STR-BIZNUMBER10 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME10 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT10 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT10 sy-vline 
WA_P41_P0812_STR-CURRENCY10 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT10 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT10 sy-vline 
WA_P41_P0812_STR-SUBTYPE11 sy-vline 
WA_P41_P0812_STR-OBJECTID11 sy-vline 
WA_P41_P0812_STR-BIZNUMBER11 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME11 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT11 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT11 sy-vline 
WA_P41_P0812_STR-CURRENCY11 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT11 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT11 sy-vline 
WA_P41_P0812_STR-SUBTYPE12 sy-vline 
WA_P41_P0812_STR-OBJECTID12 sy-vline 
WA_P41_P0812_STR-BIZNUMBER12 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME12 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT12 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT12 sy-vline 
WA_P41_P0812_STR-CURRENCY12 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT12 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT12 sy-vline 
WA_P41_P0812_STR-SUBTYPE13 sy-vline 
WA_P41_P0812_STR-OBJECTID13 sy-vline 
WA_P41_P0812_STR-BIZNUMBER13 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME13 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT13 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT13 sy-vline 
WA_P41_P0812_STR-CURRENCY13 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT13 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT13 sy-vline 
WA_P41_P0812_STR-SUBTYPE14 sy-vline 
WA_P41_P0812_STR-OBJECTID14 sy-vline 
WA_P41_P0812_STR-BIZNUMBER14 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME14 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT14 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT14 sy-vline 
WA_P41_P0812_STR-CURRENCY14 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT14 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT14 sy-vline 
WA_P41_P0812_STR-SUBTYPE15 sy-vline 
WA_P41_P0812_STR-OBJECTID15 sy-vline 
WA_P41_P0812_STR-BIZNUMBER15 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME15 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT15 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT15 sy-vline 
WA_P41_P0812_STR-CURRENCY15 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT15 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT15 sy-vline 
WA_P41_P0812_STR-SUBTYPE16 sy-vline 
WA_P41_P0812_STR-OBJECTID16 sy-vline 
WA_P41_P0812_STR-BIZNUMBER16 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME16 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT16 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT16 sy-vline 
WA_P41_P0812_STR-CURRENCY16 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT16 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT16 sy-vline 
WA_P41_P0812_STR-SUBTYPE17 sy-vline 
WA_P41_P0812_STR-OBJECTID17 sy-vline 
WA_P41_P0812_STR-BIZNUMBER17 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME17 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT17 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT17 sy-vline 
WA_P41_P0812_STR-CURRENCY17 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT17 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT17 sy-vline 
WA_P41_P0812_STR-SUBTYPE18 sy-vline 
WA_P41_P0812_STR-OBJECTID18 sy-vline 
WA_P41_P0812_STR-BIZNUMBER18 sy-vline 
WA_P41_P0812_STR-SUPPLYNAME18 sy-vline 
WA_P41_P0812_STR-TOTALCOUNT18 sy-vline 
WA_P41_P0812_STR-TOTALAMOUNT18 sy-vline 
WA_P41_P0812_STR-CURRENCY18 sy-vline 
WA_P41_P0812_STR-CREDITCARDCNT18 sy-vline 
WA_P41_P0812_STR-CREDITAMOUNT18 sy-vline 
WA_P41_P0812_STR-NTS_DATA_FLG sy-vline 
WA_P41_P0812_STR-PCD01 sy-vline 
WA_P41_P0812_STR-PCD02 sy-vline 
WA_P41_P0812_STR-PCD03 sy-vline 
WA_P41_P0812_STR-PCD04 sy-vline 
WA_P41_P0812_STR-PCD05 sy-vline 
WA_P41_P0812_STR-PCD06 sy-vline 
WA_P41_P0812_STR-PCD07 sy-vline 
WA_P41_P0812_STR-PCD08 sy-vline 
WA_P41_P0812_STR-PCD09 sy-vline 
WA_P41_P0812_STR-PCD10 sy-vline 
WA_P41_P0812_STR-PCD11 sy-vline 
WA_P41_P0812_STR-PCD12 sy-vline 
WA_P41_P0812_STR-PCD13 sy-vline 
WA_P41_P0812_STR-PCD14 sy-vline 
WA_P41_P0812_STR-PCD15 sy-vline 
WA_P41_P0812_STR-PCD16 sy-vline 
WA_P41_P0812_STR-PCD17 sy-vline 
WA_P41_P0812_STR-PCD18 sy-vline 
WA_P41_P0812_STR-STY01 sy-vline 
WA_P41_P0812_STR-STY02 sy-vline 
WA_P41_P0812_STR-STY03 sy-vline 
WA_P41_P0812_STR-STY04 sy-vline 
WA_P41_P0812_STR-STY05 sy-vline 
WA_P41_P0812_STR-STY06 sy-vline 
WA_P41_P0812_STR-STY07 sy-vline 
WA_P41_P0812_STR-STY08 sy-vline 
WA_P41_P0812_STR-STY09 sy-vline 
WA_P41_P0812_STR-STY10 sy-vline 
WA_P41_P0812_STR-STY11 sy-vline 
WA_P41_P0812_STR-STY12 sy-vline 
WA_P41_P0812_STR-STY13 sy-vline 
WA_P41_P0812_STR-STY14 sy-vline 
WA_P41_P0812_STR-STY15 sy-vline 
WA_P41_P0812_STR-STY16 sy-vline 
WA_P41_P0812_STR-STY17 sy-vline 
WA_P41_P0812_STR-STY18 sy-vline      INTO ld_text SEPARATED BY SPACE.

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