ABAP Select data from SAP table RN1WP_MEEVENT_LIST 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 RN1WP_MEEVENT_LIST 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 RN1WP_MEEVENT_LIST. 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 RN1WP_MEEVENT_LIST 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_RN1WP_MEEVENT_LIST TYPE STANDARD TABLE OF RN1WP_MEEVENT_LIST,
      WA_RN1WP_MEEVENT_LIST TYPE RN1WP_MEEVENT_LIST,
      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: <RN1WP_MEEVENT_LIST> TYPE RN1WP_MEEVENT_LIST.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RN1WP_MEEVENT_LIST
*  INTO TABLE @DATA(IT_RN1WP_MEEVENT_LIST2).
*--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_RN1WP_MEEVENT_LIST INDEX 1 INTO DATA(WA_RN1WP_MEEVENT_LIST2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RN1WP_MEEVENT_LIST>-ICON_SATZART = 1.
<RN1WP_MEEVENT_LIST>-NNAME = 1.
<RN1WP_MEEVENT_LIST>-VNAME = 1.
<RN1WP_MEEVENT_LIST>-GSCHLE = 1.
<RN1WP_MEEVENT_LIST>-AGEPAT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RN1WP_MEEVENT_LIST-AGEUNIT, sy-vline,
  WA_RN1WP_MEEVENT_LIST-PNAMEC1, sy-vline,
  WA_RN1WP_MEEVENT_LIST-GBDAT, sy-vline,
  WA_RN1WP_MEEVENT_LIST-VIP, sy-vline,
  WA_RN1WP_MEEVENT_LIST-RISKF, sy-vline,
  WA_RN1WP_MEEVENT_LIST-EXPRESNR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RN1WP_MEEVENT_LIST 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_RN1WP_MEEVENT_LIST 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_RN1WP_MEEVENT_LIST INTO WA_RN1WP_MEEVENT_LIST.


*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_RN1WP_MEEVENT_LIST-EINRI
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-EINRI.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit MEQUA, internal->external for field PDRUGDQ
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-PDRUGDQ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-PDRUGDQ.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field RDRUGDQ
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-RDRUGDQ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-RDRUGDQ.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field SCRAP
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-SCRAP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-SCRAP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field PDRUGASTR
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-PDRUGASTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-PDRUGASTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field RDRUGASTR
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-RDRUGASTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-RDRUGASTR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit MEQUA, internal->external for field ORDUR
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-ORDUR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-ORDUR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit MEQUA, internal->external for field PCALOCK
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-PCALOCK
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-PCALOCK.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field PCAPER
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-PCAPER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-PCAPER.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field PDUR
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-PDUR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-PDUR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field ADITIM
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-ADITIM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-ADITIM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field MAXDOSM
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-MAXDOSM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-MAXDOSM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field MAXDOSD
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-MAXDOSD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-MAXDOSD.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

*Conversion exit CUNIT, internal->external for field RDURU
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-RDURU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-RDURU.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field DURATION
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-DURATION
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-DURATION.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field CUR_ADRATE
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-CUR_ADRATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-CUR_ADRATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field NEXT_ADRATE
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1WP_MEEVENT_LIST-NEXT_ADRATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1WP_MEEVENT_LIST-NEXT_ADRATE.
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_RN1WP_MEEVENT_LIST_STR, 
ICON_SATZART TYPE STRING,
NNAME TYPE STRING,
VNAME TYPE STRING,
GSCHLE TYPE STRING,
AGEPAT TYPE STRING,
AGEUNIT TYPE STRING,
PNAMEC1 TYPE STRING,
GBDAT TYPE STRING,
VIP TYPE STRING,
RISKF TYPE STRING,
EXPRESNR TYPE STRING,
MPRESNR TYPE STRING,
EINRI TYPE STRING,
PATNR TYPE STRING,
MPRESD TYPE STRING,
MORESP1 TYPE STRING,
MORESP1_NAME TYPE STRING,
MEEVTID TYPE STRING,
MEORDID TYPE STRING,
FALNR TYPE STRING,
FALAR TYPE STRING,
USERST_E TYPE STRING,
MESTX TYPE STRING,
MELTX TYPE STRING,
PBDAD TYPE STRING,
PBTAD TYPE STRING,
PBTIMP TYPE STRING,
RBDAD TYPE STRING,
RBTAD TYPE STRING,
MEDOCDOU TYPE STRING,
MEDOCOU TYPE STRING,
APDEVID TYPE STRING,
APROUID TYPE STRING,
EMEVENT TYPE STRING,
LINTYPID TYPE STRING,
MERESP1 TYPE STRING,
MERESP2 TYPE STRING,
ADMINCARE TYPE STRING,
VFCOIND TYPE STRING,
ADNOTE TYPE STRING,
PRN TYPE STRING,
MASTEV TYPE STRING,
RDOSDIF TYPE STRING,
RTIMDIF TYPE STRING,
NOTGIVEN TYPE STRING,
STORN_ICON TYPE STRING,
STORN TYPE STRING,
STOID TYPE STRING,
STUSR TYPE STRING,
STDAT TYPE STRING,
ERDAT TYPE STRING,
ERTIM TYPE STRING,
ERUSR TYPE STRING,
UPDAT TYPE STRING,
UPTIM TYPE STRING,
UPUSR TYPE STRING,
DRUGID TYPE STRING,
DRUGNAME TYPE STRING,
PDRUGDQ TYPE STRING,
RDRUGDQ TYPE STRING,
SCRAP TYPE STRING,
DRUGU TYPE STRING,
PDRUGASTR TYPE STRING,
RDRUGASTR TYPE STRING,
DRUGASTRU TYPE STRING,
FSOURCE TYPE STRING,
PICKLIST TYPE STRING,
MOTX TYPE STRING,
MOSTX TYPE STRING,
MOLTX TYPE STRING,
ORGFA TYPE STRING,
ORGPF TYPE STRING,
MOTYP TYPE STRING,
USERST_O TYPE STRING,
APDEV TYPE STRING,
PHFORM TYPE STRING,
APROU TYPE STRING,
MOVDF TYPE STRING,
MOVTF TYPE STRING,
MOVDT TYPE STRING,
MOVTT TYPE STRING,
ORDUR TYPE STRING,
ORDURU TYPE STRING,
MEDGRPID TYPE STRING,
MEDGROUP TYPE STRING,
MORESP1_O TYPE STRING,
MORESP2 TYPE STRING,
CONSNAME TYPE STRING,
INSTX TYPE STRING,
INLTX TYPE STRING,
MEPSNR TYPE STRING,
MEPSSTX TYPE STRING,
MEPSLTX TYPE STRING,
PRNCSTX TYPE STRING,
PRNCLTX TYPE STRING,
OLDIS TYPE STRING,
PCALOCK TYPE STRING,
PCALOCKU TYPE STRING,
PCAMAX TYPE STRING,
PCAPER TYPE STRING,
PCAPERU TYPE STRING,
AL TYPE STRING,
CHDVER TYPE STRING,
VFCOIND_O TYPE STRING,
DCONTS TYPE STRING,
DCONTU TYPE STRING,
PDUR TYPE STRING,
PDURU TYPE STRING,
NOTE1 TYPE STRING,
NOTE2 TYPE STRING,
NOTE3 TYPE STRING,
PREP TYPE STRING,
AUTIDEM TYPE STRING,
DRUGIDBDC TYPE STRING,
ADRTIMU TYPE STRING,
ADITIM TYPE STRING,
DISPPKG TYPE STRING,
ADMPKG TYPE STRING,
BRANDNAME TYPE STRING,
GENNAME TYPE STRING,
NARCOTIC TYPE STRING,
PSYCHO TYPE STRING,
CONTR TYPE STRING,
MAXDOSM TYPE STRING,
MAXDOSD TYPE STRING,
REFRIGERATE TYPE STRING,
MAXTEMP TYPE STRING,
MINTEMP TYPE STRING,
TEMPU TYPE STRING,
TIMSEN TYPE STRING,
NOCRUSH TYPE STRING,
DOC_EXISTS TYPE STRING,
SECWITNESS TYPE STRING,
ROOM TYPE STRING,
BED TYPE STRING,
SPECREQ TYPE STRING,
PURPOSE TYPE STRING,
EPREPDOC TYPE STRING,
ODESCR TYPE STRING,
ETYPE TYPE STRING,
ETYPE_ICON TYPE STRING,
OUPREP TYPE STRING,
BAG_EMPTY_TIME TYPE STRING,
BAG_EMPTY TYPE STRING,
CT TYPE STRING,
CS TYPE STRING,
CELLSTYLE TYPE STRING,
LNRLS TYPE STRING,
TARLS TYPE STRING,
LFDNR TYPE STRING,
SRV_DESC TYPE STRING,
SRV_REMARK TYPE STRING,
SRV_ERGTX TYPE STRING,
EXTPAT TYPE STRING,
TARID TYPE STRING,
VERMAT TYPE STRING,
VERMAT_KZ TYPE STRING,
MATERIAL TYPE STRING,
PAT_CLASS TYPE STRING,
PRIVP TYPE STRING,
PRIVP_ICON TYPE STRING,
TEAM TYPE STRING,
TEAM_ICON TYPE STRING,
SRV_STATUS TYPE STRING,
SRV_LOCALISATION TYPE STRING,
CORD_ICON TYPE STRING,
SRV_QUANTITY TYPE STRING,
SRV_ORGPF TYPE STRING,
SRV_ORGFA TYPE STRING,
SRV_ERBOE TYPE STRING,
KZ_ZYKL_LEIST TYPE STRING,
SRVID TYPE STRING,
CN_EXIST_ICON TYPE STRING,
SRV_PROPS_ICON TYPE STRING,
PDS_EXIST_ICON TYPE STRING,
ACTEXIST TYPE STRING,
ACTPDT TYPE STRING,
NOTE_GEN_BUT TYPE STRING,
RDUR TYPE STRING,
RDURU TYPE STRING,
STATUS TYPE STRING,
DURATION TYPE STRING,
DURATIONU TYPE STRING,
DESCR TYPE STRING,
VS_PLAN_ICON TYPE STRING,
VERIFICAT TYPE STRING,
EDESCR TYPE STRING,
PDRUGDQ_ORD TYPE STRING,
DRUGU_ORD TYPE STRING,
CUR_ADRATE TYPE STRING,
CUR_ADRATEU TYPE STRING,
NEXT_DBRATE TYPE STRING,
NEXT_TBRATE TYPE STRING,
NEXT_RTYPE TYPE STRING,
NEXT_ADRATE TYPE STRING,
NEXT_ADRATEU TYPE STRING,
IVTYPE_ICON TYPE STRING,
VALID TYPE STRING,
NO_TC_ICON TYPE STRING,
ADPAT_STATE_ICON TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RN1WP_MEEVENT_LIST_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_RN1WP_MEEVENT_LIST_STR-ICON_SATZART sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-NNAME sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-VNAME sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-GSCHLE sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-AGEPAT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-AGEUNIT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PNAMEC1 sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-GBDAT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-VIP sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-RISKF sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-EXPRESNR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MPRESNR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-EINRI sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PATNR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MPRESD sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MORESP1 sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MORESP1_NAME sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MEEVTID sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MEORDID sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-FALNR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-FALAR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-USERST_E sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MESTX sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MELTX sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PBDAD sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PBTAD sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PBTIMP sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-RBDAD sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-RBTAD sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MEDOCDOU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MEDOCOU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-APDEVID sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-APROUID sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-EMEVENT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-LINTYPID sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MERESP1 sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MERESP2 sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ADMINCARE sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-VFCOIND sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ADNOTE sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PRN sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MASTEV sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-RDOSDIF sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-RTIMDIF sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-NOTGIVEN sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-STORN_ICON sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-STORN sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-STOID sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-STUSR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-STDAT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ERDAT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ERTIM sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ERUSR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-UPDAT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-UPTIM sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-UPUSR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-DRUGID sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-DRUGNAME sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PDRUGDQ sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-RDRUGDQ sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-SCRAP sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-DRUGU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PDRUGASTR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-RDRUGASTR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-DRUGASTRU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-FSOURCE sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PICKLIST sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MOTX sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MOSTX sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MOLTX sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ORGFA sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ORGPF sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MOTYP sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-USERST_O sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-APDEV sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PHFORM sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-APROU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MOVDF sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MOVTF sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MOVDT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MOVTT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ORDUR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ORDURU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MEDGRPID sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MEDGROUP sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MORESP1_O sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MORESP2 sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-CONSNAME sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-INSTX sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-INLTX sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MEPSNR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MEPSSTX sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MEPSLTX sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PRNCSTX sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PRNCLTX sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-OLDIS sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PCALOCK sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PCALOCKU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PCAMAX sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PCAPER sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PCAPERU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-AL sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-CHDVER sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-VFCOIND_O sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-DCONTS sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-DCONTU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PDUR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PDURU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-NOTE1 sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-NOTE2 sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-NOTE3 sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PREP sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-AUTIDEM sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-DRUGIDBDC sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ADRTIMU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ADITIM sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-DISPPKG sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ADMPKG sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-BRANDNAME sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-GENNAME sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-NARCOTIC sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PSYCHO sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-CONTR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MAXDOSM sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MAXDOSD sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-REFRIGERATE sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MAXTEMP sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MINTEMP sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-TEMPU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-TIMSEN sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-NOCRUSH sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-DOC_EXISTS sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-SECWITNESS sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ROOM sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-BED sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-SPECREQ sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PURPOSE sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-EPREPDOC sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ODESCR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ETYPE sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ETYPE_ICON sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-OUPREP sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-BAG_EMPTY_TIME sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-BAG_EMPTY sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-CT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-CS sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-CELLSTYLE sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-LNRLS sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-TARLS sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-LFDNR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-SRV_DESC sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-SRV_REMARK sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-SRV_ERGTX sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-EXTPAT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-TARID sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-VERMAT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-VERMAT_KZ sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-MATERIAL sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PAT_CLASS sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PRIVP sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PRIVP_ICON sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-TEAM sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-TEAM_ICON sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-SRV_STATUS sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-SRV_LOCALISATION sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-CORD_ICON sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-SRV_QUANTITY sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-SRV_ORGPF sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-SRV_ORGFA sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-SRV_ERBOE sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-KZ_ZYKL_LEIST sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-SRVID sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-CN_EXIST_ICON sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-SRV_PROPS_ICON sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PDS_EXIST_ICON sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ACTEXIST sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ACTPDT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-NOTE_GEN_BUT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-RDUR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-RDURU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-STATUS sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-DURATION sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-DURATIONU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-DESCR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-VS_PLAN_ICON sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-VERIFICAT sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-EDESCR sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-PDRUGDQ_ORD sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-DRUGU_ORD sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-CUR_ADRATE sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-CUR_ADRATEU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-NEXT_DBRATE sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-NEXT_TBRATE sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-NEXT_RTYPE sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-NEXT_ADRATE sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-NEXT_ADRATEU sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-IVTYPE_ICON sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-VALID sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-NO_TC_ICON sy-vline 
WA_RN1WP_MEEVENT_LIST_STR-ADPAT_STATE_ICON sy-vline      INTO ld_text SEPARATED BY SPACE.

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