ABAP Select data from SAP table RNPB1 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 RNPB1 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 RNPB1. 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 RNPB1 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_RNPB1 TYPE STANDARD TABLE OF RNPB1,
      WA_RNPB1 TYPE RNPB1,
      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: <RNPB1> TYPE RNPB1.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RNPB1
*  INTO TABLE @DATA(IT_RNPB12).
*--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_RNPB1 INDEX 1 INTO DATA(WA_RNPB12).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RNPB1>-EINRI = 1.
<RNPB1>-ORGID = 1.
<RNPB1>-ORGTY = 1.
<RNPB1>-ORGKB = 1.
<RNPB1>-ORGK1 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RNPB1-ORGK2, sy-vline,
  WA_RNPB1-ORGFA, sy-vline,
  WA_RNPB1-ORGPF, sy-vline,
  WA_RNPB1-ORGFA_2, sy-vline,
  WA_RNPB1-ORGPF_2, sy-vline,
  WA_RNPB1-FACHR7, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RNPB1 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_RNPB1 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_RNPB1 INTO WA_RNPB1.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field ACCCAT_TX9
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RNPB1-ACCCAT_TX9
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNPB1-ACCCAT_TX9.
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_RNPB1_STR, 
EINRI TYPE STRING,
ORGID TYPE STRING,
ORGTY TYPE STRING,
ORGKB TYPE STRING,
ORGK1 TYPE STRING,
ORGK2 TYPE STRING,
ORGFA TYPE STRING,
ORGPF TYPE STRING,
ORGFA_2 TYPE STRING,
ORGPF_2 TYPE STRING,
FACHR7 TYPE STRING,
SELDT TYPE STRING,
SELZT TYPE STRING,
SELDTB TYPE STRING,
SELZTB TYPE STRING,
SELDTE TYPE STRING,
TIMEB TYPE STRING,
TIMEE TYPE STRING,
NDAYS TYPE STRING,
NWEEKS TYPE STRING,
RDAYS TYPE STRING,
RHOURS TYPE STRING,
OCDAYS TYPE STRING,
GSCHL TYPE STRING,
GSCHLE TYPE STRING,
AGE TYPE STRING,
BEWTY TYPE STRING,
BWART TYPE STRING,
BEKAT TYPE STRING,
BEKAT_2 TYPE STRING,
PLANR TYPE STRING,
ZIMMR TYPE STRING,
ZIMMERKZ TYPE STRING,
ZIMMERKB TYPE STRING,
ZIMMR_2 TYPE STRING,
ZIMMERKZ_2 TYPE STRING,
BETT TYPE STRING,
BETTKZ TYPE STRING,
BETTKB TYPE STRING,
BETT_2 TYPE STRING,
BETTKZ_2 TYPE STRING,
TELNR TYPE STRING,
TELNR_2 TYPE STRING,
PNAME TYPE STRING,
PNAME_2 TYPE STRING,
NNAME TYPE STRING,
VNAME TYPE STRING,
GBNAM TYPE STRING,
GBDAT TYPE STRING,
PATNR TYPE STRING,
FALNR TYPE STRING,
FZIFF TYPE STRING,
FALNR_2 TYPE STRING,
FZIFF_2 TYPE STRING,
BLGKZ TYPE STRING,
PLANB TYPE STRING,
BWIDT TYPE STRING,
BWIZT TYPE STRING,
PLANE TYPE STRING,
BWEDT TYPE STRING,
BWEZT TYPE STRING,
NOTAN TYPE STRING,
KRZAN TYPE STRING,
AUFLOESEN TYPE STRING,
MARKKZ TYPE STRING,
PLANH TYPE STRING,
LI_FALNR TYPE STRING,
LI_PNAME TYPE STRING,
LI_BWART TYPE STRING,
LI_BMRK TYPE STRING,
LI_BLG_EXT TYPE STRING,
LI_ORGFA TYPE STRING,
DAY_NEXT TYPE STRING,
DAY_PREV TYPE STRING,
DAY_TXT TYPE STRING,
CLASS TYPE STRING,
CLASS_2 TYPE STRING,
ACCCAT1 TYPE STRING,
ACCCAT_TX1 TYPE STRING,
ACCCAT2 TYPE STRING,
ACCCAT_TX2 TYPE STRING,
ACCCAT3 TYPE STRING,
ACCCAT_TX3 TYPE STRING,
ACCCAT4 TYPE STRING,
ACCCAT_TX4 TYPE STRING,
ACCCAT5 TYPE STRING,
ACCCAT_TX5 TYPE STRING,
ACCCAT6 TYPE STRING,
ACCCAT_TX6 TYPE STRING,
ACCCAT7 TYPE STRING,
ACCCAT_TX7 TYPE STRING,
ACCCAT8 TYPE STRING,
ACCCAT_TX8 TYPE STRING,
ACCCAT9 TYPE STRING,
ACCCAT_TX9 TYPE STRING,
ACCCATALL TYPE STRING,
FACIL1 TYPE STRING,
FACIL_TX1 TYPE STRING,
FACIL2 TYPE STRING,
FACIL_TX2 TYPE STRING,
FACIL3 TYPE STRING,
FACIL_TX3 TYPE STRING,
FACIL4 TYPE STRING,
FACIL_TX4 TYPE STRING,
FACIL5 TYPE STRING,
FACIL_TX5 TYPE STRING,
FACIL6 TYPE STRING,
FACIL_TX6 TYPE STRING,
FACIL7 TYPE STRING,
FACIL_TX7 TYPE STRING,
FACIL8 TYPE STRING,
FACIL_TX8 TYPE STRING,
FACIL9 TYPE STRING,
FACIL_TX9 TYPE STRING,
INFKZ TYPE STRING,
INTKZ TYPE STRING,
CHIBED TYPE STRING,
BANAME TYPE STRING,
INTDEP TYPE STRING,
IDPOUS TYPE STRING,
FACHS TYPE STRING,
STATB TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RNPB1_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_RNPB1_STR-EINRI sy-vline 
WA_RNPB1_STR-ORGID sy-vline 
WA_RNPB1_STR-ORGTY sy-vline 
WA_RNPB1_STR-ORGKB sy-vline 
WA_RNPB1_STR-ORGK1 sy-vline 
WA_RNPB1_STR-ORGK2 sy-vline 
WA_RNPB1_STR-ORGFA sy-vline 
WA_RNPB1_STR-ORGPF sy-vline 
WA_RNPB1_STR-ORGFA_2 sy-vline 
WA_RNPB1_STR-ORGPF_2 sy-vline 
WA_RNPB1_STR-FACHR7 sy-vline 
WA_RNPB1_STR-SELDT sy-vline 
WA_RNPB1_STR-SELZT sy-vline 
WA_RNPB1_STR-SELDTB sy-vline 
WA_RNPB1_STR-SELZTB sy-vline 
WA_RNPB1_STR-SELDTE sy-vline 
WA_RNPB1_STR-TIMEB sy-vline 
WA_RNPB1_STR-TIMEE sy-vline 
WA_RNPB1_STR-NDAYS sy-vline 
WA_RNPB1_STR-NWEEKS sy-vline 
WA_RNPB1_STR-RDAYS sy-vline 
WA_RNPB1_STR-RHOURS sy-vline 
WA_RNPB1_STR-OCDAYS sy-vline 
WA_RNPB1_STR-GSCHL sy-vline 
WA_RNPB1_STR-GSCHLE sy-vline 
WA_RNPB1_STR-AGE sy-vline 
WA_RNPB1_STR-BEWTY sy-vline 
WA_RNPB1_STR-BWART sy-vline 
WA_RNPB1_STR-BEKAT sy-vline 
WA_RNPB1_STR-BEKAT_2 sy-vline 
WA_RNPB1_STR-PLANR sy-vline 
WA_RNPB1_STR-ZIMMR sy-vline 
WA_RNPB1_STR-ZIMMERKZ sy-vline 
WA_RNPB1_STR-ZIMMERKB sy-vline 
WA_RNPB1_STR-ZIMMR_2 sy-vline 
WA_RNPB1_STR-ZIMMERKZ_2 sy-vline 
WA_RNPB1_STR-BETT sy-vline 
WA_RNPB1_STR-BETTKZ sy-vline 
WA_RNPB1_STR-BETTKB sy-vline 
WA_RNPB1_STR-BETT_2 sy-vline 
WA_RNPB1_STR-BETTKZ_2 sy-vline 
WA_RNPB1_STR-TELNR sy-vline 
WA_RNPB1_STR-TELNR_2 sy-vline 
WA_RNPB1_STR-PNAME sy-vline 
WA_RNPB1_STR-PNAME_2 sy-vline 
WA_RNPB1_STR-NNAME sy-vline 
WA_RNPB1_STR-VNAME sy-vline 
WA_RNPB1_STR-GBNAM sy-vline 
WA_RNPB1_STR-GBDAT sy-vline 
WA_RNPB1_STR-PATNR sy-vline 
WA_RNPB1_STR-FALNR sy-vline 
WA_RNPB1_STR-FZIFF sy-vline 
WA_RNPB1_STR-FALNR_2 sy-vline 
WA_RNPB1_STR-FZIFF_2 sy-vline 
WA_RNPB1_STR-BLGKZ sy-vline 
WA_RNPB1_STR-PLANB sy-vline 
WA_RNPB1_STR-BWIDT sy-vline 
WA_RNPB1_STR-BWIZT sy-vline 
WA_RNPB1_STR-PLANE sy-vline 
WA_RNPB1_STR-BWEDT sy-vline 
WA_RNPB1_STR-BWEZT sy-vline 
WA_RNPB1_STR-NOTAN sy-vline 
WA_RNPB1_STR-KRZAN sy-vline 
WA_RNPB1_STR-AUFLOESEN sy-vline 
WA_RNPB1_STR-MARKKZ sy-vline 
WA_RNPB1_STR-PLANH sy-vline 
WA_RNPB1_STR-LI_FALNR sy-vline 
WA_RNPB1_STR-LI_PNAME sy-vline 
WA_RNPB1_STR-LI_BWART sy-vline 
WA_RNPB1_STR-LI_BMRK sy-vline 
WA_RNPB1_STR-LI_BLG_EXT sy-vline 
WA_RNPB1_STR-LI_ORGFA sy-vline 
WA_RNPB1_STR-DAY_NEXT sy-vline 
WA_RNPB1_STR-DAY_PREV sy-vline 
WA_RNPB1_STR-DAY_TXT sy-vline 
WA_RNPB1_STR-CLASS sy-vline 
WA_RNPB1_STR-CLASS_2 sy-vline 
WA_RNPB1_STR-ACCCAT1 sy-vline 
WA_RNPB1_STR-ACCCAT_TX1 sy-vline 
WA_RNPB1_STR-ACCCAT2 sy-vline 
WA_RNPB1_STR-ACCCAT_TX2 sy-vline 
WA_RNPB1_STR-ACCCAT3 sy-vline 
WA_RNPB1_STR-ACCCAT_TX3 sy-vline 
WA_RNPB1_STR-ACCCAT4 sy-vline 
WA_RNPB1_STR-ACCCAT_TX4 sy-vline 
WA_RNPB1_STR-ACCCAT5 sy-vline 
WA_RNPB1_STR-ACCCAT_TX5 sy-vline 
WA_RNPB1_STR-ACCCAT6 sy-vline 
WA_RNPB1_STR-ACCCAT_TX6 sy-vline 
WA_RNPB1_STR-ACCCAT7 sy-vline 
WA_RNPB1_STR-ACCCAT_TX7 sy-vline 
WA_RNPB1_STR-ACCCAT8 sy-vline 
WA_RNPB1_STR-ACCCAT_TX8 sy-vline 
WA_RNPB1_STR-ACCCAT9 sy-vline 
WA_RNPB1_STR-ACCCAT_TX9 sy-vline 
WA_RNPB1_STR-ACCCATALL sy-vline 
WA_RNPB1_STR-FACIL1 sy-vline 
WA_RNPB1_STR-FACIL_TX1 sy-vline 
WA_RNPB1_STR-FACIL2 sy-vline 
WA_RNPB1_STR-FACIL_TX2 sy-vline 
WA_RNPB1_STR-FACIL3 sy-vline 
WA_RNPB1_STR-FACIL_TX3 sy-vline 
WA_RNPB1_STR-FACIL4 sy-vline 
WA_RNPB1_STR-FACIL_TX4 sy-vline 
WA_RNPB1_STR-FACIL5 sy-vline 
WA_RNPB1_STR-FACIL_TX5 sy-vline 
WA_RNPB1_STR-FACIL6 sy-vline 
WA_RNPB1_STR-FACIL_TX6 sy-vline 
WA_RNPB1_STR-FACIL7 sy-vline 
WA_RNPB1_STR-FACIL_TX7 sy-vline 
WA_RNPB1_STR-FACIL8 sy-vline 
WA_RNPB1_STR-FACIL_TX8 sy-vline 
WA_RNPB1_STR-FACIL9 sy-vline 
WA_RNPB1_STR-FACIL_TX9 sy-vline 
WA_RNPB1_STR-INFKZ sy-vline 
WA_RNPB1_STR-INTKZ sy-vline 
WA_RNPB1_STR-CHIBED sy-vline 
WA_RNPB1_STR-BANAME sy-vline 
WA_RNPB1_STR-INTDEP sy-vline 
WA_RNPB1_STR-IDPOUS sy-vline 
WA_RNPB1_STR-FACHS sy-vline 
WA_RNPB1_STR-STATB sy-vline      INTO ld_text SEPARATED BY SPACE.

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