ABAP Select data from SAP table J_2GPFINM 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_2GPFINM 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_2GPFINM. 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_2GPFINM 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_2GPFINM TYPE STANDARD TABLE OF J_2GPFINM,
      WA_J_2GPFINM TYPE J_2GPFINM,
      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_2GPFINM> TYPE J_2GPFINM.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J_2GPFINM
*  INTO TABLE @DATA(IT_J_2GPFINM2).
*--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_2GPFINM INDEX 1 INTO DATA(WA_J_2GPFINM2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<J_2GPFINM>-BELNR = 1.
<J_2GPFINM>-LEGALDOC = 1.
<J_2GPFINM>-BUDAT = 1.
<J_2GPFINM>-TITLE = 1.
<J_2GPFINM>-WORD = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_J_2GPFINM-DECWORD, sy-vline,
  WA_J_2GPFINM-WAERS, sy-vline,
  WA_J_2GPFINM-SUMMARY, sy-vline,
  WA_J_2GPFINM-SUMMARY2, sy-vline,
  WA_J_2GPFINM-SUMMARY3, sy-vline,
  WA_J_2GPFINM-SUMM_TAX, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_J_2GPFINM 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_2GPFINM 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_2GPFINM INTO WA_J_2GPFINM.


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

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

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

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

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

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

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

*Conversion exit ISOLA, internal->external for field LANGUCOM
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_J_2GPFINM-LANGUCOM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_2GPFINM-LANGUCOM.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ISOLA, internal->external for field LANGU_CREACOM
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_J_2GPFINM-LANGU_CREACOM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_2GPFINM-LANGU_CREACOM.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit PARVW, internal->external for field PARVWBP1
CALL FUNCTION 'CONVERSION_EXIT_PARVW_OUTPUT'
  EXPORTING
    input =                      WA_J_2GPFINM-PARVWBP1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_2GPFINM-PARVWBP1.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

*Conversion exit ISOLA, internal->external for field LANGUBP1
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_J_2GPFINM-LANGUBP1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_2GPFINM-LANGUBP1.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ISOLA, internal->external for field LANGU_CREABP1
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_J_2GPFINM-LANGU_CREABP1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_2GPFINM-LANGU_CREABP1.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ALPHA, internal->external for field TOWNSHIP_CODEBP1
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_J_2GPFINM-TOWNSHIP_CODEBP1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_2GPFINM-TOWNSHIP_CODEBP1.
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_2GPFINM_STR, 
BELNR TYPE STRING,
LEGALDOC TYPE STRING,
BUDAT TYPE STRING,
TITLE TYPE STRING,
WORD TYPE STRING,
DECWORD TYPE STRING,
WAERS TYPE STRING,
SUMMARY TYPE STRING,
SUMMARY2 TYPE STRING,
SUMMARY3 TYPE STRING,
SUMM_TAX TYPE STRING,
SUMM_TAX2 TYPE STRING,
SUMM_TAX3 TYPE STRING,
TOTAL_AMT TYPE STRING,
TOTAL_AMT2 TYPE STRING,
TOTAL_AMT3 TYPE STRING,
BUKRSCOM TYPE STRING,
TAXNUMCOM TYPE STRING,
TAXOFFCOM TYPE STRING,
TAXFNRCOM TYPE STRING,
PRNUMCOM TYPE STRING,
STCEGCOM TYPE STRING,
PROFCOM TYPE STRING,
ADDRNUMBERCOM TYPE STRING,
ADDRHANDLECOM TYPE STRING,
NATIONCOM TYPE STRING,
DATECOM TYPE STRING,
DATE_FROMCOM TYPE STRING,
DATE_TOCOM TYPE STRING,
TITLECOM TYPE STRING,
NAME1COM TYPE STRING,
NAME2COM TYPE STRING,
NAME3COM TYPE STRING,
NAME4COM TYPE STRING,
NAME_TXTCOM TYPE STRING,
NAME_COCOM TYPE STRING,
CITY1COM TYPE STRING,
CITY2COM TYPE STRING,
CITY_CODECOM TYPE STRING,
CITYP_CODECOM TYPE STRING,
HOME_CITYCOM TYPE STRING,
CITYH_CODECOM TYPE STRING,
CHCKSTATUSCOM TYPE STRING,
REGIOGROUPCOM TYPE STRING,
POST_CODE1COM TYPE STRING,
POST_CODE2COM TYPE STRING,
POST_CODE3COM TYPE STRING,
PCODE1_EXTCOM TYPE STRING,
PCODE2_EXTCOM TYPE STRING,
PCODE3_EXTCOM TYPE STRING,
PO_BOXCOM TYPE STRING,
DONT_USE_PCOM TYPE STRING,
PO_BOX_NUMCOM TYPE STRING,
PO_BOX_LOCCOM TYPE STRING,
CITY_CODE2COM TYPE STRING,
PO_BOX_REGCOM TYPE STRING,
PO_BOX_CTYCOM TYPE STRING,
POSTALAREACOM TYPE STRING,
TRANSPZONECOM TYPE STRING,
STREETCOM TYPE STRING,
DONT_USE_SCOM TYPE STRING,
STREETCODECOM TYPE STRING,
STREETABBRCOM TYPE STRING,
HOUSE_NUM1COM TYPE STRING,
HOUSE_NUM2COM TYPE STRING,
HOUSE_NUM3COM TYPE STRING,
STR_SUPPL1COM TYPE STRING,
STR_SUPPL2COM TYPE STRING,
STR_SUPPL3COM TYPE STRING,
LOCATIONCOM TYPE STRING,
BUILDINGCOM TYPE STRING,
FLOORCOM TYPE STRING,
ROOMNUMBERCOM TYPE STRING,
COUNTRYCOM TYPE STRING,
LANGUCOM TYPE STRING,
REGIONCOM TYPE STRING,
SORT1COM TYPE STRING,
SORT2COM TYPE STRING,
SORT_PHNCOM TYPE STRING,
ADDRORIGINCOM TYPE STRING,
EXTENSION1COM TYPE STRING,
EXTENSION2COM TYPE STRING,
TIME_ZONECOM TYPE STRING,
TAXJURCODECOM TYPE STRING,
ADDRESS_IDCOM TYPE STRING,
REMARKCOM TYPE STRING,
LANGU_CREACOM TYPE STRING,
PO_BOX_LOBBYCOM TYPE STRING,
DELI_SERV_TYPECOM TYPE STRING,
DELI_SERV_NUMBERCOM TYPE STRING,
COUNTY_CODECOM TYPE STRING,
COUNTYCOM TYPE STRING,
TOWNSHIP_CODECOM TYPE STRING,
TOWNSHIPCOM TYPE STRING,
DEFLT_COMMCOM TYPE STRING,
XPCPTCOM TYPE STRING,
TEL_NUMBERCOM TYPE STRING,
TEL_EXTENSCOM TYPE STRING,
FAX_NUMBERCOM TYPE STRING,
FAX_EXTENSCOM TYPE STRING,
ADDR_GROUPCOM TYPE STRING,
CODEBP1 TYPE STRING,
TYPEBP1 TYPE STRING,
PARVWBP1 TYPE STRING,
KUNNRBP1 TYPE STRING,
LIFNRBP1 TYPE STRING,
PARNRBP1 TYPE STRING,
WERKSBP1 TYPE STRING,
TAXNUMBP1 TYPE STRING,
TAXOFFBP1 TYPE STRING,
TAXREGBP1 TYPE STRING,
STCEGBP1 TYPE STRING,
PROFBP1 TYPE STRING,
RCNUMBP1 TYPE STRING,
ADRDABP1 TYPE STRING,
ADDRNUMBERBP1 TYPE STRING,
ADDRHANDLEBP1 TYPE STRING,
NATIONBP1 TYPE STRING,
DATEBP1 TYPE STRING,
DATE_FROMBP1 TYPE STRING,
DATE_TOBP1 TYPE STRING,
TITLEBP1 TYPE STRING,
NAME1BP1 TYPE STRING,
NAME2BP1 TYPE STRING,
NAME3BP1 TYPE STRING,
NAME4BP1 TYPE STRING,
NAME_TXTBP1 TYPE STRING,
NAME_COBP1 TYPE STRING,
CITY1BP1 TYPE STRING,
CITY2BP1 TYPE STRING,
CITY_CODEBP1 TYPE STRING,
CITYP_CODEBP1 TYPE STRING,
HOME_CITYBP1 TYPE STRING,
CITYH_CODEBP1 TYPE STRING,
CHCKSTATUSBP1 TYPE STRING,
REGIOGROUPBP1 TYPE STRING,
POST_CODE1BP1 TYPE STRING,
POST_CODE2BP1 TYPE STRING,
POST_CODE3BP1 TYPE STRING,
PCODE1_EXTBP1 TYPE STRING,
PCODE2_EXTBP1 TYPE STRING,
PCODE3_EXTBP1 TYPE STRING,
PO_BOXBP1 TYPE STRING,
DONT_USE_PBP1 TYPE STRING,
PO_BOX_NUMBP1 TYPE STRING,
PO_BOX_LOCBP1 TYPE STRING,
CITY_CODE2BP1 TYPE STRING,
PO_BOX_REGBP1 TYPE STRING,
PO_BOX_CTYBP1 TYPE STRING,
POSTALAREABP1 TYPE STRING,
TRANSPZONEBP1 TYPE STRING,
STREETBP1 TYPE STRING,
DONT_USE_SBP1 TYPE STRING,
STREETCODEBP1 TYPE STRING,
STREETABBRBP1 TYPE STRING,
HOUSE_NUM1BP1 TYPE STRING,
HOUSE_NUM2BP1 TYPE STRING,
HOUSE_NUM3BP1 TYPE STRING,
STR_SUPPL1BP1 TYPE STRING,
STR_SUPPL2BP1 TYPE STRING,
STR_SUPPL3BP1 TYPE STRING,
LOCATIONBP1 TYPE STRING,
BUILDINGBP1 TYPE STRING,
FLOORBP1 TYPE STRING,
ROOMNUMBERBP1 TYPE STRING,
COUNTRYBP1 TYPE STRING,
LANGUBP1 TYPE STRING,
REGIONBP1 TYPE STRING,
SORT1BP1 TYPE STRING,
SORT2BP1 TYPE STRING,
SORT_PHNBP1 TYPE STRING,
ADDRORIGINBP1 TYPE STRING,
EXTENSION1BP1 TYPE STRING,
EXTENSION2BP1 TYPE STRING,
TIME_ZONEBP1 TYPE STRING,
TAXJURCODEBP1 TYPE STRING,
ADDRESS_IDBP1 TYPE STRING,
REMARKBP1 TYPE STRING,
LANGU_CREABP1 TYPE STRING,
PO_BOX_LOBBYBP1 TYPE STRING,
DELI_SERV_TYPEBP1 TYPE STRING,
DELI_SERV_NUMBERBP1 TYPE STRING,
COUNTY_CODEBP1 TYPE STRING,
COUNTYBP1 TYPE STRING,
TOWNSHIP_CODEBP1 TYPE STRING,
TOWNSHIPBP1 TYPE STRING,
DEFLT_COMMBP1 TYPE STRING,
XPCPTBP1 TYPE STRING,
TEL_NUMBERBP1 TYPE STRING,
TEL_EXTENSBP1 TYPE STRING,
FAX_NUMBERBP1 TYPE STRING,
FAX_EXTENSBP1 TYPE STRING,
ADDR_GROUPBP1 TYPE STRING,
OTABP1 TYPE STRING,
OTA_STCD1BP1 TYPE STRING,
OTA_STCD2BP1 TYPE STRING,
OTA_STCD3BP1 TYPE STRING,
OTA_STCD4BP1 TYPE STRING,
OTA_STKZNBP1 TYPE STRING,
RCTIN TYPE STRING,
RCNUM TYPE STRING,
DCODE TYPE STRING,
SVNUM TYPE STRING,
LEGCN TYPE STRING,
NET_A TYPE STRING,
NET_B TYPE STRING,
NET_C TYPE STRING,
NET_D TYPE STRING,
NET_E TYPE STRING,
VAT_A TYPE STRING,
VAT_B TYPE STRING,
VAT_C TYPE STRING,
VAT_D TYPE STRING,
TOTAL TYPE STRING,
CURCD TYPE STRING,END OF T_EKKO_STR.
DATA: WA_J_2GPFINM_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_2GPFINM_STR-BELNR sy-vline 
WA_J_2GPFINM_STR-LEGALDOC sy-vline 
WA_J_2GPFINM_STR-BUDAT sy-vline 
WA_J_2GPFINM_STR-TITLE sy-vline 
WA_J_2GPFINM_STR-WORD sy-vline 
WA_J_2GPFINM_STR-DECWORD sy-vline 
WA_J_2GPFINM_STR-WAERS sy-vline 
WA_J_2GPFINM_STR-SUMMARY sy-vline 
WA_J_2GPFINM_STR-SUMMARY2 sy-vline 
WA_J_2GPFINM_STR-SUMMARY3 sy-vline 
WA_J_2GPFINM_STR-SUMM_TAX sy-vline 
WA_J_2GPFINM_STR-SUMM_TAX2 sy-vline 
WA_J_2GPFINM_STR-SUMM_TAX3 sy-vline 
WA_J_2GPFINM_STR-TOTAL_AMT sy-vline 
WA_J_2GPFINM_STR-TOTAL_AMT2 sy-vline 
WA_J_2GPFINM_STR-TOTAL_AMT3 sy-vline 
WA_J_2GPFINM_STR-BUKRSCOM sy-vline 
WA_J_2GPFINM_STR-TAXNUMCOM sy-vline 
WA_J_2GPFINM_STR-TAXOFFCOM sy-vline 
WA_J_2GPFINM_STR-TAXFNRCOM sy-vline 
WA_J_2GPFINM_STR-PRNUMCOM sy-vline 
WA_J_2GPFINM_STR-STCEGCOM sy-vline 
WA_J_2GPFINM_STR-PROFCOM sy-vline 
WA_J_2GPFINM_STR-ADDRNUMBERCOM sy-vline 
WA_J_2GPFINM_STR-ADDRHANDLECOM sy-vline 
WA_J_2GPFINM_STR-NATIONCOM sy-vline 
WA_J_2GPFINM_STR-DATECOM sy-vline 
WA_J_2GPFINM_STR-DATE_FROMCOM sy-vline 
WA_J_2GPFINM_STR-DATE_TOCOM sy-vline 
WA_J_2GPFINM_STR-TITLECOM sy-vline 
WA_J_2GPFINM_STR-NAME1COM sy-vline 
WA_J_2GPFINM_STR-NAME2COM sy-vline 
WA_J_2GPFINM_STR-NAME3COM sy-vline 
WA_J_2GPFINM_STR-NAME4COM sy-vline 
WA_J_2GPFINM_STR-NAME_TXTCOM sy-vline 
WA_J_2GPFINM_STR-NAME_COCOM sy-vline 
WA_J_2GPFINM_STR-CITY1COM sy-vline 
WA_J_2GPFINM_STR-CITY2COM sy-vline 
WA_J_2GPFINM_STR-CITY_CODECOM sy-vline 
WA_J_2GPFINM_STR-CITYP_CODECOM sy-vline 
WA_J_2GPFINM_STR-HOME_CITYCOM sy-vline 
WA_J_2GPFINM_STR-CITYH_CODECOM sy-vline 
WA_J_2GPFINM_STR-CHCKSTATUSCOM sy-vline 
WA_J_2GPFINM_STR-REGIOGROUPCOM sy-vline 
WA_J_2GPFINM_STR-POST_CODE1COM sy-vline 
WA_J_2GPFINM_STR-POST_CODE2COM sy-vline 
WA_J_2GPFINM_STR-POST_CODE3COM sy-vline 
WA_J_2GPFINM_STR-PCODE1_EXTCOM sy-vline 
WA_J_2GPFINM_STR-PCODE2_EXTCOM sy-vline 
WA_J_2GPFINM_STR-PCODE3_EXTCOM sy-vline 
WA_J_2GPFINM_STR-PO_BOXCOM sy-vline 
WA_J_2GPFINM_STR-DONT_USE_PCOM sy-vline 
WA_J_2GPFINM_STR-PO_BOX_NUMCOM sy-vline 
WA_J_2GPFINM_STR-PO_BOX_LOCCOM sy-vline 
WA_J_2GPFINM_STR-CITY_CODE2COM sy-vline 
WA_J_2GPFINM_STR-PO_BOX_REGCOM sy-vline 
WA_J_2GPFINM_STR-PO_BOX_CTYCOM sy-vline 
WA_J_2GPFINM_STR-POSTALAREACOM sy-vline 
WA_J_2GPFINM_STR-TRANSPZONECOM sy-vline 
WA_J_2GPFINM_STR-STREETCOM sy-vline 
WA_J_2GPFINM_STR-DONT_USE_SCOM sy-vline 
WA_J_2GPFINM_STR-STREETCODECOM sy-vline 
WA_J_2GPFINM_STR-STREETABBRCOM sy-vline 
WA_J_2GPFINM_STR-HOUSE_NUM1COM sy-vline 
WA_J_2GPFINM_STR-HOUSE_NUM2COM sy-vline 
WA_J_2GPFINM_STR-HOUSE_NUM3COM sy-vline 
WA_J_2GPFINM_STR-STR_SUPPL1COM sy-vline 
WA_J_2GPFINM_STR-STR_SUPPL2COM sy-vline 
WA_J_2GPFINM_STR-STR_SUPPL3COM sy-vline 
WA_J_2GPFINM_STR-LOCATIONCOM sy-vline 
WA_J_2GPFINM_STR-BUILDINGCOM sy-vline 
WA_J_2GPFINM_STR-FLOORCOM sy-vline 
WA_J_2GPFINM_STR-ROOMNUMBERCOM sy-vline 
WA_J_2GPFINM_STR-COUNTRYCOM sy-vline 
WA_J_2GPFINM_STR-LANGUCOM sy-vline 
WA_J_2GPFINM_STR-REGIONCOM sy-vline 
WA_J_2GPFINM_STR-SORT1COM sy-vline 
WA_J_2GPFINM_STR-SORT2COM sy-vline 
WA_J_2GPFINM_STR-SORT_PHNCOM sy-vline 
WA_J_2GPFINM_STR-ADDRORIGINCOM sy-vline 
WA_J_2GPFINM_STR-EXTENSION1COM sy-vline 
WA_J_2GPFINM_STR-EXTENSION2COM sy-vline 
WA_J_2GPFINM_STR-TIME_ZONECOM sy-vline 
WA_J_2GPFINM_STR-TAXJURCODECOM sy-vline 
WA_J_2GPFINM_STR-ADDRESS_IDCOM sy-vline 
WA_J_2GPFINM_STR-REMARKCOM sy-vline 
WA_J_2GPFINM_STR-LANGU_CREACOM sy-vline 
WA_J_2GPFINM_STR-PO_BOX_LOBBYCOM sy-vline 
WA_J_2GPFINM_STR-DELI_SERV_TYPECOM sy-vline 
WA_J_2GPFINM_STR-DELI_SERV_NUMBERCOM sy-vline 
WA_J_2GPFINM_STR-COUNTY_CODECOM sy-vline 
WA_J_2GPFINM_STR-COUNTYCOM sy-vline 
WA_J_2GPFINM_STR-TOWNSHIP_CODECOM sy-vline 
WA_J_2GPFINM_STR-TOWNSHIPCOM sy-vline 
WA_J_2GPFINM_STR-DEFLT_COMMCOM sy-vline 
WA_J_2GPFINM_STR-XPCPTCOM sy-vline 
WA_J_2GPFINM_STR-TEL_NUMBERCOM sy-vline 
WA_J_2GPFINM_STR-TEL_EXTENSCOM sy-vline 
WA_J_2GPFINM_STR-FAX_NUMBERCOM sy-vline 
WA_J_2GPFINM_STR-FAX_EXTENSCOM sy-vline 
WA_J_2GPFINM_STR-ADDR_GROUPCOM sy-vline 
WA_J_2GPFINM_STR-CODEBP1 sy-vline 
WA_J_2GPFINM_STR-TYPEBP1 sy-vline 
WA_J_2GPFINM_STR-PARVWBP1 sy-vline 
WA_J_2GPFINM_STR-KUNNRBP1 sy-vline 
WA_J_2GPFINM_STR-LIFNRBP1 sy-vline 
WA_J_2GPFINM_STR-PARNRBP1 sy-vline 
WA_J_2GPFINM_STR-WERKSBP1 sy-vline 
WA_J_2GPFINM_STR-TAXNUMBP1 sy-vline 
WA_J_2GPFINM_STR-TAXOFFBP1 sy-vline 
WA_J_2GPFINM_STR-TAXREGBP1 sy-vline 
WA_J_2GPFINM_STR-STCEGBP1 sy-vline 
WA_J_2GPFINM_STR-PROFBP1 sy-vline 
WA_J_2GPFINM_STR-RCNUMBP1 sy-vline 
WA_J_2GPFINM_STR-ADRDABP1 sy-vline 
WA_J_2GPFINM_STR-ADDRNUMBERBP1 sy-vline 
WA_J_2GPFINM_STR-ADDRHANDLEBP1 sy-vline 
WA_J_2GPFINM_STR-NATIONBP1 sy-vline 
WA_J_2GPFINM_STR-DATEBP1 sy-vline 
WA_J_2GPFINM_STR-DATE_FROMBP1 sy-vline 
WA_J_2GPFINM_STR-DATE_TOBP1 sy-vline 
WA_J_2GPFINM_STR-TITLEBP1 sy-vline 
WA_J_2GPFINM_STR-NAME1BP1 sy-vline 
WA_J_2GPFINM_STR-NAME2BP1 sy-vline 
WA_J_2GPFINM_STR-NAME3BP1 sy-vline 
WA_J_2GPFINM_STR-NAME4BP1 sy-vline 
WA_J_2GPFINM_STR-NAME_TXTBP1 sy-vline 
WA_J_2GPFINM_STR-NAME_COBP1 sy-vline 
WA_J_2GPFINM_STR-CITY1BP1 sy-vline 
WA_J_2GPFINM_STR-CITY2BP1 sy-vline 
WA_J_2GPFINM_STR-CITY_CODEBP1 sy-vline 
WA_J_2GPFINM_STR-CITYP_CODEBP1 sy-vline 
WA_J_2GPFINM_STR-HOME_CITYBP1 sy-vline 
WA_J_2GPFINM_STR-CITYH_CODEBP1 sy-vline 
WA_J_2GPFINM_STR-CHCKSTATUSBP1 sy-vline 
WA_J_2GPFINM_STR-REGIOGROUPBP1 sy-vline 
WA_J_2GPFINM_STR-POST_CODE1BP1 sy-vline 
WA_J_2GPFINM_STR-POST_CODE2BP1 sy-vline 
WA_J_2GPFINM_STR-POST_CODE3BP1 sy-vline 
WA_J_2GPFINM_STR-PCODE1_EXTBP1 sy-vline 
WA_J_2GPFINM_STR-PCODE2_EXTBP1 sy-vline 
WA_J_2GPFINM_STR-PCODE3_EXTBP1 sy-vline 
WA_J_2GPFINM_STR-PO_BOXBP1 sy-vline 
WA_J_2GPFINM_STR-DONT_USE_PBP1 sy-vline 
WA_J_2GPFINM_STR-PO_BOX_NUMBP1 sy-vline 
WA_J_2GPFINM_STR-PO_BOX_LOCBP1 sy-vline 
WA_J_2GPFINM_STR-CITY_CODE2BP1 sy-vline 
WA_J_2GPFINM_STR-PO_BOX_REGBP1 sy-vline 
WA_J_2GPFINM_STR-PO_BOX_CTYBP1 sy-vline 
WA_J_2GPFINM_STR-POSTALAREABP1 sy-vline 
WA_J_2GPFINM_STR-TRANSPZONEBP1 sy-vline 
WA_J_2GPFINM_STR-STREETBP1 sy-vline 
WA_J_2GPFINM_STR-DONT_USE_SBP1 sy-vline 
WA_J_2GPFINM_STR-STREETCODEBP1 sy-vline 
WA_J_2GPFINM_STR-STREETABBRBP1 sy-vline 
WA_J_2GPFINM_STR-HOUSE_NUM1BP1 sy-vline 
WA_J_2GPFINM_STR-HOUSE_NUM2BP1 sy-vline 
WA_J_2GPFINM_STR-HOUSE_NUM3BP1 sy-vline 
WA_J_2GPFINM_STR-STR_SUPPL1BP1 sy-vline 
WA_J_2GPFINM_STR-STR_SUPPL2BP1 sy-vline 
WA_J_2GPFINM_STR-STR_SUPPL3BP1 sy-vline 
WA_J_2GPFINM_STR-LOCATIONBP1 sy-vline 
WA_J_2GPFINM_STR-BUILDINGBP1 sy-vline 
WA_J_2GPFINM_STR-FLOORBP1 sy-vline 
WA_J_2GPFINM_STR-ROOMNUMBERBP1 sy-vline 
WA_J_2GPFINM_STR-COUNTRYBP1 sy-vline 
WA_J_2GPFINM_STR-LANGUBP1 sy-vline 
WA_J_2GPFINM_STR-REGIONBP1 sy-vline 
WA_J_2GPFINM_STR-SORT1BP1 sy-vline 
WA_J_2GPFINM_STR-SORT2BP1 sy-vline 
WA_J_2GPFINM_STR-SORT_PHNBP1 sy-vline 
WA_J_2GPFINM_STR-ADDRORIGINBP1 sy-vline 
WA_J_2GPFINM_STR-EXTENSION1BP1 sy-vline 
WA_J_2GPFINM_STR-EXTENSION2BP1 sy-vline 
WA_J_2GPFINM_STR-TIME_ZONEBP1 sy-vline 
WA_J_2GPFINM_STR-TAXJURCODEBP1 sy-vline 
WA_J_2GPFINM_STR-ADDRESS_IDBP1 sy-vline 
WA_J_2GPFINM_STR-REMARKBP1 sy-vline 
WA_J_2GPFINM_STR-LANGU_CREABP1 sy-vline 
WA_J_2GPFINM_STR-PO_BOX_LOBBYBP1 sy-vline 
WA_J_2GPFINM_STR-DELI_SERV_TYPEBP1 sy-vline 
WA_J_2GPFINM_STR-DELI_SERV_NUMBERBP1 sy-vline 
WA_J_2GPFINM_STR-COUNTY_CODEBP1 sy-vline 
WA_J_2GPFINM_STR-COUNTYBP1 sy-vline 
WA_J_2GPFINM_STR-TOWNSHIP_CODEBP1 sy-vline 
WA_J_2GPFINM_STR-TOWNSHIPBP1 sy-vline 
WA_J_2GPFINM_STR-DEFLT_COMMBP1 sy-vline 
WA_J_2GPFINM_STR-XPCPTBP1 sy-vline 
WA_J_2GPFINM_STR-TEL_NUMBERBP1 sy-vline 
WA_J_2GPFINM_STR-TEL_EXTENSBP1 sy-vline 
WA_J_2GPFINM_STR-FAX_NUMBERBP1 sy-vline 
WA_J_2GPFINM_STR-FAX_EXTENSBP1 sy-vline 
WA_J_2GPFINM_STR-ADDR_GROUPBP1 sy-vline 
WA_J_2GPFINM_STR-OTABP1 sy-vline 
WA_J_2GPFINM_STR-OTA_STCD1BP1 sy-vline 
WA_J_2GPFINM_STR-OTA_STCD2BP1 sy-vline 
WA_J_2GPFINM_STR-OTA_STCD3BP1 sy-vline 
WA_J_2GPFINM_STR-OTA_STCD4BP1 sy-vline 
WA_J_2GPFINM_STR-OTA_STKZNBP1 sy-vline 
WA_J_2GPFINM_STR-RCTIN sy-vline 
WA_J_2GPFINM_STR-RCNUM sy-vline 
WA_J_2GPFINM_STR-DCODE sy-vline 
WA_J_2GPFINM_STR-SVNUM sy-vline 
WA_J_2GPFINM_STR-LEGCN sy-vline 
WA_J_2GPFINM_STR-NET_A sy-vline 
WA_J_2GPFINM_STR-NET_B sy-vline 
WA_J_2GPFINM_STR-NET_C sy-vline 
WA_J_2GPFINM_STR-NET_D sy-vline 
WA_J_2GPFINM_STR-NET_E sy-vline 
WA_J_2GPFINM_STR-VAT_A sy-vline 
WA_J_2GPFINM_STR-VAT_B sy-vline 
WA_J_2GPFINM_STR-VAT_C sy-vline 
WA_J_2GPFINM_STR-VAT_D sy-vline 
WA_J_2GPFINM_STR-TOTAL sy-vline 
WA_J_2GPFINM_STR-CURCD sy-vline      INTO ld_text SEPARATED BY SPACE.

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