ABAP Select data from SAP table RJGTGPNRVB 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 RJGTGPNRVB 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 RJGTGPNRVB. 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 RJGTGPNRVB 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_RJGTGPNRVB TYPE STANDARD TABLE OF RJGTGPNRVB,
      WA_RJGTGPNRVB TYPE RJGTGPNRVB,
      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: <RJGTGPNRVB> TYPE RJGTGPNRVB.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RJGTGPNRVB
*  INTO TABLE @DATA(IT_RJGTGPNRVB2).
*--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_RJGTGPNRVB INDEX 1 INTO DATA(WA_RJGTGPNRVB2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RJGTGPNRVB>-MANDT = 1.
<RJGTGPNRVB>-GPNR = 1.
<RJGTGPNRVB>-XGPLOE = 1.
<RJGTGPNRVB>-XGPLOEKZ = 1.
<RJGTGPNRVB>-XGPSPE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RJGTGPNRVB-ERFUSER, sy-vline,
  WA_RJGTGPNRVB-ERFDATE, sy-vline,
  WA_RJGTGPNRVB-ERFTIME, sy-vline,
  WA_RJGTGPNRVB-AENUSER, sy-vline,
  WA_RJGTGPNRVB-AENDATE, sy-vline,
  WA_RJGTGPNRVB-AENTIME, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RJGTGPNRVB 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_RJGTGPNRVB 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_RJGTGPNRVB INTO WA_RJGTGPNRVB.


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

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

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

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

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

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

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

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

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

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

*Conversion exit JKWBZ, internal->external for field WBZKUNNR
CALL FUNCTION 'CONVERSION_EXIT_JKWBZ_OUTPUT'
  EXPORTING
    input =                      WA_RJGTGPNRVB-WBZKUNNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RJGTGPNRVB-WBZKUNNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit JKWBZ, internal->external for field RECHZENTNR
CALL FUNCTION 'CONVERSION_EXIT_JKWBZ_OUTPUT'
  EXPORTING
    input =                      WA_RJGTGPNRVB-RECHZENTNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RJGTGPNRVB-RECHZENTNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field ADRNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RJGTGPNRVB-ADRNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RJGTGPNRVB-ADRNR.
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_RJGTGPNRVB_STR, 
MANDT TYPE STRING,
GPNR TYPE STRING,
XGPLOE TYPE STRING,
XGPLOEKZ TYPE STRING,
XGPSPE TYPE STRING,
ERFUSER TYPE STRING,
ERFDATE TYPE STRING,
ERFTIME TYPE STRING,
AENUSER TYPE STRING,
AENDATE TYPE STRING,
AENTIME TYPE STRING,
JKTOKD TYPE STRING,
MAILN TYPE STRING,
BEGRU TYPE STRING,
BERUFSL TYPE STRING,
GFORM TYPE STRING,
BRSCH TYPE STRING,
BRAN1 TYPE STRING,
BRAN2 TYPE STRING,
BRAN3 TYPE STRING,
BRAN4 TYPE STRING,
BRAN5 TYPE STRING,
JGEBDAT TYPE STRING,
GESCH TYPE STRING,
JFAMST TYPE STRING,
GPHERK TYPE STRING,
XNATUR TYPE STRING,
XVERMSACH TYPE STRING,
XOHNE TYPE STRING,
XDEBI TYPE STRING,
KUNNR TYPE STRING,
FKUNNR TYPE STRING,
XKREDI TYPE STRING,
LIFNR TYPE STRING,
FLIFNR TYPE STRING,
XMITARB TYPE STRING,
PERNR TYPE STRING,
XNOWERB TYPE STRING,
GPKLA1 TYPE STRING,
GPKLA2 TYPE STRING,
GPKLA3 TYPE STRING,
GPKLA4 TYPE STRING,
GPKLA5 TYPE STRING,
KATR1 TYPE STRING,
KATR2 TYPE STRING,
KATR3 TYPE STRING,
KATR4 TYPE STRING,
KATR5 TYPE STRING,
KATR6 TYPE STRING,
KATR7 TYPE STRING,
KATR8 TYPE STRING,
KATR9 TYPE STRING,
KATR10 TYPE STRING,
XVSRVGES TYPE STRING,
XVSGLOEV TYPE STRING,
XVSGLOEKZ TYPE STRING,
XVSGSPE TYPE STRING,
XZUST TYPE STRING,
XZUSTLOEV TYPE STRING,
XZUSTLOEKZ TYPE STRING,
XZUSSPE TYPE STRING,
XVERMPROV TYPE STRING,
XVERMPROVV TYPE STRING,
XVERMPROKZ TYPE STRING,
XVERSPE TYPE STRING,
XVERB TYPE STRING,
XVEBLOEV TYPE STRING,
XVEBSPE TYPE STRING,
XINKASSO TYPE STRING,
XINKLOEV TYPE STRING,
XINKLOEKZ TYPE STRING,
XINKSPE TYPE STRING,
XRECHER TYPE STRING,
XRECHLOEV TYPE STRING,
XRECHLOEKZ TYPE STRING,
XRECHSPE TYPE STRING,
MAILNBETR TYPE STRING,
XKAHS TYPE STRING,
XKAHLOEV TYPE STRING,
XKAHSSPE TYPE STRING,
XSPEDI TYPE STRING,
XSPEDLOEV TYPE STRING,
XSPEDLOEKZ TYPE STRING,
XSPESPE TYPE STRING,
XVERTKUN TYPE STRING,
XVKUNLOEV TYPE STRING,
XVKUNLOEKZ TYPE STRING,
XVKUNSPE TYPE STRING,
XEUW TYPE STRING,
XEUWLOEV TYPE STRING,
XEUWLOEKZ TYPE STRING,
XEUWSPE TYPE STRING,
XINTERN TYPE STRING,
XINTLOEV TYPE STRING,
AUFORG TYPE STRING,
XINTSPE TYPE STRING,
XSOZIAL TYPE STRING,
XSOZLOEV TYPE STRING,
XSOZSPE TYPE STRING,
XPOST TYPE STRING,
XPOSLOEV TYPE STRING,
XPOSLOEKZ TYPE STRING,
XPOSSPE TYPE STRING,
XVERLAG TYPE STRING,
XVERLLOEV TYPE STRING,
XVERLSPE TYPE STRING,
XVERLEIG TYPE STRING,
VERLVKORG TYPE STRING,
ISPCVERL TYPE STRING,
XMEDIAK TYPE STRING,
XMEDIAKLV TYPE STRING,
XMEDIAKLKZ TYPE STRING,
XMEDIAKSP TYPE STRING,
XINSER TYPE STRING,
XINSERLV TYPE STRING,
XINSERLKZ TYPE STRING,
XINSERSP TYPE STRING,
XMVERM TYPE STRING,
XMVERMLV TYPE STRING,
XMVERMLKZ TYPE STRING,
XMVERMSP TYPE STRING,
XAGEN TYPE STRING,
XAGENLV TYPE STRING,
XAGENLKZ TYPE STRING,
XAGENLSP TYPE STRING,
AGEN_ART TYPE STRING,
AGEN_STR TYPE STRING,
AGEN_PLAN TYPE STRING,
AGEN_GRU TYPE STRING,
XDUB TYPE STRING,
GP_DUB TYPE STRING,
BON TYPE STRING,
KLIM_EINZ TYPE STRING,
KLIM_GES TYPE STRING,
KLIM_WAERS TYPE STRING,
WBZKUNNR TYPE STRING,
RECHZENTNR TYPE STRING,
JWBZKOMART TYPE STRING,
XWBZFIRMA TYPE STRING,
WBZZLSCH TYPE STRING,
REFBELEG TYPE STRING,
ADRNR TYPE STRING,
XISPCTEILN TYPE STRING,
ISPCTEILN TYPE STRING,
ISPCART TYPE STRING,
J_SOC_SECU TYPE STRING,
XHOUSEHOLD TYPE STRING,
ADDR_CONV TYPE STRING,
DBCODE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RJGTGPNRVB_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_RJGTGPNRVB_STR-MANDT sy-vline 
WA_RJGTGPNRVB_STR-GPNR sy-vline 
WA_RJGTGPNRVB_STR-XGPLOE sy-vline 
WA_RJGTGPNRVB_STR-XGPLOEKZ sy-vline 
WA_RJGTGPNRVB_STR-XGPSPE sy-vline 
WA_RJGTGPNRVB_STR-ERFUSER sy-vline 
WA_RJGTGPNRVB_STR-ERFDATE sy-vline 
WA_RJGTGPNRVB_STR-ERFTIME sy-vline 
WA_RJGTGPNRVB_STR-AENUSER sy-vline 
WA_RJGTGPNRVB_STR-AENDATE sy-vline 
WA_RJGTGPNRVB_STR-AENTIME sy-vline 
WA_RJGTGPNRVB_STR-JKTOKD sy-vline 
WA_RJGTGPNRVB_STR-MAILN sy-vline 
WA_RJGTGPNRVB_STR-BEGRU sy-vline 
WA_RJGTGPNRVB_STR-BERUFSL sy-vline 
WA_RJGTGPNRVB_STR-GFORM sy-vline 
WA_RJGTGPNRVB_STR-BRSCH sy-vline 
WA_RJGTGPNRVB_STR-BRAN1 sy-vline 
WA_RJGTGPNRVB_STR-BRAN2 sy-vline 
WA_RJGTGPNRVB_STR-BRAN3 sy-vline 
WA_RJGTGPNRVB_STR-BRAN4 sy-vline 
WA_RJGTGPNRVB_STR-BRAN5 sy-vline 
WA_RJGTGPNRVB_STR-JGEBDAT sy-vline 
WA_RJGTGPNRVB_STR-GESCH sy-vline 
WA_RJGTGPNRVB_STR-JFAMST sy-vline 
WA_RJGTGPNRVB_STR-GPHERK sy-vline 
WA_RJGTGPNRVB_STR-XNATUR sy-vline 
WA_RJGTGPNRVB_STR-XVERMSACH sy-vline 
WA_RJGTGPNRVB_STR-XOHNE sy-vline 
WA_RJGTGPNRVB_STR-XDEBI sy-vline 
WA_RJGTGPNRVB_STR-KUNNR sy-vline 
WA_RJGTGPNRVB_STR-FKUNNR sy-vline 
WA_RJGTGPNRVB_STR-XKREDI sy-vline 
WA_RJGTGPNRVB_STR-LIFNR sy-vline 
WA_RJGTGPNRVB_STR-FLIFNR sy-vline 
WA_RJGTGPNRVB_STR-XMITARB sy-vline 
WA_RJGTGPNRVB_STR-PERNR sy-vline 
WA_RJGTGPNRVB_STR-XNOWERB sy-vline 
WA_RJGTGPNRVB_STR-GPKLA1 sy-vline 
WA_RJGTGPNRVB_STR-GPKLA2 sy-vline 
WA_RJGTGPNRVB_STR-GPKLA3 sy-vline 
WA_RJGTGPNRVB_STR-GPKLA4 sy-vline 
WA_RJGTGPNRVB_STR-GPKLA5 sy-vline 
WA_RJGTGPNRVB_STR-KATR1 sy-vline 
WA_RJGTGPNRVB_STR-KATR2 sy-vline 
WA_RJGTGPNRVB_STR-KATR3 sy-vline 
WA_RJGTGPNRVB_STR-KATR4 sy-vline 
WA_RJGTGPNRVB_STR-KATR5 sy-vline 
WA_RJGTGPNRVB_STR-KATR6 sy-vline 
WA_RJGTGPNRVB_STR-KATR7 sy-vline 
WA_RJGTGPNRVB_STR-KATR8 sy-vline 
WA_RJGTGPNRVB_STR-KATR9 sy-vline 
WA_RJGTGPNRVB_STR-KATR10 sy-vline 
WA_RJGTGPNRVB_STR-XVSRVGES sy-vline 
WA_RJGTGPNRVB_STR-XVSGLOEV sy-vline 
WA_RJGTGPNRVB_STR-XVSGLOEKZ sy-vline 
WA_RJGTGPNRVB_STR-XVSGSPE sy-vline 
WA_RJGTGPNRVB_STR-XZUST sy-vline 
WA_RJGTGPNRVB_STR-XZUSTLOEV sy-vline 
WA_RJGTGPNRVB_STR-XZUSTLOEKZ sy-vline 
WA_RJGTGPNRVB_STR-XZUSSPE sy-vline 
WA_RJGTGPNRVB_STR-XVERMPROV sy-vline 
WA_RJGTGPNRVB_STR-XVERMPROVV sy-vline 
WA_RJGTGPNRVB_STR-XVERMPROKZ sy-vline 
WA_RJGTGPNRVB_STR-XVERSPE sy-vline 
WA_RJGTGPNRVB_STR-XVERB sy-vline 
WA_RJGTGPNRVB_STR-XVEBLOEV sy-vline 
WA_RJGTGPNRVB_STR-XVEBSPE sy-vline 
WA_RJGTGPNRVB_STR-XINKASSO sy-vline 
WA_RJGTGPNRVB_STR-XINKLOEV sy-vline 
WA_RJGTGPNRVB_STR-XINKLOEKZ sy-vline 
WA_RJGTGPNRVB_STR-XINKSPE sy-vline 
WA_RJGTGPNRVB_STR-XRECHER sy-vline 
WA_RJGTGPNRVB_STR-XRECHLOEV sy-vline 
WA_RJGTGPNRVB_STR-XRECHLOEKZ sy-vline 
WA_RJGTGPNRVB_STR-XRECHSPE sy-vline 
WA_RJGTGPNRVB_STR-MAILNBETR sy-vline 
WA_RJGTGPNRVB_STR-XKAHS sy-vline 
WA_RJGTGPNRVB_STR-XKAHLOEV sy-vline 
WA_RJGTGPNRVB_STR-XKAHSSPE sy-vline 
WA_RJGTGPNRVB_STR-XSPEDI sy-vline 
WA_RJGTGPNRVB_STR-XSPEDLOEV sy-vline 
WA_RJGTGPNRVB_STR-XSPEDLOEKZ sy-vline 
WA_RJGTGPNRVB_STR-XSPESPE sy-vline 
WA_RJGTGPNRVB_STR-XVERTKUN sy-vline 
WA_RJGTGPNRVB_STR-XVKUNLOEV sy-vline 
WA_RJGTGPNRVB_STR-XVKUNLOEKZ sy-vline 
WA_RJGTGPNRVB_STR-XVKUNSPE sy-vline 
WA_RJGTGPNRVB_STR-XEUW sy-vline 
WA_RJGTGPNRVB_STR-XEUWLOEV sy-vline 
WA_RJGTGPNRVB_STR-XEUWLOEKZ sy-vline 
WA_RJGTGPNRVB_STR-XEUWSPE sy-vline 
WA_RJGTGPNRVB_STR-XINTERN sy-vline 
WA_RJGTGPNRVB_STR-XINTLOEV sy-vline 
WA_RJGTGPNRVB_STR-AUFORG sy-vline 
WA_RJGTGPNRVB_STR-XINTSPE sy-vline 
WA_RJGTGPNRVB_STR-XSOZIAL sy-vline 
WA_RJGTGPNRVB_STR-XSOZLOEV sy-vline 
WA_RJGTGPNRVB_STR-XSOZSPE sy-vline 
WA_RJGTGPNRVB_STR-XPOST sy-vline 
WA_RJGTGPNRVB_STR-XPOSLOEV sy-vline 
WA_RJGTGPNRVB_STR-XPOSLOEKZ sy-vline 
WA_RJGTGPNRVB_STR-XPOSSPE sy-vline 
WA_RJGTGPNRVB_STR-XVERLAG sy-vline 
WA_RJGTGPNRVB_STR-XVERLLOEV sy-vline 
WA_RJGTGPNRVB_STR-XVERLSPE sy-vline 
WA_RJGTGPNRVB_STR-XVERLEIG sy-vline 
WA_RJGTGPNRVB_STR-VERLVKORG sy-vline 
WA_RJGTGPNRVB_STR-ISPCVERL sy-vline 
WA_RJGTGPNRVB_STR-XMEDIAK sy-vline 
WA_RJGTGPNRVB_STR-XMEDIAKLV sy-vline 
WA_RJGTGPNRVB_STR-XMEDIAKLKZ sy-vline 
WA_RJGTGPNRVB_STR-XMEDIAKSP sy-vline 
WA_RJGTGPNRVB_STR-XINSER sy-vline 
WA_RJGTGPNRVB_STR-XINSERLV sy-vline 
WA_RJGTGPNRVB_STR-XINSERLKZ sy-vline 
WA_RJGTGPNRVB_STR-XINSERSP sy-vline 
WA_RJGTGPNRVB_STR-XMVERM sy-vline 
WA_RJGTGPNRVB_STR-XMVERMLV sy-vline 
WA_RJGTGPNRVB_STR-XMVERMLKZ sy-vline 
WA_RJGTGPNRVB_STR-XMVERMSP sy-vline 
WA_RJGTGPNRVB_STR-XAGEN sy-vline 
WA_RJGTGPNRVB_STR-XAGENLV sy-vline 
WA_RJGTGPNRVB_STR-XAGENLKZ sy-vline 
WA_RJGTGPNRVB_STR-XAGENLSP sy-vline 
WA_RJGTGPNRVB_STR-AGEN_ART sy-vline 
WA_RJGTGPNRVB_STR-AGEN_STR sy-vline 
WA_RJGTGPNRVB_STR-AGEN_PLAN sy-vline 
WA_RJGTGPNRVB_STR-AGEN_GRU sy-vline 
WA_RJGTGPNRVB_STR-XDUB sy-vline 
WA_RJGTGPNRVB_STR-GP_DUB sy-vline 
WA_RJGTGPNRVB_STR-BON sy-vline 
WA_RJGTGPNRVB_STR-KLIM_EINZ sy-vline 
WA_RJGTGPNRVB_STR-KLIM_GES sy-vline 
WA_RJGTGPNRVB_STR-KLIM_WAERS sy-vline 
WA_RJGTGPNRVB_STR-WBZKUNNR sy-vline 
WA_RJGTGPNRVB_STR-RECHZENTNR sy-vline 
WA_RJGTGPNRVB_STR-JWBZKOMART sy-vline 
WA_RJGTGPNRVB_STR-XWBZFIRMA sy-vline 
WA_RJGTGPNRVB_STR-WBZZLSCH sy-vline 
WA_RJGTGPNRVB_STR-REFBELEG sy-vline 
WA_RJGTGPNRVB_STR-ADRNR sy-vline 
WA_RJGTGPNRVB_STR-XISPCTEILN sy-vline 
WA_RJGTGPNRVB_STR-ISPCTEILN sy-vline 
WA_RJGTGPNRVB_STR-ISPCART sy-vline 
WA_RJGTGPNRVB_STR-J_SOC_SECU sy-vline 
WA_RJGTGPNRVB_STR-XHOUSEHOLD sy-vline 
WA_RJGTGPNRVB_STR-ADDR_CONV sy-vline 
WA_RJGTGPNRVB_STR-DBCODE sy-vline      INTO ld_text SEPARATED BY SPACE.

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