ABAP Select data from SAP table RMQSD into internal table

Get Example source ABAP code based on a different SAP table
  

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.