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

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

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

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


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/SAPHT/DRMSPPDL_SORT ASSIGNING </SAPHT/DRMSPPDL_SORT>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
</SAPHT/DRMSPPDL_SORT>-VAKEY = 1.
</SAPHT/DRMSPPDL_SORT>-MANDT = 1.
</SAPHT/DRMSPPDL_SORT>-RECORDNO = 1.
</SAPHT/DRMSPPDL_SORT>-LOTNO = 1.
</SAPHT/DRMSPPDL_SORT>-MSBOOKPARTNO = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/SAPHT/DRMSPPDL_SORT-MATERIAL, sy-vline,
  WA_/SAPHT/DRMSPPDL_SORT-TRACK_PARTNER, sy-vline,
  WA_/SAPHT/DRMSPPDL_SORT-PARTNER, sy-vline,
  WA_/SAPHT/DRMSPPDL_SORT-SALES_ORG, sy-vline,
  WA_/SAPHT/DRMSPPDL_SORT-DIST_CHNL, sy-vline,
  WA_/SAPHT/DRMSPPDL_SORT-DIVISION, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/SAPHT/DRMSPPDL_SORT 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_/SAPHT/DRMSPPDL_SORT 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_/SAPHT/DRMSPPDL_SORT INTO WA_/SAPHT/DRMSPPDL_SORT.


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

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

*Conversion exit MATN1, internal->external for field MSBOOKPARTNO
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_/SAPHT/DRMSPPDL_SORT-MSBOOKPARTNO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SAPHT/DRMSPPDL_SORT-MSBOOKPARTNO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATN1, internal->external for field MATERIAL
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_/SAPHT/DRMSPPDL_SORT-MATERIAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SAPHT/DRMSPPDL_SORT-MATERIAL.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field LS_REFDOC
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_/SAPHT/DRMSPPDL_SORT-LS_REFDOC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SAPHT/DRMSPPDL_SORT-LS_REFDOC.
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_/SAPHT/DRMSPPDL_SORT_STR, 
VAKEY TYPE STRING,
MANDT TYPE STRING,
RECORDNO TYPE STRING,
LOTNO TYPE STRING,
MSBOOKPARTNO TYPE STRING,
MATERIAL TYPE STRING,
TRACK_PARTNER TYPE STRING,
PARTNER TYPE STRING,
SALES_ORG TYPE STRING,
DIST_CHNL TYPE STRING,
DIVISION TYPE STRING,
PURCH_ORG TYPE STRING,
PLANT TYPE STRING,
LOTTYPE TYPE STRING,
END_CUST TYPE STRING,
PPCLMQTY TYPE STRING,
QTY_UNIT TYPE STRING,
OLDPRCUNIT TYPE STRING,
OLDCONDRATE TYPE STRING,
OLDCONDCURR TYPE STRING,
OLDCONDNR TYPE STRING,
OLDCONDDR TYPE STRING,
OLDCONDUOM TYPE STRING,
NEWPRCUNIT TYPE STRING,
NEWCONDRATE TYPE STRING,
NEWCONDCURR TYPE STRING,
NEWCONDNR TYPE STRING,
NEWCONDDR TYPE STRING,
NEWCONDUOM TYPE STRING,
OLDPPTYPE TYPE STRING,
PPTYPE TYPE STRING,
PPAMOUNT TYPE STRING,
PPAMTCURR TYPE STRING,
PPCLM_STATUS TYPE STRING,
PPRVLQTY TYPE STRING,
PPRVLAMT TYPE STRING,
PPRVLAMTCURR TYPE STRING,
PPRVL_STATUS TYPE STRING,
PPANNO TYPE STRING,
PPEFFDATE TYPE STRING,
PPRUNNO TYPE STRING,
PPRUNGRPNO TYPE STRING,
PPRUNDATE TYPE STRING,
PP_SLS_DOCQTY TYPE STRING,
PP_SLS_DOCAMT TYPE STRING,
PP_SLS_DOCCURR TYPE STRING,
PP_INV_DOCQTY TYPE STRING,
PP_INV_DOCAMT TYPE STRING,
PP_INV_DOCCURR TYPE STRING,
LS_PPCLMDOC TYPE STRING,
PP_SLS_DOCNO TYPE STRING,
PP_SLS_DOCITM TYPE STRING,
ABGRU TYPE STRING,
PP_INV_DOCNO TYPE STRING,
PP_INV_DOCITM TYPE STRING,
RULE_RUNNO TYPE STRING,
CANCEL_DOCTYP TYPE STRING,
CANCEL_DOCNO TYPE STRING,
CANCEL_DOCITM TYPE STRING,
CANCEL_DOCDATE TYPE STRING,
CANCEL_RUN_DATE TYPE STRING,
CANCEL_IND TYPE STRING,
CANCEL_INVNO TYPE STRING,
CANCEL_INVITM TYPE STRING,
CANCEL_INVDATE TYPE STRING,
REJ_REASON TYPE STRING,
LS_PPRVLDOC TYPE STRING,
PPRVLDOCNO TYPE STRING,
PPRVLDOCYR TYPE STRING,
PPRVLPOST TYPE STRING,
LS_REFDOC TYPE STRING,
REF_DOC_NO TYPE STRING,
REF_DOC_ITM TYPE STRING,
REF_DOC_TYPE TYPE STRING,
UPDTPRC TYPE STRING,
LOGHANDLE TYPE STRING,
MS_DR_IND TYPE STRING,
CREATED_BY TYPE STRING,
CREATED_DT TYPE STRING,
CREATED_TM TYPE STRING,
LASTCHGDBY TYPE STRING,
LASTCHGDDT TYPE STRING,
CHANGED_TM TYPE STRING,
DUMMY_1 TYPE STRING,
MARK TYPE STRING,
LINK1 TYPE STRING,
LINK2 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/SAPHT/DRMSPPDL_SORT_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_/SAPHT/DRMSPPDL_SORT_STR-VAKEY sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-MANDT sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-RECORDNO sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-LOTNO sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-MSBOOKPARTNO sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-MATERIAL sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-TRACK_PARTNER sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PARTNER sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-SALES_ORG sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-DIST_CHNL sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-DIVISION sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PURCH_ORG sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PLANT sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-LOTTYPE sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-END_CUST sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPCLMQTY sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-QTY_UNIT sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-OLDPRCUNIT sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-OLDCONDRATE sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-OLDCONDCURR sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-OLDCONDNR sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-OLDCONDDR sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-OLDCONDUOM sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-NEWPRCUNIT sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-NEWCONDRATE sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-NEWCONDCURR sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-NEWCONDNR sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-NEWCONDDR sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-NEWCONDUOM sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-OLDPPTYPE sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPTYPE sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPAMOUNT sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPAMTCURR sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPCLM_STATUS sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPRVLQTY sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPRVLAMT sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPRVLAMTCURR sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPRVL_STATUS sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPANNO sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPEFFDATE sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPRUNNO sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPRUNGRPNO sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPRUNDATE sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PP_SLS_DOCQTY sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PP_SLS_DOCAMT sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PP_SLS_DOCCURR sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PP_INV_DOCQTY sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PP_INV_DOCAMT sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PP_INV_DOCCURR sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-LS_PPCLMDOC sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PP_SLS_DOCNO sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PP_SLS_DOCITM sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-ABGRU sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PP_INV_DOCNO sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PP_INV_DOCITM sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-RULE_RUNNO sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-CANCEL_DOCTYP sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-CANCEL_DOCNO sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-CANCEL_DOCITM sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-CANCEL_DOCDATE sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-CANCEL_RUN_DATE sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-CANCEL_IND sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-CANCEL_INVNO sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-CANCEL_INVITM sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-CANCEL_INVDATE sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-REJ_REASON sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-LS_PPRVLDOC sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPRVLDOCNO sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPRVLDOCYR sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-PPRVLPOST sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-LS_REFDOC sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-REF_DOC_NO sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-REF_DOC_ITM sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-REF_DOC_TYPE sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-UPDTPRC sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-LOGHANDLE sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-MS_DR_IND sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-CREATED_BY sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-CREATED_DT sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-CREATED_TM sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-LASTCHGDBY sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-LASTCHGDDT sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-CHANGED_TM sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-DUMMY_1 sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-MARK sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-LINK1 sy-vline 
WA_/SAPHT/DRMSPPDL_SORT_STR-LINK2 sy-vline      INTO ld_text SEPARATED BY SPACE.

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