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

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

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

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


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/SAPHT/DRMDETL ASSIGNING </SAPHT/DRMDETL>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
</SAPHT/DRMDETL>-MANDT = 1.
</SAPHT/DRMDETL>-LOTNO = 1.
</SAPHT/DRMDETL>-AUDITNO = 1.
</SAPHT/DRMDETL>-RUNNUMBER = 1.
</SAPHT/DRMDETL>-CHANGE_DOCQTY = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/SAPHT/DRMDETL-CHANGE_INVQTY, sy-vline,
WA_/SAPHT/DRMDETL-CHANGE_AVLQTY, sy-vline,
WA_/SAPHT/DRMDETL-CHANGE_STQTY, sy-vline,
WA_/SAPHT/DRMDETL-CHANGE_PIQTY, sy-vline,
WA_/SAPHT/DRMDETL-CHANGE_ECRQTY, sy-vline,
WA_/SAPHT/DRMDETL-CHANGE_MSRQTY, sy-vline.
ENDLOOP. *Add any further fields from structure WA_/SAPHT/DRMDETL 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/DRMDETL 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/DRMDETL INTO WA_/SAPHT/DRMDETL. *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 LOTNO CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_/SAPHT/DRMDETL-LOTNO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPHT/DRMDETL-LOTNO.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field LS_PPCLMDOC CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_/SAPHT/DRMDETL-LS_PPCLMDOC IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPHT/DRMDETL-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/DRMDETL-PP_SLS_DOCNO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPHT/DRMDETL-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/DRMDETL-PP_INV_DOCNO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPHT/DRMDETL-PP_INV_DOCNO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field LS_PPRVLDOC CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_/SAPHT/DRMDETL-LS_PPRVLDOC IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPHT/DRMDETL-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/DRMDETL-PPRVLDOCNO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPHT/DRMDETL-PPRVLDOCNO.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field BU_INV_DOCNO CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_/SAPHT/DRMDETL-BU_INV_DOCNO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPHT/DRMDETL-BU_INV_DOCNO.
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/DRMDETL_STR,
MANDT TYPE STRING,
LOTNO TYPE STRING,
AUDITNO TYPE STRING,
RUNNUMBER TYPE STRING,
CHANGE_DOCQTY TYPE STRING,
CHANGE_INVQTY TYPE STRING,
CHANGE_AVLQTY TYPE STRING,
CHANGE_STQTY TYPE STRING,
CHANGE_PIQTY TYPE STRING,
CHANGE_ECRQTY TYPE STRING,
CHANGE_MSRQTY TYPE STRING,
CHANGE_DSQTY TYPE STRING,
QTY_UNIT TYPE STRING,
XN_DATE TYPE STRING,
XN_CODE TYPE STRING,
PROC_CODE TYPE STRING,
INVNO TYPE STRING,
IDOCNO TYPE STRING,
COLL_RUN_NO TYPE STRING,
TRANS_DATE TYPE STRING,
STEXT TYPE STRING,
LTEXT TYPE STRING,
LS_REF_DOC_NO TYPE STRING,
REF_DOC_TYP TYPE STRING,
REF_DOC_NO TYPE STRING,
REF_DOC_ITM TYPE STRING,
PO_ORDER_TYPE TYPE STRING,
PRODORD_NO TYPE STRING,
SELLIN_DN_NO TYPE STRING,
SELLIN_DN_ITM TYPE STRING,
MATDOCNO TYPE STRING,
MATDOCITEM TYPE STRING,
MATDOCYR TYPE STRING,
MATDOCDATE TYPE STRING,
INVDOCNO TYPE STRING,
INVDOCITM TYPE STRING,
INVDOCYR TYPE STRING,
COMP_CODE TYPE STRING,
INV_DOC_TYPE TYPE STRING,
INVDATE TYPE STRING,
PRIC_UNIT TYPE STRING,
COND_RATE TYPE STRING,
COND_CURR TYPE STRING,
COND_NUMER TYPE STRING,
COND_DENOM TYPE STRING,
COND_UOM TYPE STRING,
END_CUST TYPE STRING,
TRACK_PARTNER TYPE STRING,
MSBOOKPARTNO TYPE STRING,
PARTNER TYPE STRING,
MATERIAL TYPE STRING,
SALES_REP TYPE STRING,
LS_EC_SO TYPE STRING,
EC_ORDR_NO TYPE STRING,
EC_ORDR_ITM TYPE STRING,
EC_DN_NO TYPE STRING,
EC_DN_ITEM TYPE STRING,
EC_SHP_DT TYPE STRING,
EC_INV_NO TYPE STRING,
EC_INV_ITM TYPE STRING,
EC_INV_DT TYPE STRING,
EC_CM_NO TYPE STRING,
EC_CM_ITM TYPE STRING,
LAST_SELLIN_DT TYPE STRING,
INT_XMNO TYPE STRING,
TRANSM_NO TYPE STRING,
EFF_DATE TYPE STRING,
STAGDOCNO TYPE STRING,
RESALEPRC TYPE STRING,
RESALECURR TYPE STRING,
RESL_PRC_UNIT TYPE STRING,
RESL_PRC_UOM TYPE STRING,
IDOC_TYPE TYPE STRING,
O_PRIC_UNIT TYPE STRING,
O_COND_RATE TYPE STRING,
O_COND_CURR TYPE STRING,
O_COND_NUMER TYPE STRING,
O_COND_DENOM TYPE STRING,
O_COND_UOM TYPE STRING,
O_PPTYPE TYPE STRING,
PPCLMQTY TYPE STRING,
PPRVLQTY TYPE STRING,
PPEFFDATE TYPE STRING,
PPRUNDATE TYPE STRING,
PPANNO TYPE STRING,
PP_CLM_AMOUNT TYPE STRING,
CLM_AMOUNT_CURR TYPE STRING,
LS_PPCLMDOC TYPE STRING,
PP_SLS_DOCNO TYPE STRING,
PP_SLS_DOCITM TYPE STRING,
PP_SLS_DOCQTY TYPE STRING,
PP_SLS_DOCAMT TYPE STRING,
PP_SLS_DOCCURR TYPE STRING,
PP_INV_DOCNO TYPE STRING,
PP_INV_DOCITM TYPE STRING,
PP_INV_DOCQTY TYPE STRING,
PP_INV_DOCAMT TYPE STRING,
PP_INV_DOCCURR TYPE STRING,
LS_PPRVLDOC TYPE STRING,
PPRVLDOCNO TYPE STRING,
PPRVLDOCYR TYPE STRING,
PPRVLPOST TYPE STRING,
PPRECORDNO TYPE STRING,
CLAIMDOCNO TYPE STRING,
CUS_REF_FLD TYPE STRING,
LS_SD_AGR TYPE STRING,
SD_AGR_NO TYPE STRING,
SD_AGR_ITM TYPE STRING,
SD_AGR_RATE TYPE STRING,
SD_AGR_CURR TYPE STRING,
SD_PRIC_UNIT TYPE STRING,
AGR_CON_NUM TYPE STRING,
AGR_CON_DEN TYPE STRING,
LOT_COND_RATE TYPE STRING,
LOT_COND_CURR TYPE STRING,
LOT_PRIC_UNIT TYPE STRING,
LOT_COND_NUMER TYPE STRING,
LOT_COND_DENOM TYPE STRING,
LOT_CLAIM_QTY TYPE STRING,
LOT_CLAIM_AMT TYPE STRING,
LOT_CLAIM_CURR TYPE STRING,
SD_SLS_DOCQTY TYPE STRING,
SD_SLS_DOCAMT TYPE STRING,
SD_SLS_DOCCURR TYPE STRING,
SD_INV_DOCQTY TYPE STRING,
SD_INV_DOCAMT TYPE STRING,
SD_INV_DOCCURR TYPE STRING,
SD_SLS_DOCNO TYPE STRING,
SD_SLS_DOCITM TYPE STRING,
SD_INV_DOCNO TYPE STRING,
SD_INV_DOCITM TYPE STRING,
BILLUPDLDOCNO TYPE STRING,
ECRETNQTY TYPE STRING,
BILLUPQTY TYPE STRING,
BU_SLS_DOCQTY TYPE STRING,
BU_INV_DOCQTY TYPE STRING,
BILLUPAMT TYPE STRING,
BILLUPAMTCUR TYPE STRING,
BU_SLS_DOCAMT TYPE STRING,
BU_SLS_DOCCURR TYPE STRING,
BU_INV_DOCAMT TYPE STRING,
BU_INV_DOCCURR TYPE STRING,
BU_SLS_DOCNO TYPE STRING,
BU_SLS_DOCITM TYPE STRING,
BU_INV_DOCNO TYPE STRING,
BU_INV_DOCITM 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,
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,END OF T_EKKO_STR. DATA: WA_/SAPHT/DRMDETL_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/DRMDETL_STR-MANDT sy-vline
WA_/SAPHT/DRMDETL_STR-LOTNO sy-vline
WA_/SAPHT/DRMDETL_STR-AUDITNO sy-vline
WA_/SAPHT/DRMDETL_STR-RUNNUMBER sy-vline
WA_/SAPHT/DRMDETL_STR-CHANGE_DOCQTY sy-vline
WA_/SAPHT/DRMDETL_STR-CHANGE_INVQTY sy-vline
WA_/SAPHT/DRMDETL_STR-CHANGE_AVLQTY sy-vline
WA_/SAPHT/DRMDETL_STR-CHANGE_STQTY sy-vline
WA_/SAPHT/DRMDETL_STR-CHANGE_PIQTY sy-vline
WA_/SAPHT/DRMDETL_STR-CHANGE_ECRQTY sy-vline
WA_/SAPHT/DRMDETL_STR-CHANGE_MSRQTY sy-vline
WA_/SAPHT/DRMDETL_STR-CHANGE_DSQTY sy-vline
WA_/SAPHT/DRMDETL_STR-QTY_UNIT sy-vline
WA_/SAPHT/DRMDETL_STR-XN_DATE sy-vline
WA_/SAPHT/DRMDETL_STR-XN_CODE sy-vline
WA_/SAPHT/DRMDETL_STR-PROC_CODE sy-vline
WA_/SAPHT/DRMDETL_STR-INVNO sy-vline
WA_/SAPHT/DRMDETL_STR-IDOCNO sy-vline
WA_/SAPHT/DRMDETL_STR-COLL_RUN_NO sy-vline
WA_/SAPHT/DRMDETL_STR-TRANS_DATE sy-vline
WA_/SAPHT/DRMDETL_STR-STEXT sy-vline
WA_/SAPHT/DRMDETL_STR-LTEXT sy-vline
WA_/SAPHT/DRMDETL_STR-LS_REF_DOC_NO sy-vline
WA_/SAPHT/DRMDETL_STR-REF_DOC_TYP sy-vline
WA_/SAPHT/DRMDETL_STR-REF_DOC_NO sy-vline
WA_/SAPHT/DRMDETL_STR-REF_DOC_ITM sy-vline
WA_/SAPHT/DRMDETL_STR-PO_ORDER_TYPE sy-vline
WA_/SAPHT/DRMDETL_STR-PRODORD_NO sy-vline
WA_/SAPHT/DRMDETL_STR-SELLIN_DN_NO sy-vline
WA_/SAPHT/DRMDETL_STR-SELLIN_DN_ITM sy-vline
WA_/SAPHT/DRMDETL_STR-MATDOCNO sy-vline
WA_/SAPHT/DRMDETL_STR-MATDOCITEM sy-vline
WA_/SAPHT/DRMDETL_STR-MATDOCYR sy-vline
WA_/SAPHT/DRMDETL_STR-MATDOCDATE sy-vline
WA_/SAPHT/DRMDETL_STR-INVDOCNO sy-vline
WA_/SAPHT/DRMDETL_STR-INVDOCITM sy-vline
WA_/SAPHT/DRMDETL_STR-INVDOCYR sy-vline
WA_/SAPHT/DRMDETL_STR-COMP_CODE sy-vline
WA_/SAPHT/DRMDETL_STR-INV_DOC_TYPE sy-vline
WA_/SAPHT/DRMDETL_STR-INVDATE sy-vline
WA_/SAPHT/DRMDETL_STR-PRIC_UNIT sy-vline
WA_/SAPHT/DRMDETL_STR-COND_RATE sy-vline
WA_/SAPHT/DRMDETL_STR-COND_CURR sy-vline
WA_/SAPHT/DRMDETL_STR-COND_NUMER sy-vline
WA_/SAPHT/DRMDETL_STR-COND_DENOM sy-vline
WA_/SAPHT/DRMDETL_STR-COND_UOM sy-vline
WA_/SAPHT/DRMDETL_STR-END_CUST sy-vline
WA_/SAPHT/DRMDETL_STR-TRACK_PARTNER sy-vline
WA_/SAPHT/DRMDETL_STR-MSBOOKPARTNO sy-vline
WA_/SAPHT/DRMDETL_STR-PARTNER sy-vline
WA_/SAPHT/DRMDETL_STR-MATERIAL sy-vline
WA_/SAPHT/DRMDETL_STR-SALES_REP sy-vline
WA_/SAPHT/DRMDETL_STR-LS_EC_SO sy-vline
WA_/SAPHT/DRMDETL_STR-EC_ORDR_NO sy-vline
WA_/SAPHT/DRMDETL_STR-EC_ORDR_ITM sy-vline
WA_/SAPHT/DRMDETL_STR-EC_DN_NO sy-vline
WA_/SAPHT/DRMDETL_STR-EC_DN_ITEM sy-vline
WA_/SAPHT/DRMDETL_STR-EC_SHP_DT sy-vline
WA_/SAPHT/DRMDETL_STR-EC_INV_NO sy-vline
WA_/SAPHT/DRMDETL_STR-EC_INV_ITM sy-vline
WA_/SAPHT/DRMDETL_STR-EC_INV_DT sy-vline
WA_/SAPHT/DRMDETL_STR-EC_CM_NO sy-vline
WA_/SAPHT/DRMDETL_STR-EC_CM_ITM sy-vline
WA_/SAPHT/DRMDETL_STR-LAST_SELLIN_DT sy-vline
WA_/SAPHT/DRMDETL_STR-INT_XMNO sy-vline
WA_/SAPHT/DRMDETL_STR-TRANSM_NO sy-vline
WA_/SAPHT/DRMDETL_STR-EFF_DATE sy-vline
WA_/SAPHT/DRMDETL_STR-STAGDOCNO sy-vline
WA_/SAPHT/DRMDETL_STR-RESALEPRC sy-vline
WA_/SAPHT/DRMDETL_STR-RESALECURR sy-vline
WA_/SAPHT/DRMDETL_STR-RESL_PRC_UNIT sy-vline
WA_/SAPHT/DRMDETL_STR-RESL_PRC_UOM sy-vline
WA_/SAPHT/DRMDETL_STR-IDOC_TYPE sy-vline
WA_/SAPHT/DRMDETL_STR-O_PRIC_UNIT sy-vline
WA_/SAPHT/DRMDETL_STR-O_COND_RATE sy-vline
WA_/SAPHT/DRMDETL_STR-O_COND_CURR sy-vline
WA_/SAPHT/DRMDETL_STR-O_COND_NUMER sy-vline
WA_/SAPHT/DRMDETL_STR-O_COND_DENOM sy-vline
WA_/SAPHT/DRMDETL_STR-O_COND_UOM sy-vline
WA_/SAPHT/DRMDETL_STR-O_PPTYPE sy-vline
WA_/SAPHT/DRMDETL_STR-PPCLMQTY sy-vline
WA_/SAPHT/DRMDETL_STR-PPRVLQTY sy-vline
WA_/SAPHT/DRMDETL_STR-PPEFFDATE sy-vline
WA_/SAPHT/DRMDETL_STR-PPRUNDATE sy-vline
WA_/SAPHT/DRMDETL_STR-PPANNO sy-vline
WA_/SAPHT/DRMDETL_STR-PP_CLM_AMOUNT sy-vline
WA_/SAPHT/DRMDETL_STR-CLM_AMOUNT_CURR sy-vline
WA_/SAPHT/DRMDETL_STR-LS_PPCLMDOC sy-vline
WA_/SAPHT/DRMDETL_STR-PP_SLS_DOCNO sy-vline
WA_/SAPHT/DRMDETL_STR-PP_SLS_DOCITM sy-vline
WA_/SAPHT/DRMDETL_STR-PP_SLS_DOCQTY sy-vline
WA_/SAPHT/DRMDETL_STR-PP_SLS_DOCAMT sy-vline
WA_/SAPHT/DRMDETL_STR-PP_SLS_DOCCURR sy-vline
WA_/SAPHT/DRMDETL_STR-PP_INV_DOCNO sy-vline
WA_/SAPHT/DRMDETL_STR-PP_INV_DOCITM sy-vline
WA_/SAPHT/DRMDETL_STR-PP_INV_DOCQTY sy-vline
WA_/SAPHT/DRMDETL_STR-PP_INV_DOCAMT sy-vline
WA_/SAPHT/DRMDETL_STR-PP_INV_DOCCURR sy-vline
WA_/SAPHT/DRMDETL_STR-LS_PPRVLDOC sy-vline
WA_/SAPHT/DRMDETL_STR-PPRVLDOCNO sy-vline
WA_/SAPHT/DRMDETL_STR-PPRVLDOCYR sy-vline
WA_/SAPHT/DRMDETL_STR-PPRVLPOST sy-vline
WA_/SAPHT/DRMDETL_STR-PPRECORDNO sy-vline
WA_/SAPHT/DRMDETL_STR-CLAIMDOCNO sy-vline
WA_/SAPHT/DRMDETL_STR-CUS_REF_FLD sy-vline
WA_/SAPHT/DRMDETL_STR-LS_SD_AGR sy-vline
WA_/SAPHT/DRMDETL_STR-SD_AGR_NO sy-vline
WA_/SAPHT/DRMDETL_STR-SD_AGR_ITM sy-vline
WA_/SAPHT/DRMDETL_STR-SD_AGR_RATE sy-vline
WA_/SAPHT/DRMDETL_STR-SD_AGR_CURR sy-vline
WA_/SAPHT/DRMDETL_STR-SD_PRIC_UNIT sy-vline
WA_/SAPHT/DRMDETL_STR-AGR_CON_NUM sy-vline
WA_/SAPHT/DRMDETL_STR-AGR_CON_DEN sy-vline
WA_/SAPHT/DRMDETL_STR-LOT_COND_RATE sy-vline
WA_/SAPHT/DRMDETL_STR-LOT_COND_CURR sy-vline
WA_/SAPHT/DRMDETL_STR-LOT_PRIC_UNIT sy-vline
WA_/SAPHT/DRMDETL_STR-LOT_COND_NUMER sy-vline
WA_/SAPHT/DRMDETL_STR-LOT_COND_DENOM sy-vline
WA_/SAPHT/DRMDETL_STR-LOT_CLAIM_QTY sy-vline
WA_/SAPHT/DRMDETL_STR-LOT_CLAIM_AMT sy-vline
WA_/SAPHT/DRMDETL_STR-LOT_CLAIM_CURR sy-vline
WA_/SAPHT/DRMDETL_STR-SD_SLS_DOCQTY sy-vline
WA_/SAPHT/DRMDETL_STR-SD_SLS_DOCAMT sy-vline
WA_/SAPHT/DRMDETL_STR-SD_SLS_DOCCURR sy-vline
WA_/SAPHT/DRMDETL_STR-SD_INV_DOCQTY sy-vline
WA_/SAPHT/DRMDETL_STR-SD_INV_DOCAMT sy-vline
WA_/SAPHT/DRMDETL_STR-SD_INV_DOCCURR sy-vline
WA_/SAPHT/DRMDETL_STR-SD_SLS_DOCNO sy-vline
WA_/SAPHT/DRMDETL_STR-SD_SLS_DOCITM sy-vline
WA_/SAPHT/DRMDETL_STR-SD_INV_DOCNO sy-vline
WA_/SAPHT/DRMDETL_STR-SD_INV_DOCITM sy-vline
WA_/SAPHT/DRMDETL_STR-BILLUPDLDOCNO sy-vline
WA_/SAPHT/DRMDETL_STR-ECRETNQTY sy-vline
WA_/SAPHT/DRMDETL_STR-BILLUPQTY sy-vline
WA_/SAPHT/DRMDETL_STR-BU_SLS_DOCQTY sy-vline
WA_/SAPHT/DRMDETL_STR-BU_INV_DOCQTY sy-vline
WA_/SAPHT/DRMDETL_STR-BILLUPAMT sy-vline
WA_/SAPHT/DRMDETL_STR-BILLUPAMTCUR sy-vline
WA_/SAPHT/DRMDETL_STR-BU_SLS_DOCAMT sy-vline
WA_/SAPHT/DRMDETL_STR-BU_SLS_DOCCURR sy-vline
WA_/SAPHT/DRMDETL_STR-BU_INV_DOCAMT sy-vline
WA_/SAPHT/DRMDETL_STR-BU_INV_DOCCURR sy-vline
WA_/SAPHT/DRMDETL_STR-BU_SLS_DOCNO sy-vline
WA_/SAPHT/DRMDETL_STR-BU_SLS_DOCITM sy-vline
WA_/SAPHT/DRMDETL_STR-BU_INV_DOCNO sy-vline
WA_/SAPHT/DRMDETL_STR-BU_INV_DOCITM sy-vline
WA_/SAPHT/DRMDETL_STR-CANCEL_DOCTYP sy-vline
WA_/SAPHT/DRMDETL_STR-CANCEL_DOCNO sy-vline
WA_/SAPHT/DRMDETL_STR-CANCEL_DOCITM sy-vline
WA_/SAPHT/DRMDETL_STR-CANCEL_DOCDATE sy-vline
WA_/SAPHT/DRMDETL_STR-CANCEL_RUN_DATE sy-vline
WA_/SAPHT/DRMDETL_STR-CANCEL_IND sy-vline
WA_/SAPHT/DRMDETL_STR-CANCEL_INVNO sy-vline
WA_/SAPHT/DRMDETL_STR-CANCEL_INVITM sy-vline
WA_/SAPHT/DRMDETL_STR-CANCEL_INVDATE sy-vline
WA_/SAPHT/DRMDETL_STR-REJ_REASON sy-vline
WA_/SAPHT/DRMDETL_STR-CREATED_BY sy-vline
WA_/SAPHT/DRMDETL_STR-CREATED_DT sy-vline
WA_/SAPHT/DRMDETL_STR-CREATED_TM sy-vline
WA_/SAPHT/DRMDETL_STR-LASTCHGDBY sy-vline
WA_/SAPHT/DRMDETL_STR-LASTCHGDDT sy-vline
WA_/SAPHT/DRMDETL_STR-CHANGED_TM sy-vline
WA_/SAPHT/DRMDETL_STR-DUMMY_1 sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.