ABAP Select data from SAP table RNPB1 into internal table

Get Example source ABAP code based on a different SAP table
  

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.