ABAP Select data from SAP table RMQSD 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 RMQSD 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 RMQSD. 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 RMQSD 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_RMQSD TYPE STANDARD TABLE OF RMQSD,
      WA_RMQSD TYPE RMQSD,
      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: <RMQSD> TYPE RMQSD.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RMQSD
*  INTO TABLE @DATA(IT_RMQSD2).
*--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_RMQSD INDEX 1 INTO DATA(WA_RMQSD2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RMQSD>-REFWERK = 1.
<RMQSD>-REFMKMNR = 1.
<RMQSD>-REFGUELTIG = 1.
<RMQSD>-REFVERSION = 1.
<RMQSD>-GUELTIGAM = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RMQSD-MTTEXT, sy-vline,
  WA_RMQSD-LOWERK, sy-vline,
  WA_RMQSD-HIWERK, sy-vline,
  WA_RMQSD-LOPMTNR, sy-vline,
  WA_RMQSD-HIPMTNR, sy-vline,
  WA_RMQSD-WSPR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RMQSD 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_RMQSD 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_RMQSD INTO WA_RMQSD.


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

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

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

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

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

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

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

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

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

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

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

*Conversion exit CUNIT, internal->external for field MSEHI
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RMQSD-MSEHI
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMQSD-MSEHI.
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_RMQSD_STR, 
REFWERK TYPE STRING,
REFMKMNR TYPE STRING,
REFGUELTIG TYPE STRING,
REFVERSION TYPE STRING,
GUELTIGAM TYPE STRING,
MTTEXT TYPE STRING,
LOWERK TYPE STRING,
HIWERK TYPE STRING,
LOPMTNR TYPE STRING,
HIPMTNR TYPE STRING,
WSPR TYPE STRING,
PROBEZIEH TYPE STRING,
METHODEN TYPE STRING,
KATALOGE TYPE STRING,
QUANDATEN TYPE STRING,
KZKLASS TYPE STRING,
PMWERK TYPE STRING,
PMTNR TYPE STRING,
PMVERSION TYPE STRING,
KTSCHLAGW1 TYPE STRING,
KTSCHLAGW2 TYPE STRING,
KTSCHLAGW3 TYPE STRING,
KTSCHLAGW4 TYPE STRING,
KTSCHLAGW5 TYPE STRING,
AWMNGKTX1 TYPE STRING,
AWMNGKTX2 TYPE STRING,
AWMNGKTX3 TYPE STRING,
AWMNGKTX4 TYPE STRING,
AWMNGKTX5 TYPE STRING,
PKLSPERR1 TYPE STRING,
PKLSPERR2 TYPE STRING,
PKLSPERR3 TYPE STRING,
PKLSPERR4 TYPE STRING,
PKLSPERR5 TYPE STRING,
KATART TYPE STRING,
KAWERK TYPE STRING,
AWMENGE TYPE STRING,
LSPER TYPE STRING,
KZ_TXT_AEN TYPE STRING,
KZ_MET_AEN TYPE STRING,
KZ_KAT TYPE STRING,
KZ_VERW TYPE STRING,
KZ_NC_AMK TYPE STRING,
KZ_NC_EINH TYPE STRING,
KZ_NC_MENG TYPE STRING,
KZ_NC_MESS TYPE STRING,
KZ_NC_TOLO TYPE STRING,
KZ_NC_TOLU TYPE STRING,
KZ_NC_TYP TYPE STRING,
KZ_NC_ESTU TYPE STRING,
KZ_NC_CLAS TYPE STRING,
WERKS_VON TYPE STRING,
WERKS_BIS TYPE STRING,
MERKMALVON TYPE STRING,
MERKMALBIS TYPE STRING,
VERSION TYPE STRING,
GUELTIGAB TYPE STRING,
VORLAGE TYPE STRING,
KZABBR TYPE STRING,
KZLOESCH TYPE STRING,
KZDATEN TYPE STRING,
QUANTITAET TYPE STRING,
QUALITAET TYPE STRING,
VSTEUERKZ TYPE STRING,
STATUSTEXT TYPE STRING,
ARGUMENT TYPE STRING,
GESAMT TYPE STRING,
AENNR TYPE STRING,
MASSEINHSW TYPE STRING,
MSEHI TYPE STRING,
CODETXTQL TYPE STRING,
ATNAM TYPE STRING,
KZ_ATNAM TYPE STRING,
PMERKMALE TYPE STRING,
AMERKMALE TYPE STRING,
CHAR_INFO1 TYPE STRING,
QMASTMOD TYPE STRING,
QMASTMODMETH TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RMQSD_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_RMQSD_STR-REFWERK sy-vline 
WA_RMQSD_STR-REFMKMNR sy-vline 
WA_RMQSD_STR-REFGUELTIG sy-vline 
WA_RMQSD_STR-REFVERSION sy-vline 
WA_RMQSD_STR-GUELTIGAM sy-vline 
WA_RMQSD_STR-MTTEXT sy-vline 
WA_RMQSD_STR-LOWERK sy-vline 
WA_RMQSD_STR-HIWERK sy-vline 
WA_RMQSD_STR-LOPMTNR sy-vline 
WA_RMQSD_STR-HIPMTNR sy-vline 
WA_RMQSD_STR-WSPR sy-vline 
WA_RMQSD_STR-PROBEZIEH sy-vline 
WA_RMQSD_STR-METHODEN sy-vline 
WA_RMQSD_STR-KATALOGE sy-vline 
WA_RMQSD_STR-QUANDATEN sy-vline 
WA_RMQSD_STR-KZKLASS sy-vline 
WA_RMQSD_STR-PMWERK sy-vline 
WA_RMQSD_STR-PMTNR sy-vline 
WA_RMQSD_STR-PMVERSION sy-vline 
WA_RMQSD_STR-KTSCHLAGW1 sy-vline 
WA_RMQSD_STR-KTSCHLAGW2 sy-vline 
WA_RMQSD_STR-KTSCHLAGW3 sy-vline 
WA_RMQSD_STR-KTSCHLAGW4 sy-vline 
WA_RMQSD_STR-KTSCHLAGW5 sy-vline 
WA_RMQSD_STR-AWMNGKTX1 sy-vline 
WA_RMQSD_STR-AWMNGKTX2 sy-vline 
WA_RMQSD_STR-AWMNGKTX3 sy-vline 
WA_RMQSD_STR-AWMNGKTX4 sy-vline 
WA_RMQSD_STR-AWMNGKTX5 sy-vline 
WA_RMQSD_STR-PKLSPERR1 sy-vline 
WA_RMQSD_STR-PKLSPERR2 sy-vline 
WA_RMQSD_STR-PKLSPERR3 sy-vline 
WA_RMQSD_STR-PKLSPERR4 sy-vline 
WA_RMQSD_STR-PKLSPERR5 sy-vline 
WA_RMQSD_STR-KATART sy-vline 
WA_RMQSD_STR-KAWERK sy-vline 
WA_RMQSD_STR-AWMENGE sy-vline 
WA_RMQSD_STR-LSPER sy-vline 
WA_RMQSD_STR-KZ_TXT_AEN sy-vline 
WA_RMQSD_STR-KZ_MET_AEN sy-vline 
WA_RMQSD_STR-KZ_KAT sy-vline 
WA_RMQSD_STR-KZ_VERW sy-vline 
WA_RMQSD_STR-KZ_NC_AMK sy-vline 
WA_RMQSD_STR-KZ_NC_EINH sy-vline 
WA_RMQSD_STR-KZ_NC_MENG sy-vline 
WA_RMQSD_STR-KZ_NC_MESS sy-vline 
WA_RMQSD_STR-KZ_NC_TOLO sy-vline 
WA_RMQSD_STR-KZ_NC_TOLU sy-vline 
WA_RMQSD_STR-KZ_NC_TYP sy-vline 
WA_RMQSD_STR-KZ_NC_ESTU sy-vline 
WA_RMQSD_STR-KZ_NC_CLAS sy-vline 
WA_RMQSD_STR-WERKS_VON sy-vline 
WA_RMQSD_STR-WERKS_BIS sy-vline 
WA_RMQSD_STR-MERKMALVON sy-vline 
WA_RMQSD_STR-MERKMALBIS sy-vline 
WA_RMQSD_STR-VERSION sy-vline 
WA_RMQSD_STR-GUELTIGAB sy-vline 
WA_RMQSD_STR-VORLAGE sy-vline 
WA_RMQSD_STR-KZABBR sy-vline 
WA_RMQSD_STR-KZLOESCH sy-vline 
WA_RMQSD_STR-KZDATEN sy-vline 
WA_RMQSD_STR-QUANTITAET sy-vline 
WA_RMQSD_STR-QUALITAET sy-vline 
WA_RMQSD_STR-VSTEUERKZ sy-vline 
WA_RMQSD_STR-STATUSTEXT sy-vline 
WA_RMQSD_STR-ARGUMENT sy-vline 
WA_RMQSD_STR-GESAMT sy-vline 
WA_RMQSD_STR-AENNR sy-vline 
WA_RMQSD_STR-MASSEINHSW sy-vline 
WA_RMQSD_STR-MSEHI sy-vline 
WA_RMQSD_STR-CODETXTQL sy-vline 
WA_RMQSD_STR-ATNAM sy-vline 
WA_RMQSD_STR-KZ_ATNAM sy-vline 
WA_RMQSD_STR-PMERKMALE sy-vline 
WA_RMQSD_STR-AMERKMALE sy-vline 
WA_RMQSD_STR-CHAR_INFO1 sy-vline 
WA_RMQSD_STR-QMASTMOD sy-vline 
WA_RMQSD_STR-QMASTMODMETH sy-vline      INTO ld_text SEPARATED BY SPACE.

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