ABAP Select data from SAP table ROIO_MT_PARAM 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 ROIO_MT_PARAM 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 ROIO_MT_PARAM. 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 ROIO_MT_PARAM 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_ROIO_MT_PARAM TYPE STANDARD TABLE OF ROIO_MT_PARAM,
      WA_ROIO_MT_PARAM TYPE ROIO_MT_PARAM,
      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: <ROIO_MT_PARAM> TYPE ROIO_MT_PARAM.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ROIO_MT_PARAM
*  INTO TABLE @DATA(IT_ROIO_MT_PARAM2).
*--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_ROIO_MT_PARAM INDEX 1 INTO DATA(WA_ROIO_MT_PARAM2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<ROIO_MT_PARAM>-REPID = 1.
<ROIO_MT_PARAM>-OBJTY = 1.
<ROIO_MT_PARAM>-MTPROF = 1.
<ROIO_MT_PARAM>-TITLE = 1.
<ROIO_MT_PARAM>-DISVARIANT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ROIO_MT_PARAM-REPORT, sy-vline,
  WA_ROIO_MT_PARAM-HANDLE, sy-vline,
  WA_ROIO_MT_PARAM-LOG_GROUP, sy-vline,
  WA_ROIO_MT_PARAM-USERNAME, sy-vline,
  WA_ROIO_MT_PARAM-VARIANT, sy-vline,
  WA_ROIO_MT_PARAM-TEXT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_ROIO_MT_PARAM 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_ROIO_MT_PARAM 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_ROIO_MT_PARAM INTO WA_ROIO_MT_PARAM.


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

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

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

*Conversion exit ALPHA, internal->external for field MTPRF
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_ROIO_MT_PARAM-MTPRF
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ROIO_MT_PARAM-MTPRF.
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_ROIO_MT_PARAM_STR, 
REPID TYPE STRING,
OBJTY TYPE STRING,
MTPROF TYPE STRING,
TITLE TYPE STRING,
DISVARIANT TYPE STRING,
REPORT TYPE STRING,
HANDLE TYPE STRING,
LOG_GROUP TYPE STRING,
USERNAME TYPE STRING,
VARIANT TYPE STRING,
TEXT TYPE STRING,
DEPENDVARS TYPE STRING,
ALVSAVE TYPE STRING,
PRINT_IMMED TYPE STRING,
DMDAT TYPE STRING,
RALIM_01 TYPE STRING,
RALIM_02 TYPE STRING,
FLT TYPE STRING,
MTSTA_LO TYPE STRING,
MTSTA_HI TYPE STRING,
X_DELETED TYPE STRING,
X_RELEASED TYPE STRING,
X_HELD TYPE STRING,
MTX TYPE STRING,
MTXUS TYPE STRING,
MTXID TYPE STRING,
MTXTY TYPE STRING,
MTXGP TYPE STRING,
MTXNM TYPE STRING,
RETPD TYPE STRING,
EXPDT TYPE STRING,
PGMID TYPE STRING,
MTPRF TYPE STRING,
CR_USER TYPE STRING,
CR_TSTMP TYPE STRING,
CH_USER TYPE STRING,
CH_TSTMP TYPE STRING,END OF T_EKKO_STR.
DATA: WA_ROIO_MT_PARAM_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_ROIO_MT_PARAM_STR-REPID sy-vline 
WA_ROIO_MT_PARAM_STR-OBJTY sy-vline 
WA_ROIO_MT_PARAM_STR-MTPROF sy-vline 
WA_ROIO_MT_PARAM_STR-TITLE sy-vline 
WA_ROIO_MT_PARAM_STR-DISVARIANT sy-vline 
WA_ROIO_MT_PARAM_STR-REPORT sy-vline 
WA_ROIO_MT_PARAM_STR-HANDLE sy-vline 
WA_ROIO_MT_PARAM_STR-LOG_GROUP sy-vline 
WA_ROIO_MT_PARAM_STR-USERNAME sy-vline 
WA_ROIO_MT_PARAM_STR-VARIANT sy-vline 
WA_ROIO_MT_PARAM_STR-TEXT sy-vline 
WA_ROIO_MT_PARAM_STR-DEPENDVARS sy-vline 
WA_ROIO_MT_PARAM_STR-ALVSAVE sy-vline 
WA_ROIO_MT_PARAM_STR-PRINT_IMMED sy-vline 
WA_ROIO_MT_PARAM_STR-DMDAT sy-vline 
WA_ROIO_MT_PARAM_STR-RALIM_01 sy-vline 
WA_ROIO_MT_PARAM_STR-RALIM_02 sy-vline 
WA_ROIO_MT_PARAM_STR-FLT sy-vline 
WA_ROIO_MT_PARAM_STR-MTSTA_LO sy-vline 
WA_ROIO_MT_PARAM_STR-MTSTA_HI sy-vline 
WA_ROIO_MT_PARAM_STR-X_DELETED sy-vline 
WA_ROIO_MT_PARAM_STR-X_RELEASED sy-vline 
WA_ROIO_MT_PARAM_STR-X_HELD sy-vline 
WA_ROIO_MT_PARAM_STR-MTX sy-vline 
WA_ROIO_MT_PARAM_STR-MTXUS sy-vline 
WA_ROIO_MT_PARAM_STR-MTXID sy-vline 
WA_ROIO_MT_PARAM_STR-MTXTY sy-vline 
WA_ROIO_MT_PARAM_STR-MTXGP sy-vline 
WA_ROIO_MT_PARAM_STR-MTXNM sy-vline 
WA_ROIO_MT_PARAM_STR-RETPD sy-vline 
WA_ROIO_MT_PARAM_STR-EXPDT sy-vline 
WA_ROIO_MT_PARAM_STR-PGMID sy-vline 
WA_ROIO_MT_PARAM_STR-MTPRF sy-vline 
WA_ROIO_MT_PARAM_STR-CR_USER sy-vline 
WA_ROIO_MT_PARAM_STR-CR_TSTMP sy-vline 
WA_ROIO_MT_PARAM_STR-CH_USER sy-vline 
WA_ROIO_MT_PARAM_STR-CH_TSTMP sy-vline      INTO ld_text SEPARATED BY SPACE.

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