ABAP Select data from SAP table VIGW_V_MEFL 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 VIGW_V_MEFL 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 VIGW_V_MEFL. 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 VIGW_V_MEFL 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_VIGW_V_MEFL TYPE STANDARD TABLE OF VIGW_V_MEFL,
      WA_VIGW_V_MEFL TYPE VIGW_V_MEFL,
      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: <VIGW_V_MEFL> TYPE VIGW_V_MEFL.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM VIGW_V_MEFL
*  INTO TABLE @DATA(IT_VIGW_V_MEFL2).
*--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_VIGW_V_MEFL INDEX 1 INTO DATA(WA_VIGW_V_MEFL2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_VIGW_V_MEFL ASSIGNING <VIGW_V_MEFL>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<VIGW_V_MEFL>-MANDT = 1.
<VIGW_V_MEFL>-BUKRS = 1.
<VIGW_V_MEFL>-SWENR = 1.
<VIGW_V_MEFL>-SMENR = 1.
<VIGW_V_MEFL>-SGRNR = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_VIGW_V_MEFL-SGENR, sy-vline,
WA_VIGW_V_MEFL-SGEBSWENR, sy-vline,
WA_VIGW_V_MEFL-SGEBSMENR, sy-vline,
WA_VIGW_V_MEFL-SHEIZNR, sy-vline,
WA_VIGW_V_MEFL-SNUNR, sy-vline,
WA_VIGW_V_MEFL-DBEZU, sy-vline.
ENDLOOP. *Add any further fields from structure WA_VIGW_V_MEFL 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_VIGW_V_MEFL 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_VIGW_V_MEFL INTO WA_VIGW_V_MEFL. *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 SWENR, internal->external for field SWENR CALL FUNCTION 'CONVERSION_EXIT_SWENR_OUTPUT' EXPORTING input = WA_VIGW_V_MEFL-SWENR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VIGW_V_MEFL-SWENR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit SGRNR, internal->external for field SGRNR CALL FUNCTION 'CONVERSION_EXIT_SGRNR_OUTPUT' EXPORTING input = WA_VIGW_V_MEFL-SGRNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VIGW_V_MEFL-SGRNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SGENR, internal->external for field SGENR CALL FUNCTION 'CONVERSION_EXIT_SGENR_OUTPUT' EXPORTING input = WA_VIGW_V_MEFL-SGENR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VIGW_V_MEFL-SGENR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SWENR, internal->external for field SGEBSWENR CALL FUNCTION 'CONVERSION_EXIT_SWENR_OUTPUT' EXPORTING input = WA_VIGW_V_MEFL-SGEBSWENR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VIGW_V_MEFL-SGEBSWENR.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit IMKEY, internal->external for field IMKEY CALL FUNCTION 'CONVERSION_EXIT_IMKEY_OUTPUT' EXPORTING input = WA_VIGW_V_MEFL-IMKEY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VIGW_V_MEFL-IMKEY.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit GJAHR, internal->external for field SBASTEU CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_VIGW_V_MEFL-SBASTEU IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VIGW_V_MEFL-SBASTEU.
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_VIGW_V_MEFL_STR,
MANDT TYPE STRING,
BUKRS TYPE STRING,
SWENR TYPE STRING,
SMENR TYPE STRING,
SGRNR TYPE STRING,
SGENR TYPE STRING,
SGEBSWENR TYPE STRING,
SGEBSMENR TYPE STRING,
SHEIZNR TYPE STRING,
SNUNR TYPE STRING,
DBEZU TYPE STRING,
DWTVERM TYPE STRING,
UMBRAUM TYPE STRING,
AZIMM TYPE STRING,
AHALBZI TYPE STRING,
STOCK TYPE STRING,
SBELART TYPE STRING,
SHEIZART TYPE STRING,
DRESAB TYPE STRING,
DRESBIS TYPE STRING,
SGEBT TYPE STRING,
SBWNR TYPE STRING,
XAUSTKL TYPE STRING,
XLAGE TYPE STRING,
SMOEBL TYPE STRING,
STECHEM TYPE STRING,
SALTNR TYPE STRING,
DBEGEH TYPE STRING,
XBEGEH TYPE STRING,
JLOESCH TYPE STRING,
PZUABSP TYPE STRING,
PERHOE TYPE STRING,
RPROZGRD TYPE STRING,
DBINDBIS TYPE STRING,
KOSTL TYPE STRING,
RBELBIND TYPE STRING,
RLIFT TYPE STRING,
RMEDIEN TYPE STRING,
RWASSER TYPE STRING,
RLGESCH TYPE STRING,
JVORSTEIG TYPE STRING,
SADRME TYPE STRING,
SNKS TYPE STRING,
IMKEY TYPE STRING,
RERF TYPE STRING,
DERF TYPE STRING,
TERF TYPE STRING,
REHER TYPE STRING,
RBEAR TYPE STRING,
DBEAR TYPE STRING,
TBEAR TYPE STRING,
RBHER TYPE STRING,
ABNNR TYPE STRING,
XSTANDNR TYPE STRING,
JEIGWOHN TYPE STRING,
RFAKT TYPE STRING,
PRCTR TYPE STRING,
PROFL TYPE STRING,
KOKRS TYPE STRING,
SSTOCKW TYPE STRING,
JKONDMV TYPE STRING,
PKONDMV TYPE STRING,
DFSTRBIS TYPE STRING,
SSTCKBIS TYPE STRING,
JRMSCHPR TYPE STRING,
DHPZSAKT TYPE STRING,
DUTBKAKT TYPE STRING,
DTEURAKT TYPE STRING,
BRDBRTZZ TYPE STRING,
BRDBRTKD TYPE STRING,
INTRENO TYPE STRING,
XMETXT TYPE STRING,
SBASTEU TYPE STRING,
GSBER TYPE STRING,
DRESTAUR TYPE STRING,
TXJCD TYPE STRING,
DFLOWFIX TYPE STRING,
INTRENO_FL TYPE STRING,
DGUELBIS TYPE STRING,
VERSION TYPE STRING,
DGUELAB TYPE STRING,END OF T_EKKO_STR. DATA: WA_VIGW_V_MEFL_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_VIGW_V_MEFL_STR-MANDT sy-vline
WA_VIGW_V_MEFL_STR-BUKRS sy-vline
WA_VIGW_V_MEFL_STR-SWENR sy-vline
WA_VIGW_V_MEFL_STR-SMENR sy-vline
WA_VIGW_V_MEFL_STR-SGRNR sy-vline
WA_VIGW_V_MEFL_STR-SGENR sy-vline
WA_VIGW_V_MEFL_STR-SGEBSWENR sy-vline
WA_VIGW_V_MEFL_STR-SGEBSMENR sy-vline
WA_VIGW_V_MEFL_STR-SHEIZNR sy-vline
WA_VIGW_V_MEFL_STR-SNUNR sy-vline
WA_VIGW_V_MEFL_STR-DBEZU sy-vline
WA_VIGW_V_MEFL_STR-DWTVERM sy-vline
WA_VIGW_V_MEFL_STR-UMBRAUM sy-vline
WA_VIGW_V_MEFL_STR-AZIMM sy-vline
WA_VIGW_V_MEFL_STR-AHALBZI sy-vline
WA_VIGW_V_MEFL_STR-STOCK sy-vline
WA_VIGW_V_MEFL_STR-SBELART sy-vline
WA_VIGW_V_MEFL_STR-SHEIZART sy-vline
WA_VIGW_V_MEFL_STR-DRESAB sy-vline
WA_VIGW_V_MEFL_STR-DRESBIS sy-vline
WA_VIGW_V_MEFL_STR-SGEBT sy-vline
WA_VIGW_V_MEFL_STR-SBWNR sy-vline
WA_VIGW_V_MEFL_STR-XAUSTKL sy-vline
WA_VIGW_V_MEFL_STR-XLAGE sy-vline
WA_VIGW_V_MEFL_STR-SMOEBL sy-vline
WA_VIGW_V_MEFL_STR-STECHEM sy-vline
WA_VIGW_V_MEFL_STR-SALTNR sy-vline
WA_VIGW_V_MEFL_STR-DBEGEH sy-vline
WA_VIGW_V_MEFL_STR-XBEGEH sy-vline
WA_VIGW_V_MEFL_STR-JLOESCH sy-vline
WA_VIGW_V_MEFL_STR-PZUABSP sy-vline
WA_VIGW_V_MEFL_STR-PERHOE sy-vline
WA_VIGW_V_MEFL_STR-RPROZGRD sy-vline
WA_VIGW_V_MEFL_STR-DBINDBIS sy-vline
WA_VIGW_V_MEFL_STR-KOSTL sy-vline
WA_VIGW_V_MEFL_STR-RBELBIND sy-vline
WA_VIGW_V_MEFL_STR-RLIFT sy-vline
WA_VIGW_V_MEFL_STR-RMEDIEN sy-vline
WA_VIGW_V_MEFL_STR-RWASSER sy-vline
WA_VIGW_V_MEFL_STR-RLGESCH sy-vline
WA_VIGW_V_MEFL_STR-JVORSTEIG sy-vline
WA_VIGW_V_MEFL_STR-SADRME sy-vline
WA_VIGW_V_MEFL_STR-SNKS sy-vline
WA_VIGW_V_MEFL_STR-IMKEY sy-vline
WA_VIGW_V_MEFL_STR-RERF sy-vline
WA_VIGW_V_MEFL_STR-DERF sy-vline
WA_VIGW_V_MEFL_STR-TERF sy-vline
WA_VIGW_V_MEFL_STR-REHER sy-vline
WA_VIGW_V_MEFL_STR-RBEAR sy-vline
WA_VIGW_V_MEFL_STR-DBEAR sy-vline
WA_VIGW_V_MEFL_STR-TBEAR sy-vline
WA_VIGW_V_MEFL_STR-RBHER sy-vline
WA_VIGW_V_MEFL_STR-ABNNR sy-vline
WA_VIGW_V_MEFL_STR-XSTANDNR sy-vline
WA_VIGW_V_MEFL_STR-JEIGWOHN sy-vline
WA_VIGW_V_MEFL_STR-RFAKT sy-vline
WA_VIGW_V_MEFL_STR-PRCTR sy-vline
WA_VIGW_V_MEFL_STR-PROFL sy-vline
WA_VIGW_V_MEFL_STR-KOKRS sy-vline
WA_VIGW_V_MEFL_STR-SSTOCKW sy-vline
WA_VIGW_V_MEFL_STR-JKONDMV sy-vline
WA_VIGW_V_MEFL_STR-PKONDMV sy-vline
WA_VIGW_V_MEFL_STR-DFSTRBIS sy-vline
WA_VIGW_V_MEFL_STR-SSTCKBIS sy-vline
WA_VIGW_V_MEFL_STR-JRMSCHPR sy-vline
WA_VIGW_V_MEFL_STR-DHPZSAKT sy-vline
WA_VIGW_V_MEFL_STR-DUTBKAKT sy-vline
WA_VIGW_V_MEFL_STR-DTEURAKT sy-vline
WA_VIGW_V_MEFL_STR-BRDBRTZZ sy-vline
WA_VIGW_V_MEFL_STR-BRDBRTKD sy-vline
WA_VIGW_V_MEFL_STR-INTRENO sy-vline
WA_VIGW_V_MEFL_STR-XMETXT sy-vline
WA_VIGW_V_MEFL_STR-SBASTEU sy-vline
WA_VIGW_V_MEFL_STR-GSBER sy-vline
WA_VIGW_V_MEFL_STR-DRESTAUR sy-vline
WA_VIGW_V_MEFL_STR-TXJCD sy-vline
WA_VIGW_V_MEFL_STR-DFLOWFIX sy-vline
WA_VIGW_V_MEFL_STR-INTRENO_FL sy-vline
WA_VIGW_V_MEFL_STR-DGUELBIS sy-vline
WA_VIGW_V_MEFL_STR-VERSION sy-vline
WA_VIGW_V_MEFL_STR-DGUELAB sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.