ABAP Select data from SAP table RMXTS_HITLIST_TRIAL2 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 RMXTS_HITLIST_TRIAL2 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 RMXTS_HITLIST_TRIAL2. 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 RMXTS_HITLIST_TRIAL2 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_RMXTS_HITLIST_TRIAL2 TYPE STANDARD TABLE OF RMXTS_HITLIST_TRIAL2,
      WA_RMXTS_HITLIST_TRIAL2 TYPE RMXTS_HITLIST_TRIAL2,
      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: <RMXTS_HITLIST_TRIAL2> TYPE RMXTS_HITLIST_TRIAL2.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RMXTS_HITLIST_TRIAL2
*  INTO TABLE @DATA(IT_RMXTS_HITLIST_TRIAL22).
*--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_RMXTS_HITLIST_TRIAL2 INDEX 1 INTO DATA(WA_RMXTS_HITLIST_TRIAL22).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_RMXTS_HITLIST_TRIAL2 ASSIGNING <RMXTS_HITLIST_TRIAL2>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<RMXTS_HITLIST_TRIAL2>-TRIALID = 1.
<RMXTS_HITLIST_TRIAL2>-TRIALTYPE = 1.
<RMXTS_HITLIST_TRIAL2>-OBJNR = 1.
<RMXTS_HITLIST_TRIAL2>-TRIALNAME = 1.
<RMXTS_HITLIST_TRIAL2>-PRODUCT = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RMXTS_HITLIST_TRIAL2-PLANT, sy-vline,
WA_RMXTS_HITLIST_TRIAL2-PROJECT, sy-vline,
WA_RMXTS_HITLIST_TRIAL2-LINE, sy-vline,
WA_RMXTS_HITLIST_TRIAL2-RESPONSIBLE, sy-vline,
WA_RMXTS_HITLIST_TRIAL2-ORGID, sy-vline,
WA_RMXTS_HITLIST_TRIAL2-AUTHGRP, sy-vline.
ENDLOOP. *Add any further fields from structure WA_RMXTS_HITLIST_TRIAL2 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_RMXTS_HITLIST_TRIAL2 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_RMXTS_HITLIST_TRIAL2 INTO WA_RMXTS_HITLIST_TRIAL2. *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 TRIALID CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_RMXTS_HITLIST_TRIAL2-TRIALID IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RMXTS_HITLIST_TRIAL2-TRIALID.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field SUPER_TRIAL CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_RMXTS_HITLIST_TRIAL2-SUPER_TRIAL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RMXTS_HITLIST_TRIAL2-SUPER_TRIAL.
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_RMXTS_HITLIST_TRIAL2_STR,
TRIALID TYPE STRING,
TRIALTYPE TYPE STRING,
OBJNR TYPE STRING,
TRIALNAME TYPE STRING,
PRODUCT TYPE STRING,
PLANT TYPE STRING,
PROJECT TYPE STRING,
LINE TYPE STRING,
RESPONSIBLE TYPE STRING,
ORGID TYPE STRING,
AUTHGRP TYPE STRING,
RECIPE TYPE STRING,
DURA TYPE STRING,
DURA_UNIT TYPE STRING,
BATCH TYPE STRING,
TRIALQTY TYPE STRING,
MEINS TYPE STRING,
DAY_REQ_START TYPE STRING,
DAY_REQ_END TYPE STRING,
DAY_SHD_START TYPE STRING,
DAY_SHD_END TYPE STRING,
DAY_EXE_START TYPE STRING,
DAY_EXE_END TYPE STRING,
ADM_CREA_BY TYPE STRING,
ADM_CREA_AT TYPE STRING,
ADM_CHG_BY TYPE STRING,
ADM_CHG_AT TYPE STRING,
LOGSYS TYPE STRING,
PRODH TYPE STRING,
VTEXT TYPE STRING,
AUFNR TYPE STRING,
PLNUM TYPE STRING,
SUPER_TRIAL TYPE STRING,END OF T_EKKO_STR. DATA: WA_RMXTS_HITLIST_TRIAL2_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_RMXTS_HITLIST_TRIAL2_STR-TRIALID sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-TRIALTYPE sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-OBJNR sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-TRIALNAME sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-PRODUCT sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-PLANT sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-PROJECT sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-LINE sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-RESPONSIBLE sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-ORGID sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-AUTHGRP sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-RECIPE sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-DURA sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-DURA_UNIT sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-BATCH sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-TRIALQTY sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-MEINS sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-DAY_REQ_START sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-DAY_REQ_END sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-DAY_SHD_START sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-DAY_SHD_END sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-DAY_EXE_START sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-DAY_EXE_END sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-ADM_CREA_BY sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-ADM_CREA_AT sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-ADM_CHG_BY sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-ADM_CHG_AT sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-LOGSYS sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-PRODH sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-VTEXT sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-AUFNR sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-PLNUM sy-vline
WA_RMXTS_HITLIST_TRIAL2_STR-SUPER_TRIAL sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.