ABAP Select data from SAP table RMIPM 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 RMIPM 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 RMIPM. 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 RMIPM 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_RMIPM TYPE STANDARD TABLE OF RMIPM,
      WA_RMIPM TYPE RMIPM,
      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: <RMIPM> TYPE RMIPM.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RMIPM
*  INTO TABLE @DATA(IT_RMIPM2).
*--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_RMIPM INDEX 1 INTO DATA(WA_RMIPM2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RMIPM>-MANDT = 1.
<RMIPM>-WARPL = 1.
<RMIPM>-VEPAK = 1.
<RMIPM>-KZPAK = 1.
<RMIPM>-ABRST = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RMIPM-ABDAT, sy-vline,
  WA_RMIPM-WSTRA, sy-vline,
  WA_RMIPM-RPLAN, sy-vline,
  WA_RMIPM-FCODE, sy-vline,
  WA_RMIPM-WAPOS, sy-vline,
  WA_RMIPM-WPPOS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RMIPM 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_RMIPM 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_RMIPM INTO WA_RMIPM.


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

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

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

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

*Conversion exit TPLNR, internal->external for field TPLNR
CALL FUNCTION 'CONVERSION_EXIT_TPLNR_OUTPUT'
  EXPORTING
    input =                      WA_RMIPM-TPLNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMIPM-TPLNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit LUNIT, internal->external for field UNITC
CALL FUNCTION 'CONVERSION_EXIT_LUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RMIPM-UNITC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMIPM-UNITC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit LUNIT, internal->external for field UNITC1
CALL FUNCTION 'CONVERSION_EXIT_LUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RMIPM-UNITC1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMIPM-UNITC1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit LUNIT, internal->external for field UNITC2
CALL FUNCTION 'CONVERSION_EXIT_LUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RMIPM-UNITC2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMIPM-UNITC2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit LUNIT, internal->external for field UNITC3
CALL FUNCTION 'CONVERSION_EXIT_LUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RMIPM-UNITC3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMIPM-UNITC3.
WRITE:/ 'New Value:', ld_input.

*Conversion exit LUNIT, internal->external for field UNITC4
CALL FUNCTION 'CONVERSION_EXIT_LUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RMIPM-UNITC4
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMIPM-UNITC4.
WRITE:/ 'New Value:', ld_input.

*Conversion exit LUNIT, internal->external for field UNITC5
CALL FUNCTION 'CONVERSION_EXIT_LUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RMIPM-UNITC5
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMIPM-UNITC5.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EAMQF, internal->external for field HORIZ_QUALIFIER
CALL FUNCTION 'CONVERSION_EXIT_EAMQF_OUTPUT'
  EXPORTING
    input =                      WA_RMIPM-HORIZ_QUALIFIER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMIPM-HORIZ_QUALIFIER.
WRITE:/ 'New Value:', ld_input.

*Conversion exit LUNIT, internal->external for field UNITC6
CALL FUNCTION 'CONVERSION_EXIT_LUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RMIPM-UNITC6
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMIPM-UNITC6.
WRITE:/ 'New Value:', ld_input.

*Conversion exit LUNIT, internal->external for field UNITC7
CALL FUNCTION 'CONVERSION_EXIT_LUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RMIPM-UNITC7
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMIPM-UNITC7.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ABPSP, internal->external for field PSPEL
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_RMIPM-PSPEL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMIPM-PSPEL.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit GERNR, internal->external for field SERIALNR
CALL FUNCTION 'CONVERSION_EXIT_GERNR_OUTPUT'
  EXPORTING
    input =                      WA_RMIPM-SERIALNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMIPM-SERIALNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field DESNUM
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RMIPM-DESNUM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMIPM-DESNUM.
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_RMIPM_STR, 
MANDT TYPE STRING,
WARPL TYPE STRING,
VEPAK TYPE STRING,
KZPAK TYPE STRING,
ABRST TYPE STRING,
ABDAT TYPE STRING,
WSTRA TYPE STRING,
RPLAN TYPE STRING,
FCODE TYPE STRING,
WAPOS TYPE STRING,
WPPOS TYPE STRING,
EQUNR TYPE STRING,
EQKTX TYPE STRING,
TPLNR TYPE STRING,
PLTXT TYPE STRING,
PLNTY TYPE STRING,
PLNNR TYPE STRING,
PLNAL TYPE STRING,
TASK_LIST TYPE STRING,
WPTXT TYPE STRING,
LTPLAN_ICON TYPE STRING,
PSTXT TYPE STRING,
LTPOS_ICON TYPE STRING,
WPGRP TYPE STRING,
GEWERK TYPE STRING,
IWERK TYPE STRING,
ANZPS TYPE STRING,
LTPLANKNZ TYPE STRING,
LTPOSKNZ TYPE STRING,
ILOAN TYPE STRING,
BAUTL TYPE STRING,
BAUTX TYPE STRING,
ZYKL1 TYPE STRING,
ZYKL2 TYPE STRING,
OFFS1 TYPE STRING,
OFFS2 TYPE STRING,
AUART TYPE STRING,
WERGW TYPE STRING,
INCLFLAG TYPE STRING,
ILART TYPE STRING,
OBJK_FLAG TYPE STRING,
GSBER TYPE STRING,
GSBER_TXT TYPE STRING,
ARBPL_FLAG TYPE STRING,
POINT TYPE STRING,
PTTXT TYPE STRING,
ZEIEH TYPE STRING,
PAK_TEXT TYPE STRING,
ZAEHL TYPE STRING,
OPERATOR TYPE STRING,
NUMMER TYPE STRING,
AND_KNZ TYPE STRING,
OR_KNZ TYPE STRING,
VORLAUF TYPE STRING,
PYEAC TYPE STRING,
UNITC TYPE STRING,
IDATE TYPE STRING,
LCNTC TYPE STRING,
TOTAC TYPE STRING,
NPLDA TYPE STRING,
NZAEH TYPE STRING,
WSTRA_TXT TYPE STRING,
INAKTIV TYPE STRING,
OFF_TOGO TYPE STRING,
LST_TAG TYPE STRING,
UNITC1 TYPE STRING,
UNITC2 TYPE STRING,
UNITC3 TYPE STRING,
UNITC4 TYPE STRING,
UNITC5 TYPE STRING,
PSORT TYPE STRING,
NPLDO TYPE STRING,
VORG_NZAEH TYPE STRING,
SFAKT TYPE STRING,
ZEIT TYPE STRING,
KALENDER TYPE STRING,
STICH TYPE STRING,
VSPOS TYPE STRING,
VSNEG TYPE STRING,
TOPOS TYPE STRING,
TONEG TYPE STRING,
ABRHO TYPE STRING,
HORIZ TYPE STRING,
HORIZ_QUALIFIER TYPE STRING,
KNAUT TYPE STRING,
HORDA TYPE STRING,
STADT TYPE STRING,
LRMDT TYPE STRING,
TERMA TYPE STRING,
RAHMEN_TXT TYPE STRING,
PLZAEHL TYPE STRING,
ABSTOP TYPE STRING,
BEGRU TYPE STRING,
BEGTX TYPE STRING,
SZAEH TYPE STRING,
RZAEH TYPE STRING,
USR_KNZ TYPE STRING,
ABNUM TYPE STRING,
OFFZE TYPE STRING,
MANDA TYPE STRING,
PLANTEXT TYPE STRING,
IND_ABRVO TYPE STRING,
UNITC6 TYPE STRING,
UNITC7 TYPE STRING,
OFF_FREI TYPE STRING,
START_SOF TYPE STRING,
PSPEL TYPE STRING,
PSPEL_TXT TYPE STRING,
KDAUF TYPE STRING,
KDPOS TYPE STRING,
KDPOS_TXT TYPE STRING,
NTERM_INCL TYPE STRING,
DATAB TYPE STRING,
ZYKLOFFSET TYPE STRING,
ZYKLUNIT TYPE STRING,
MEHRFACH_Z TYPE STRING,
BSTNR TYPE STRING,
BSTPO TYPE STRING,
PACKNO TYPE STRING,
MPTYP TYPE STRING,
KDATB TYPE STRING,
KDATE TYPE STRING,
TXZ01 TYPE STRING,
TXT TYPE STRING,
SAKTO TYPE STRING,
AUFNR TYPE STRING,
KTEXTZYK TYPE STRING,
ANZPOSAKT TYPE STRING,
ANZPOSMAX TYPE STRING,
SERIALNR TYPE STRING,
MATNR TYPE STRING,
DEVICEID TYPE STRING,
HUNIT TYPE STRING,
ANLZU TYPE STRING,
WSET TYPE STRING,
APFKT TYPE STRING,
QMART TYPE STRING,
QMTXT TYPE STRING,
QMNUM TYPE STRING,
LBLNI TYPE STRING,
ABSDA TYPE STRING,
ABRUD TYPE STRING,
CALL_CONFIRM TYPE STRING,
CALL_STATUS TYPE STRING,
DUE_PACKAGES TYPE STRING,
TASK_DETERMINE TYPE STRING,
BUKRS TYPE STRING,
PRIOK TYPE STRING,
PROTO_P TYPE STRING,
ATNAM TYPE STRING,
MSEHI TYPE STRING,
DUMMX TYPE STRING,
KOFF1 TYPE STRING,
KZYK1 TYPE STRING,
PLAN_SORT TYPE STRING,
FABKL TYPE STRING,
MATSV TYPE STRING,
CALC_START TYPE STRING,
CALC_END TYPE STRING,
PHYNR TYPE STRING,
KTEXT TYPE STRING,
ART TYPE STRING,
ARTTXT TYPE STRING,
PRUEFLOS TYPE STRING,
STTAG TYPE STRING,
IND_SETTL_RULE TYPE STRING,
CONF_TIME TYPE STRING,
CONF_DATE TYPE STRING,
SETTLE_RULE TYPE STRING,
START_DATE TYPE STRING,
START_TIME TYPE STRING,
CALL_UPDATE_IND TYPE STRING,
IND_START_IN_CYCLE TYPE STRING,
CYCLESEQIND TYPE STRING,
SETREPEATIND TYPE STRING,
PAST_DATE_IND TYPE STRING,
TIMESPAN_UNIT TYPE STRING,
DATAB_ITEM TYPE STRING,
ADPSP TYPE STRING,
NO_AUFRELKZ TYPE STRING,
ENDDT_FOR_SCHED TYPE STRING,
END_COUNTER TYPE STRING,
SERVICE_ORDER TYPE STRING,
SERVICE_ORDER_LIFECYCLE_STAT_T TYPE STRING,
SERVICE_ORDER_ERROR_STATUS_T TYPE STRING,
DESNUM TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RMIPM_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_RMIPM_STR-MANDT sy-vline 
WA_RMIPM_STR-WARPL sy-vline 
WA_RMIPM_STR-VEPAK sy-vline 
WA_RMIPM_STR-KZPAK sy-vline 
WA_RMIPM_STR-ABRST sy-vline 
WA_RMIPM_STR-ABDAT sy-vline 
WA_RMIPM_STR-WSTRA sy-vline 
WA_RMIPM_STR-RPLAN sy-vline 
WA_RMIPM_STR-FCODE sy-vline 
WA_RMIPM_STR-WAPOS sy-vline 
WA_RMIPM_STR-WPPOS sy-vline 
WA_RMIPM_STR-EQUNR sy-vline 
WA_RMIPM_STR-EQKTX sy-vline 
WA_RMIPM_STR-TPLNR sy-vline 
WA_RMIPM_STR-PLTXT sy-vline 
WA_RMIPM_STR-PLNTY sy-vline 
WA_RMIPM_STR-PLNNR sy-vline 
WA_RMIPM_STR-PLNAL sy-vline 
WA_RMIPM_STR-TASK_LIST sy-vline 
WA_RMIPM_STR-WPTXT sy-vline 
WA_RMIPM_STR-LTPLAN_ICON sy-vline 
WA_RMIPM_STR-PSTXT sy-vline 
WA_RMIPM_STR-LTPOS_ICON sy-vline 
WA_RMIPM_STR-WPGRP sy-vline 
WA_RMIPM_STR-GEWERK sy-vline 
WA_RMIPM_STR-IWERK sy-vline 
WA_RMIPM_STR-ANZPS sy-vline 
WA_RMIPM_STR-LTPLANKNZ sy-vline 
WA_RMIPM_STR-LTPOSKNZ sy-vline 
WA_RMIPM_STR-ILOAN sy-vline 
WA_RMIPM_STR-BAUTL sy-vline 
WA_RMIPM_STR-BAUTX sy-vline 
WA_RMIPM_STR-ZYKL1 sy-vline 
WA_RMIPM_STR-ZYKL2 sy-vline 
WA_RMIPM_STR-OFFS1 sy-vline 
WA_RMIPM_STR-OFFS2 sy-vline 
WA_RMIPM_STR-AUART sy-vline 
WA_RMIPM_STR-WERGW sy-vline 
WA_RMIPM_STR-INCLFLAG sy-vline 
WA_RMIPM_STR-ILART sy-vline 
WA_RMIPM_STR-OBJK_FLAG sy-vline 
WA_RMIPM_STR-GSBER sy-vline 
WA_RMIPM_STR-GSBER_TXT sy-vline 
WA_RMIPM_STR-ARBPL_FLAG sy-vline 
WA_RMIPM_STR-POINT sy-vline 
WA_RMIPM_STR-PTTXT sy-vline 
WA_RMIPM_STR-ZEIEH sy-vline 
WA_RMIPM_STR-PAK_TEXT sy-vline 
WA_RMIPM_STR-ZAEHL sy-vline 
WA_RMIPM_STR-OPERATOR sy-vline 
WA_RMIPM_STR-NUMMER sy-vline 
WA_RMIPM_STR-AND_KNZ sy-vline 
WA_RMIPM_STR-OR_KNZ sy-vline 
WA_RMIPM_STR-VORLAUF sy-vline 
WA_RMIPM_STR-PYEAC sy-vline 
WA_RMIPM_STR-UNITC sy-vline 
WA_RMIPM_STR-IDATE sy-vline 
WA_RMIPM_STR-LCNTC sy-vline 
WA_RMIPM_STR-TOTAC sy-vline 
WA_RMIPM_STR-NPLDA sy-vline 
WA_RMIPM_STR-NZAEH sy-vline 
WA_RMIPM_STR-WSTRA_TXT sy-vline 
WA_RMIPM_STR-INAKTIV sy-vline 
WA_RMIPM_STR-OFF_TOGO sy-vline 
WA_RMIPM_STR-LST_TAG sy-vline 
WA_RMIPM_STR-UNITC1 sy-vline 
WA_RMIPM_STR-UNITC2 sy-vline 
WA_RMIPM_STR-UNITC3 sy-vline 
WA_RMIPM_STR-UNITC4 sy-vline 
WA_RMIPM_STR-UNITC5 sy-vline 
WA_RMIPM_STR-PSORT sy-vline 
WA_RMIPM_STR-NPLDO sy-vline 
WA_RMIPM_STR-VORG_NZAEH sy-vline 
WA_RMIPM_STR-SFAKT sy-vline 
WA_RMIPM_STR-ZEIT sy-vline 
WA_RMIPM_STR-KALENDER sy-vline 
WA_RMIPM_STR-STICH sy-vline 
WA_RMIPM_STR-VSPOS sy-vline 
WA_RMIPM_STR-VSNEG sy-vline 
WA_RMIPM_STR-TOPOS sy-vline 
WA_RMIPM_STR-TONEG sy-vline 
WA_RMIPM_STR-ABRHO sy-vline 
WA_RMIPM_STR-HORIZ sy-vline 
WA_RMIPM_STR-HORIZ_QUALIFIER sy-vline 
WA_RMIPM_STR-KNAUT sy-vline 
WA_RMIPM_STR-HORDA sy-vline 
WA_RMIPM_STR-STADT sy-vline 
WA_RMIPM_STR-LRMDT sy-vline 
WA_RMIPM_STR-TERMA sy-vline 
WA_RMIPM_STR-RAHMEN_TXT sy-vline 
WA_RMIPM_STR-PLZAEHL sy-vline 
WA_RMIPM_STR-ABSTOP sy-vline 
WA_RMIPM_STR-BEGRU sy-vline 
WA_RMIPM_STR-BEGTX sy-vline 
WA_RMIPM_STR-SZAEH sy-vline 
WA_RMIPM_STR-RZAEH sy-vline 
WA_RMIPM_STR-USR_KNZ sy-vline 
WA_RMIPM_STR-ABNUM sy-vline 
WA_RMIPM_STR-OFFZE sy-vline 
WA_RMIPM_STR-MANDA sy-vline 
WA_RMIPM_STR-PLANTEXT sy-vline 
WA_RMIPM_STR-IND_ABRVO sy-vline 
WA_RMIPM_STR-UNITC6 sy-vline 
WA_RMIPM_STR-UNITC7 sy-vline 
WA_RMIPM_STR-OFF_FREI sy-vline 
WA_RMIPM_STR-START_SOF sy-vline 
WA_RMIPM_STR-PSPEL sy-vline 
WA_RMIPM_STR-PSPEL_TXT sy-vline 
WA_RMIPM_STR-KDAUF sy-vline 
WA_RMIPM_STR-KDPOS sy-vline 
WA_RMIPM_STR-KDPOS_TXT sy-vline 
WA_RMIPM_STR-NTERM_INCL sy-vline 
WA_RMIPM_STR-DATAB sy-vline 
WA_RMIPM_STR-ZYKLOFFSET sy-vline 
WA_RMIPM_STR-ZYKLUNIT sy-vline 
WA_RMIPM_STR-MEHRFACH_Z sy-vline 
WA_RMIPM_STR-BSTNR sy-vline 
WA_RMIPM_STR-BSTPO sy-vline 
WA_RMIPM_STR-PACKNO sy-vline 
WA_RMIPM_STR-MPTYP sy-vline 
WA_RMIPM_STR-KDATB sy-vline 
WA_RMIPM_STR-KDATE sy-vline 
WA_RMIPM_STR-TXZ01 sy-vline 
WA_RMIPM_STR-TXT sy-vline 
WA_RMIPM_STR-SAKTO sy-vline 
WA_RMIPM_STR-AUFNR sy-vline 
WA_RMIPM_STR-KTEXTZYK sy-vline 
WA_RMIPM_STR-ANZPOSAKT sy-vline 
WA_RMIPM_STR-ANZPOSMAX sy-vline 
WA_RMIPM_STR-SERIALNR sy-vline 
WA_RMIPM_STR-MATNR sy-vline 
WA_RMIPM_STR-DEVICEID sy-vline 
WA_RMIPM_STR-HUNIT sy-vline 
WA_RMIPM_STR-ANLZU sy-vline 
WA_RMIPM_STR-WSET sy-vline 
WA_RMIPM_STR-APFKT sy-vline 
WA_RMIPM_STR-QMART sy-vline 
WA_RMIPM_STR-QMTXT sy-vline 
WA_RMIPM_STR-QMNUM sy-vline 
WA_RMIPM_STR-LBLNI sy-vline 
WA_RMIPM_STR-ABSDA sy-vline 
WA_RMIPM_STR-ABRUD sy-vline 
WA_RMIPM_STR-CALL_CONFIRM sy-vline 
WA_RMIPM_STR-CALL_STATUS sy-vline 
WA_RMIPM_STR-DUE_PACKAGES sy-vline 
WA_RMIPM_STR-TASK_DETERMINE sy-vline 
WA_RMIPM_STR-BUKRS sy-vline 
WA_RMIPM_STR-PRIOK sy-vline 
WA_RMIPM_STR-PROTO_P sy-vline 
WA_RMIPM_STR-ATNAM sy-vline 
WA_RMIPM_STR-MSEHI sy-vline 
WA_RMIPM_STR-DUMMX sy-vline 
WA_RMIPM_STR-KOFF1 sy-vline 
WA_RMIPM_STR-KZYK1 sy-vline 
WA_RMIPM_STR-PLAN_SORT sy-vline 
WA_RMIPM_STR-FABKL sy-vline 
WA_RMIPM_STR-MATSV sy-vline 
WA_RMIPM_STR-CALC_START sy-vline 
WA_RMIPM_STR-CALC_END sy-vline 
WA_RMIPM_STR-PHYNR sy-vline 
WA_RMIPM_STR-KTEXT sy-vline 
WA_RMIPM_STR-ART sy-vline 
WA_RMIPM_STR-ARTTXT sy-vline 
WA_RMIPM_STR-PRUEFLOS sy-vline 
WA_RMIPM_STR-STTAG sy-vline 
WA_RMIPM_STR-IND_SETTL_RULE sy-vline 
WA_RMIPM_STR-CONF_TIME sy-vline 
WA_RMIPM_STR-CONF_DATE sy-vline 
WA_RMIPM_STR-SETTLE_RULE sy-vline 
WA_RMIPM_STR-START_DATE sy-vline 
WA_RMIPM_STR-START_TIME sy-vline 
WA_RMIPM_STR-CALL_UPDATE_IND sy-vline 
WA_RMIPM_STR-IND_START_IN_CYCLE sy-vline 
WA_RMIPM_STR-CYCLESEQIND sy-vline 
WA_RMIPM_STR-SETREPEATIND sy-vline 
WA_RMIPM_STR-PAST_DATE_IND sy-vline 
WA_RMIPM_STR-TIMESPAN_UNIT sy-vline 
WA_RMIPM_STR-DATAB_ITEM sy-vline 
WA_RMIPM_STR-ADPSP sy-vline 
WA_RMIPM_STR-NO_AUFRELKZ sy-vline 
WA_RMIPM_STR-ENDDT_FOR_SCHED sy-vline 
WA_RMIPM_STR-END_COUNTER sy-vline 
WA_RMIPM_STR-SERVICE_ORDER sy-vline 
WA_RMIPM_STR-SERVICE_ORDER_LIFECYCLE_STAT_T sy-vline 
WA_RMIPM_STR-SERVICE_ORDER_ERROR_STATUS_T sy-vline 
WA_RMIPM_STR-DESNUM sy-vline      INTO ld_text SEPARATED BY SPACE.

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