ABAP Select data from SAP table MLSTB 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 MLSTB 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 MLSTB. 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 MLSTB 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_MLSTB TYPE STANDARD TABLE OF MLSTB,
      WA_MLSTB TYPE MLSTB,
      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: <MLSTB> TYPE MLSTB.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM MLSTB
*  INTO TABLE @DATA(IT_MLSTB2).
*--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_MLSTB INDEX 1 INTO DATA(WA_MLSTB2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_MLSTB ASSIGNING <MLSTB>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<MLSTB>-MLST_MANDT = 1.
<MLSTB>-MLST_ZAEHL = 1.
<MLSTB>-ZAEHL = 1.
<MLSTB>-DATUV = 1.
<MLSTB>-TECHV = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_MLSTB-AENNR, sy-vline,
WA_MLSTB-LOEKZ, sy-vline,
WA_MLSTB-MLSTN, sy-vline,
WA_MLSTB-USERH, sy-vline,
WA_MLSTB-DATEH, sy-vline,
WA_MLSTB-USERV, sy-vline.
ENDLOOP. *Add any further fields from structure WA_MLSTB 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_MLSTB 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_MLSTB INTO WA_MLSTB. *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 AENNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_MLSTB-AENNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLSTB-AENNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

*Conversion exit NUMCV, internal->external for field VORNR_ICPN CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT' EXPORTING input = WA_MLSTB-VORNR_ICPN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLSTB-VORNR_ICPN.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit NUMCV, internal->external for field OPRST_ICSN CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT' EXPORTING input = WA_MLSTB-OPRST_ICSN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLSTB-OPRST_ICSN.
WRITE:/ 'New Value:', ld_input.

*Conversion exit NUMCV, internal->external for field OPREN_ICSN CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT' EXPORTING input = WA_MLSTB-OPREN_ICSN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLSTB-OPREN_ICSN.
WRITE:/ 'New Value:', ld_input.

*Conversion exit KONPT, internal->external for field SPSNR CALL FUNCTION 'CONVERSION_EXIT_KONPT_OUTPUT' EXPORTING input = WA_MLSTB-SPSNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLSTB-SPSNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ISOLA, internal->external for field LANGU CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT' EXPORTING input = WA_MLSTB-LANGU IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLSTB-LANGU.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ISOLA, internal->external for field LTXSP CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT' EXPORTING input = WA_MLSTB-LTXSP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLSTB-LTXSP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field AUFNR_T CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_MLSTB-AUFNR_T IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLSTB-AUFNR_T.
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_MLSTB_STR,
MLST_MANDT TYPE STRING,
MLST_ZAEHL TYPE STRING,
ZAEHL TYPE STRING,
DATUV TYPE STRING,
TECHV TYPE STRING,
AENNR TYPE STRING,
LOEKZ TYPE STRING,
MLSTN TYPE STRING,
USERH TYPE STRING,
DATEH TYPE STRING,
USERV TYPE STRING,
DATEV TYPE STRING,
PLNNR TYPE STRING,
PLNTY TYPE STRING,
PLNAL TYPE STRING,
PLNKN TYPE STRING,
AUTYP TYPE STRING,
AUFPL TYPE STRING,
APLZL TYPE STRING,
PSPNR TYPE STRING,
TEDAT TYPE STRING,
TETIM TYPE STRING,
TPDAT TYPE STRING,
TPTIM TYPE STRING,
EDATU TYPE STRING,
EZEIT TYPE STRING,
PDATU TYPE STRING,
PZEIT TYPE STRING,
LATED TYPE STRING,
DLTAS TYPE STRING,
DELTA TYPE STRING,
DELTE TYPE STRING,
PRCNT TYPE STRING,
SDDAT TYPE STRING,
KZ_TREND TYPE STRING,
KZ_LSTWR TYPE STRING,
KZ_WFLOW TYPE STRING,
KZ_FAKTP TYPE STRING,
KZ_FRMST TYPE STRING,
LST_FERTG TYPE STRING,
LST_ACTDT TYPE STRING,
LST_ACTTM TYPE STRING,
RUECK TYPE STRING,
RMZHL TYPE STRING,
AUART_ICNW TYPE STRING,
STDNR_ICNW TYPE STRING,
ALTNR_ICNW TYPE STRING,
STDNR_ICPN TYPE STRING,
ALTNR_ICPN TYPE STRING,
VORNR_ICPN TYPE STRING,
STDNR_ICSN TYPE STRING,
ALTNR_ICSN TYPE STRING,
OPRST_ICSN TYPE STRING,
OPREN_ICSN TYPE STRING,
TASK_ID TYPE STRING,
RELSU TYPE STRING,
RELMS TYPE STRING,
INCPN TYPE STRING,
INCNW TYPE STRING,
INCSN TYPE STRING,
WKFLW TYPE STRING,
RELSU_AL TYPE STRING,
RELMS_AL TYPE STRING,
INCPN_AL TYPE STRING,
INCNW_AL TYPE STRING,
INCSN_AL TYPE STRING,
WKFLW_AL TYPE STRING,
RELSU_SS TYPE STRING,
RELMS_SS TYPE STRING,
INCPN_SS TYPE STRING,
INCNW_SS TYPE STRING,
INCSN_SS TYPE STRING,
WKFLW_SS TYPE STRING,
RELSU_US TYPE STRING,
RELMS_US TYPE STRING,
INCPN_US TYPE STRING,
INCNW_US TYPE STRING,
INCSN_US TYPE STRING,
WKFLW_US TYPE STRING,
RELSU_SM TYPE STRING,
RELMS_SM TYPE STRING,
INCPN_SM TYPE STRING,
INCNW_SM TYPE STRING,
INCSN_SM TYPE STRING,
WKFLW_SM TYPE STRING,
RELSU_CH TYPE STRING,
RELMS_CH TYPE STRING,
INCPN_CH TYPE STRING,
INCNW_CH TYPE STRING,
INCSN_CH TYPE STRING,
WKFLW_CH TYPE STRING,
RELSU_SG TYPE STRING,
RELMS_SG TYPE STRING,
INCPN_SG TYPE STRING,
INCNW_SG TYPE STRING,
INCSN_SG TYPE STRING,
WKFLW_SG TYPE STRING,
RELSU_TR TYPE STRING,
RELMS_TR TYPE STRING,
INCPN_TR TYPE STRING,
INCNW_TR TYPE STRING,
INCSN_TR TYPE STRING,
WKFLW_TR TYPE STRING,
BEGRU TYPE STRING,
STSMA TYPE STRING,
SPSNR TYPE STRING,
FPROZ TYPE STRING,
COMP_RES TYPE STRING,
CH_PROC TYPE STRING,
EEW_MLST_PS_DUMMY TYPE STRING,
MLTX_MANDT TYPE STRING,
MLTX_ZAEHL TYPE STRING,
LANGU TYPE STRING,
AEND_ZAEHL TYPE STRING,
KTEXT TYPE STRING,
LTXSP TYPE STRING,
VSNMR TYPE STRING,
MLST_ZAEHL_ORG TYPE STRING,
ZAEHL_EXT_ORG TYPE STRING,
MLST_ZAEHL_EXT TYPE STRING,
ZAEHL_EXT TYPE STRING,
FLG_SEL TYPE STRING,
AUFNR_T TYPE STRING,
VBKZ_MLST TYPE STRING,
VBKZ_MLTX TYPE STRING,
DATUB TYPE STRING,
CREATE TYPE STRING,
CHANGE TYPE STRING,
DISPLAY TYPE STRING,
ACTDATES TYPE STRING,
TIMESCHD TYPE STRING,
TIMEDISP TYPE STRING,END OF T_EKKO_STR. DATA: WA_MLSTB_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_MLSTB_STR-MLST_MANDT sy-vline
WA_MLSTB_STR-MLST_ZAEHL sy-vline
WA_MLSTB_STR-ZAEHL sy-vline
WA_MLSTB_STR-DATUV sy-vline
WA_MLSTB_STR-TECHV sy-vline
WA_MLSTB_STR-AENNR sy-vline
WA_MLSTB_STR-LOEKZ sy-vline
WA_MLSTB_STR-MLSTN sy-vline
WA_MLSTB_STR-USERH sy-vline
WA_MLSTB_STR-DATEH sy-vline
WA_MLSTB_STR-USERV sy-vline
WA_MLSTB_STR-DATEV sy-vline
WA_MLSTB_STR-PLNNR sy-vline
WA_MLSTB_STR-PLNTY sy-vline
WA_MLSTB_STR-PLNAL sy-vline
WA_MLSTB_STR-PLNKN sy-vline
WA_MLSTB_STR-AUTYP sy-vline
WA_MLSTB_STR-AUFPL sy-vline
WA_MLSTB_STR-APLZL sy-vline
WA_MLSTB_STR-PSPNR sy-vline
WA_MLSTB_STR-TEDAT sy-vline
WA_MLSTB_STR-TETIM sy-vline
WA_MLSTB_STR-TPDAT sy-vline
WA_MLSTB_STR-TPTIM sy-vline
WA_MLSTB_STR-EDATU sy-vline
WA_MLSTB_STR-EZEIT sy-vline
WA_MLSTB_STR-PDATU sy-vline
WA_MLSTB_STR-PZEIT sy-vline
WA_MLSTB_STR-LATED sy-vline
WA_MLSTB_STR-DLTAS sy-vline
WA_MLSTB_STR-DELTA sy-vline
WA_MLSTB_STR-DELTE sy-vline
WA_MLSTB_STR-PRCNT sy-vline
WA_MLSTB_STR-SDDAT sy-vline
WA_MLSTB_STR-KZ_TREND sy-vline
WA_MLSTB_STR-KZ_LSTWR sy-vline
WA_MLSTB_STR-KZ_WFLOW sy-vline
WA_MLSTB_STR-KZ_FAKTP sy-vline
WA_MLSTB_STR-KZ_FRMST sy-vline
WA_MLSTB_STR-LST_FERTG sy-vline
WA_MLSTB_STR-LST_ACTDT sy-vline
WA_MLSTB_STR-LST_ACTTM sy-vline
WA_MLSTB_STR-RUECK sy-vline
WA_MLSTB_STR-RMZHL sy-vline
WA_MLSTB_STR-AUART_ICNW sy-vline
WA_MLSTB_STR-STDNR_ICNW sy-vline
WA_MLSTB_STR-ALTNR_ICNW sy-vline
WA_MLSTB_STR-STDNR_ICPN sy-vline
WA_MLSTB_STR-ALTNR_ICPN sy-vline
WA_MLSTB_STR-VORNR_ICPN sy-vline
WA_MLSTB_STR-STDNR_ICSN sy-vline
WA_MLSTB_STR-ALTNR_ICSN sy-vline
WA_MLSTB_STR-OPRST_ICSN sy-vline
WA_MLSTB_STR-OPREN_ICSN sy-vline
WA_MLSTB_STR-TASK_ID sy-vline
WA_MLSTB_STR-RELSU sy-vline
WA_MLSTB_STR-RELMS sy-vline
WA_MLSTB_STR-INCPN sy-vline
WA_MLSTB_STR-INCNW sy-vline
WA_MLSTB_STR-INCSN sy-vline
WA_MLSTB_STR-WKFLW sy-vline
WA_MLSTB_STR-RELSU_AL sy-vline
WA_MLSTB_STR-RELMS_AL sy-vline
WA_MLSTB_STR-INCPN_AL sy-vline
WA_MLSTB_STR-INCNW_AL sy-vline
WA_MLSTB_STR-INCSN_AL sy-vline
WA_MLSTB_STR-WKFLW_AL sy-vline
WA_MLSTB_STR-RELSU_SS sy-vline
WA_MLSTB_STR-RELMS_SS sy-vline
WA_MLSTB_STR-INCPN_SS sy-vline
WA_MLSTB_STR-INCNW_SS sy-vline
WA_MLSTB_STR-INCSN_SS sy-vline
WA_MLSTB_STR-WKFLW_SS sy-vline
WA_MLSTB_STR-RELSU_US sy-vline
WA_MLSTB_STR-RELMS_US sy-vline
WA_MLSTB_STR-INCPN_US sy-vline
WA_MLSTB_STR-INCNW_US sy-vline
WA_MLSTB_STR-INCSN_US sy-vline
WA_MLSTB_STR-WKFLW_US sy-vline
WA_MLSTB_STR-RELSU_SM sy-vline
WA_MLSTB_STR-RELMS_SM sy-vline
WA_MLSTB_STR-INCPN_SM sy-vline
WA_MLSTB_STR-INCNW_SM sy-vline
WA_MLSTB_STR-INCSN_SM sy-vline
WA_MLSTB_STR-WKFLW_SM sy-vline
WA_MLSTB_STR-RELSU_CH sy-vline
WA_MLSTB_STR-RELMS_CH sy-vline
WA_MLSTB_STR-INCPN_CH sy-vline
WA_MLSTB_STR-INCNW_CH sy-vline
WA_MLSTB_STR-INCSN_CH sy-vline
WA_MLSTB_STR-WKFLW_CH sy-vline
WA_MLSTB_STR-RELSU_SG sy-vline
WA_MLSTB_STR-RELMS_SG sy-vline
WA_MLSTB_STR-INCPN_SG sy-vline
WA_MLSTB_STR-INCNW_SG sy-vline
WA_MLSTB_STR-INCSN_SG sy-vline
WA_MLSTB_STR-WKFLW_SG sy-vline
WA_MLSTB_STR-RELSU_TR sy-vline
WA_MLSTB_STR-RELMS_TR sy-vline
WA_MLSTB_STR-INCPN_TR sy-vline
WA_MLSTB_STR-INCNW_TR sy-vline
WA_MLSTB_STR-INCSN_TR sy-vline
WA_MLSTB_STR-WKFLW_TR sy-vline
WA_MLSTB_STR-BEGRU sy-vline
WA_MLSTB_STR-STSMA sy-vline
WA_MLSTB_STR-SPSNR sy-vline
WA_MLSTB_STR-FPROZ sy-vline
WA_MLSTB_STR-COMP_RES sy-vline
WA_MLSTB_STR-CH_PROC sy-vline
WA_MLSTB_STR-EEW_MLST_PS_DUMMY sy-vline
WA_MLSTB_STR-MLTX_MANDT sy-vline
WA_MLSTB_STR-MLTX_ZAEHL sy-vline
WA_MLSTB_STR-LANGU sy-vline
WA_MLSTB_STR-AEND_ZAEHL sy-vline
WA_MLSTB_STR-KTEXT sy-vline
WA_MLSTB_STR-LTXSP sy-vline
WA_MLSTB_STR-VSNMR sy-vline
WA_MLSTB_STR-MLST_ZAEHL_ORG sy-vline
WA_MLSTB_STR-ZAEHL_EXT_ORG sy-vline
WA_MLSTB_STR-MLST_ZAEHL_EXT sy-vline
WA_MLSTB_STR-ZAEHL_EXT sy-vline
WA_MLSTB_STR-FLG_SEL sy-vline
WA_MLSTB_STR-AUFNR_T sy-vline
WA_MLSTB_STR-VBKZ_MLST sy-vline
WA_MLSTB_STR-VBKZ_MLTX sy-vline
WA_MLSTB_STR-DATUB sy-vline
WA_MLSTB_STR-CREATE sy-vline
WA_MLSTB_STR-CHANGE sy-vline
WA_MLSTB_STR-DISPLAY sy-vline
WA_MLSTB_STR-ACTDATES sy-vline
WA_MLSTB_STR-TIMESCHD sy-vline
WA_MLSTB_STR-TIMEDISP sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.