ABAP Select data from SAP table J_3GBELP_ALT 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 J_3GBELP_ALT 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 J_3GBELP_ALT. 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 J_3GBELP_ALT 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_J_3GBELP_ALT TYPE STANDARD TABLE OF J_3GBELP_ALT,
      WA_J_3GBELP_ALT TYPE J_3GBELP_ALT,
      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: <J_3GBELP_ALT> TYPE J_3GBELP_ALT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J_3GBELP_ALT
*  INTO TABLE @DATA(IT_J_3GBELP_ALT2).
*--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_J_3GBELP_ALT INDEX 1 INTO DATA(WA_J_3GBELP_ALT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<J_3GBELP_ALT>-MANDT = 1.
<J_3GBELP_ALT>-J_3GBELNRI = 1.
<J_3GBELP_ALT>-J_3GPOSNRI = 1.
<J_3GBELP_ALT>-J_3GUPOSNR = 1.
<J_3GBELP_ALT>-ERNAM = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_J_3GBELP_ALT-ERZET, sy-vline,
  WA_J_3GBELP_ALT-ERDAT, sy-vline,
  WA_J_3GBELP_ALT-UNAME, sy-vline,
  WA_J_3GBELP_ALT-AEZET, sy-vline,
  WA_J_3GBELP_ALT-AEDTM, sy-vline,
  WA_J_3GBELP_ALT-J_3GABSEND, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_J_3GBELP_ALT 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_J_3GBELP_ALT 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_J_3GBELP_ALT INTO WA_J_3GBELP_ALT.


*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 J_3GBELNRI
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_J_3GBELP_ALT-J_3GBELNRI
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3GBELP_ALT-J_3GBELNRI.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ABPSP, internal->external for field J_3GABSPSP
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_J_3GBELP_ALT-J_3GABSPSP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3GBELP_ALT-J_3GABSPSP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit KONPD, internal->external for field J_3GABSPRO
CALL FUNCTION 'CONVERSION_EXIT_KONPD_OUTPUT'
  EXPORTING
    input =                      WA_J_3GBELP_ALT-J_3GABSPRO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3GBELP_ALT-J_3GABSPRO.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit ABPSP, internal->external for field J_3GEMPPSP
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_J_3GBELP_ALT-J_3GEMPPSP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3GBELP_ALT-J_3GEMPPSP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit KONPD, internal->external for field J_3GEMPPRO
CALL FUNCTION 'CONVERSION_EXIT_KONPD_OUTPUT'
  EXPORTING
    input =                      WA_J_3GBELP_ALT-J_3GEMPPRO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3GBELP_ALT-J_3GEMPPRO.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit ABPSP, internal->external for field J_3GMITPSP
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_J_3GBELP_ALT-J_3GMITPSP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3GBELP_ALT-J_3GMITPSP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit KONPD, internal->external for field J_3GMITPRO
CALL FUNCTION 'CONVERSION_EXIT_KONPD_OUTPUT'
  EXPORTING
    input =                      WA_J_3GBELP_ALT-J_3GMITPRO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3GBELP_ALT-J_3GMITPRO.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit CUNIT, internal->external for field J_3GMEINS
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_J_3GBELP_ALT-J_3GMEINS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3GBELP_ALT-J_3GMEINS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field J_3GMEINS2
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_J_3GBELP_ALT-J_3GMEINS2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3GBELP_ALT-J_3GMEINS2.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit MATN1, internal->external for field MATNR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_J_3GBELP_ALT-MATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3GBELP_ALT-MATNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

*Conversion exit ALPHA, internal->external for field J_3GMDOCM2
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_J_3GBELP_ALT-J_3GMDOCM2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3GBELP_ALT-J_3GMDOCM2.
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_J_3GBELP_ALT_STR, 
MANDT TYPE STRING,
J_3GBELNRI TYPE STRING,
J_3GPOSNRI TYPE STRING,
J_3GUPOSNR TYPE STRING,
ERNAM TYPE STRING,
ERZET TYPE STRING,
ERDAT TYPE STRING,
UNAME TYPE STRING,
AEZET TYPE STRING,
AEDTM TYPE STRING,
J_3GABSEND TYPE STRING,
J_3GABSREF TYPE STRING,
J_3GABSPSP TYPE STRING,
J_3GABSPRO TYPE STRING,
J_3GABSKOS TYPE STRING,
J_3GABSKOK TYPE STRING,
J_3GABSACO TYPE STRING,
J_3GABSAPM TYPE STRING,
J_3GABSWRK TYPE STRING,
J_3GABSLAG TYPE STRING,
J_3GABSEXT TYPE STRING,
J_3GABSDEB TYPE STRING,
J_3GEMPFAE TYPE STRING,
J_3GEMPREF TYPE STRING,
J_3GEMPPSP TYPE STRING,
J_3GEMPPRO TYPE STRING,
J_3GEMPKOS TYPE STRING,
J_3GEMPKOK TYPE STRING,
J_3GEMPACO TYPE STRING,
J_3GEMPAPM TYPE STRING,
J_3GEMPWRK TYPE STRING,
J_3GEMPLAG TYPE STRING,
J_3GEMPEXT TYPE STRING,
J_3GEMPDEB TYPE STRING,
J_3GMITTLE TYPE STRING,
J_3GMITREF TYPE STRING,
J_3GMITPSP TYPE STRING,
J_3GMITPRO TYPE STRING,
J_3GMITKOS TYPE STRING,
J_3GMITKOK TYPE STRING,
J_3GMITACO TYPE STRING,
J_3GMITAPM TYPE STRING,
J_3GMITWRK TYPE STRING,
J_3GMITLAG TYPE STRING,
J_3GFREMDP TYPE STRING,
PERNR TYPE STRING,
NACHN TYPE STRING,
J_3GEMPPER TYPE STRING,
J_3GBELSTA TYPE STRING,
J_3GPIABS TYPE STRING,
J_3GPEABS TYPE STRING,
J_3GPIEMPF TYPE STRING,
J_3GPEEMPS TYPE STRING,
J_3GBETR1 TYPE STRING,
J_3GBETR2 TYPE STRING,
J_3GBETR3 TYPE STRING,
J_3GBETR4 TYPE STRING,
J_3GWAERS1 TYPE STRING,
J_3GWAERS2 TYPE STRING,
J_3GWAERS3 TYPE STRING,
J_3GWAERS4 TYPE STRING,
J_3GFAKTAB TYPE STRING,
J_3GFAKTEM TYPE STRING,
EQUNR TYPE STRING,
J_3GTPLKZ TYPE STRING,
J_3GKATNRC TYPE STRING,
LFDNR TYPE STRING,
J_3GDOMLMB TYPE STRING,
J_3GDOMMB TYPE STRING,
J_3GBELNR TYPE STRING,
J_3GPOSNR TYPE STRING,
J_3GGRUND TYPE STRING,
J_3GLFDNR TYPE STRING,
J_3GLVART TYPE STRING,
J_3GMENGE TYPE STRING,
J_3GMEINS TYPE STRING,
J_3GMENGE2 TYPE STRING,
J_3GMEINS2 TYPE STRING,
J_3GKZLATR TYPE STRING,
J_3GVBELNE TYPE STRING,
EQUNR2 TYPE STRING,
J_3GKZMENG TYPE STRING,
MATNR TYPE STRING,
J_3GGENSTA TYPE STRING,
J_3GKZFRIS TYPE STRING,
J_3GEINEND TYPE STRING,
J_3GDATLAB TYPE STRING,
J_3GKZLADI TYPE STRING,
J_3GKZLADE TYPE STRING,
J_3GKZBERG TYPE STRING,
J_3GBESTEM TYPE STRING,
J_3GKZSPIL TYPE STRING,
J_3GKZSPEL TYPE STRING,
J_3GKZSPIB TYPE STRING,
J_3GKZSPEB TYPE STRING,
J_3GKZLVOI TYPE STRING,
J_3GKZLVOE TYPE STRING,
J_3GUMVERI TYPE STRING,
J_3GUMVERE TYPE STRING,
J_3GIMPT1 TYPE STRING,
J_3GIMPT2 TYPE STRING,
J_3GMPOBJ TYPE STRING,
J_3GMPBEG1 TYPE STRING,
J_3GMPEND1 TYPE STRING,
J_3GCDIFF TYPE STRING,
J_3GMDOCM1 TYPE STRING,
J_3GMDOCM2 TYPE STRING,
J_3GIDATE TYPE STRING,
J_3GITIME TYPE STRING,
J_3GBELSTE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_J_3GBELP_ALT_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_J_3GBELP_ALT_STR-MANDT sy-vline 
WA_J_3GBELP_ALT_STR-J_3GBELNRI sy-vline 
WA_J_3GBELP_ALT_STR-J_3GPOSNRI sy-vline 
WA_J_3GBELP_ALT_STR-J_3GUPOSNR sy-vline 
WA_J_3GBELP_ALT_STR-ERNAM sy-vline 
WA_J_3GBELP_ALT_STR-ERZET sy-vline 
WA_J_3GBELP_ALT_STR-ERDAT sy-vline 
WA_J_3GBELP_ALT_STR-UNAME sy-vline 
WA_J_3GBELP_ALT_STR-AEZET sy-vline 
WA_J_3GBELP_ALT_STR-AEDTM sy-vline 
WA_J_3GBELP_ALT_STR-J_3GABSEND sy-vline 
WA_J_3GBELP_ALT_STR-J_3GABSREF sy-vline 
WA_J_3GBELP_ALT_STR-J_3GABSPSP sy-vline 
WA_J_3GBELP_ALT_STR-J_3GABSPRO sy-vline 
WA_J_3GBELP_ALT_STR-J_3GABSKOS sy-vline 
WA_J_3GBELP_ALT_STR-J_3GABSKOK sy-vline 
WA_J_3GBELP_ALT_STR-J_3GABSACO sy-vline 
WA_J_3GBELP_ALT_STR-J_3GABSAPM sy-vline 
WA_J_3GBELP_ALT_STR-J_3GABSWRK sy-vline 
WA_J_3GBELP_ALT_STR-J_3GABSLAG sy-vline 
WA_J_3GBELP_ALT_STR-J_3GABSEXT sy-vline 
WA_J_3GBELP_ALT_STR-J_3GABSDEB sy-vline 
WA_J_3GBELP_ALT_STR-J_3GEMPFAE sy-vline 
WA_J_3GBELP_ALT_STR-J_3GEMPREF sy-vline 
WA_J_3GBELP_ALT_STR-J_3GEMPPSP sy-vline 
WA_J_3GBELP_ALT_STR-J_3GEMPPRO sy-vline 
WA_J_3GBELP_ALT_STR-J_3GEMPKOS sy-vline 
WA_J_3GBELP_ALT_STR-J_3GEMPKOK sy-vline 
WA_J_3GBELP_ALT_STR-J_3GEMPACO sy-vline 
WA_J_3GBELP_ALT_STR-J_3GEMPAPM sy-vline 
WA_J_3GBELP_ALT_STR-J_3GEMPWRK sy-vline 
WA_J_3GBELP_ALT_STR-J_3GEMPLAG sy-vline 
WA_J_3GBELP_ALT_STR-J_3GEMPEXT sy-vline 
WA_J_3GBELP_ALT_STR-J_3GEMPDEB sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMITTLE sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMITREF sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMITPSP sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMITPRO sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMITKOS sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMITKOK sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMITACO sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMITAPM sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMITWRK sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMITLAG sy-vline 
WA_J_3GBELP_ALT_STR-J_3GFREMDP sy-vline 
WA_J_3GBELP_ALT_STR-PERNR sy-vline 
WA_J_3GBELP_ALT_STR-NACHN sy-vline 
WA_J_3GBELP_ALT_STR-J_3GEMPPER sy-vline 
WA_J_3GBELP_ALT_STR-J_3GBELSTA sy-vline 
WA_J_3GBELP_ALT_STR-J_3GPIABS sy-vline 
WA_J_3GBELP_ALT_STR-J_3GPEABS sy-vline 
WA_J_3GBELP_ALT_STR-J_3GPIEMPF sy-vline 
WA_J_3GBELP_ALT_STR-J_3GPEEMPS sy-vline 
WA_J_3GBELP_ALT_STR-J_3GBETR1 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GBETR2 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GBETR3 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GBETR4 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GWAERS1 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GWAERS2 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GWAERS3 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GWAERS4 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GFAKTAB sy-vline 
WA_J_3GBELP_ALT_STR-J_3GFAKTEM sy-vline 
WA_J_3GBELP_ALT_STR-EQUNR sy-vline 
WA_J_3GBELP_ALT_STR-J_3GTPLKZ sy-vline 
WA_J_3GBELP_ALT_STR-J_3GKATNRC sy-vline 
WA_J_3GBELP_ALT_STR-LFDNR sy-vline 
WA_J_3GBELP_ALT_STR-J_3GDOMLMB sy-vline 
WA_J_3GBELP_ALT_STR-J_3GDOMMB sy-vline 
WA_J_3GBELP_ALT_STR-J_3GBELNR sy-vline 
WA_J_3GBELP_ALT_STR-J_3GPOSNR sy-vline 
WA_J_3GBELP_ALT_STR-J_3GGRUND sy-vline 
WA_J_3GBELP_ALT_STR-J_3GLFDNR sy-vline 
WA_J_3GBELP_ALT_STR-J_3GLVART sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMENGE sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMEINS sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMENGE2 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMEINS2 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GKZLATR sy-vline 
WA_J_3GBELP_ALT_STR-J_3GVBELNE sy-vline 
WA_J_3GBELP_ALT_STR-EQUNR2 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GKZMENG sy-vline 
WA_J_3GBELP_ALT_STR-MATNR sy-vline 
WA_J_3GBELP_ALT_STR-J_3GGENSTA sy-vline 
WA_J_3GBELP_ALT_STR-J_3GKZFRIS sy-vline 
WA_J_3GBELP_ALT_STR-J_3GEINEND sy-vline 
WA_J_3GBELP_ALT_STR-J_3GDATLAB sy-vline 
WA_J_3GBELP_ALT_STR-J_3GKZLADI sy-vline 
WA_J_3GBELP_ALT_STR-J_3GKZLADE sy-vline 
WA_J_3GBELP_ALT_STR-J_3GKZBERG sy-vline 
WA_J_3GBELP_ALT_STR-J_3GBESTEM sy-vline 
WA_J_3GBELP_ALT_STR-J_3GKZSPIL sy-vline 
WA_J_3GBELP_ALT_STR-J_3GKZSPEL sy-vline 
WA_J_3GBELP_ALT_STR-J_3GKZSPIB sy-vline 
WA_J_3GBELP_ALT_STR-J_3GKZSPEB sy-vline 
WA_J_3GBELP_ALT_STR-J_3GKZLVOI sy-vline 
WA_J_3GBELP_ALT_STR-J_3GKZLVOE sy-vline 
WA_J_3GBELP_ALT_STR-J_3GUMVERI sy-vline 
WA_J_3GBELP_ALT_STR-J_3GUMVERE sy-vline 
WA_J_3GBELP_ALT_STR-J_3GIMPT1 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GIMPT2 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMPOBJ sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMPBEG1 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMPEND1 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GCDIFF sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMDOCM1 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GMDOCM2 sy-vline 
WA_J_3GBELP_ALT_STR-J_3GIDATE sy-vline 
WA_J_3GBELP_ALT_STR-J_3GITIME sy-vline 
WA_J_3GBELP_ALT_STR-J_3GBELSTE sy-vline      INTO ld_text SEPARATED BY SPACE.

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