ABAP Select data from SAP table RN1_APPOINTMENT_SNAPSHOT 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 RN1_APPOINTMENT_SNAPSHOT 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 RN1_APPOINTMENT_SNAPSHOT. 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 RN1_APPOINTMENT_SNAPSHOT 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_RN1_APPOINTMENT_SNAPSHOT TYPE STANDARD TABLE OF RN1_APPOINTMENT_SNAPSHOT,
      WA_RN1_APPOINTMENT_SNAPSHOT TYPE RN1_APPOINTMENT_SNAPSHOT,
      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: <RN1_APPOINTMENT_SNAPSHOT> TYPE RN1_APPOINTMENT_SNAPSHOT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RN1_APPOINTMENT_SNAPSHOT
*  INTO TABLE @DATA(IT_RN1_APPOINTMENT_SNAPSHOT2).
*--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_RN1_APPOINTMENT_SNAPSHOT INDEX 1 INTO DATA(WA_RN1_APPOINTMENT_SNAPSHOT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RN1_APPOINTMENT_SNAPSHOT>-SNAP_KEY = 1.
<RN1_APPOINTMENT_SNAPSHOT>-MODUS = 1.
<RN1_APPOINTMENT_SNAPSHOT>-NTMN = 1.
<RN1_APPOINTMENT_SNAPSHOT>-MANDT = 1.
<RN1_APPOINTMENT_SNAPSHOT>-TMNID = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RN1_APPOINTMENT_SNAPSHOT-EINRI, sy-vline,
  WA_RN1_APPOINTMENT_SNAPSHOT-PATNR, sy-vline,
  WA_RN1_APPOINTMENT_SNAPSHOT-PZIFF, sy-vline,
  WA_RN1_APPOINTMENT_SNAPSHOT-EXTNR, sy-vline,
  WA_RN1_APPOINTMENT_SNAPSHOT-FALNR, sy-vline,
  WA_RN1_APPOINTMENT_SNAPSHOT-FZIFF, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RN1_APPOINTMENT_SNAPSHOT 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_RN1_APPOINTMENT_SNAPSHOT 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_RN1_APPOINTMENT_SNAPSHOT INTO WA_RN1_APPOINTMENT_SNAPSHOT.


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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit SXIDN, internal->external for field EMAIL
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_RN1_APPOINTMENT_SNAPSHOT-EMAIL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1_APPOINTMENT_SNAPSHOT-EMAIL.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field NWATAUFART
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1_APPOINTMENT_SNAPSHOT-NWATAUFART
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1_APPOINTMENT_SNAPSHOT-NWATAUFART.
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_RN1_APPOINTMENT_SNAPSHOT_STR, 
SNAP_KEY TYPE STRING,
MODUS TYPE STRING,
NTMN TYPE STRING,
MANDT TYPE STRING,
TMNID TYPE STRING,
EINRI TYPE STRING,
PATNR TYPE STRING,
PZIFF TYPE STRING,
EXTNR TYPE STRING,
FALNR TYPE STRING,
FZIFF TYPE STRING,
FALAR TYPE STRING,
TMNLB TYPE STRING,
TMNOE TYPE STRING,
TMNDT TYPE STRING,
TMNZT TYPE STRING,
TMNDR TYPE STRING,
NNAME TYPE STRING,
VNAME TYPE STRING,
NNAMS TYPE STRING,
VNAMS TYPE STRING,
TITEL TYPE STRING,
NAMZU TYPE STRING,
VORSW TYPE STRING,
GBNAM TYPE STRING,
GBNAS TYPE STRING,
GBDAT TYPE STRING,
GSCHL TYPE STRING,
TELF1 TYPE STRING,
TODKZ TYPE STRING,
SOURC TYPE STRING,
TMTAG TYPE STRING,
REFID TYPE STRING,
NOTAN TYPE STRING,
KRZAN TYPE STRING,
BEKAT TYPE STRING,
RISKF TYPE STRING,
CLASS TYPE STRING,
BNKZ TYPE STRING,
BNDT TYPE STRING,
BNART TYPE STRING,
EINBDT TYPE STRING,
EINBZT TYPE STRING,
EINBOE TYPE STRING,
EINBPER TYPE STRING,
EINBZIM TYPE STRING,
ERDAT TYPE STRING,
ERUSR TYPE STRING,
UPDAT TYPE STRING,
UPUSR TYPE STRING,
FATYP TYPE STRING,
BWART TYPE STRING,
TPART TYPE STRING,
BWPRIO TYPE STRING,
MEDTX TYPE STRING,
TMSTG TYPE STRING,
STORN TYPE STRING,
STUSR TYPE STRING,
STDAT TYPE STRING,
VBUND TYPE STRING,
BWGR1 TYPE STRING,
BWGR2 TYPE STRING,
UARNR TYPE STRING,
TMPDT TYPE STRING,
TMPZT TYPE STRING,
GPLVN TYPE STRING,
GPLTY TYPE STRING,
EMAIL TYPE STRING,
BEWTY TYPE STRING,
CHAINID TYPE STRING,
UNITID TYPE STRING,
DISTMIN TYPE STRING,
DISTMAX TYPE STRING,
DISTUNIT TYPE STRING,
CYCLE TYPE STRING,
CYCLEUNIT TYPE STRING,
VKGID TYPE STRING,
PAPID TYPE STRING,
APCNID TYPE STRING,
ENDPL TYPE STRING,
TIMESTAMP TYPE STRING,
CAUSECHNG TYPE STRING,
CSECHGID TYPE STRING,
T_NAPP TYPE STRING,
NBEW TYPE STRING,
MANDT TYPE STRING,
EINRI TYPE STRING,
FALNR TYPE STRING,
LFDNR TYPE STRING,
BEWTY TYPE STRING,
BWART TYPE STRING,
BWIDT TYPE STRING,
BWIZT TYPE STRING,
PLANB TYPE STRING,
STATU TYPE STRING,
BWPDT TYPE STRING,
BWPZT TYPE STRING,
BWEDT TYPE STRING,
BWEZT TYPE STRING,
PLANE TYPE STRING,
LFDREF TYPE STRING,
TELNR TYPE STRING,
TVKZ TYPE STRING,
KZTXT TYPE STRING,
LGTXT TYPE STRING,
NOTKZ TYPE STRING,
UNFKZ TYPE STRING,
UNFNR TYPE STRING,
UNFOR TYPE STRING,
UNFZT TYPE STRING,
UNFDT TYPE STRING,
UNFTX TYPE STRING,
UNLTX TYPE STRING,
WLPRI TYPE STRING,
AUFDS TYPE STRING,
ORGFA TYPE STRING,
ORGPF TYPE STRING,
ZIMMR TYPE STRING,
BETT TYPE STRING,
PLANR TYPE STRING,
DAUER TYPE STRING,
EXTKH TYPE STRING,
ORGAU TYPE STRING,
EZUST TYPE STRING,
TODUR TYPE STRING,
ARBUN TYPE STRING,
ABWGN TYPE STRING,
ERDAT TYPE STRING,
ERUSR TYPE STRING,
UPDAT TYPE STRING,
UPUSR TYPE STRING,
STORN TYPE STRING,
STUSR TYPE STRING,
STDAT TYPE STRING,
UNFRN TYPE STRING,
BEKAT TYPE STRING,
NFGREF TYPE STRING,
VGNREF TYPE STRING,
AUFRF TYPE STRING,
MEDTX TYPE STRING,
MELTX TYPE STRING,
BWPRIO TYPE STRING,
STOID TYPE STRING,
DSPTY TYPE STRING,
VISTY TYPE STRING,
BWGR1 TYPE STRING,
BWGR2 TYPE STRING,
TPART TYPE STRING,
UNFVS TYPE STRING,
INSEV TYPE STRING,
OPART TYPE STRING,
CLASS TYPE STRING,
RFSRC TYPE STRING,
FACHR TYPE STRING,
UNFRT TYPE STRING,
UNFAV TYPE STRING,
WLTYP TYPE STRING,
WLRDT TYPE STRING,
WLRRN TYPE STRING,
WLSTA TYPE STRING,
WLHSP TYPE STRING,
WLADT TYPE STRING,
BCODE TYPE STRING,
ERTIM TYPE STRING,
NWATARBU TYPE STRING,
NWATNOTF TYPE STRING,
NWATBEGUT TYPE STRING,
NWATMUTT TYPE STRING,
NWATSPENDE TYPE STRING,
NWATMETHOD TYPE STRING,
NWATTRUNK TYPE STRING,
NWATSUCHT TYPE STRING,
NWATRAUF TYPE STRING,
NWATRZB TYPE STRING,
NWATVPNR TYPE STRING,
NWATBEFRGR TYPE STRING,
BEXNR TYPE STRING,
WPLID TYPE STRING,
FACHS TYPE STRING,
WPLTY TYPE STRING,
APCNID TYPE STRING,
NWATSSW TYPE STRING,
NWATBEHAND TYPE STRING,
NWATZUGART TYPE STRING,
NWATABGART TYPE STRING,
NWATZUGVA TYPE STRING,
NWATAUFART TYPE STRING,
NWATEREFCD TYPE STRING,
NWATEREFNO TYPE STRING,
NWATEREFID TYPE STRING,
SAPS TYPE STRING,
/ISHFR/PAL TYPE STRING,
/ISHFR/RDTYPE TYPE STRING,
/ISHFR/TYDOS TYPE STRING,
/ISHFR/NOOFBEAMS TYPE STRING,
EXTKH_NAME2 TYPE STRING,
EXTKH_NAME3 TYPE STRING,
T_N1FAT TYPE STRING,
T_N1FSZ TYPE STRING,
SNAPKEY_OBJCENTRAL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RN1_APPOINTMENT_SNAPSHOT_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_RN1_APPOINTMENT_SNAPSHOT_STR-SNAP_KEY sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-MODUS sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NTMN sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-MANDT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TMNID sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-EINRI sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-PATNR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-PZIFF sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-EXTNR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-FALNR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-FZIFF sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-FALAR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TMNLB sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TMNOE sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TMNDT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TMNZT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TMNDR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NNAME sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-VNAME sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NNAMS sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-VNAMS sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TITEL sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NAMZU sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-VORSW sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-GBNAM sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-GBNAS sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-GBDAT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-GSCHL sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TELF1 sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TODKZ sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-SOURC sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TMTAG sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-REFID sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NOTAN sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-KRZAN sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BEKAT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-RISKF sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-CLASS sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BNKZ sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BNDT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BNART sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-EINBDT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-EINBZT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-EINBOE sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-EINBPER sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-EINBZIM sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-ERDAT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-ERUSR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UPDAT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UPUSR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-FATYP sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BWART sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TPART sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BWPRIO sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-MEDTX sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TMSTG sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-STORN sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-STUSR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-STDAT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-VBUND sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BWGR1 sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BWGR2 sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UARNR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TMPDT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TMPZT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-GPLVN sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-GPLTY sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-EMAIL sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BEWTY sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-CHAINID sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UNITID sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-DISTMIN sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-DISTMAX sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-DISTUNIT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-CYCLE sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-CYCLEUNIT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-VKGID sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-PAPID sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-APCNID sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-ENDPL sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TIMESTAMP sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-CAUSECHNG sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-CSECHGID sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-T_NAPP sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NBEW sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-MANDT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-EINRI sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-FALNR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-LFDNR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BEWTY sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BWART sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BWIDT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BWIZT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-PLANB sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-STATU sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BWPDT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BWPZT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BWEDT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BWEZT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-PLANE sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-LFDREF sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TELNR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TVKZ sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-KZTXT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-LGTXT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NOTKZ sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UNFKZ sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UNFNR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UNFOR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UNFZT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UNFDT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UNFTX sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UNLTX sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-WLPRI sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-AUFDS sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-ORGFA sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-ORGPF sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-ZIMMR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BETT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-PLANR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-DAUER sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-EXTKH sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-ORGAU sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-EZUST sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TODUR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-ARBUN sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-ABWGN sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-ERDAT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-ERUSR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UPDAT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UPUSR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-STORN sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-STUSR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-STDAT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UNFRN sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BEKAT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NFGREF sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-VGNREF sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-AUFRF sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-MEDTX sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-MELTX sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BWPRIO sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-STOID sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-DSPTY sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-VISTY sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BWGR1 sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BWGR2 sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-TPART sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UNFVS sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-INSEV sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-OPART sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-CLASS sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-RFSRC sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-FACHR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UNFRT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-UNFAV sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-WLTYP sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-WLRDT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-WLRRN sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-WLSTA sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-WLHSP sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-WLADT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BCODE sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-ERTIM sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATARBU sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATNOTF sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATBEGUT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATMUTT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATSPENDE sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATMETHOD sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATTRUNK sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATSUCHT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATRAUF sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATRZB sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATVPNR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATBEFRGR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-BEXNR sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-WPLID sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-FACHS sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-WPLTY sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-APCNID sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATSSW sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATBEHAND sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATZUGART sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATABGART sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATZUGVA sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATAUFART sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATEREFCD sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATEREFNO sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-NWATEREFID sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-SAPS sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-/ISHFR/PAL sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-/ISHFR/RDTYPE sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-/ISHFR/TYDOS sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-/ISHFR/NOOFBEAMS sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-EXTKH_NAME2 sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-EXTKH_NAME3 sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-T_N1FAT sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-T_N1FSZ sy-vline 
WA_RN1_APPOINTMENT_SNAPSHOT_STR-SNAPKEY_OBJCENTRAL sy-vline      INTO ld_text SEPARATED BY SPACE.

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