ABAP Select data from SAP table /ISDFPS/RE_MS_UV 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 /ISDFPS/RE_MS_UV 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 /ISDFPS/RE_MS_UV. 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 /ISDFPS/RE_MS_UV 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_/ISDFPS/RE_MS_UV TYPE STANDARD TABLE OF /ISDFPS/RE_MS_UV,
      WA_/ISDFPS/RE_MS_UV TYPE /ISDFPS/RE_MS_UV,
      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: </ISDFPS/RE_MS_UV> TYPE /ISDFPS/RE_MS_UV.

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

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM /ISDFPS/RE_MS_UV
  INTO TABLE IT_/ISDFPS/RE_MS_UV.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM /ISDFPS/RE_MS_UV
*  INTO TABLE @DATA(IT_/ISDFPS/RE_MS_UV2).
*--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_/ISDFPS/RE_MS_UV INDEX 1 INTO DATA(WA_/ISDFPS/RE_MS_UV2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/ISDFPS/RE_MS_UV ASSIGNING </ISDFPS/RE_MS_UV>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
</ISDFPS/RE_MS_UV>-INTRENO = 1.
</ISDFPS/RE_MS_UV>-RECNNR = 1.
</ISDFPS/RE_MS_UV>-RECNTXT = 1.
</ISDFPS/RE_MS_UV>-RECNTYPE = 1.
</ISDFPS/RE_MS_UV>-XSRECNTYPE = 1.
ENDLOOP.

LOOP AT IT_/ISDFPS/RE_MS_UV INTO WA_/ISDFPS/RE_MS_UV.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/ISDFPS/RE_MS_UV-XMRECNTYPE, sy-vline,
WA_/ISDFPS/RE_MS_UV-OBJECTICON, sy-vline,
WA_/ISDFPS/RE_MS_UV-OBJECTID, sy-vline,
WA_/ISDFPS/RE_MS_UV-OBJECTTEXT, sy-vline,
WA_/ISDFPS/RE_MS_UV-SMENR, sy-vline,
WA_/ISDFPS/RE_MS_UV-XMETXT, sy-vline.
ENDLOOP. *Add any further fields from structure WA_/ISDFPS/RE_MS_UV 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_/ISDFPS/RE_MS_UV 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_/ISDFPS/RE_MS_UV INTO WA_/ISDFPS/RE_MS_UV. *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 RECNNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_/ISDFPS/RE_MS_UV-RECNNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/ISDFPS/RE_MS_UV-RECNNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SMENR, internal->external for field SMENR CALL FUNCTION 'CONVERSION_EXIT_SMENR_OUTPUT' EXPORTING input = WA_/ISDFPS/RE_MS_UV-SMENR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/ISDFPS/RE_MS_UV-SMENR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit REDAT, internal->external for field VALIDTO CALL FUNCTION 'CONVERSION_EXIT_REDAT_OUTPUT' EXPORTING input = WA_/ISDFPS/RE_MS_UV-VALIDTO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/ISDFPS/RE_MS_UV-VALIDTO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field PRBU_FCT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_/ISDFPS/RE_MS_UV-PRBU_FCT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/ISDFPS/RE_MS_UV-PRBU_FCT.
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_/ISDFPS/RE_MS_UV_STR,
INTRENO TYPE STRING,
RECNNR TYPE STRING,
RECNTXT TYPE STRING,
RECNTYPE TYPE STRING,
XSRECNTYPE TYPE STRING,
XMRECNTYPE TYPE STRING,
OBJECTICON TYPE STRING,
OBJECTID TYPE STRING,
OBJECTTEXT TYPE STRING,
SMENR TYPE STRING,
XMETXT TYPE STRING,
ROTYPE TYPE STRING,
XLROTYPE TYPE STRING,
SNUNR TYPE STRING,
XMUSGTYPE TYPE STRING,
MEAS TYPE STRING,
XSMEAS TYPE STRING,
XMMEAS TYPE STRING,
MEASVALUE TYPE STRING,
MEASVALUECMPL TYPE STRING,
MEASUNIT TYPE STRING,
VALIDFROM TYPE STRING,
VALIDTO TYPE STRING,
ISMANUALLYSET TYPE STRING,
ISHIERARCHICAL TYPE STRING,
ISSUMMEAS TYPE STRING,
MEASSUMINFO TYPE STRING,
PRBU_TYPE TYPE STRING,
PRBU_ID TYPE STRING,
PRBU_XTXT TYPE STRING,
PRBU_KEY TYPE STRING,
PRBU_FCT TYPE STRING,
PRBU_XMFCT TYPE STRING,END OF T_EKKO_STR. DATA: WA_/ISDFPS/RE_MS_UV_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_/ISDFPS/RE_MS_UV_STR-INTRENO sy-vline
WA_/ISDFPS/RE_MS_UV_STR-RECNNR sy-vline
WA_/ISDFPS/RE_MS_UV_STR-RECNTXT sy-vline
WA_/ISDFPS/RE_MS_UV_STR-RECNTYPE sy-vline
WA_/ISDFPS/RE_MS_UV_STR-XSRECNTYPE sy-vline
WA_/ISDFPS/RE_MS_UV_STR-XMRECNTYPE sy-vline
WA_/ISDFPS/RE_MS_UV_STR-OBJECTICON sy-vline
WA_/ISDFPS/RE_MS_UV_STR-OBJECTID sy-vline
WA_/ISDFPS/RE_MS_UV_STR-OBJECTTEXT sy-vline
WA_/ISDFPS/RE_MS_UV_STR-SMENR sy-vline
WA_/ISDFPS/RE_MS_UV_STR-XMETXT sy-vline
WA_/ISDFPS/RE_MS_UV_STR-ROTYPE sy-vline
WA_/ISDFPS/RE_MS_UV_STR-XLROTYPE sy-vline
WA_/ISDFPS/RE_MS_UV_STR-SNUNR sy-vline
WA_/ISDFPS/RE_MS_UV_STR-XMUSGTYPE sy-vline
WA_/ISDFPS/RE_MS_UV_STR-MEAS sy-vline
WA_/ISDFPS/RE_MS_UV_STR-XSMEAS sy-vline
WA_/ISDFPS/RE_MS_UV_STR-XMMEAS sy-vline
WA_/ISDFPS/RE_MS_UV_STR-MEASVALUE sy-vline
WA_/ISDFPS/RE_MS_UV_STR-MEASVALUECMPL sy-vline
WA_/ISDFPS/RE_MS_UV_STR-MEASUNIT sy-vline
WA_/ISDFPS/RE_MS_UV_STR-VALIDFROM sy-vline
WA_/ISDFPS/RE_MS_UV_STR-VALIDTO sy-vline
WA_/ISDFPS/RE_MS_UV_STR-ISMANUALLYSET sy-vline
WA_/ISDFPS/RE_MS_UV_STR-ISHIERARCHICAL sy-vline
WA_/ISDFPS/RE_MS_UV_STR-ISSUMMEAS sy-vline
WA_/ISDFPS/RE_MS_UV_STR-MEASSUMINFO sy-vline
WA_/ISDFPS/RE_MS_UV_STR-PRBU_TYPE sy-vline
WA_/ISDFPS/RE_MS_UV_STR-PRBU_ID sy-vline
WA_/ISDFPS/RE_MS_UV_STR-PRBU_XTXT sy-vline
WA_/ISDFPS/RE_MS_UV_STR-PRBU_KEY sy-vline
WA_/ISDFPS/RE_MS_UV_STR-PRBU_FCT sy-vline
WA_/ISDFPS/RE_MS_UV_STR-PRBU_XMFCT sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.