ABAP Select data from SAP table RN1DISPLAY_FIELDS 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 RN1DISPLAY_FIELDS 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 RN1DISPLAY_FIELDS. 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 RN1DISPLAY_FIELDS 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_RN1DISPLAY_FIELDS TYPE STANDARD TABLE OF RN1DISPLAY_FIELDS,
      WA_RN1DISPLAY_FIELDS TYPE RN1DISPLAY_FIELDS,
      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: <RN1DISPLAY_FIELDS> TYPE RN1DISPLAY_FIELDS.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RN1DISPLAY_FIELDS
*  INTO TABLE @DATA(IT_RN1DISPLAY_FIELDS2).
*--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_RN1DISPLAY_FIELDS INDEX 1 INTO DATA(WA_RN1DISPLAY_FIELDS2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RN1DISPLAY_FIELDS>-IMPOBJ = 1.
<RN1DISPLAY_FIELDS>-DSPOBJ = 1.
<RN1DISPLAY_FIELDS>-OBJECT = 1.
<RN1DISPLAY_FIELDS>-KEYNO = 1.
<RN1DISPLAY_FIELDS>-SEQNO = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RN1DISPLAY_FIELDS-EINRI, sy-vline,
  WA_RN1DISPLAY_FIELDS-PATNR, sy-vline,
  WA_RN1DISPLAY_FIELDS-PNAMEC, sy-vline,
  WA_RN1DISPLAY_FIELDS-PNAMEC1, sy-vline,
  WA_RN1DISPLAY_FIELDS-GSCHLE, sy-vline,
  WA_RN1DISPLAY_FIELDS-AGEPAT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RN1DISPLAY_FIELDS 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_RN1DISPLAY_FIELDS 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_RN1DISPLAY_FIELDS INTO WA_RN1DISPLAY_FIELDS.


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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field AFNOE
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1DISPLAY_FIELDS-AFNOE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1DISPLAY_FIELDS-AFNOE.
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_RN1DISPLAY_FIELDS_STR, 
IMPOBJ TYPE STRING,
DSPOBJ TYPE STRING,
OBJECT TYPE STRING,
KEYNO TYPE STRING,
SEQNO TYPE STRING,
EINRI TYPE STRING,
PATNR TYPE STRING,
PNAMEC TYPE STRING,
PNAMEC1 TYPE STRING,
GSCHLE TYPE STRING,
AGEPAT TYPE STRING,
NNAMS TYPE STRING,
VNAMS TYPE STRING,
GBNAM TYPE STRING,
GBDAT TYPE STRING,
PRIVP TYPE STRING,
PRIVP_ICON TYPE STRING,
RISIKO TYPE STRING,
RISIKO_ICON TYPE STRING,
TODKZ_ICON TYPE STRING,
TODDT TYPE STRING,
TODZT TYPE STRING,
TODDB TYPE STRING,
TODZB TYPE STRING,
TODUR_TXT TYPE STRING,
NO_TC_ICON TYPE STRING,
FALNR TYPE STRING,
FALAR TYPE STRING,
FALARE TYPE STRING,
LFDBEW TYPE STRING,
BEM_BEW TYPE STRING,
ELEMENT TYPE STRING,
DATE TYPE STRING,
TIME TYPE STRING,
ROOM TYPE STRING,
ROOM_K TYPE STRING,
ROOM_KB TYPE STRING,
DOCTOR TYPE STRING,
DOCTOR_KB TYPE STRING,
PLANOE TYPE STRING,
PLANOE_K TYPE STRING,
PLANOE_KB TYPE STRING,
ERBOE TYPE STRING,
ANPOE TYPE STRING,
ANFOE TYPE STRING,
DAYOFWEEK TYPE STRING,
ORGPF_AKT TYPE STRING,
ROOM_AKT TYPE STRING,
ROOM_AKT_KB TYPE STRING,
DIAGNOSE TYPE STRING,
DIALO TYPE STRING,
DIAGOBJ TYPE STRING,
PRGNR TYPE STRING,
PRIO TYPE STRING,
APRIE TYPE STRING,
APRITXT TYPE STRING,
ANFV_ICON TYPE STRING,
DOKKZ_ICON TYPE STRING,
MEDDOK_ICON TYPE STRING,
LABDOK_ICON TYPE STRING,
PCODE TYPE STRING,
ICON_DOC TYPE STRING,
WDATE TYPE STRING,
WTIME TYPE STRING,
WROOM TYPE STRING,
WZPIE TYPE STRING,
WZPITXT TYPE STRING,
WUMNT TYPE STRING,
WUJHR TYPE STRING,
VMA TYPE STRING,
AFNOE TYPE STRING,
AFNDT TYPE STRING,
AFNZT TYPE STRING,
N1PTINT TYPE STRING,
BESOND TYPE STRING,
MODCOMMENT TYPE STRING,
MODCOMMENT_ICON TYPE STRING,
MODCOMMENT_REF TYPE STRING,
MODCOMMENT_CNT TYPE STRING,
ADPAT_STATE_ICON TYPE STRING,
VS_PLAN_ICON TYPE STRING,
STUDY_STATE_ICON TYPE STRING,
KONTEXT1 TYPE STRING,
KONTEXT2 TYPE STRING,
KONTEXT3 TYPE STRING,
CXSTA1 TYPE STRING,
CXSTA2 TYPE STRING,
CXSTA3 TYPE STRING,
CXSTA_ICON1 TYPE STRING,
CXSTA_ICON2 TYPE STRING,
CXSTA_ICON3 TYPE STRING,
CXID1 TYPE STRING,
CXID2 TYPE STRING,
CXID3 TYPE STRING,
SRVOBJ TYPE STRING,
SRV TYPE STRING,
SRV_BEZ TYPE STRING,
SRV_ERGTX TYPE STRING,
SRV_LSLOK TYPE STRING,
SRV_LGRBEZ TYPE STRING,
IFGR TYPE STRING,
IFGR_TXT TYPE STRING,
IFGR_ICON TYPE STRING,
PATEIN TYPE STRING,
PATEIN_ICON TYPE STRING,
PATNUE TYPE STRING,
PATNUE_ICON TYPE STRING,
RFG TYPE STRING,
DAUER TYPE STRING,
PZMAN TYPE STRING,
OPBEG TYPE STRING,
EMERG_OP TYPE STRING,
ANERF_ICON TYPE STRING,
PMEDFG_ICON TYPE STRING,
PMEDVS_ICON TYPE STRING,
OPNR TYPE STRING,
ZTMK_BEZ TYPE STRING,
ZTMK_ZEIT TYPE STRING,
OPBEG_TIME TYPE STRING,
PRGS_TIME_BEG TYPE STRING,
PRGS_TIME_END TYPE STRING,
TEAM1 TYPE STRING,
TEAM2 TYPE STRING,
TEAM3 TYPE STRING,
TEAM4 TYPE STRING,
TEAM1_KURZ TYPE STRING,
TEAM2_KURZ TYPE STRING,
TEAM3_KURZ TYPE STRING,
TEAM4_KURZ TYPE STRING,
TMTAG TYPE STRING,
RESSOURCE TYPE STRING,
RESSOURCE_KB TYPE STRING,
CAUSECHNG TYPE STRING,
RELEASED_ICON TYPE STRING,
RELEASE_STATINT TYPE STRING,
RELEASE_STATEXT TYPE STRING,
APCOMMENT TYPE STRING,
TMPDT TYPE STRING,
TMPZT TYPE STRING,
TMDAUER TYPE STRING,
PATHWAY_STATE TYPE STRING,
PATHWAY_STATE_TXT TYPE STRING,
PATHWAY_STATE_ICON TYPE STRING,
PROFESSIONS TYPE STRING,
PATHWAY_PROPOSAL_ICON 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,
OPENCLOSE TYPE STRING,
DRAGABLE TYPE STRING,
DROPABLE TYPE STRING,
LINECOLOR TYPE STRING,
CELLCOLOR TYPE STRING,
DRAGDROP TYPE STRING,
SORT01 TYPE STRING,
SORT02 TYPE STRING,
SORT03 TYPE STRING,
SORT04 TYPE STRING,
SORT05 TYPE STRING,
SORT06 TYPE STRING,
SORT07 TYPE STRING,
SORT08 TYPE STRING,
SORT09 TYPE STRING,
SORT10 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RN1DISPLAY_FIELDS_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_RN1DISPLAY_FIELDS_STR-IMPOBJ sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DSPOBJ sy-vline 
WA_RN1DISPLAY_FIELDS_STR-OBJECT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-KEYNO sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SEQNO sy-vline 
WA_RN1DISPLAY_FIELDS_STR-EINRI sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PATNR sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PNAMEC sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PNAMEC1 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-GSCHLE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-AGEPAT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-NNAMS sy-vline 
WA_RN1DISPLAY_FIELDS_STR-VNAMS sy-vline 
WA_RN1DISPLAY_FIELDS_STR-GBNAM sy-vline 
WA_RN1DISPLAY_FIELDS_STR-GBDAT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PRIVP sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PRIVP_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-RISIKO sy-vline 
WA_RN1DISPLAY_FIELDS_STR-RISIKO_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TODKZ_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TODDT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TODZT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TODDB sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TODZB sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TODUR_TXT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-NO_TC_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-FALNR sy-vline 
WA_RN1DISPLAY_FIELDS_STR-FALAR sy-vline 
WA_RN1DISPLAY_FIELDS_STR-FALARE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-LFDBEW sy-vline 
WA_RN1DISPLAY_FIELDS_STR-BEM_BEW sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ELEMENT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DATE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TIME sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ROOM sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ROOM_K sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ROOM_KB sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DOCTOR sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DOCTOR_KB sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PLANOE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PLANOE_K sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PLANOE_KB sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ERBOE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ANPOE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ANFOE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DAYOFWEEK sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ORGPF_AKT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ROOM_AKT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ROOM_AKT_KB sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DIAGNOSE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DIALO sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DIAGOBJ sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PRGNR sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PRIO sy-vline 
WA_RN1DISPLAY_FIELDS_STR-APRIE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-APRITXT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ANFV_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DOKKZ_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-MEDDOK_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-LABDOK_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PCODE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ICON_DOC sy-vline 
WA_RN1DISPLAY_FIELDS_STR-WDATE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-WTIME sy-vline 
WA_RN1DISPLAY_FIELDS_STR-WROOM sy-vline 
WA_RN1DISPLAY_FIELDS_STR-WZPIE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-WZPITXT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-WUMNT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-WUJHR sy-vline 
WA_RN1DISPLAY_FIELDS_STR-VMA sy-vline 
WA_RN1DISPLAY_FIELDS_STR-AFNOE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-AFNDT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-AFNZT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-N1PTINT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-BESOND sy-vline 
WA_RN1DISPLAY_FIELDS_STR-MODCOMMENT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-MODCOMMENT_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-MODCOMMENT_REF sy-vline 
WA_RN1DISPLAY_FIELDS_STR-MODCOMMENT_CNT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ADPAT_STATE_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-VS_PLAN_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-STUDY_STATE_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-KONTEXT1 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-KONTEXT2 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-KONTEXT3 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CXSTA1 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CXSTA2 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CXSTA3 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CXSTA_ICON1 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CXSTA_ICON2 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CXSTA_ICON3 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CXID1 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CXID2 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CXID3 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SRVOBJ sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SRV sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SRV_BEZ sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SRV_ERGTX sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SRV_LSLOK sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SRV_LGRBEZ sy-vline 
WA_RN1DISPLAY_FIELDS_STR-IFGR sy-vline 
WA_RN1DISPLAY_FIELDS_STR-IFGR_TXT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-IFGR_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PATEIN sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PATEIN_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PATNUE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PATNUE_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-RFG sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DAUER sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PZMAN sy-vline 
WA_RN1DISPLAY_FIELDS_STR-OPBEG sy-vline 
WA_RN1DISPLAY_FIELDS_STR-EMERG_OP sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ANERF_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PMEDFG_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PMEDVS_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-OPNR sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ZTMK_BEZ sy-vline 
WA_RN1DISPLAY_FIELDS_STR-ZTMK_ZEIT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-OPBEG_TIME sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PRGS_TIME_BEG sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PRGS_TIME_END sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TEAM1 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TEAM2 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TEAM3 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TEAM4 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TEAM1_KURZ sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TEAM2_KURZ sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TEAM3_KURZ sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TEAM4_KURZ sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TMTAG sy-vline 
WA_RN1DISPLAY_FIELDS_STR-RESSOURCE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-RESSOURCE_KB sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CAUSECHNG sy-vline 
WA_RN1DISPLAY_FIELDS_STR-RELEASED_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-RELEASE_STATINT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-RELEASE_STATEXT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-APCOMMENT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TMPDT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TMPZT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-TMDAUER sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PATHWAY_STATE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PATHWAY_STATE_TXT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PATHWAY_STATE_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PROFESSIONS sy-vline 
WA_RN1DISPLAY_FIELDS_STR-PATHWAY_PROPOSAL_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DBC sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DBC_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-AFGESL sy-vline 
WA_RN1DISPLAY_FIELDS_STR-BSNNR sy-vline 
WA_RN1DISPLAY_FIELDS_STR-BSN_STAT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-WID_STAT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-REFER_ICON sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CARECODE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CARECODE_DESC sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CARECAT sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CARECAT_DESC sy-vline 
WA_RN1DISPLAY_FIELDS_STR-OPENCLOSE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DRAGABLE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DROPABLE sy-vline 
WA_RN1DISPLAY_FIELDS_STR-LINECOLOR sy-vline 
WA_RN1DISPLAY_FIELDS_STR-CELLCOLOR sy-vline 
WA_RN1DISPLAY_FIELDS_STR-DRAGDROP sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SORT01 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SORT02 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SORT03 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SORT04 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SORT05 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SORT06 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SORT07 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SORT08 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SORT09 sy-vline 
WA_RN1DISPLAY_FIELDS_STR-SORT10 sy-vline      INTO ld_text SEPARATED BY SPACE.

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