ABAP Select data from SAP table MIG_VMDS_EI_COMPANY into internal table

Get Example source ABAP code based on a different SAP table
  Get ABAP code

Below is a number of ABAP code snippets to demonstrate how to select data from SAP MIG_VMDS_EI_COMPANY 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 MIG_VMDS_EI_COMPANY. 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 MIG_VMDS_EI_COMPANY 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_MIG_VMDS_EI_COMPANY TYPE STANDARD TABLE OF MIG_VMDS_EI_COMPANY,
      WA_MIG_VMDS_EI_COMPANY TYPE MIG_VMDS_EI_COMPANY,
      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: <MIG_VMDS_EI_COMPANY> TYPE MIG_VMDS_EI_COMPANY.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM MIG_VMDS_EI_COMPANY
*  INTO TABLE @DATA(IT_MIG_VMDS_EI_COMPANY2).
*--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_MIG_VMDS_EI_COMPANY INDEX 1 INTO DATA(WA_MIG_VMDS_EI_COMPANY2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_MIG_VMDS_EI_COMPANY ASSIGNING <MIG_VMDS_EI_COMPANY>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
<MIG_VMDS_EI_COMPANY>-BUKRSKEY = 1.
<MIG_VMDS_EI_COMPANY>-SPERRDAT = 1.
<MIG_VMDS_EI_COMPANY>-LOEVMDAT = 1.
<MIG_VMDS_EI_COMPANY>-ZUAWADAT = 1.
<MIG_VMDS_EI_COMPANY>-AKONTDAT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_MIG_VMDS_EI_COMPANY-BEGRUDAT, sy-vline,
  WA_MIG_VMDS_EI_COMPANY-VZSKZDAT, sy-vline,
  WA_MIG_VMDS_EI_COMPANY-ZWELSDAT, sy-vline,
  WA_MIG_VMDS_EI_COMPANY-XVERRDAT, sy-vline,
  WA_MIG_VMDS_EI_COMPANY-ZAHLSDAT, sy-vline,
  WA_MIG_VMDS_EI_COMPANY-ZTERMDAT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_MIG_VMDS_EI_COMPANY 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_MIG_VMDS_EI_COMPANY 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_MIG_VMDS_EI_COMPANY INTO WA_MIG_VMDS_EI_COMPANY.


*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 AKONTDAT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MIG_VMDS_EI_COMPANY-AKONTDAT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MIG_VMDS_EI_COMPANY-AKONTDAT.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit AU132, internal->external for field WRBTRDAT
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_MIG_VMDS_EI_COMPANY-WRBTRDAT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MIG_VMDS_EI_COMPANY-WRBTRDAT.
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_MIG_VMDS_EI_COMPANY_STR, 
BUKRSKEY TYPE STRING,
SPERRDAT TYPE STRING,
LOEVMDAT TYPE STRING,
ZUAWADAT TYPE STRING,
AKONTDAT TYPE STRING,
BEGRUDAT TYPE STRING,
VZSKZDAT TYPE STRING,
ZWELSDAT TYPE STRING,
XVERRDAT TYPE STRING,
ZAHLSDAT TYPE STRING,
ZTERMDAT TYPE STRING,
EIKTODAT TYPE STRING,
ZSABEDAT TYPE STRING,
KVERMDAT TYPE STRING,
FDGRVDAT TYPE STRING,
BUSABDAT TYPE STRING,
LNRZEDAT TYPE STRING,
LNRZBDAT TYPE STRING,
ZINDTDAT TYPE STRING,
ZINRTDAT TYPE STRING,
DATLZDAT TYPE STRING,
XDEZVDAT TYPE STRING,
WEBTRDAT TYPE STRING,
KULTGDAT TYPE STRING,
REPRFDAT TYPE STRING,
TOGRUDAT TYPE STRING,
HBKIDDAT TYPE STRING,
XPOREDAT TYPE STRING,
QSZNRDAT TYPE STRING,
QSZDTDAT TYPE STRING,
QSSKZDAT TYPE STRING,
BLNKZDAT TYPE STRING,
MINDKDAT TYPE STRING,
ALTKNDAT TYPE STRING,
ZGRUPDAT TYPE STRING,
MGRUPDAT TYPE STRING,
UZAWEDAT TYPE STRING,
QSRECDAT TYPE STRING,
QSBGRDAT TYPE STRING,
QLANDDAT TYPE STRING,
XEDIPDAT TYPE STRING,
FRGRPDAT TYPE STRING,
TLFXSDAT TYPE STRING,
INTADDAT TYPE STRING,
GUZTEDAT TYPE STRING,
GRICDDAT TYPE STRING,
GRIDTDAT TYPE STRING,
XAUSZDAT TYPE STRING,
CERDTDAT TYPE STRING,
TOGRRDAT TYPE STRING,
PERNRDAT TYPE STRING,
NODELDAT TYPE STRING,
TLFNSDAT TYPE STRING,
PREPAY_RELEVANTDAT TYPE STRING,
ASSIGN_TESTDAT TYPE STRING,
CVP_XBLCK_BDAT TYPE STRING,
CIIUCODEDAT TYPE STRING,
AVSNDDAT TYPE STRING,
J_SC_SUBCONTYPEDAT TYPE STRING,
J_SC_COMPDATEDAT TYPE STRING,
J_SC_OFFSMDAT TYPE STRING,
J_SC_OFFSRDAT TYPE STRING,
XLFZBDAT TYPE STRING,
PAYMENTCLEARINGGRPIDDAT TYPE STRING,
PAYTRSNDAT TYPE STRING,
LFB1_EEW_CCDAT TYPE STRING,
BRSCHDAT TYPE STRING,
WRBTRDAT TYPE STRING,
WAERSDAT TYPE STRING,
US_REC_COUNTRYDAT TYPE STRING,
US_GIINDAT TYPE STRING,
US_FTIDDAT TYPE STRING,
US_REC_DOBDAT TYPE STRING,
US_LOB_CODEDAT TYPE STRING,
US_W8_RECVDATEDAT TYPE STRING,
US_W9_RECVDATEDAT TYPE STRING,
US_TIN_NOTICEDAT TYPE STRING,
US_PARTNERSHIP_INDDAT TYPE STRING,
BASIS_PNTDAT TYPE STRING,
DUNNING TYPE STRING,
WTAX_TYPE TYPE STRING,
TEXTS TYPE STRING,
ALT_PAYEE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_MIG_VMDS_EI_COMPANY_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_MIG_VMDS_EI_COMPANY_STR-BUKRSKEY sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-SPERRDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-LOEVMDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-ZUAWADAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-AKONTDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-BEGRUDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-VZSKZDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-ZWELSDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-XVERRDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-ZAHLSDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-ZTERMDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-EIKTODAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-ZSABEDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-KVERMDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-FDGRVDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-BUSABDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-LNRZEDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-LNRZBDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-ZINDTDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-ZINRTDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-DATLZDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-XDEZVDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-WEBTRDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-KULTGDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-REPRFDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-TOGRUDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-HBKIDDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-XPOREDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-QSZNRDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-QSZDTDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-QSSKZDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-BLNKZDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-MINDKDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-ALTKNDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-ZGRUPDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-MGRUPDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-UZAWEDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-QSRECDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-QSBGRDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-QLANDDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-XEDIPDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-FRGRPDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-TLFXSDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-INTADDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-GUZTEDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-GRICDDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-GRIDTDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-XAUSZDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-CERDTDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-TOGRRDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-PERNRDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-NODELDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-TLFNSDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-PREPAY_RELEVANTDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-ASSIGN_TESTDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-CVP_XBLCK_BDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-CIIUCODEDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-AVSNDDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-J_SC_SUBCONTYPEDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-J_SC_COMPDATEDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-J_SC_OFFSMDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-J_SC_OFFSRDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-XLFZBDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-PAYMENTCLEARINGGRPIDDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-PAYTRSNDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-LFB1_EEW_CCDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-BRSCHDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-WRBTRDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-WAERSDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-US_REC_COUNTRYDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-US_GIINDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-US_FTIDDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-US_REC_DOBDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-US_LOB_CODEDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-US_W8_RECVDATEDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-US_W9_RECVDATEDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-US_TIN_NOTICEDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-US_PARTNERSHIP_INDDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-BASIS_PNTDAT sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-DUNNING sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-WTAX_TYPE sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-TEXTS sy-vline 
WA_MIG_VMDS_EI_COMPANY_STR-ALT_PAYEE sy-vline      INTO ld_text SEPARATED BY SPACE.

*Add any further fields from structure WA_EKKO_STR you want to CONCATENATE...
ENDLOOP.
ENDFORM.