ABAP Select data from SAP table MLVS 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 MLVS 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 MLVS. 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 MLVS 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_MLVS TYPE STANDARD TABLE OF MLVS, WA_MLVS TYPE MLVS, 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: <MLVS> TYPE MLVS. *Process all fields in table header/work area as string values PERFORM process_as_string_field_values CHANGING wa_MLVS. SELECT * *restrict ABAP select to first 10 rows UP TO 10 ROWS FROM MLVS INTO TABLE IT_MLVS. *Select data and declare internal table using in-line method @DATA *SELECT * * FROM MLVS * INTO TABLE @DATA(IT_MLVS2). *--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_MLVS INDEX 1 INTO DATA(WA_MLVS2). *Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL LOOP AT IT_MLVS ASSIGNING <MLVS>.*To update a field value using a field symbol simply change the value via the field symbol pointer
<MLVS>-MATNR = 1.
<MLVS>-WERKS = 1.
<MLVS>-LGNUM = 1.
<MLVS>-LGBKZ = 1.
<MLVS>-LTKZE = 1.
ENDLOOP. LOOP AT IT_MLVS INTO WA_MLVS. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_MLVS-LTKZA, sy-vline,
WA_MLVS-LHMG1, sy-vline,
WA_MLVS-LHMG2, sy-vline,
WA_MLVS-LHMG3, sy-vline,
WA_MLVS-LETY1, sy-vline,
WA_MLVS-LETY2, sy-vline.
ENDLOOP. *Add any further fields from structure WA_MLVS 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_MLVS 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_MLVS INTO WA_MLVS. *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 MATN1, internal->external for field MATNR CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING input = WA_MLVS-MATNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLVS-MATNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field LVSME CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_MLVS-LVSME IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLVS-LVSME.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field AUSME CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_MLVS-AUSME IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLVS-AUSME.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field BSTME CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_MLVS-BSTME IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLVS-BSTME.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field MEINS CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_MLVS-MEINS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLVS-MEINS.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field GEWEI CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_MLVS-GEWEI IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLVS-GEWEI.
WRITE:/ 'New Value:', ld_input.
*Conversion exit MATN3, internal->external for field STOFF CALL FUNCTION 'CONVERSION_EXIT_MATN3_OUTPUT' EXPORTING input = WA_MLVS-STOFF IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLVS-STOFF.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field BEZME CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_MLVS-BEZME IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLVS-BEZME.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field VOLEH CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_MLVS-VOLEH IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLVS-VOLEH.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field LHME1 CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_MLVS-LHME1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLVS-LHME1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field LHME2 CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_MLVS-LHME2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLVS-LHME2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field LHME3 CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_MLVS-LHME3 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLVS-LHME3.
WRITE:/ 'New Value:', ld_input.
*Conversion exit PERKZ, internal->external for field IPRKZ CALL FUNCTION 'CONVERSION_EXIT_PERKZ_OUTPUT' EXPORTING input = WA_MLVS-IPRKZ IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLVS-IPRKZ.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field /CWM/MEINS CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_MLVS-/CWM/MEINS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_MLVS-/CWM/MEINS.
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_MLVS_STR,
MATNR TYPE STRING,
WERKS TYPE STRING,
LGNUM TYPE STRING,
LGBKZ TYPE STRING,
LTKZE TYPE STRING,
LTKZA TYPE STRING,
LHMG1 TYPE STRING,
LHMG2 TYPE STRING,
LHMG3 TYPE STRING,
LETY1 TYPE STRING,
LETY2 TYPE STRING,
LETY3 TYPE STRING,
LVSME TYPE STRING,
KZZUL TYPE STRING,
AUSME TYPE STRING,
BRGEW TYPE STRING,
BSTME TYPE STRING,
XCHPF TYPE STRING,
MAKTX TYPE STRING,
MEINS TYPE STRING,
GEWEI TYPE STRING,
STOFF TYPE STRING,
BLOCK TYPE STRING,
KZMBF TYPE STRING,
XCHAR TYPE STRING,
MMSTA TYPE STRING,
MKAPV TYPE STRING,
BEZME TYPE STRING,
MHDRZ TYPE STRING,
MHDHB TYPE STRING,
MHDLP TYPE STRING,
BSSKZ TYPE STRING,
MTSTB TYPE STRING,
DTBED TYPE STRING,
DTAUF TYPE STRING,
MLGUT TYPE STRING,
PLKPT TYPE STRING,
VOLUM TYPE STRING,
VOLEH TYPE STRING,
VOMEM TYPE STRING,
L2SKR TYPE STRING,
EPRIO TYPE STRING,
KZWSM TYPE STRING,
MTART TYPE STRING,
BWTTY TYPE STRING,
LHME1 TYPE STRING,
LHME2 TYPE STRING,
LHME3 TYPE STRING,
MAGRV TYPE STRING,
MSTAE TYPE STRING,
IPRKZ TYPE STRING,
/CWM/XCWMAT TYPE STRING,
/CWM/MEINS TYPE STRING,
/CWM/UMREZ TYPE STRING,
/CWM/UMREN TYPE STRING,END OF T_EKKO_STR. DATA: WA_MLVS_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_MLVS_STR-MATNR sy-vline
WA_MLVS_STR-WERKS sy-vline
WA_MLVS_STR-LGNUM sy-vline
WA_MLVS_STR-LGBKZ sy-vline
WA_MLVS_STR-LTKZE sy-vline
WA_MLVS_STR-LTKZA sy-vline
WA_MLVS_STR-LHMG1 sy-vline
WA_MLVS_STR-LHMG2 sy-vline
WA_MLVS_STR-LHMG3 sy-vline
WA_MLVS_STR-LETY1 sy-vline
WA_MLVS_STR-LETY2 sy-vline
WA_MLVS_STR-LETY3 sy-vline
WA_MLVS_STR-LVSME sy-vline
WA_MLVS_STR-KZZUL sy-vline
WA_MLVS_STR-AUSME sy-vline
WA_MLVS_STR-BRGEW sy-vline
WA_MLVS_STR-BSTME sy-vline
WA_MLVS_STR-XCHPF sy-vline
WA_MLVS_STR-MAKTX sy-vline
WA_MLVS_STR-MEINS sy-vline
WA_MLVS_STR-GEWEI sy-vline
WA_MLVS_STR-STOFF sy-vline
WA_MLVS_STR-BLOCK sy-vline
WA_MLVS_STR-KZMBF sy-vline
WA_MLVS_STR-XCHAR sy-vline
WA_MLVS_STR-MMSTA sy-vline
WA_MLVS_STR-MKAPV sy-vline
WA_MLVS_STR-BEZME sy-vline
WA_MLVS_STR-MHDRZ sy-vline
WA_MLVS_STR-MHDHB sy-vline
WA_MLVS_STR-MHDLP sy-vline
WA_MLVS_STR-BSSKZ sy-vline
WA_MLVS_STR-MTSTB sy-vline
WA_MLVS_STR-DTBED sy-vline
WA_MLVS_STR-DTAUF sy-vline
WA_MLVS_STR-MLGUT sy-vline
WA_MLVS_STR-PLKPT sy-vline
WA_MLVS_STR-VOLUM sy-vline
WA_MLVS_STR-VOLEH sy-vline
WA_MLVS_STR-VOMEM sy-vline
WA_MLVS_STR-L2SKR sy-vline
WA_MLVS_STR-EPRIO sy-vline
WA_MLVS_STR-KZWSM sy-vline
WA_MLVS_STR-MTART sy-vline
WA_MLVS_STR-BWTTY sy-vline
WA_MLVS_STR-LHME1 sy-vline
WA_MLVS_STR-LHME2 sy-vline
WA_MLVS_STR-LHME3 sy-vline
WA_MLVS_STR-MAGRV sy-vline
WA_MLVS_STR-MSTAE sy-vline
WA_MLVS_STR-IPRKZ sy-vline
WA_MLVS_STR-/CWM/XCWMAT sy-vline
WA_MLVS_STR-/CWM/MEINS sy-vline
WA_MLVS_STR-/CWM/UMREZ sy-vline
WA_MLVS_STR-/CWM/UMREN sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.