ABAP Select data from SAP table IHC_STR_PN_DATA 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 IHC_STR_PN_DATA 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 IHC_STR_PN_DATA. 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 IHC_STR_PN_DATA 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_IHC_STR_PN_DATA TYPE STANDARD TABLE OF IHC_STR_PN_DATA,
      WA_IHC_STR_PN_DATA TYPE IHC_STR_PN_DATA,
      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: <IHC_STR_PN_DATA> TYPE IHC_STR_PN_DATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IHC_STR_PN_DATA
*  INTO TABLE @DATA(IT_IHC_STR_PN_DATA2).
*--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_IHC_STR_PN_DATA INDEX 1 INTO DATA(WA_IHC_STR_PN_DATA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<IHC_STR_PN_DATA>-LAST_GUI_STATUS = 1.
<IHC_STR_PN_DATA>-PAY_BANK_KEY = 1.
<IHC_STR_PN_DATA>-PAY_PRI_BNKID = 1.
<IHC_STR_PN_DATA>-PAY_PRI_IDQUAL = 1.
<IHC_STR_PN_DATA>-PAY_SEC_BNKID = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IHC_STR_PN_DATA-PAY_SEC_IDQUAL, sy-vline,
  WA_IHC_STR_PN_DATA-PAY_BKONT, sy-vline,
  WA_IHC_STR_PN_DATA-PAY_BANK_NAME, sy-vline,
  WA_IHC_STR_PN_DATA-PAY_BANK_CNTRY, sy-vline,
  WA_IHC_STR_PN_DATA-PAY_ACCHO_NAME, sy-vline,
  WA_IHC_STR_PN_DATA-PAY_ACCHO_CNTRY, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_IHC_STR_PN_DATA 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_IHC_STR_PN_DATA 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_IHC_STR_PN_DATA INTO WA_IHC_STR_PN_DATA.


*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 EXCRT, internal->external for field PAY_EXRATE
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_IHC_STR_PN_DATA-PAY_EXRATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IHC_STR_PN_DATA-PAY_EXRATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRT, internal->external for field PAY_EXRATE_PRIM
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_IHC_STR_PN_DATA-PAY_EXRATE_PRIM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IHC_STR_PN_DATA-PAY_EXRATE_PRIM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRT, internal->external for field OPAY_EXRATE
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_IHC_STR_PN_DATA-OPAY_EXRATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IHC_STR_PN_DATA-OPAY_EXRATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRT, internal->external for field REC_EXRATE
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_IHC_STR_PN_DATA-REC_EXRATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IHC_STR_PN_DATA-REC_EXRATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRT, internal->external for field REC_EXRATE_PRIM
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_IHC_STR_PN_DATA-REC_EXRATE_PRIM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IHC_STR_PN_DATA-REC_EXRATE_PRIM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit _UNIT, internal->external for field REC_UNIT
CALL FUNCTION 'CONVERSION_EXIT__UNIT_OUTPUT'
  EXPORTING
    input =                      WA_IHC_STR_PN_DATA-REC_UNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IHC_STR_PN_DATA-REC_UNIT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRT, internal->external for field CLR_EXRATE
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_IHC_STR_PN_DATA-CLR_EXRATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IHC_STR_PN_DATA-CLR_EXRATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRT, internal->external for field CLR_EXRATE_PRIM
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_IHC_STR_PN_DATA-CLR_EXRATE_PRIM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IHC_STR_PN_DATA-CLR_EXRATE_PRIM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field PAYRQ_NO
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_IHC_STR_PN_DATA-PAYRQ_NO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IHC_STR_PN_DATA-PAYRQ_NO.
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_IHC_STR_PN_DATA_STR, 
LAST_GUI_STATUS TYPE STRING,
PAY_BANK_KEY TYPE STRING,
PAY_PRI_BNKID TYPE STRING,
PAY_PRI_IDQUAL TYPE STRING,
PAY_SEC_BNKID TYPE STRING,
PAY_SEC_IDQUAL TYPE STRING,
PAY_BKONT TYPE STRING,
PAY_BANK_NAME TYPE STRING,
PAY_BANK_CNTRY TYPE STRING,
PAY_ACCHO_NAME TYPE STRING,
PAY_ACCHO_CNTRY TYPE STRING,
PAY_ACCTNO TYPE STRING,
PAY_IBAN TYPE STRING,
PAY_ACCTCURR TYPE STRING,
PAY_AMOUNT TYPE STRING,
PAY_VALUE_DATE TYPE STRING,
PAY_EXRATE TYPE STRING,
PAY_AMOUNT_PRIM TYPE STRING,
PAY_EXRATE_PRIM TYPE STRING,
OPAY_PRI_BNKID TYPE STRING,
OPAY_PRI_IDQUAL TYPE STRING,
OPAY_SEC_BNKID TYPE STRING,
OPAY_SEC_IDQUAL TYPE STRING,
OPAY_BKONT TYPE STRING,
OPAY_BANK_NAME TYPE STRING,
OPAY_BANK_CNTRY TYPE STRING,
OPAY_ACCHO_NAME TYPE STRING,
OPAY_ACCHO_CNTRY TYPE STRING,
OPAY_ACCTNO TYPE STRING,
OPAY_IBAN TYPE STRING,
OPAY_ACCTCURR TYPE STRING,
OPAY_VALUE_DATE TYPE STRING,
OPAY_EXRATE TYPE STRING,
REC_BANKL TYPE STRING,
REC_PRI_BNKID TYPE STRING,
REC_PRI_IDQUAL TYPE STRING,
REC_SEC_BNKID TYPE STRING,
REC_SEC_IDQUAL TYPE STRING,
REC_BKONT TYPE STRING,
REC_BANK_NAME TYPE STRING,
REC_BANK_CNTRY TYPE STRING,
REC_BANK_REF TYPE STRING,
REC_ACCHO_NAME TYPE STRING,
REC_ACCHO_CNTRY TYPE STRING,
REC_ACCTNO TYPE STRING,
REC_IBAN TYPE STRING,
REC_ACCTCURR TYPE STRING,
REC_AMOUNT TYPE STRING,
REC_VALUE_DATE TYPE STRING,
REC_EXRATE TYPE STRING,
REC_AMOUNT_PRIM TYPE STRING,
REC_EXRATE_PRIM TYPE STRING,
REC_UNIT TYPE STRING,
CLR_PRI_BNKID TYPE STRING,
CLR_PRI_IDQUAL TYPE STRING,
CLR_SEC_BNKID TYPE STRING,
CLR_SEC_IDQUAL TYPE STRING,
CLR_BKONT TYPE STRING,
CLR_BANK_NAME TYPE STRING,
CLR_BANK_CNTRY TYPE STRING,
CLR_ACCHO_NAME TYPE STRING,
CLR_ACCHO_CNTRY TYPE STRING,
CLR_ACCTNO TYPE STRING,
CLR_IBAN TYPE STRING,
CLR_ACCTCURR TYPE STRING,
CLR_AMOUNT TYPE STRING,
CLR_VALUE_DATE TYPE STRING,
CLR_EXRATE TYPE STRING,
CLR_AMOUNT_PRIM TYPE STRING,
CLR_EXRATE_PRIM TYPE STRING,
CLR_PRTNR_TYPE TYPE STRING,
TRNS_TYPE TYPE STRING,
TRNS_DIRECTION TYPE STRING,
TRNS_AMOUNT TYPE STRING,
TRNS_CURR TYPE STRING,
PL_PROC_DATE TYPE STRING,
PL_POST_DATE TYPE STRING,
EXEC_INSTRUCT TYPE STRING,
CRUSR TYPE STRING,
CRDAT TYPE STRING,
CRTIM TYPE STRING,
INPUT_CHANNEL TYPE STRING,
CHUSR TYPE STRING,
CHDAT TYPE STRING,
CHTIM TYPE STRING,
REUSR TYPE STRING,
REDAT TYPE STRING,
RETIM TYPE STRING,
ARUSR TYPE STRING,
ARDAT TYPE STRING,
ARTIM TYPE STRING,
CS_PAY_FLAG TYPE STRING,
CS_REC_FLAG TYPE STRING,
RCV_EXTERN TYPE STRING,
CLR_PRTNR_ID TYPE STRING,
EXT_PAY TYPE STRING,
CHECK_PAY TYPE STRING,
SINGLE_PAY TYPE STRING,
IN_IDOC_NUMBER TYPE STRING,
OUT_IDOC_NUMBER TYPE STRING,
IN_RZAWE TYPE STRING,
IN_UZAWE TYPE STRING,
OUT_RZAWE TYPE STRING,
OUT_UZAWE TYPE STRING,
PAYRQ_NO TYPE STRING,
IN_IDOC_MESTYP TYPE STRING,
OUT_IDOC_MESTYP TYPE STRING,
INSTRUCTION_CODE TYPE STRING,
INSTRUCTION1 TYPE STRING,
INSTRUCTION2 TYPE STRING,
INSTRUCTION3 TYPE STRING,
INSTRUCTION4 TYPE STRING,
CENTRAL_BANK_IND TYPE STRING,
SUPPLY_COUNTRY TYPE STRING,
XBS_KUKEY TYPE STRING,
XBS_POSITION TYPE STRING,
ARCHIVED TYPE STRING,END OF T_EKKO_STR.
DATA: WA_IHC_STR_PN_DATA_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_IHC_STR_PN_DATA_STR-LAST_GUI_STATUS sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_BANK_KEY sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_PRI_BNKID sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_PRI_IDQUAL sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_SEC_BNKID sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_SEC_IDQUAL sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_BKONT sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_BANK_NAME sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_BANK_CNTRY sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_ACCHO_NAME sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_ACCHO_CNTRY sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_ACCTNO sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_IBAN sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_ACCTCURR sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_AMOUNT sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_VALUE_DATE sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_EXRATE sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_AMOUNT_PRIM sy-vline 
WA_IHC_STR_PN_DATA_STR-PAY_EXRATE_PRIM sy-vline 
WA_IHC_STR_PN_DATA_STR-OPAY_PRI_BNKID sy-vline 
WA_IHC_STR_PN_DATA_STR-OPAY_PRI_IDQUAL sy-vline 
WA_IHC_STR_PN_DATA_STR-OPAY_SEC_BNKID sy-vline 
WA_IHC_STR_PN_DATA_STR-OPAY_SEC_IDQUAL sy-vline 
WA_IHC_STR_PN_DATA_STR-OPAY_BKONT sy-vline 
WA_IHC_STR_PN_DATA_STR-OPAY_BANK_NAME sy-vline 
WA_IHC_STR_PN_DATA_STR-OPAY_BANK_CNTRY sy-vline 
WA_IHC_STR_PN_DATA_STR-OPAY_ACCHO_NAME sy-vline 
WA_IHC_STR_PN_DATA_STR-OPAY_ACCHO_CNTRY sy-vline 
WA_IHC_STR_PN_DATA_STR-OPAY_ACCTNO sy-vline 
WA_IHC_STR_PN_DATA_STR-OPAY_IBAN sy-vline 
WA_IHC_STR_PN_DATA_STR-OPAY_ACCTCURR sy-vline 
WA_IHC_STR_PN_DATA_STR-OPAY_VALUE_DATE sy-vline 
WA_IHC_STR_PN_DATA_STR-OPAY_EXRATE sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_BANKL sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_PRI_BNKID sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_PRI_IDQUAL sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_SEC_BNKID sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_SEC_IDQUAL sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_BKONT sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_BANK_NAME sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_BANK_CNTRY sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_BANK_REF sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_ACCHO_NAME sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_ACCHO_CNTRY sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_ACCTNO sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_IBAN sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_ACCTCURR sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_AMOUNT sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_VALUE_DATE sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_EXRATE sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_AMOUNT_PRIM sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_EXRATE_PRIM sy-vline 
WA_IHC_STR_PN_DATA_STR-REC_UNIT sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_PRI_BNKID sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_PRI_IDQUAL sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_SEC_BNKID sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_SEC_IDQUAL sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_BKONT sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_BANK_NAME sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_BANK_CNTRY sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_ACCHO_NAME sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_ACCHO_CNTRY sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_ACCTNO sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_IBAN sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_ACCTCURR sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_AMOUNT sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_VALUE_DATE sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_EXRATE sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_AMOUNT_PRIM sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_EXRATE_PRIM sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_PRTNR_TYPE sy-vline 
WA_IHC_STR_PN_DATA_STR-TRNS_TYPE sy-vline 
WA_IHC_STR_PN_DATA_STR-TRNS_DIRECTION sy-vline 
WA_IHC_STR_PN_DATA_STR-TRNS_AMOUNT sy-vline 
WA_IHC_STR_PN_DATA_STR-TRNS_CURR sy-vline 
WA_IHC_STR_PN_DATA_STR-PL_PROC_DATE sy-vline 
WA_IHC_STR_PN_DATA_STR-PL_POST_DATE sy-vline 
WA_IHC_STR_PN_DATA_STR-EXEC_INSTRUCT sy-vline 
WA_IHC_STR_PN_DATA_STR-CRUSR sy-vline 
WA_IHC_STR_PN_DATA_STR-CRDAT sy-vline 
WA_IHC_STR_PN_DATA_STR-CRTIM sy-vline 
WA_IHC_STR_PN_DATA_STR-INPUT_CHANNEL sy-vline 
WA_IHC_STR_PN_DATA_STR-CHUSR sy-vline 
WA_IHC_STR_PN_DATA_STR-CHDAT sy-vline 
WA_IHC_STR_PN_DATA_STR-CHTIM sy-vline 
WA_IHC_STR_PN_DATA_STR-REUSR sy-vline 
WA_IHC_STR_PN_DATA_STR-REDAT sy-vline 
WA_IHC_STR_PN_DATA_STR-RETIM sy-vline 
WA_IHC_STR_PN_DATA_STR-ARUSR sy-vline 
WA_IHC_STR_PN_DATA_STR-ARDAT sy-vline 
WA_IHC_STR_PN_DATA_STR-ARTIM sy-vline 
WA_IHC_STR_PN_DATA_STR-CS_PAY_FLAG sy-vline 
WA_IHC_STR_PN_DATA_STR-CS_REC_FLAG sy-vline 
WA_IHC_STR_PN_DATA_STR-RCV_EXTERN sy-vline 
WA_IHC_STR_PN_DATA_STR-CLR_PRTNR_ID sy-vline 
WA_IHC_STR_PN_DATA_STR-EXT_PAY sy-vline 
WA_IHC_STR_PN_DATA_STR-CHECK_PAY sy-vline 
WA_IHC_STR_PN_DATA_STR-SINGLE_PAY sy-vline 
WA_IHC_STR_PN_DATA_STR-IN_IDOC_NUMBER sy-vline 
WA_IHC_STR_PN_DATA_STR-OUT_IDOC_NUMBER sy-vline 
WA_IHC_STR_PN_DATA_STR-IN_RZAWE sy-vline 
WA_IHC_STR_PN_DATA_STR-IN_UZAWE sy-vline 
WA_IHC_STR_PN_DATA_STR-OUT_RZAWE sy-vline 
WA_IHC_STR_PN_DATA_STR-OUT_UZAWE sy-vline 
WA_IHC_STR_PN_DATA_STR-PAYRQ_NO sy-vline 
WA_IHC_STR_PN_DATA_STR-IN_IDOC_MESTYP sy-vline 
WA_IHC_STR_PN_DATA_STR-OUT_IDOC_MESTYP sy-vline 
WA_IHC_STR_PN_DATA_STR-INSTRUCTION_CODE sy-vline 
WA_IHC_STR_PN_DATA_STR-INSTRUCTION1 sy-vline 
WA_IHC_STR_PN_DATA_STR-INSTRUCTION2 sy-vline 
WA_IHC_STR_PN_DATA_STR-INSTRUCTION3 sy-vline 
WA_IHC_STR_PN_DATA_STR-INSTRUCTION4 sy-vline 
WA_IHC_STR_PN_DATA_STR-CENTRAL_BANK_IND sy-vline 
WA_IHC_STR_PN_DATA_STR-SUPPLY_COUNTRY sy-vline 
WA_IHC_STR_PN_DATA_STR-XBS_KUKEY sy-vline 
WA_IHC_STR_PN_DATA_STR-XBS_POSITION sy-vline 
WA_IHC_STR_PN_DATA_STR-ARCHIVED sy-vline      INTO ld_text SEPARATED BY SPACE.

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