ABAP Select data from SAP table PIQ_CORR_ADM_HISTORY 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 PIQ_CORR_ADM_HISTORY 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 PIQ_CORR_ADM_HISTORY. 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 PIQ_CORR_ADM_HISTORY 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_PIQ_CORR_ADM_HISTORY TYPE STANDARD TABLE OF PIQ_CORR_ADM_HISTORY,
      WA_PIQ_CORR_ADM_HISTORY TYPE PIQ_CORR_ADM_HISTORY,
      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: <PIQ_CORR_ADM_HISTORY> TYPE PIQ_CORR_ADM_HISTORY.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PIQ_CORR_ADM_HISTORY
*  INTO TABLE @DATA(IT_PIQ_CORR_ADM_HISTORY2).
*--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_PIQ_CORR_ADM_HISTORY INDEX 1 INTO DATA(WA_PIQ_CORR_ADM_HISTORY2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PIQ_CORR_ADM_HISTORY>-MANDT = 1.
<PIQ_CORR_ADM_HISTORY>-COTYP = 1.
<PIQ_CORR_ADM_HISTORY>-COKEY = 1.
<PIQ_CORR_ADM_HISTORY>-UNAME = 1.
<PIQ_CORR_ADM_HISTORY>-CDATE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PIQ_CORR_ADM_HISTORY-CTIME, sy-vline,
  WA_PIQ_CORR_ADM_HISTORY-GPART, sy-vline,
  WA_PIQ_CORR_ADM_HISTORY-ORG_GPART, sy-vline,
  WA_PIQ_CORR_ADM_HISTORY-VKONT, sy-vline,
  WA_PIQ_CORR_ADM_HISTORY-VTREF, sy-vline,
  WA_PIQ_CORR_ADM_HISTORY-ADRNR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PIQ_CORR_ADM_HISTORY 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_PIQ_CORR_ADM_HISTORY 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_PIQ_CORR_ADM_HISTORY INTO WA_PIQ_CORR_ADM_HISTORY.


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

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

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

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

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

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

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

*Conversion exit ISOLA, internal->external for field SPRAS
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_PIQ_CORR_ADM_HISTORY-SPRAS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PIQ_CORR_ADM_HISTORY-SPRAS.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit PIQST, internal->external for field STUDENT12
CALL FUNCTION 'CONVERSION_EXIT_PIQST_OUTPUT'
  EXPORTING
    input =                      WA_PIQ_CORR_ADM_HISTORY-STUDENT12
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PIQ_CORR_ADM_HISTORY-STUDENT12.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PDATE, internal->external for field DATE_BIRTH
CALL FUNCTION 'CONVERSION_EXIT_PDATE_OUTPUT'
  EXPORTING
    input =                      WA_PIQ_CORR_ADM_HISTORY-DATE_BIRTH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PIQ_CORR_ADM_HISTORY-DATE_BIRTH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ISOLA, internal->external for field CORRESP_LANGUAGE
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_PIQ_CORR_ADM_HISTORY-CORRESP_LANGUAGE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PIQ_CORR_ADM_HISTORY-CORRESP_LANGUAGE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field ADM_QMNUM
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_PIQ_CORR_ADM_HISTORY-ADM_QMNUM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PIQ_CORR_ADM_HISTORY-ADM_QMNUM.
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_PIQ_CORR_ADM_HISTORY_STR, 
MANDT TYPE STRING,
COTYP TYPE STRING,
COKEY TYPE STRING,
UNAME TYPE STRING,
CDATE TYPE STRING,
CTIME TYPE STRING,
GPART TYPE STRING,
ORG_GPART TYPE STRING,
VKONT TYPE STRING,
VTREF TYPE STRING,
ADRNR TYPE STRING,
AGPART TYPE STRING,
AADRNR TYPE STRING,
FORMKEY TYPE STRING,
FORMKEY_RDI TYPE STRING,
ENTID1 TYPE STRING,
DATA1 TYPE STRING,
ENTID2 TYPE STRING,
DATA2 TYPE STRING,
ENTID3 TYPE STRING,
DATA3 TYPE STRING,
ENTID4 TYPE STRING,
DATA4 TYPE STRING,
CSORT TYPE STRING,
XCODT TYPE STRING,
XCODT_CLUST TYPE STRING,
LAUFD TYPE STRING,
LAUFI TYPE STRING,
XTEST TYPE STRING,
COPRI TYPE STRING,
COIDT TYPE STRING,
COITM TYPE STRING,
SPRAS TYPE STRING,
SALWA TYPE STRING,
SALBE TYPE STRING,
SENDCONTROL TYPE STRING,
PERSNUMBER TYPE STRING,
BUKRS TYPE STRING,
CORR_ROLE TYPE STRING,
COCYR TYPE STRING,
COPER TYPE STRING,
COPNR TYPE STRING,
COEMP TYPE STRING,
UMBUCH TYPE STRING,
ST_OBJID TYPE STRING,
STUDENT12 TYPE STRING,
FORM_OF_ADDRESS_KEY TYPE STRING,
FORM_OF_ADDRESS_KEY_TXT TYPE STRING,
INITIALS TYPE STRING,
FIRST_NAME TYPE STRING,
LAST_NAME TYPE STRING,
MIDDLE_NAME TYPE STRING,
TITEL TYPE STRING,
TITEL_TXT TYPE STRING,
NAME_AFFIX TYPE STRING,
NAME_AFFIX_TXT TYPE STRING,
ARISTOCRATIC_TITLE TYPE STRING,
ARISTOCRATIC_TITLE_TXT TYPE STRING,
NICKNAME TYPE STRING,
NAME_AT_BIRTH TYPE STRING,
DATE_BIRTH TYPE STRING,
BIRTHPLACE TYPE STRING,
COUNTRY_OF_BIRTH TYPE STRING,
COUNTRY_OF_BIRTH_ISO TYPE STRING,
NAMEOFBIRTHCOUNTRY TYPE STRING,
REGION_OF_BIRTH TYPE STRING,
NAMEOFBIRTHSTATE TYPE STRING,
NATIONALITY_AT_BIRTH TYPE STRING,
NATIONALITY_AT_BIRTH_ISO TYPE STRING,
NATIONALITY_AT_BIRTH_TXT TYPE STRING,
NATIONALITY TYPE STRING,
NATIONALITY_ISO TYPE STRING,
NATIONALITY_TXT TYPE STRING,
SECOND_NATIONALITY TYPE STRING,
SECOND_NATIONALITY_ISO TYPE STRING,
SECOND_NATIONALITY_TXT TYPE STRING,
THIRD_NATIONALITY TYPE STRING,
THIRD_NATIONALITY_ISO TYPE STRING,
THIRD_NATIONALITY_TXT TYPE STRING,
GENDER_KEY TYPE STRING,
GENDER_KEY_TXT TYPE STRING,
MARITAL_STATUS TYPE STRING,
MARITAL_STATUS_TXT TYPE STRING,
PERSIDNO TYPE STRING,
CORRESP_LANGUAGE TYPE STRING,
CORRESP_LANGUAGE_ISO TYPE STRING,
CORRESP_LANGUAGE_TXT TYPE STRING,
DEATH_DATE TYPE STRING,
DEATH_REGDATE TYPE STRING,
ADM_QMNUM TYPE STRING,
PROCESS TYPE STRING,
PROCESST TYPE STRING,
ISTAT TYPE STRING,
ISTAT_T TYPE STRING,
SC_OBJID TYPE STRING,
SC_SHT TYPE STRING,
SC_T TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PIQ_CORR_ADM_HISTORY_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_PIQ_CORR_ADM_HISTORY_STR-MANDT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-COTYP sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-COKEY sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-UNAME sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-CDATE sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-CTIME sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-GPART sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-ORG_GPART sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-VKONT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-VTREF sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-ADRNR sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-AGPART sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-AADRNR sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-FORMKEY sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-FORMKEY_RDI sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-ENTID1 sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-DATA1 sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-ENTID2 sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-DATA2 sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-ENTID3 sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-DATA3 sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-ENTID4 sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-DATA4 sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-CSORT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-XCODT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-XCODT_CLUST sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-LAUFD sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-LAUFI sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-XTEST sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-COPRI sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-COIDT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-COITM sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-SPRAS sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-SALWA sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-SALBE sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-SENDCONTROL sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-PERSNUMBER sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-BUKRS sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-CORR_ROLE sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-COCYR sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-COPER sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-COPNR sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-COEMP sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-UMBUCH sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-ST_OBJID sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-STUDENT12 sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-FORM_OF_ADDRESS_KEY sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-FORM_OF_ADDRESS_KEY_TXT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-INITIALS sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-FIRST_NAME sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-LAST_NAME sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-MIDDLE_NAME sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-TITEL sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-TITEL_TXT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-NAME_AFFIX sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-NAME_AFFIX_TXT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-ARISTOCRATIC_TITLE sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-ARISTOCRATIC_TITLE_TXT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-NICKNAME sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-NAME_AT_BIRTH sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-DATE_BIRTH sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-BIRTHPLACE sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-COUNTRY_OF_BIRTH sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-COUNTRY_OF_BIRTH_ISO sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-NAMEOFBIRTHCOUNTRY sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-REGION_OF_BIRTH sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-NAMEOFBIRTHSTATE sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-NATIONALITY_AT_BIRTH sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-NATIONALITY_AT_BIRTH_ISO sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-NATIONALITY_AT_BIRTH_TXT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-NATIONALITY sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-NATIONALITY_ISO sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-NATIONALITY_TXT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-SECOND_NATIONALITY sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-SECOND_NATIONALITY_ISO sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-SECOND_NATIONALITY_TXT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-THIRD_NATIONALITY sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-THIRD_NATIONALITY_ISO sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-THIRD_NATIONALITY_TXT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-GENDER_KEY sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-GENDER_KEY_TXT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-MARITAL_STATUS sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-MARITAL_STATUS_TXT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-PERSIDNO sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-CORRESP_LANGUAGE sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-CORRESP_LANGUAGE_ISO sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-CORRESP_LANGUAGE_TXT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-DEATH_DATE sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-DEATH_REGDATE sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-ADM_QMNUM sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-PROCESS sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-PROCESST sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-ISTAT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-ISTAT_T sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-SC_OBJID sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-SC_SHT sy-vline 
WA_PIQ_CORR_ADM_HISTORY_STR-SC_T sy-vline      INTO ld_text SEPARATED BY SPACE.

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