ABAP Select data from SAP table J_1ISERACC 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_1ISERACC 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_1ISERACC. 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_1ISERACC 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_1ISERACC TYPE STANDARD TABLE OF J_1ISERACC,
      WA_J_1ISERACC TYPE J_1ISERACC,
      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_1ISERACC> TYPE J_1ISERACC.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J_1ISERACC
*  INTO TABLE @DATA(IT_J_1ISERACC2).
*--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_1ISERACC INDEX 1 INTO DATA(WA_J_1ISERACC2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<J_1ISERACC>-MANDT = 1.
<J_1ISERACC>-J_1IBUKRS = 1.
<J_1ISERACC>-J_1IWERKS = 1.
<J_1ISERACC>-J_1ISERPAY = 1.
<J_1ISERACC>-J_1ISERECSPAY = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_J_1ISERACC-J_1ISERAT1PAY, sy-vline,
  WA_J_1ISERACC-J_1ISERCRD, sy-vline,
  WA_J_1ISERACC-J_1ISERECSCRD, sy-vline,
  WA_J_1ISERACC-J_1ISERAT1CRD, sy-vline,
  WA_J_1ISERACC-J_1ISERCLR, sy-vline,
  WA_J_1ISERACC-J_1ISERECSCLR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_J_1ISERACC 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_1ISERACC 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_1ISERACC INTO WA_J_1ISERACC.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field SBCPAY
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_J_1ISERACC-SBCPAY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_1ISERACC-SBCPAY.
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_1ISERACC_STR, 
MANDT TYPE STRING,
J_1IBUKRS TYPE STRING,
J_1IWERKS TYPE STRING,
J_1ISERPAY TYPE STRING,
J_1ISERECSPAY TYPE STRING,
J_1ISERAT1PAY TYPE STRING,
J_1ISERCRD TYPE STRING,
J_1ISERECSCRD TYPE STRING,
J_1ISERAT1CRD TYPE STRING,
J_1ISERCLR TYPE STRING,
J_1ISERECSCLR TYPE STRING,
J_1ISERAT1CLR TYPE STRING,
J_1IEXMPTSERPAY TYPE STRING,
J_1IEXMPTECSPAY TYPE STRING,
J_1IEXMPTAT1PAY TYPE STRING,
J_1IEXMPTSERCLR TYPE STRING,
J_1IEXMPTECSCLR TYPE STRING,
J_1IEXMPTAT1CLR TYPE STRING,
J_1IADVST TYPE STRING,
J_1IEXCESSST TYPE STRING,
J_1IPENALTY TYPE STRING,
J_1IINTEREST TYPE STRING,
J_1ISERABTMT TYPE STRING,
J_1ISERECSABTMT TYPE STRING,
J_1ISERAT1ABTMT TYPE STRING,
J_1IABATEMENTGL TYPE STRING,
J_1ISTCLEARING TYPE STRING,
J_1ISERAT2PAY TYPE STRING,
J_1ISERAT2CRD TYPE STRING,
J_1ISERAT2CLR TYPE STRING,
J_1IEXMPTAT2PAY TYPE STRING,
J_1IEXMPTAT2CLR TYPE STRING,
J_1ISERAT2ABTMT TYPE STRING,
J_1ISERAT3PAY TYPE STRING,
J_1ISERAT3CRD TYPE STRING,
J_1ISERAT3CLR TYPE STRING,
J_1IEXMPTAT3PAY TYPE STRING,
J_1IEXMPTAT3CLR TYPE STRING,
J_1ISERAT3ABTMT TYPE STRING,
KKCCRD TYPE STRING,
KKCREV TYPE STRING,
CESS1 TYPE STRING,
CESS1REV TYPE STRING,
KKCPAY TYPE STRING,
CESS1PAY TYPE STRING,
SBCCRD TYPE STRING,
SBCREV TYPE STRING,
SBCPAY TYPE STRING,END OF T_EKKO_STR.
DATA: WA_J_1ISERACC_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_1ISERACC_STR-MANDT sy-vline 
WA_J_1ISERACC_STR-J_1IBUKRS sy-vline 
WA_J_1ISERACC_STR-J_1IWERKS sy-vline 
WA_J_1ISERACC_STR-J_1ISERPAY sy-vline 
WA_J_1ISERACC_STR-J_1ISERECSPAY sy-vline 
WA_J_1ISERACC_STR-J_1ISERAT1PAY sy-vline 
WA_J_1ISERACC_STR-J_1ISERCRD sy-vline 
WA_J_1ISERACC_STR-J_1ISERECSCRD sy-vline 
WA_J_1ISERACC_STR-J_1ISERAT1CRD sy-vline 
WA_J_1ISERACC_STR-J_1ISERCLR sy-vline 
WA_J_1ISERACC_STR-J_1ISERECSCLR sy-vline 
WA_J_1ISERACC_STR-J_1ISERAT1CLR sy-vline 
WA_J_1ISERACC_STR-J_1IEXMPTSERPAY sy-vline 
WA_J_1ISERACC_STR-J_1IEXMPTECSPAY sy-vline 
WA_J_1ISERACC_STR-J_1IEXMPTAT1PAY sy-vline 
WA_J_1ISERACC_STR-J_1IEXMPTSERCLR sy-vline 
WA_J_1ISERACC_STR-J_1IEXMPTECSCLR sy-vline 
WA_J_1ISERACC_STR-J_1IEXMPTAT1CLR sy-vline 
WA_J_1ISERACC_STR-J_1IADVST sy-vline 
WA_J_1ISERACC_STR-J_1IEXCESSST sy-vline 
WA_J_1ISERACC_STR-J_1IPENALTY sy-vline 
WA_J_1ISERACC_STR-J_1IINTEREST sy-vline 
WA_J_1ISERACC_STR-J_1ISERABTMT sy-vline 
WA_J_1ISERACC_STR-J_1ISERECSABTMT sy-vline 
WA_J_1ISERACC_STR-J_1ISERAT1ABTMT sy-vline 
WA_J_1ISERACC_STR-J_1IABATEMENTGL sy-vline 
WA_J_1ISERACC_STR-J_1ISTCLEARING sy-vline 
WA_J_1ISERACC_STR-J_1ISERAT2PAY sy-vline 
WA_J_1ISERACC_STR-J_1ISERAT2CRD sy-vline 
WA_J_1ISERACC_STR-J_1ISERAT2CLR sy-vline 
WA_J_1ISERACC_STR-J_1IEXMPTAT2PAY sy-vline 
WA_J_1ISERACC_STR-J_1IEXMPTAT2CLR sy-vline 
WA_J_1ISERACC_STR-J_1ISERAT2ABTMT sy-vline 
WA_J_1ISERACC_STR-J_1ISERAT3PAY sy-vline 
WA_J_1ISERACC_STR-J_1ISERAT3CRD sy-vline 
WA_J_1ISERACC_STR-J_1ISERAT3CLR sy-vline 
WA_J_1ISERACC_STR-J_1IEXMPTAT3PAY sy-vline 
WA_J_1ISERACC_STR-J_1IEXMPTAT3CLR sy-vline 
WA_J_1ISERACC_STR-J_1ISERAT3ABTMT sy-vline 
WA_J_1ISERACC_STR-KKCCRD sy-vline 
WA_J_1ISERACC_STR-KKCREV sy-vline 
WA_J_1ISERACC_STR-CESS1 sy-vline 
WA_J_1ISERACC_STR-CESS1REV sy-vline 
WA_J_1ISERACC_STR-KKCPAY sy-vline 
WA_J_1ISERACC_STR-CESS1PAY sy-vline 
WA_J_1ISERACC_STR-SBCCRD sy-vline 
WA_J_1ISERACC_STR-SBCREV sy-vline 
WA_J_1ISERACC_STR-SBCPAY sy-vline      INTO ld_text SEPARATED BY SPACE.

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