ABAP Select data from SAP table RHCPU01JA 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 RHCPU01JA 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 RHCPU01JA. 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 RHCPU01JA 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_RHCPU01JA TYPE STANDARD TABLE OF RHCPU01JA,
      WA_RHCPU01JA TYPE RHCPU01JA,
      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: <RHCPU01JA> TYPE RHCPU01JA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RHCPU01JA
*  INTO TABLE @DATA(IT_RHCPU01JA2).
*--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_RHCPU01JA INDEX 1 INTO DATA(WA_RHCPU01JA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RHCPU01JA>-VRGNG = 1.
<RHCPU01JA>-LEDNR = 1.
<RHCPU01JA>-KOKRS = 1.
<RHCPU01JA>-KOSTL = 1.
<RHCPU01JA>-LSTAR = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RHCPU01JA-AUFNR, sy-vline,
  WA_RHCPU01JA-POSID, sy-vline,
  WA_RHCPU01JA-AOTYP, sy-vline,
  WA_RHCPU01JA-AO_OBJNR, sy-vline,
  WA_RHCPU01JA-GJAHR, sy-vline,
  WA_RHCPU01JA-PERAB, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RHCPU01JA 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_RHCPU01JA 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_RHCPU01JA INTO WA_RHCPU01JA.


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

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

*Conversion exit ABPSN, internal->external for field POSID
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
  EXPORTING
    input =                      WA_RHCPU01JA-POSID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RHCPU01JA-POSID.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field GJAHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_RHCPU01JA-GJAHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RHCPU01JA-GJAHR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

*Conversion exit BEKNZ, internal->external for field BEKNZ
CALL FUNCTION 'CONVERSION_EXIT_BEKNZ_OUTPUT'
  EXPORTING
    input =                      WA_RHCPU01JA-BEKNZ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RHCPU01JA-BEKNZ.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit CUNIT, internal->external for field MEINB
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RHCPU01JA-MEINB
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RHCPU01JA-MEINB.
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_RHCPU01JA_STR, 
VRGNG TYPE STRING,
LEDNR TYPE STRING,
KOKRS TYPE STRING,
KOSTL TYPE STRING,
LSTAR TYPE STRING,
AUFNR TYPE STRING,
POSID TYPE STRING,
AOTYP TYPE STRING,
AO_OBJNR TYPE STRING,
GJAHR TYPE STRING,
PERAB TYPE STRING,
PERBI TYPE STRING,
VERSN TYPE STRING,
KSTAR TYPE STRING,
HRKFT TYPE STRING,
P_KOSTL TYPE STRING,
P_LSTAR TYPE STRING,
P_AUFNR TYPE STRING,
P1_KOSTL TYPE STRING,
P1_LSTAR TYPE STRING,
P1_AUFNR TYPE STRING,
UP_KOSTL TYPE STRING,
UP_LSTAR TYPE STRING,
UP_AUFNR TYPE STRING,
VBUND TYPE STRING,
PARGB TYPE STRING,
WTG001 TYPE STRING,
WTG002 TYPE STRING,
WTG003 TYPE STRING,
WTG004 TYPE STRING,
WTG005 TYPE STRING,
WTG006 TYPE STRING,
WTG007 TYPE STRING,
WTG008 TYPE STRING,
WTG009 TYPE STRING,
WTG010 TYPE STRING,
WTG011 TYPE STRING,
WTG012 TYPE STRING,
WTG013 TYPE STRING,
WTG014 TYPE STRING,
WTG015 TYPE STRING,
WTG016 TYPE STRING,
WTF001 TYPE STRING,
WTF002 TYPE STRING,
WTF003 TYPE STRING,
WTF004 TYPE STRING,
WTF005 TYPE STRING,
WTF006 TYPE STRING,
WTF007 TYPE STRING,
WTF008 TYPE STRING,
WTF009 TYPE STRING,
WTF010 TYPE STRING,
WTF011 TYPE STRING,
WTF012 TYPE STRING,
WTF013 TYPE STRING,
WTF014 TYPE STRING,
WTF015 TYPE STRING,
WTF016 TYPE STRING,
WOG001 TYPE STRING,
WOG002 TYPE STRING,
WOG003 TYPE STRING,
WOG004 TYPE STRING,
WOG005 TYPE STRING,
WOG006 TYPE STRING,
WOG007 TYPE STRING,
WOG008 TYPE STRING,
WOG009 TYPE STRING,
WOG010 TYPE STRING,
WOG011 TYPE STRING,
WOG012 TYPE STRING,
WOG013 TYPE STRING,
WOG014 TYPE STRING,
WOG015 TYPE STRING,
WOG016 TYPE STRING,
WOF001 TYPE STRING,
WOF002 TYPE STRING,
WOF003 TYPE STRING,
WOF004 TYPE STRING,
WOF005 TYPE STRING,
WOF006 TYPE STRING,
WOF007 TYPE STRING,
WOF008 TYPE STRING,
WOF009 TYPE STRING,
WOF010 TYPE STRING,
WOF011 TYPE STRING,
WOF012 TYPE STRING,
WOF013 TYPE STRING,
WOF014 TYPE STRING,
WOF015 TYPE STRING,
WOF016 TYPE STRING,
WKG001 TYPE STRING,
WKG002 TYPE STRING,
WKG003 TYPE STRING,
WKG004 TYPE STRING,
WKG005 TYPE STRING,
WKG006 TYPE STRING,
WKG007 TYPE STRING,
WKG008 TYPE STRING,
WKG009 TYPE STRING,
WKG010 TYPE STRING,
WKG011 TYPE STRING,
WKG012 TYPE STRING,
WKG013 TYPE STRING,
WKG014 TYPE STRING,
WKG015 TYPE STRING,
WKG016 TYPE STRING,
WKF001 TYPE STRING,
WKF002 TYPE STRING,
WKF003 TYPE STRING,
WKF004 TYPE STRING,
WKF005 TYPE STRING,
WKF006 TYPE STRING,
WKF007 TYPE STRING,
WKF008 TYPE STRING,
WKF009 TYPE STRING,
WKF010 TYPE STRING,
WKF011 TYPE STRING,
WKF012 TYPE STRING,
WKF013 TYPE STRING,
WKF014 TYPE STRING,
WKF015 TYPE STRING,
WKF016 TYPE STRING,
MEG001 TYPE STRING,
MEG002 TYPE STRING,
MEG003 TYPE STRING,
MEG004 TYPE STRING,
MEG005 TYPE STRING,
MEG006 TYPE STRING,
MEG007 TYPE STRING,
MEG008 TYPE STRING,
MEG009 TYPE STRING,
MEG010 TYPE STRING,
MEG011 TYPE STRING,
MEG012 TYPE STRING,
MEG013 TYPE STRING,
MEG014 TYPE STRING,
MEG015 TYPE STRING,
MEG016 TYPE STRING,
MEF001 TYPE STRING,
MEF002 TYPE STRING,
MEF003 TYPE STRING,
MEF004 TYPE STRING,
MEF005 TYPE STRING,
MEF006 TYPE STRING,
MEF007 TYPE STRING,
MEF008 TYPE STRING,
MEF009 TYPE STRING,
MEF010 TYPE STRING,
MEF011 TYPE STRING,
MEF012 TYPE STRING,
MEF013 TYPE STRING,
MEF014 TYPE STRING,
MEF015 TYPE STRING,
MEF016 TYPE STRING,
MBG001 TYPE STRING,
MBG002 TYPE STRING,
MBG003 TYPE STRING,
MBG004 TYPE STRING,
MBG005 TYPE STRING,
MBG006 TYPE STRING,
MBG007 TYPE STRING,
MBG008 TYPE STRING,
MBG009 TYPE STRING,
MBG010 TYPE STRING,
MBG011 TYPE STRING,
MBG012 TYPE STRING,
MBG013 TYPE STRING,
MBG014 TYPE STRING,
MBG015 TYPE STRING,
MBG016 TYPE STRING,
MBF001 TYPE STRING,
MBF002 TYPE STRING,
MBF003 TYPE STRING,
MBF004 TYPE STRING,
MBF005 TYPE STRING,
MBF006 TYPE STRING,
MBF007 TYPE STRING,
MBF008 TYPE STRING,
MBF009 TYPE STRING,
MBF010 TYPE STRING,
MBF011 TYPE STRING,
MBF012 TYPE STRING,
MBF013 TYPE STRING,
MBF014 TYPE STRING,
MBF015 TYPE STRING,
MBF016 TYPE STRING,
BEKNZ TYPE STRING,
TWAER TYPE STRING,
MEINH TYPE STRING,
MEINB TYPE STRING,
MGEFL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RHCPU01JA_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_RHCPU01JA_STR-VRGNG sy-vline 
WA_RHCPU01JA_STR-LEDNR sy-vline 
WA_RHCPU01JA_STR-KOKRS sy-vline 
WA_RHCPU01JA_STR-KOSTL sy-vline 
WA_RHCPU01JA_STR-LSTAR sy-vline 
WA_RHCPU01JA_STR-AUFNR sy-vline 
WA_RHCPU01JA_STR-POSID sy-vline 
WA_RHCPU01JA_STR-AOTYP sy-vline 
WA_RHCPU01JA_STR-AO_OBJNR sy-vline 
WA_RHCPU01JA_STR-GJAHR sy-vline 
WA_RHCPU01JA_STR-PERAB sy-vline 
WA_RHCPU01JA_STR-PERBI sy-vline 
WA_RHCPU01JA_STR-VERSN sy-vline 
WA_RHCPU01JA_STR-KSTAR sy-vline 
WA_RHCPU01JA_STR-HRKFT sy-vline 
WA_RHCPU01JA_STR-P_KOSTL sy-vline 
WA_RHCPU01JA_STR-P_LSTAR sy-vline 
WA_RHCPU01JA_STR-P_AUFNR sy-vline 
WA_RHCPU01JA_STR-P1_KOSTL sy-vline 
WA_RHCPU01JA_STR-P1_LSTAR sy-vline 
WA_RHCPU01JA_STR-P1_AUFNR sy-vline 
WA_RHCPU01JA_STR-UP_KOSTL sy-vline 
WA_RHCPU01JA_STR-UP_LSTAR sy-vline 
WA_RHCPU01JA_STR-UP_AUFNR sy-vline 
WA_RHCPU01JA_STR-VBUND sy-vline 
WA_RHCPU01JA_STR-PARGB sy-vline 
WA_RHCPU01JA_STR-WTG001 sy-vline 
WA_RHCPU01JA_STR-WTG002 sy-vline 
WA_RHCPU01JA_STR-WTG003 sy-vline 
WA_RHCPU01JA_STR-WTG004 sy-vline 
WA_RHCPU01JA_STR-WTG005 sy-vline 
WA_RHCPU01JA_STR-WTG006 sy-vline 
WA_RHCPU01JA_STR-WTG007 sy-vline 
WA_RHCPU01JA_STR-WTG008 sy-vline 
WA_RHCPU01JA_STR-WTG009 sy-vline 
WA_RHCPU01JA_STR-WTG010 sy-vline 
WA_RHCPU01JA_STR-WTG011 sy-vline 
WA_RHCPU01JA_STR-WTG012 sy-vline 
WA_RHCPU01JA_STR-WTG013 sy-vline 
WA_RHCPU01JA_STR-WTG014 sy-vline 
WA_RHCPU01JA_STR-WTG015 sy-vline 
WA_RHCPU01JA_STR-WTG016 sy-vline 
WA_RHCPU01JA_STR-WTF001 sy-vline 
WA_RHCPU01JA_STR-WTF002 sy-vline 
WA_RHCPU01JA_STR-WTF003 sy-vline 
WA_RHCPU01JA_STR-WTF004 sy-vline 
WA_RHCPU01JA_STR-WTF005 sy-vline 
WA_RHCPU01JA_STR-WTF006 sy-vline 
WA_RHCPU01JA_STR-WTF007 sy-vline 
WA_RHCPU01JA_STR-WTF008 sy-vline 
WA_RHCPU01JA_STR-WTF009 sy-vline 
WA_RHCPU01JA_STR-WTF010 sy-vline 
WA_RHCPU01JA_STR-WTF011 sy-vline 
WA_RHCPU01JA_STR-WTF012 sy-vline 
WA_RHCPU01JA_STR-WTF013 sy-vline 
WA_RHCPU01JA_STR-WTF014 sy-vline 
WA_RHCPU01JA_STR-WTF015 sy-vline 
WA_RHCPU01JA_STR-WTF016 sy-vline 
WA_RHCPU01JA_STR-WOG001 sy-vline 
WA_RHCPU01JA_STR-WOG002 sy-vline 
WA_RHCPU01JA_STR-WOG003 sy-vline 
WA_RHCPU01JA_STR-WOG004 sy-vline 
WA_RHCPU01JA_STR-WOG005 sy-vline 
WA_RHCPU01JA_STR-WOG006 sy-vline 
WA_RHCPU01JA_STR-WOG007 sy-vline 
WA_RHCPU01JA_STR-WOG008 sy-vline 
WA_RHCPU01JA_STR-WOG009 sy-vline 
WA_RHCPU01JA_STR-WOG010 sy-vline 
WA_RHCPU01JA_STR-WOG011 sy-vline 
WA_RHCPU01JA_STR-WOG012 sy-vline 
WA_RHCPU01JA_STR-WOG013 sy-vline 
WA_RHCPU01JA_STR-WOG014 sy-vline 
WA_RHCPU01JA_STR-WOG015 sy-vline 
WA_RHCPU01JA_STR-WOG016 sy-vline 
WA_RHCPU01JA_STR-WOF001 sy-vline 
WA_RHCPU01JA_STR-WOF002 sy-vline 
WA_RHCPU01JA_STR-WOF003 sy-vline 
WA_RHCPU01JA_STR-WOF004 sy-vline 
WA_RHCPU01JA_STR-WOF005 sy-vline 
WA_RHCPU01JA_STR-WOF006 sy-vline 
WA_RHCPU01JA_STR-WOF007 sy-vline 
WA_RHCPU01JA_STR-WOF008 sy-vline 
WA_RHCPU01JA_STR-WOF009 sy-vline 
WA_RHCPU01JA_STR-WOF010 sy-vline 
WA_RHCPU01JA_STR-WOF011 sy-vline 
WA_RHCPU01JA_STR-WOF012 sy-vline 
WA_RHCPU01JA_STR-WOF013 sy-vline 
WA_RHCPU01JA_STR-WOF014 sy-vline 
WA_RHCPU01JA_STR-WOF015 sy-vline 
WA_RHCPU01JA_STR-WOF016 sy-vline 
WA_RHCPU01JA_STR-WKG001 sy-vline 
WA_RHCPU01JA_STR-WKG002 sy-vline 
WA_RHCPU01JA_STR-WKG003 sy-vline 
WA_RHCPU01JA_STR-WKG004 sy-vline 
WA_RHCPU01JA_STR-WKG005 sy-vline 
WA_RHCPU01JA_STR-WKG006 sy-vline 
WA_RHCPU01JA_STR-WKG007 sy-vline 
WA_RHCPU01JA_STR-WKG008 sy-vline 
WA_RHCPU01JA_STR-WKG009 sy-vline 
WA_RHCPU01JA_STR-WKG010 sy-vline 
WA_RHCPU01JA_STR-WKG011 sy-vline 
WA_RHCPU01JA_STR-WKG012 sy-vline 
WA_RHCPU01JA_STR-WKG013 sy-vline 
WA_RHCPU01JA_STR-WKG014 sy-vline 
WA_RHCPU01JA_STR-WKG015 sy-vline 
WA_RHCPU01JA_STR-WKG016 sy-vline 
WA_RHCPU01JA_STR-WKF001 sy-vline 
WA_RHCPU01JA_STR-WKF002 sy-vline 
WA_RHCPU01JA_STR-WKF003 sy-vline 
WA_RHCPU01JA_STR-WKF004 sy-vline 
WA_RHCPU01JA_STR-WKF005 sy-vline 
WA_RHCPU01JA_STR-WKF006 sy-vline 
WA_RHCPU01JA_STR-WKF007 sy-vline 
WA_RHCPU01JA_STR-WKF008 sy-vline 
WA_RHCPU01JA_STR-WKF009 sy-vline 
WA_RHCPU01JA_STR-WKF010 sy-vline 
WA_RHCPU01JA_STR-WKF011 sy-vline 
WA_RHCPU01JA_STR-WKF012 sy-vline 
WA_RHCPU01JA_STR-WKF013 sy-vline 
WA_RHCPU01JA_STR-WKF014 sy-vline 
WA_RHCPU01JA_STR-WKF015 sy-vline 
WA_RHCPU01JA_STR-WKF016 sy-vline 
WA_RHCPU01JA_STR-MEG001 sy-vline 
WA_RHCPU01JA_STR-MEG002 sy-vline 
WA_RHCPU01JA_STR-MEG003 sy-vline 
WA_RHCPU01JA_STR-MEG004 sy-vline 
WA_RHCPU01JA_STR-MEG005 sy-vline 
WA_RHCPU01JA_STR-MEG006 sy-vline 
WA_RHCPU01JA_STR-MEG007 sy-vline 
WA_RHCPU01JA_STR-MEG008 sy-vline 
WA_RHCPU01JA_STR-MEG009 sy-vline 
WA_RHCPU01JA_STR-MEG010 sy-vline 
WA_RHCPU01JA_STR-MEG011 sy-vline 
WA_RHCPU01JA_STR-MEG012 sy-vline 
WA_RHCPU01JA_STR-MEG013 sy-vline 
WA_RHCPU01JA_STR-MEG014 sy-vline 
WA_RHCPU01JA_STR-MEG015 sy-vline 
WA_RHCPU01JA_STR-MEG016 sy-vline 
WA_RHCPU01JA_STR-MEF001 sy-vline 
WA_RHCPU01JA_STR-MEF002 sy-vline 
WA_RHCPU01JA_STR-MEF003 sy-vline 
WA_RHCPU01JA_STR-MEF004 sy-vline 
WA_RHCPU01JA_STR-MEF005 sy-vline 
WA_RHCPU01JA_STR-MEF006 sy-vline 
WA_RHCPU01JA_STR-MEF007 sy-vline 
WA_RHCPU01JA_STR-MEF008 sy-vline 
WA_RHCPU01JA_STR-MEF009 sy-vline 
WA_RHCPU01JA_STR-MEF010 sy-vline 
WA_RHCPU01JA_STR-MEF011 sy-vline 
WA_RHCPU01JA_STR-MEF012 sy-vline 
WA_RHCPU01JA_STR-MEF013 sy-vline 
WA_RHCPU01JA_STR-MEF014 sy-vline 
WA_RHCPU01JA_STR-MEF015 sy-vline 
WA_RHCPU01JA_STR-MEF016 sy-vline 
WA_RHCPU01JA_STR-MBG001 sy-vline 
WA_RHCPU01JA_STR-MBG002 sy-vline 
WA_RHCPU01JA_STR-MBG003 sy-vline 
WA_RHCPU01JA_STR-MBG004 sy-vline 
WA_RHCPU01JA_STR-MBG005 sy-vline 
WA_RHCPU01JA_STR-MBG006 sy-vline 
WA_RHCPU01JA_STR-MBG007 sy-vline 
WA_RHCPU01JA_STR-MBG008 sy-vline 
WA_RHCPU01JA_STR-MBG009 sy-vline 
WA_RHCPU01JA_STR-MBG010 sy-vline 
WA_RHCPU01JA_STR-MBG011 sy-vline 
WA_RHCPU01JA_STR-MBG012 sy-vline 
WA_RHCPU01JA_STR-MBG013 sy-vline 
WA_RHCPU01JA_STR-MBG014 sy-vline 
WA_RHCPU01JA_STR-MBG015 sy-vline 
WA_RHCPU01JA_STR-MBG016 sy-vline 
WA_RHCPU01JA_STR-MBF001 sy-vline 
WA_RHCPU01JA_STR-MBF002 sy-vline 
WA_RHCPU01JA_STR-MBF003 sy-vline 
WA_RHCPU01JA_STR-MBF004 sy-vline 
WA_RHCPU01JA_STR-MBF005 sy-vline 
WA_RHCPU01JA_STR-MBF006 sy-vline 
WA_RHCPU01JA_STR-MBF007 sy-vline 
WA_RHCPU01JA_STR-MBF008 sy-vline 
WA_RHCPU01JA_STR-MBF009 sy-vline 
WA_RHCPU01JA_STR-MBF010 sy-vline 
WA_RHCPU01JA_STR-MBF011 sy-vline 
WA_RHCPU01JA_STR-MBF012 sy-vline 
WA_RHCPU01JA_STR-MBF013 sy-vline 
WA_RHCPU01JA_STR-MBF014 sy-vline 
WA_RHCPU01JA_STR-MBF015 sy-vline 
WA_RHCPU01JA_STR-MBF016 sy-vline 
WA_RHCPU01JA_STR-BEKNZ sy-vline 
WA_RHCPU01JA_STR-TWAER sy-vline 
WA_RHCPU01JA_STR-MEINH sy-vline 
WA_RHCPU01JA_STR-MEINB sy-vline 
WA_RHCPU01JA_STR-MGEFL sy-vline      INTO ld_text SEPARATED BY SPACE.

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