ABAP Select data from SAP table /SCWM/S_RF_LOAD 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 /SCWM/S_RF_LOAD 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 /SCWM/S_RF_LOAD. 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 /SCWM/S_RF_LOAD 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_/SCWM/S_RF_LOAD TYPE STANDARD TABLE OF /SCWM/S_RF_LOAD,
      WA_/SCWM/S_RF_LOAD TYPE /SCWM/S_RF_LOAD,
      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: </SCWM/S_RF_LOAD> TYPE /SCWM/S_RF_LOAD.

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

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM /SCWM/S_RF_LOAD
  INTO TABLE IT_/SCWM/S_RF_LOAD.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM /SCWM/S_RF_LOAD
*  INTO TABLE @DATA(IT_/SCWM/S_RF_LOAD2).
*--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_/SCWM/S_RF_LOAD INDEX 1 INTO DATA(WA_/SCWM/S_RF_LOAD2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/SCWM/S_RF_LOAD ASSIGNING </SCWM/S_RF_LOAD>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
</SCWM/S_RF_LOAD>-DLVNO = 1.
</SCWM/S_RF_LOAD>-DOCID = 1.
</SCWM/S_RF_LOAD>-DOCCAT = 1.
</SCWM/S_RF_LOAD>-HUIDENT_DISP = 1.
</SCWM/S_RF_LOAD>-HUIDENT_VERIF = 1.
ENDLOOP.

LOOP AT IT_/SCWM/S_RF_LOAD INTO WA_/SCWM/S_RF_LOAD.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/SCWM/S_RF_LOAD-HUIDENT, sy-vline,
WA_/SCWM/S_RF_LOAD-GUID_HU, sy-vline,
WA_/SCWM/S_RF_LOAD-HUTYP, sy-vline,
WA_/SCWM/S_RF_LOAD-TANUM, sy-vline,
WA_/SCWM/S_RF_LOAD-NLPLA, sy-vline,
WA_/SCWM/S_RF_LOAD-NLPLA_VERIF, sy-vline.
ENDLOOP. *Add any further fields from structure WA_/SCWM/S_RF_LOAD 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_/SCWM/S_RF_LOAD 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_/SCWM/S_RF_LOAD INTO WA_/SCWM/S_RF_LOAD. *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 DLVNO CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_/SCWM/S_RF_LOAD-DLVNO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_RF_LOAD-DLVNO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit HUID, internal->external for field HUIDENT_DISP CALL FUNCTION 'CONVERSION_EXIT_HUID_OUTPUT' EXPORTING input = WA_/SCWM/S_RF_LOAD-HUIDENT_DISP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_RF_LOAD-HUIDENT_DISP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit HUID, internal->external for field HUIDENT CALL FUNCTION 'CONVERSION_EXIT_HUID_OUTPUT' EXPORTING input = WA_/SCWM/S_RF_LOAD-HUIDENT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_RF_LOAD-HUIDENT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPH0, internal->external for field TANUM CALL FUNCTION 'CONVERSION_EXIT_ALPH0_OUTPUT' EXPORTING input = WA_/SCWM/S_RF_LOAD-TANUM IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_RF_LOAD-TANUM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MDLPD, internal->external for field PMATID CALL FUNCTION 'CONVERSION_EXIT_MDLPD_OUTPUT' EXPORTING input = WA_/SCWM/S_RF_LOAD-PMATID IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_RF_LOAD-PMATID.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ALPH0, internal->external for field TU_SR_ACT_NUM CALL FUNCTION 'CONVERSION_EXIT_ALPH0_OUTPUT' EXPORTING input = WA_/SCWM/S_RF_LOAD-TU_SR_ACT_NUM IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_RF_LOAD-TU_SR_ACT_NUM.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit QNTY1, internal->external for field G_VOLUME_QUEUE CALL FUNCTION 'CONVERSION_EXIT_QNTY1_OUTPUT' EXPORTING input = WA_/SCWM/S_RF_LOAD-G_VOLUME_QUEUE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_RF_LOAD-G_VOLUME_QUEUE.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit QNTY1, internal->external for field G_VOLUME_LOADED CALL FUNCTION 'CONVERSION_EXIT_QNTY1_OUTPUT' EXPORTING input = WA_/SCWM/S_RF_LOAD-G_VOLUME_LOADED IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_RF_LOAD-G_VOLUME_LOADED.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit QNTY1, internal->external for field G_WEIGHT_QUEUE CALL FUNCTION 'CONVERSION_EXIT_QNTY1_OUTPUT' EXPORTING input = WA_/SCWM/S_RF_LOAD-G_WEIGHT_QUEUE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_RF_LOAD-G_WEIGHT_QUEUE.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit QNTY1, internal->external for field G_WEIGHT_LOADED CALL FUNCTION 'CONVERSION_EXIT_QNTY1_OUTPUT' EXPORTING input = WA_/SCWM/S_RF_LOAD-G_WEIGHT_LOADED IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_RF_LOAD-G_WEIGHT_LOADED.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit QNTY1, internal->external for field MAX_WEIGHT_TU CALL FUNCTION 'CONVERSION_EXIT_QNTY1_OUTPUT' EXPORTING input = WA_/SCWM/S_RF_LOAD-MAX_WEIGHT_TU IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_RF_LOAD-MAX_WEIGHT_TU.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit QNTY1, internal->external for field MAX_VOLUME_TU CALL FUNCTION 'CONVERSION_EXIT_QNTY1_OUTPUT' EXPORTING input = WA_/SCWM/S_RF_LOAD-MAX_VOLUME_TU IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_RF_LOAD-MAX_VOLUME_TU.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit RFHU, internal->external for field RFHU CALL FUNCTION 'CONVERSION_EXIT_RFHU_OUTPUT' EXPORTING input = WA_/SCWM/S_RF_LOAD-RFHU IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_RF_LOAD-RFHU.
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_/SCWM/S_RF_LOAD_STR,
DLVNO TYPE STRING,
DOCID TYPE STRING,
DOCCAT TYPE STRING,
HUIDENT_DISP TYPE STRING,
HUIDENT_VERIF TYPE STRING,
HUIDENT TYPE STRING,
GUID_HU TYPE STRING,
HUTYP TYPE STRING,
TANUM TYPE STRING,
NLPLA TYPE STRING,
NLPLA_VERIF TYPE STRING,
NLPLA_ORIG TYPE STRING,
SUMHU TYPE STRING,
SUMHU_PROC TYPE STRING,
HUPRIO TYPE STRING,
HAZMAT TYPE STRING,
HAZMAT_IND TYPE STRING,
PROCESSED TYPE STRING,
EXCCODE TYPE STRING,
PMATID TYPE STRING,
SHPMT TYPE STRING,
TU_NUM TYPE STRING,
TU_SR_ACT_NUM TYPE STRING,
TU_NUM_EXT TYPE STRING,
TSP_SCAC TYPE STRING,
SCAC TYPE STRING,
ID_TU_DOOR TYPE STRING,
DOOR TYPE STRING,
DOOR_LOAD_DATE TYPE STRING,
DOOR_DD_PAST TYPE STRING,
DOOR_DD_FUT TYPE STRING,
G_WEIGHT TYPE STRING,
UNIT_GW TYPE STRING,
ROUTE TYPE STRING,
SEAL_NUM1 TYPE STRING,
SEAL_SET1 TYPE STRING,
SEAL_SET1_DATE TYPE STRING,
SEAL_SET1_TIME TYPE STRING,
SEAL_BRK1 TYPE STRING,
SEAL_BRK1_DATE TYPE STRING,
SEAL_BRK1_TIME TYPE STRING,
SEAL_NUM2 TYPE STRING,
SEAL_SET2 TYPE STRING,
SEAL_SET2_DATE TYPE STRING,
SEAL_SET2_TIME TYPE STRING,
SEAL_BRK2 TYPE STRING,
SEAL_BRK2_DATE TYPE STRING,
SEAL_BRK2_TIME TYPE STRING,
SEAL_NUM3 TYPE STRING,
SEAL_SET3 TYPE STRING,
SEAL_SET3_DATE TYPE STRING,
SEAL_SET3_TIME TYPE STRING,
SEAL_BRK3 TYPE STRING,
SEAL_BRK3_DATE TYPE STRING,
SEAL_BRK3_TIME TYPE STRING,
SELNO TYPE STRING,
G_VOLUME_QUEUE TYPE STRING,
UNIT_TV_QUEUE TYPE STRING,
G_VOLUME_LOADED TYPE STRING,
UNIT_TV_LOADED TYPE STRING,
G_WEIGHT_QUEUE TYPE STRING,
UNIT_GW_QUEUE TYPE STRING,
G_WEIGHT_LOADED TYPE STRING,
UNIT_GW_LOADED TYPE STRING,
MAX_WEIGHT_TU TYPE STRING,
UNIT_GW_TU TYPE STRING,
MAX_VOLUME_TU TYPE STRING,
UNIT_TV_TU TYPE STRING,
PROCTY TYPE STRING,
SEQ_NUM TYPE STRING,
RFHU TYPE STRING,
LOAD_SEQ TYPE STRING,
VLPLA TYPE STRING,
FLGMOVE TYPE STRING,
BOL TYPE STRING,
LOPT TYPE STRING,
CONSO TYPE STRING,
SUM_LP_DOOR TYPE STRING,END OF T_EKKO_STR. DATA: WA_/SCWM/S_RF_LOAD_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_/SCWM/S_RF_LOAD_STR-DLVNO sy-vline
WA_/SCWM/S_RF_LOAD_STR-DOCID sy-vline
WA_/SCWM/S_RF_LOAD_STR-DOCCAT sy-vline
WA_/SCWM/S_RF_LOAD_STR-HUIDENT_DISP sy-vline
WA_/SCWM/S_RF_LOAD_STR-HUIDENT_VERIF sy-vline
WA_/SCWM/S_RF_LOAD_STR-HUIDENT sy-vline
WA_/SCWM/S_RF_LOAD_STR-GUID_HU sy-vline
WA_/SCWM/S_RF_LOAD_STR-HUTYP sy-vline
WA_/SCWM/S_RF_LOAD_STR-TANUM sy-vline
WA_/SCWM/S_RF_LOAD_STR-NLPLA sy-vline
WA_/SCWM/S_RF_LOAD_STR-NLPLA_VERIF sy-vline
WA_/SCWM/S_RF_LOAD_STR-NLPLA_ORIG sy-vline
WA_/SCWM/S_RF_LOAD_STR-SUMHU sy-vline
WA_/SCWM/S_RF_LOAD_STR-SUMHU_PROC sy-vline
WA_/SCWM/S_RF_LOAD_STR-HUPRIO sy-vline
WA_/SCWM/S_RF_LOAD_STR-HAZMAT sy-vline
WA_/SCWM/S_RF_LOAD_STR-HAZMAT_IND sy-vline
WA_/SCWM/S_RF_LOAD_STR-PROCESSED sy-vline
WA_/SCWM/S_RF_LOAD_STR-EXCCODE sy-vline
WA_/SCWM/S_RF_LOAD_STR-PMATID sy-vline
WA_/SCWM/S_RF_LOAD_STR-SHPMT sy-vline
WA_/SCWM/S_RF_LOAD_STR-TU_NUM sy-vline
WA_/SCWM/S_RF_LOAD_STR-TU_SR_ACT_NUM sy-vline
WA_/SCWM/S_RF_LOAD_STR-TU_NUM_EXT sy-vline
WA_/SCWM/S_RF_LOAD_STR-TSP_SCAC sy-vline
WA_/SCWM/S_RF_LOAD_STR-SCAC sy-vline
WA_/SCWM/S_RF_LOAD_STR-ID_TU_DOOR sy-vline
WA_/SCWM/S_RF_LOAD_STR-DOOR sy-vline
WA_/SCWM/S_RF_LOAD_STR-DOOR_LOAD_DATE sy-vline
WA_/SCWM/S_RF_LOAD_STR-DOOR_DD_PAST sy-vline
WA_/SCWM/S_RF_LOAD_STR-DOOR_DD_FUT sy-vline
WA_/SCWM/S_RF_LOAD_STR-G_WEIGHT sy-vline
WA_/SCWM/S_RF_LOAD_STR-UNIT_GW sy-vline
WA_/SCWM/S_RF_LOAD_STR-ROUTE sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_NUM1 sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_SET1 sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_SET1_DATE sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_SET1_TIME sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_BRK1 sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_BRK1_DATE sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_BRK1_TIME sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_NUM2 sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_SET2 sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_SET2_DATE sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_SET2_TIME sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_BRK2 sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_BRK2_DATE sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_BRK2_TIME sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_NUM3 sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_SET3 sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_SET3_DATE sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_SET3_TIME sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_BRK3 sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_BRK3_DATE sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEAL_BRK3_TIME sy-vline
WA_/SCWM/S_RF_LOAD_STR-SELNO sy-vline
WA_/SCWM/S_RF_LOAD_STR-G_VOLUME_QUEUE sy-vline
WA_/SCWM/S_RF_LOAD_STR-UNIT_TV_QUEUE sy-vline
WA_/SCWM/S_RF_LOAD_STR-G_VOLUME_LOADED sy-vline
WA_/SCWM/S_RF_LOAD_STR-UNIT_TV_LOADED sy-vline
WA_/SCWM/S_RF_LOAD_STR-G_WEIGHT_QUEUE sy-vline
WA_/SCWM/S_RF_LOAD_STR-UNIT_GW_QUEUE sy-vline
WA_/SCWM/S_RF_LOAD_STR-G_WEIGHT_LOADED sy-vline
WA_/SCWM/S_RF_LOAD_STR-UNIT_GW_LOADED sy-vline
WA_/SCWM/S_RF_LOAD_STR-MAX_WEIGHT_TU sy-vline
WA_/SCWM/S_RF_LOAD_STR-UNIT_GW_TU sy-vline
WA_/SCWM/S_RF_LOAD_STR-MAX_VOLUME_TU sy-vline
WA_/SCWM/S_RF_LOAD_STR-UNIT_TV_TU sy-vline
WA_/SCWM/S_RF_LOAD_STR-PROCTY sy-vline
WA_/SCWM/S_RF_LOAD_STR-SEQ_NUM sy-vline
WA_/SCWM/S_RF_LOAD_STR-RFHU sy-vline
WA_/SCWM/S_RF_LOAD_STR-LOAD_SEQ sy-vline
WA_/SCWM/S_RF_LOAD_STR-VLPLA sy-vline
WA_/SCWM/S_RF_LOAD_STR-FLGMOVE sy-vline
WA_/SCWM/S_RF_LOAD_STR-BOL sy-vline
WA_/SCWM/S_RF_LOAD_STR-LOPT sy-vline
WA_/SCWM/S_RF_LOAD_STR-CONSO sy-vline
WA_/SCWM/S_RF_LOAD_STR-SUM_LP_DOOR sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.