ABAP Select data from SAP table RN1WPV007_FIELDCAT 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 RN1WPV007_FIELDCAT 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 RN1WPV007_FIELDCAT. 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 RN1WPV007_FIELDCAT 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_RN1WPV007_FIELDCAT TYPE STANDARD TABLE OF RN1WPV007_FIELDCAT,
      WA_RN1WPV007_FIELDCAT TYPE RN1WPV007_FIELDCAT,
      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: <RN1WPV007_FIELDCAT> TYPE RN1WPV007_FIELDCAT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RN1WPV007_FIELDCAT
*  INTO TABLE @DATA(IT_RN1WPV007_FIELDCAT2).
*--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_RN1WPV007_FIELDCAT INDEX 1 INTO DATA(WA_RN1WPV007_FIELDCAT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RN1WPV007_FIELDCAT>-SATZART = 1.
<RN1WPV007_FIELDCAT>-ICON_SATZART = 1.
<RN1WPV007_FIELDCAT>-PATNR = 1.
<RN1WPV007_FIELDCAT>-PZIFPAT = 1.
<RN1WPV007_FIELDCAT>-PAPID = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RN1WPV007_FIELDCAT-VORLPAT, sy-vline,
  WA_RN1WPV007_FIELDCAT-PATNAME, sy-vline,
  WA_RN1WPV007_FIELDCAT-PATIENT, sy-vline,
  WA_RN1WPV007_FIELDCAT-PATSTANDNNAME, sy-vline,
  WA_RN1WPV007_FIELDCAT-PATSTANDVNAME, sy-vline,
  WA_RN1WPV007_FIELDCAT-PATNNAME, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RN1WPV007_FIELDCAT 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_RN1WPV007_FIELDCAT 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_RN1WPV007_FIELDCAT INTO WA_RN1WPV007_FIELDCAT.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field ZID
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WPV007_FIELDCAT-ZID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WPV007_FIELDCAT-ZID.
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_RN1WPV007_FIELDCAT_STR, 
SATZART TYPE STRING,
ICON_SATZART TYPE STRING,
PATNR TYPE STRING,
PZIFPAT TYPE STRING,
PAPID TYPE STRING,
VORLPAT TYPE STRING,
PATNAME TYPE STRING,
PATIENT TYPE STRING,
PATSTANDNNAME TYPE STRING,
PATSTANDVNAME TYPE STRING,
PATNNAME TYPE STRING,
PATVNAME TYPE STRING,
GEBNAME TYPE STRING,
GEBDATUM TYPE STRING,
PATALTER TYPE STRING,
GESCHL TYPE STRING,
PRVPAT TYPE STRING,
PRVPATICON TYPE STRING,
RISIKO TYPE STRING,
KRANKENAKTE TYPE STRING,
EXTPAT TYPE STRING,
SVNUMMER TYPE STRING,
STATUS TYPE STRING,
STATUS_TXT TYPE STRING,
SORT TYPE STRING,
DATUM TYPE STRING,
ZEIT TYPE STRING,
ZEIT_INTERN TYPE STRING,
STUNDE TYPE STRING,
MINUTEN TYPE STRING,
WBGDT TYPE STRING,
WBGZT TYPE STRING,
ERDAT TYPE STRING,
ERUSR TYPE STRING,
PFLEGZUW TYPE STRING,
FACHLZUW TYPE STRING,
PFLEGZUW_KURZ TYPE STRING,
PFLEGZUW_KB TYPE STRING,
FACHLZUW_KURZ TYPE STRING,
FACHLZUW_KB TYPE STRING,
ANFVEROE TYPE STRING,
ANFOE TYPE STRING,
ERBROE TYPE STRING,
ANFVEROE_KURZ TYPE STRING,
ANFVEROE_KB TYPE STRING,
ANFOE_KURZ TYPE STRING,
ANFOE_KB TYPE STRING,
ERBROE_KURZ TYPE STRING,
ERBROE_KB TYPE STRING,
BEMERKUNG TYPE STRING,
MEDTEXT TYPE STRING,
ANMERKUNG TYPE STRING,
EINRI TYPE STRING,
FALNR TYPE STRING,
PZIFFAL TYPE STRING,
FALLART TYPE STRING,
FATYP TYPE STRING,
FATYPTXT TYPE STRING,
LFDBW TYPE STRING,
BESSTATINTERN TYPE STRING,
BESSTATEXTERN TYPE STRING,
BESSTATTEXT TYPE STRING,
BWART TYPE STRING,
BWARTTEXT TYPE STRING,
BESUCHSART TYPE STRING,
BESUCHSARTTEXT TYPE STRING,
AKTAUFENTHPAT TYPE STRING,
AKTSTATPAT TYPE STRING,
AKTAUFENTHPAT_KURZ TYPE STRING,
AKTAUFENTHPAT_KB TYPE STRING,
AKTSTATPAT_KURZ TYPE STRING,
AKTSTATPAT_KB TYPE STRING,
UNFALLNR TYPE STRING,
UNFALLTEXT TYPE STRING,
UNFBEMERKUNG TYPE STRING,
BEHRAUM TYPE STRING,
BEHRAUM_KURZ TYPE STRING,
BEHRAUM_KB TYPE STRING,
BEHPERSON TYPE STRING,
BEHPERSNAME TYPE STRING,
FACHR TYPE STRING,
BEWVGNREF TYPE STRING,
BEWSTATUSBALKEN TYPE STRING,
STORNOGRUND TYPE STRING,
STORNOGRUNDTEXT TYPE STRING,
BEWANZAHL TYPE STRING,
PATKLASSE TYPE STRING,
BEHSCHEINFEHLT TYPE STRING,
KURZAUFNAHME TYPE STRING,
NOTAUFNAHME TYPE STRING,
BEKAT TYPE STRING,
TMNID TYPE STRING,
VKGID TYPE STRING,
ANFID TYPE STRING,
LNRLS TYPE STRING,
LEISTKZ TYPE STRING,
LEITX TYPE STRING,
DOKVORHANDEN TYPE STRING,
MEDDOK_ICON TYPE STRING,
LABDOK_ICON TYPE STRING,
DOKSTATUS TYPE STRING,
DOKPCODE TYPE STRING,
IFG_INTERN TYPE STRING,
IFG TYPE STRING,
IFGTEXT TYPE STRING,
LSTSTATUS_INTERN TYPE STRING,
LSTSTATUS TYPE STRING,
LSTVBRMATVORH TYPE STRING,
LSTVBRMAT TYPE STRING,
LSTTEAMVORH TYPE STRING,
LSTGRP TYPE STRING,
LSTERBRINGBAR TYPE STRING,
LSTLOKALISATION TYPE STRING,
LSTERGTEXT TYPE STRING,
EINWILLVORH TYPE STRING,
EINWILLVORH_INT TYPE STRING,
PATNUECHTERN TYPE STRING,
HAUSTARIF TYPE STRING,
LEIST TYPE STRING,
LEISTAUF TYPE STRING,
LSTMENGE TYPE STRING,
ANZAUFRF TYPE STRING,
WZT TYPE STRING,
WZS TYPE STRING,
RELWZ TYPE STRING,
GESWZT TYPE STRING,
GESWZS TYPE STRING,
DISPTYP TYPE STRING,
SRVP_LIST TYPE STRING,
GPART TYPE STRING,
GPART_NAME TYPE STRING,
PATKZ TYPE STRING,
ACCTY TYPE STRING,
ACCTYT TYPE STRING,
PRIOCL TYPE STRING,
PRIOCLT TYPE STRING,
TMNDR TYPE STRING,
TMNVERTR TYPE STRING,
TMNVERTRICON TYPE STRING,
TRSPART TYPE STRING,
TRSPARTTX TYPE STRING,
PRIANFINTERN TYPE STRING,
PRIANF TYPE STRING,
PRIANFTX TYPE STRING,
ANFVORH TYPE STRING,
ANFDOKVORH TYPE STRING,
DIAVORH TYPE STRING,
DIAVERSCHL TYPE STRING,
LFDDIA TYPE STRING,
DIPNO TYPE STRING,
ANFANAMNESE TYPE STRING,
ANFFRAGESTELLUNG TYPE STRING,
ANFDIAGNOSE TYPE STRING,
ANFBESONDERHEITEN TYPE STRING,
DIALOKALISATION TYPE STRING,
ANFZUSATZINFO TYPE STRING,
FA_TRSPDATUM TYPE STRING,
FA_TRSPZEIT TYPE STRING,
FA_AUSGANGSOE TYPE STRING,
FA_AUSGANGSRAUM TYPE STRING,
FA_ZIELOE TYPE STRING,
FA_ZIELRAUM TYPE STRING,
FA_AUSGANGSOE_KURZ TYPE STRING,
FA_AUSGANGSOE_KB TYPE STRING,
FA_ZIELOE_KURZ TYPE STRING,
FA_ZIELOE_KB TYPE STRING,
FA_TRSPART TYPE STRING,
FA_TRSPARTTX TYPE STRING,
FA_STATUS TYPE STRING,
FA_STATUSTEXT TYPE STRING,
FA_FAHRER TYPE STRING,
FA_TRANS TYPE STRING,
FA_TRANSTXT TYPE STRING,
FA_TRAVA_ICON TYPE STRING,
ZIMMR TYPE STRING,
BETT TYPE STRING,
KONTEXT1 TYPE STRING,
KONTEXT2 TYPE STRING,
KONTEXT3 TYPE STRING,
CXID1 TYPE STRING,
CXID2 TYPE STRING,
CXID3 TYPE STRING,
CXSTA1 TYPE STRING,
CXSTA2 TYPE STRING,
CXSTA3 TYPE STRING,
CXSTA_ICON1 TYPE STRING,
CXSTA_ICON2 TYPE STRING,
CXSTA_ICON3 TYPE STRING,
KZ_ZYKL_LEIST TYPE STRING,
LETZT_OE TYPE STRING,
LETZT_OE_KURZ TYPE STRING,
LETZT_OE_KB TYPE STRING,
BESUCHSTYP TYPE STRING,
MEDBESDISP_TEXT TYPE STRING,
DISPOTYPTEXT TYPE STRING,
TODKZ_ICON TYPE STRING,
TODDT TYPE STRING,
TODZT TYPE STRING,
TODDB TYPE STRING,
TODZB TYPE STRING,
TODUR_TXT TYPE STRING,
ETRGP TYPE STRING,
ETRGP_TXT TYPE STRING,
TRTGP TYPE STRING,
TRTGP_TXT TYPE STRING,
PRGNR TYPE STRING,
POSNR TYPE STRING,
POSSTATUS TYPE STRING,
STDAT TYPE STRING,
STUSR TYPE STRING,
KV_CHECK_ICON TYPE STRING,
REDOTYPE TYPE STRING,
REDOSORT_ICON TYPE STRING,
REDOSTATUS TYPE STRING,
REDOSTART TYPE STRING,
REDOEND TYPE STRING,
REDOPLAN TYPE STRING,
REDODOKNR TYPE STRING,
REDODOKVR TYPE STRING,
REDODOKTL TYPE STRING,
REDOLFDDOK TYPE STRING,
ADPAT_STATE_ICON TYPE STRING,
VS_PLAN_ICON TYPE STRING,
STUDY_STATE_ICON TYPE STRING,
CPR_EXIST_ICON TYPE STRING,
CPOSQUEST TYPE STRING,
CPOSQUESTIONID TYPE STRING,
NO_TC_ICON TYPE STRING,
PLSNR TYPE STRING,
APCNID TYPE STRING,
PFLP_ICON TYPE STRING,
ZID TYPE STRING,
CYCLE_MODE_ICON TYPE STRING,
PDS_EXIST_ICON TYPE STRING,
PATHWAY_STATE TYPE STRING,
PATHWAY_STATE_TXT TYPE STRING,
PATHWAY_STATE_ICON TYPE STRING,
PROFESSIONS TYPE STRING,
PATHWAY_PROPOSAL_ICON TYPE STRING,
DWS_OPEN_WORK_ICON TYPE STRING,
DWS_OPEN_TASK_ICON TYPE STRING,
DWS_PROFESSIONS TYPE STRING,
DBC TYPE STRING,
DBC_ICON TYPE STRING,
AFGESL TYPE STRING,
BSNNR TYPE STRING,
BSN_STAT TYPE STRING,
WID_STAT TYPE STRING,
REFER_ICON TYPE STRING,
CARECODE TYPE STRING,
CARECODE_DESC TYPE STRING,
CARECAT TYPE STRING,
CARECAT_DESC TYPE STRING,
CD TYPE STRING,
CT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RN1WPV007_FIELDCAT_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_RN1WPV007_FIELDCAT_STR-SATZART sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ICON_SATZART sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATNR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PZIFPAT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PAPID sy-vline 
WA_RN1WPV007_FIELDCAT_STR-VORLPAT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATNAME sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATIENT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATSTANDNNAME sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATSTANDVNAME sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATNNAME sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATVNAME sy-vline 
WA_RN1WPV007_FIELDCAT_STR-GEBNAME sy-vline 
WA_RN1WPV007_FIELDCAT_STR-GEBDATUM sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATALTER sy-vline 
WA_RN1WPV007_FIELDCAT_STR-GESCHL sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PRVPAT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PRVPATICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-RISIKO sy-vline 
WA_RN1WPV007_FIELDCAT_STR-KRANKENAKTE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-EXTPAT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-SVNUMMER sy-vline 
WA_RN1WPV007_FIELDCAT_STR-STATUS sy-vline 
WA_RN1WPV007_FIELDCAT_STR-STATUS_TXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-SORT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DATUM sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ZEIT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ZEIT_INTERN sy-vline 
WA_RN1WPV007_FIELDCAT_STR-STUNDE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-MINUTEN sy-vline 
WA_RN1WPV007_FIELDCAT_STR-WBGDT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-WBGZT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ERDAT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ERUSR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PFLEGZUW sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FACHLZUW sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PFLEGZUW_KURZ sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PFLEGZUW_KB sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FACHLZUW_KURZ sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FACHLZUW_KB sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANFVEROE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANFOE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ERBROE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANFVEROE_KURZ sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANFVEROE_KB sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANFOE_KURZ sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANFOE_KB sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ERBROE_KURZ sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ERBROE_KB sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BEMERKUNG sy-vline 
WA_RN1WPV007_FIELDCAT_STR-MEDTEXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANMERKUNG sy-vline 
WA_RN1WPV007_FIELDCAT_STR-EINRI sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FALNR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PZIFFAL sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FALLART sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FATYP sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FATYPTXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LFDBW sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BESSTATINTERN sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BESSTATEXTERN sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BESSTATTEXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BWART sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BWARTTEXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BESUCHSART sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BESUCHSARTTEXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-AKTAUFENTHPAT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-AKTSTATPAT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-AKTAUFENTHPAT_KURZ sy-vline 
WA_RN1WPV007_FIELDCAT_STR-AKTAUFENTHPAT_KB sy-vline 
WA_RN1WPV007_FIELDCAT_STR-AKTSTATPAT_KURZ sy-vline 
WA_RN1WPV007_FIELDCAT_STR-AKTSTATPAT_KB sy-vline 
WA_RN1WPV007_FIELDCAT_STR-UNFALLNR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-UNFALLTEXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-UNFBEMERKUNG sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BEHRAUM sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BEHRAUM_KURZ sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BEHRAUM_KB sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BEHPERSON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BEHPERSNAME sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FACHR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BEWVGNREF sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BEWSTATUSBALKEN sy-vline 
WA_RN1WPV007_FIELDCAT_STR-STORNOGRUND sy-vline 
WA_RN1WPV007_FIELDCAT_STR-STORNOGRUNDTEXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BEWANZAHL sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATKLASSE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BEHSCHEINFEHLT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-KURZAUFNAHME sy-vline 
WA_RN1WPV007_FIELDCAT_STR-NOTAUFNAHME sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BEKAT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-TMNID sy-vline 
WA_RN1WPV007_FIELDCAT_STR-VKGID sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANFID sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LNRLS sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LEISTKZ sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LEITX sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DOKVORHANDEN sy-vline 
WA_RN1WPV007_FIELDCAT_STR-MEDDOK_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LABDOK_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DOKSTATUS sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DOKPCODE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-IFG_INTERN sy-vline 
WA_RN1WPV007_FIELDCAT_STR-IFG sy-vline 
WA_RN1WPV007_FIELDCAT_STR-IFGTEXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LSTSTATUS_INTERN sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LSTSTATUS sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LSTVBRMATVORH sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LSTVBRMAT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LSTTEAMVORH sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LSTGRP sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LSTERBRINGBAR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LSTLOKALISATION sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LSTERGTEXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-EINWILLVORH sy-vline 
WA_RN1WPV007_FIELDCAT_STR-EINWILLVORH_INT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATNUECHTERN sy-vline 
WA_RN1WPV007_FIELDCAT_STR-HAUSTARIF sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LEIST sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LEISTAUF sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LSTMENGE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANZAUFRF sy-vline 
WA_RN1WPV007_FIELDCAT_STR-WZT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-WZS sy-vline 
WA_RN1WPV007_FIELDCAT_STR-RELWZ sy-vline 
WA_RN1WPV007_FIELDCAT_STR-GESWZT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-GESWZS sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DISPTYP sy-vline 
WA_RN1WPV007_FIELDCAT_STR-SRVP_LIST sy-vline 
WA_RN1WPV007_FIELDCAT_STR-GPART sy-vline 
WA_RN1WPV007_FIELDCAT_STR-GPART_NAME sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATKZ sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ACCTY sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ACCTYT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PRIOCL sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PRIOCLT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-TMNDR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-TMNVERTR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-TMNVERTRICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-TRSPART sy-vline 
WA_RN1WPV007_FIELDCAT_STR-TRSPARTTX sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PRIANFINTERN sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PRIANF sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PRIANFTX sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANFVORH sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANFDOKVORH sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DIAVORH sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DIAVERSCHL sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LFDDIA sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DIPNO sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANFANAMNESE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANFFRAGESTELLUNG sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANFDIAGNOSE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANFBESONDERHEITEN sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DIALOKALISATION sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ANFZUSATZINFO sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_TRSPDATUM sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_TRSPZEIT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_AUSGANGSOE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_AUSGANGSRAUM sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_ZIELOE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_ZIELRAUM sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_AUSGANGSOE_KURZ sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_AUSGANGSOE_KB sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_ZIELOE_KURZ sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_ZIELOE_KB sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_TRSPART sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_TRSPARTTX sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_STATUS sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_STATUSTEXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_FAHRER sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_TRANS sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_TRANSTXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-FA_TRAVA_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ZIMMR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BETT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-KONTEXT1 sy-vline 
WA_RN1WPV007_FIELDCAT_STR-KONTEXT2 sy-vline 
WA_RN1WPV007_FIELDCAT_STR-KONTEXT3 sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CXID1 sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CXID2 sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CXID3 sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CXSTA1 sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CXSTA2 sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CXSTA3 sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CXSTA_ICON1 sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CXSTA_ICON2 sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CXSTA_ICON3 sy-vline 
WA_RN1WPV007_FIELDCAT_STR-KZ_ZYKL_LEIST sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LETZT_OE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LETZT_OE_KURZ sy-vline 
WA_RN1WPV007_FIELDCAT_STR-LETZT_OE_KB sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BESUCHSTYP sy-vline 
WA_RN1WPV007_FIELDCAT_STR-MEDBESDISP_TEXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DISPOTYPTEXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-TODKZ_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-TODDT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-TODZT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-TODDB sy-vline 
WA_RN1WPV007_FIELDCAT_STR-TODZB sy-vline 
WA_RN1WPV007_FIELDCAT_STR-TODUR_TXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ETRGP sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ETRGP_TXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-TRTGP sy-vline 
WA_RN1WPV007_FIELDCAT_STR-TRTGP_TXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PRGNR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-POSNR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-POSSTATUS sy-vline 
WA_RN1WPV007_FIELDCAT_STR-STDAT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-STUSR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-KV_CHECK_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-REDOTYPE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-REDOSORT_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-REDOSTATUS sy-vline 
WA_RN1WPV007_FIELDCAT_STR-REDOSTART sy-vline 
WA_RN1WPV007_FIELDCAT_STR-REDOEND sy-vline 
WA_RN1WPV007_FIELDCAT_STR-REDOPLAN sy-vline 
WA_RN1WPV007_FIELDCAT_STR-REDODOKNR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-REDODOKVR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-REDODOKTL sy-vline 
WA_RN1WPV007_FIELDCAT_STR-REDOLFDDOK sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ADPAT_STATE_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-VS_PLAN_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-STUDY_STATE_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CPR_EXIST_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CPOSQUEST sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CPOSQUESTIONID sy-vline 
WA_RN1WPV007_FIELDCAT_STR-NO_TC_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PLSNR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-APCNID sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PFLP_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-ZID sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CYCLE_MODE_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PDS_EXIST_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATHWAY_STATE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATHWAY_STATE_TXT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATHWAY_STATE_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PROFESSIONS sy-vline 
WA_RN1WPV007_FIELDCAT_STR-PATHWAY_PROPOSAL_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DWS_OPEN_WORK_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DWS_OPEN_TASK_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DWS_PROFESSIONS sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DBC sy-vline 
WA_RN1WPV007_FIELDCAT_STR-DBC_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-AFGESL sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BSNNR sy-vline 
WA_RN1WPV007_FIELDCAT_STR-BSN_STAT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-WID_STAT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-REFER_ICON sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CARECODE sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CARECODE_DESC sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CARECAT sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CARECAT_DESC sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CD sy-vline 
WA_RN1WPV007_FIELDCAT_STR-CT sy-vline      INTO ld_text SEPARATED BY SPACE.

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