ABAP Select data from SAP table P01C_IENT 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 P01C_IENT 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 P01C_IENT. 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 P01C_IENT 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_P01C_IENT TYPE STANDARD TABLE OF P01C_IENT,
      WA_P01C_IENT TYPE P01C_IENT,
      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: <P01C_IENT> TYPE P01C_IENT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM P01C_IENT
*  INTO TABLE @DATA(IT_P01C_IENT2).
*--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_P01C_IENT INDEX 1 INTO DATA(WA_P01C_IENT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<P01C_IENT>-PERNR = 1.
<P01C_IENT>-ATNEW_VAR = 1.
<P01C_IENT>-PRIOA = 1.
<P01C_IENT>-PRIOL = 1.
<P01C_IENT>-HANSP = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_P01C_IENT-AANSP, sy-vline,
  WA_P01C_IENT-STGRP, sy-vline,
  WA_P01C_IENT-MODBV, sy-vline,
  WA_P01C_IENT-ANGRP, sy-vline,
  WA_P01C_IENT-ANTYP, sy-vline,
  WA_P01C_IENT-ANSPR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_P01C_IENT 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_P01C_IENT 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_P01C_IENT INTO WA_P01C_IENT.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_P01C_IENT_STR, 
PERNR TYPE STRING,
ATNEW_VAR TYPE STRING,
PRIOA TYPE STRING,
PRIOL TYPE STRING,
HANSP TYPE STRING,
AANSP TYPE STRING,
STGRP TYPE STRING,
MODBV TYPE STRING,
ANGRP TYPE STRING,
ANTYP TYPE STRING,
ANSPR TYPE STRING,
BEGDA TYPE STRING,
ENDDA TYPE STRING,
BEGAN TYPE STRING,
BEGAG TYPE STRING,
LSTTR TYPE STRING,
ENTNR TYPE STRING,
BASNR TYPE STRING,
RESNR TYPE STRING,
GPENR TYPE STRING,
RPYNR TYPE STRING,
TABIX TYPE STRING,
BABEI TYPE STRING,
IDBER TYPE STRING,
IDBE1 TYPE STRING,
IDBE2 TYPE STRING,
BAEIN TYPE STRING,
IDBA1 TYPE STRING,
IDBA2 TYPE STRING,
BATYP TYPE STRING,
LURSP TYPE STRING,
LUTYP TYPE STRING,
LTRGR TYPE STRING,
LTTYP TYPE STRING,
RNART TYPE STRING,
RNTYP TYPE STRING,
BGRRB TYPE STRING,
LGART TYPE STRING,
LGAKZ TYPE STRING,
EINDT TYPE STRING,
MITST TYPE STRING,
ASTAB TYPE STRING,
NVAAB TYPE STRING,
ASTUA TYPE STRING,
ASTWZ TYPE STRING,
STADJ TYPE STRING,
RELDT TYPE STRING,
KDTAB TYPE STRING,
DATRD TYPE STRING,
KEYTA TYPE STRING,
TBEGA TYPE STRING,
TBGDZ TYPE STRING,
CHKFR TYPE STRING,
UAUEB TYPE STRING,
KDTUA TYPE STRING,
UNVNO TYPE STRING,
UAPVZ TYPE STRING,
UAVER TYPE STRING,
STAUA TYPE STRING,
DATUA TYPE STRING,
UNVAW TYPE STRING,
UNVGE TYPE STRING,
UNVBE TYPE STRING,
UNVAB TYPE STRING,
ENDUA TYPE STRING,
BEGUA TYPE STRING,
RNTUA TYPE STRING,
SETRD TYPE STRING,
KDTWZ TYPE STRING,
WZPVZ TYPE STRING,
WZTNO TYPE STRING,
KNZWZ TYPE STRING,
EWZAB TYPE STRING,
ENDWZ TYPE STRING,
BEGWZ TYPE STRING,
WZVER TYPE STRING,
MMKWZ TYPE STRING,
NMALT TYPE STRING,
NMAFR TYPE STRING,
NMAMA TYPE STRING,
VMAFR TYPE STRING,
VMAMA TYPE STRING,
FEALT TYPE STRING,
VJJAB TYPE STRING,
FEAFR TYPE STRING,
FEAMA TYPE STRING,
FEAUA TYPE STRING,
ALTGR TYPE STRING,
VALTG TYPE STRING,
NUMID TYPE STRING,
NOZWS TYPE STRING,
ZWCHS TYPE STRING,
ZWEMW TYPE STRING,
ZWEUA TYPE STRING,
ZWEVF TYPE STRING,
ZWALT TYPE STRING,
ZWAL2 TYPE STRING,
MOZAN TYPE STRING,
MOZRA TYPE STRING,
MNTEL TYPE STRING,
ANSMN TYPE STRING,
RUNDM TYPE STRING,
RUNDN TYPE STRING,
KZZUW TYPE STRING,
KZZUZ TYPE STRING,
DTZUW TYPE STRING,
ANZMZ TYPE STRING,
ANZML TYPE STRING,
ZWMLE TYPE STRING,
KZDAR TYPE STRING,
ZWBDT TYPE STRING,
ZWEDT TYPE STRING,
ZWEND TYPE STRING,
ZWEJJ TYPE STRING,
ZWEJ2 TYPE STRING,
ZLGAR TYPE STRING,
ZLTRG TYPE STRING,
ZLTZV TYPE STRING,
KZNPA TYPE STRING,
DPRTY TYPE STRING,
DPRDJ TYPE STRING,
RELAG TYPE STRING,
GATYP TYPE STRING,
RELAE TYPE STRING,
EATYP TYPE STRING,
REDAT TYPE STRING,
RELRE TYPE STRING,
MORER TYPE STRING,
STRER TYPE STRING,
RECAL TYPE STRING,
RERST TYPE STRING,
RCHKJ TYPE STRING,
RUECK TYPE STRING,
ANTBT TYPE STRING,
RELHR TYPE STRING,
HBLKZ TYPE STRING,
HBKRZ TYPE STRING,
HBDBT TYPE STRING,
ERBDT TYPE STRING,
KZZUL TYPE STRING,
RELZL TYPE STRING,
ZLTYP TYPE STRING,
DYNBS TYPE STRING,
DTYBS TYPE STRING,
RELBS TYPE STRING,
AVERD TYPE STRING,
ENDVA TYPE STRING,
MODEV TYPE STRING,
LIMIT TYPE STRING,
INDMA TYPE STRING,
INDMI TYPE STRING,
MOZBV TYPE STRING,
MOBBV TYPE STRING,
GRUAN TYPE STRING,
KNZBP TYPE STRING,
BETFI TYPE STRING,
BTFKZ TYPE STRING,
BETRG TYPE STRING,
BTGNR TYPE STRING,
BTLIM TYPE STRING,
ANZHL TYPE STRING,
AZLIM TYPE STRING,
DZTJJ TYPE STRING,
DZPRZ TYPE STRING,
DZALT TYPE STRING,
APDAT TYPE STRING,
BVANS TYPE STRING,
FBSBV TYPE STRING,
KZKAP TYPE STRING,
ALTRG TYPE STRING,
REVAR TYPE STRING,
RNTOP TYPE STRING,
REART TYPE STRING,
RESLT TYPE STRING,
ABLAA TYPE STRING,
UPDAT TYPE STRING,
ERGUA TYPE STRING,
ERGZA TYPE STRING,
RDACV TYPE STRING,
ERGVM TYPE STRING,
ERGRB TYPE STRING,
ABZRB TYPE STRING,
ERGBS TYPE STRING,
BI201 TYPE STRING,
BI202 TYPE STRING,
ANBEW TYPE STRING,
AWBEW TYPE STRING,
DTYPE TYPE STRING,
ANANT TYPE STRING,
AGANT TYPE STRING,
DAGBE TYPE STRING,
ZANAN TYPE STRING,
ZAGAN TYPE STRING,
KZABL TYPE STRING,
IDAUS TYPE STRING,
ZWREL TYPE STRING,
VMANR TYPE STRING,
EXIUA TYPE STRING,
RSTGR TYPE STRING,
BEITR TYPE STRING,
BEIKZ TYPE STRING,
ZANSP TYPE STRING,
UADGE TYPE STRING,
UADBE TYPE STRING,
REKLA TYPE STRING,
LGACM TYPE STRING,
LGASF TYPE STRING,
LGASP TYPE STRING,
LGASF_SVFR TYPE STRING,
LGASP_SVFR TYPE STRING,
VMBEG TYPE STRING,
ZGASF TYPE STRING,
ZGASP TYPE STRING,
RESVF TYPE STRING,
RBZUS TYPE STRING,
ANPPF TYPE STRING,
FKTUA TYPE STRING,END OF T_EKKO_STR.
DATA: WA_P01C_IENT_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_P01C_IENT_STR-PERNR sy-vline 
WA_P01C_IENT_STR-ATNEW_VAR sy-vline 
WA_P01C_IENT_STR-PRIOA sy-vline 
WA_P01C_IENT_STR-PRIOL sy-vline 
WA_P01C_IENT_STR-HANSP sy-vline 
WA_P01C_IENT_STR-AANSP sy-vline 
WA_P01C_IENT_STR-STGRP sy-vline 
WA_P01C_IENT_STR-MODBV sy-vline 
WA_P01C_IENT_STR-ANGRP sy-vline 
WA_P01C_IENT_STR-ANTYP sy-vline 
WA_P01C_IENT_STR-ANSPR sy-vline 
WA_P01C_IENT_STR-BEGDA sy-vline 
WA_P01C_IENT_STR-ENDDA sy-vline 
WA_P01C_IENT_STR-BEGAN sy-vline 
WA_P01C_IENT_STR-BEGAG sy-vline 
WA_P01C_IENT_STR-LSTTR sy-vline 
WA_P01C_IENT_STR-ENTNR sy-vline 
WA_P01C_IENT_STR-BASNR sy-vline 
WA_P01C_IENT_STR-RESNR sy-vline 
WA_P01C_IENT_STR-GPENR sy-vline 
WA_P01C_IENT_STR-RPYNR sy-vline 
WA_P01C_IENT_STR-TABIX sy-vline 
WA_P01C_IENT_STR-BABEI sy-vline 
WA_P01C_IENT_STR-IDBER sy-vline 
WA_P01C_IENT_STR-IDBE1 sy-vline 
WA_P01C_IENT_STR-IDBE2 sy-vline 
WA_P01C_IENT_STR-BAEIN sy-vline 
WA_P01C_IENT_STR-IDBA1 sy-vline 
WA_P01C_IENT_STR-IDBA2 sy-vline 
WA_P01C_IENT_STR-BATYP sy-vline 
WA_P01C_IENT_STR-LURSP sy-vline 
WA_P01C_IENT_STR-LUTYP sy-vline 
WA_P01C_IENT_STR-LTRGR sy-vline 
WA_P01C_IENT_STR-LTTYP sy-vline 
WA_P01C_IENT_STR-RNART sy-vline 
WA_P01C_IENT_STR-RNTYP sy-vline 
WA_P01C_IENT_STR-BGRRB sy-vline 
WA_P01C_IENT_STR-LGART sy-vline 
WA_P01C_IENT_STR-LGAKZ sy-vline 
WA_P01C_IENT_STR-EINDT sy-vline 
WA_P01C_IENT_STR-MITST sy-vline 
WA_P01C_IENT_STR-ASTAB sy-vline 
WA_P01C_IENT_STR-NVAAB sy-vline 
WA_P01C_IENT_STR-ASTUA sy-vline 
WA_P01C_IENT_STR-ASTWZ sy-vline 
WA_P01C_IENT_STR-STADJ sy-vline 
WA_P01C_IENT_STR-RELDT sy-vline 
WA_P01C_IENT_STR-KDTAB sy-vline 
WA_P01C_IENT_STR-DATRD sy-vline 
WA_P01C_IENT_STR-KEYTA sy-vline 
WA_P01C_IENT_STR-TBEGA sy-vline 
WA_P01C_IENT_STR-TBGDZ sy-vline 
WA_P01C_IENT_STR-CHKFR sy-vline 
WA_P01C_IENT_STR-UAUEB sy-vline 
WA_P01C_IENT_STR-KDTUA sy-vline 
WA_P01C_IENT_STR-UNVNO sy-vline 
WA_P01C_IENT_STR-UAPVZ sy-vline 
WA_P01C_IENT_STR-UAVER sy-vline 
WA_P01C_IENT_STR-STAUA sy-vline 
WA_P01C_IENT_STR-DATUA sy-vline 
WA_P01C_IENT_STR-UNVAW sy-vline 
WA_P01C_IENT_STR-UNVGE sy-vline 
WA_P01C_IENT_STR-UNVBE sy-vline 
WA_P01C_IENT_STR-UNVAB sy-vline 
WA_P01C_IENT_STR-ENDUA sy-vline 
WA_P01C_IENT_STR-BEGUA sy-vline 
WA_P01C_IENT_STR-RNTUA sy-vline 
WA_P01C_IENT_STR-SETRD sy-vline 
WA_P01C_IENT_STR-KDTWZ sy-vline 
WA_P01C_IENT_STR-WZPVZ sy-vline 
WA_P01C_IENT_STR-WZTNO sy-vline 
WA_P01C_IENT_STR-KNZWZ sy-vline 
WA_P01C_IENT_STR-EWZAB sy-vline 
WA_P01C_IENT_STR-ENDWZ sy-vline 
WA_P01C_IENT_STR-BEGWZ sy-vline 
WA_P01C_IENT_STR-WZVER sy-vline 
WA_P01C_IENT_STR-MMKWZ sy-vline 
WA_P01C_IENT_STR-NMALT sy-vline 
WA_P01C_IENT_STR-NMAFR sy-vline 
WA_P01C_IENT_STR-NMAMA sy-vline 
WA_P01C_IENT_STR-VMAFR sy-vline 
WA_P01C_IENT_STR-VMAMA sy-vline 
WA_P01C_IENT_STR-FEALT sy-vline 
WA_P01C_IENT_STR-VJJAB sy-vline 
WA_P01C_IENT_STR-FEAFR sy-vline 
WA_P01C_IENT_STR-FEAMA sy-vline 
WA_P01C_IENT_STR-FEAUA sy-vline 
WA_P01C_IENT_STR-ALTGR sy-vline 
WA_P01C_IENT_STR-VALTG sy-vline 
WA_P01C_IENT_STR-NUMID sy-vline 
WA_P01C_IENT_STR-NOZWS sy-vline 
WA_P01C_IENT_STR-ZWCHS sy-vline 
WA_P01C_IENT_STR-ZWEMW sy-vline 
WA_P01C_IENT_STR-ZWEUA sy-vline 
WA_P01C_IENT_STR-ZWEVF sy-vline 
WA_P01C_IENT_STR-ZWALT sy-vline 
WA_P01C_IENT_STR-ZWAL2 sy-vline 
WA_P01C_IENT_STR-MOZAN sy-vline 
WA_P01C_IENT_STR-MOZRA sy-vline 
WA_P01C_IENT_STR-MNTEL sy-vline 
WA_P01C_IENT_STR-ANSMN sy-vline 
WA_P01C_IENT_STR-RUNDM sy-vline 
WA_P01C_IENT_STR-RUNDN sy-vline 
WA_P01C_IENT_STR-KZZUW sy-vline 
WA_P01C_IENT_STR-KZZUZ sy-vline 
WA_P01C_IENT_STR-DTZUW sy-vline 
WA_P01C_IENT_STR-ANZMZ sy-vline 
WA_P01C_IENT_STR-ANZML sy-vline 
WA_P01C_IENT_STR-ZWMLE sy-vline 
WA_P01C_IENT_STR-KZDAR sy-vline 
WA_P01C_IENT_STR-ZWBDT sy-vline 
WA_P01C_IENT_STR-ZWEDT sy-vline 
WA_P01C_IENT_STR-ZWEND sy-vline 
WA_P01C_IENT_STR-ZWEJJ sy-vline 
WA_P01C_IENT_STR-ZWEJ2 sy-vline 
WA_P01C_IENT_STR-ZLGAR sy-vline 
WA_P01C_IENT_STR-ZLTRG sy-vline 
WA_P01C_IENT_STR-ZLTZV sy-vline 
WA_P01C_IENT_STR-KZNPA sy-vline 
WA_P01C_IENT_STR-DPRTY sy-vline 
WA_P01C_IENT_STR-DPRDJ sy-vline 
WA_P01C_IENT_STR-RELAG sy-vline 
WA_P01C_IENT_STR-GATYP sy-vline 
WA_P01C_IENT_STR-RELAE sy-vline 
WA_P01C_IENT_STR-EATYP sy-vline 
WA_P01C_IENT_STR-REDAT sy-vline 
WA_P01C_IENT_STR-RELRE sy-vline 
WA_P01C_IENT_STR-MORER sy-vline 
WA_P01C_IENT_STR-STRER sy-vline 
WA_P01C_IENT_STR-RECAL sy-vline 
WA_P01C_IENT_STR-RERST sy-vline 
WA_P01C_IENT_STR-RCHKJ sy-vline 
WA_P01C_IENT_STR-RUECK sy-vline 
WA_P01C_IENT_STR-ANTBT sy-vline 
WA_P01C_IENT_STR-RELHR sy-vline 
WA_P01C_IENT_STR-HBLKZ sy-vline 
WA_P01C_IENT_STR-HBKRZ sy-vline 
WA_P01C_IENT_STR-HBDBT sy-vline 
WA_P01C_IENT_STR-ERBDT sy-vline 
WA_P01C_IENT_STR-KZZUL sy-vline 
WA_P01C_IENT_STR-RELZL sy-vline 
WA_P01C_IENT_STR-ZLTYP sy-vline 
WA_P01C_IENT_STR-DYNBS sy-vline 
WA_P01C_IENT_STR-DTYBS sy-vline 
WA_P01C_IENT_STR-RELBS sy-vline 
WA_P01C_IENT_STR-AVERD sy-vline 
WA_P01C_IENT_STR-ENDVA sy-vline 
WA_P01C_IENT_STR-MODEV sy-vline 
WA_P01C_IENT_STR-LIMIT sy-vline 
WA_P01C_IENT_STR-INDMA sy-vline 
WA_P01C_IENT_STR-INDMI sy-vline 
WA_P01C_IENT_STR-MOZBV sy-vline 
WA_P01C_IENT_STR-MOBBV sy-vline 
WA_P01C_IENT_STR-GRUAN sy-vline 
WA_P01C_IENT_STR-KNZBP sy-vline 
WA_P01C_IENT_STR-BETFI sy-vline 
WA_P01C_IENT_STR-BTFKZ sy-vline 
WA_P01C_IENT_STR-BETRG sy-vline 
WA_P01C_IENT_STR-BTGNR sy-vline 
WA_P01C_IENT_STR-BTLIM sy-vline 
WA_P01C_IENT_STR-ANZHL sy-vline 
WA_P01C_IENT_STR-AZLIM sy-vline 
WA_P01C_IENT_STR-DZTJJ sy-vline 
WA_P01C_IENT_STR-DZPRZ sy-vline 
WA_P01C_IENT_STR-DZALT sy-vline 
WA_P01C_IENT_STR-APDAT sy-vline 
WA_P01C_IENT_STR-BVANS sy-vline 
WA_P01C_IENT_STR-FBSBV sy-vline 
WA_P01C_IENT_STR-KZKAP sy-vline 
WA_P01C_IENT_STR-ALTRG sy-vline 
WA_P01C_IENT_STR-REVAR sy-vline 
WA_P01C_IENT_STR-RNTOP sy-vline 
WA_P01C_IENT_STR-REART sy-vline 
WA_P01C_IENT_STR-RESLT sy-vline 
WA_P01C_IENT_STR-ABLAA sy-vline 
WA_P01C_IENT_STR-UPDAT sy-vline 
WA_P01C_IENT_STR-ERGUA sy-vline 
WA_P01C_IENT_STR-ERGZA sy-vline 
WA_P01C_IENT_STR-RDACV sy-vline 
WA_P01C_IENT_STR-ERGVM sy-vline 
WA_P01C_IENT_STR-ERGRB sy-vline 
WA_P01C_IENT_STR-ABZRB sy-vline 
WA_P01C_IENT_STR-ERGBS sy-vline 
WA_P01C_IENT_STR-BI201 sy-vline 
WA_P01C_IENT_STR-BI202 sy-vline 
WA_P01C_IENT_STR-ANBEW sy-vline 
WA_P01C_IENT_STR-AWBEW sy-vline 
WA_P01C_IENT_STR-DTYPE sy-vline 
WA_P01C_IENT_STR-ANANT sy-vline 
WA_P01C_IENT_STR-AGANT sy-vline 
WA_P01C_IENT_STR-DAGBE sy-vline 
WA_P01C_IENT_STR-ZANAN sy-vline 
WA_P01C_IENT_STR-ZAGAN sy-vline 
WA_P01C_IENT_STR-KZABL sy-vline 
WA_P01C_IENT_STR-IDAUS sy-vline 
WA_P01C_IENT_STR-ZWREL sy-vline 
WA_P01C_IENT_STR-VMANR sy-vline 
WA_P01C_IENT_STR-EXIUA sy-vline 
WA_P01C_IENT_STR-RSTGR sy-vline 
WA_P01C_IENT_STR-BEITR sy-vline 
WA_P01C_IENT_STR-BEIKZ sy-vline 
WA_P01C_IENT_STR-ZANSP sy-vline 
WA_P01C_IENT_STR-UADGE sy-vline 
WA_P01C_IENT_STR-UADBE sy-vline 
WA_P01C_IENT_STR-REKLA sy-vline 
WA_P01C_IENT_STR-LGACM sy-vline 
WA_P01C_IENT_STR-LGASF sy-vline 
WA_P01C_IENT_STR-LGASP sy-vline 
WA_P01C_IENT_STR-LGASF_SVFR sy-vline 
WA_P01C_IENT_STR-LGASP_SVFR sy-vline 
WA_P01C_IENT_STR-VMBEG sy-vline 
WA_P01C_IENT_STR-ZGASF sy-vline 
WA_P01C_IENT_STR-ZGASP sy-vline 
WA_P01C_IENT_STR-RESVF sy-vline 
WA_P01C_IENT_STR-RBZUS sy-vline 
WA_P01C_IENT_STR-ANPPF sy-vline 
WA_P01C_IENT_STR-FKTUA sy-vline      INTO ld_text SEPARATED BY SPACE.

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