ABAP Select data from SAP table GLO_FAAD_MD 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 GLO_FAAD_MD 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 GLO_FAAD_MD. 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 GLO_FAAD_MD 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_GLO_FAAD_MD TYPE STANDARD TABLE OF GLO_FAAD_MD,
      WA_GLO_FAAD_MD TYPE GLO_FAAD_MD,
      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: <GLO_FAAD_MD> TYPE GLO_FAAD_MD.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM GLO_FAAD_MD
*  INTO TABLE @DATA(IT_GLO_FAAD_MD2).
*--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_GLO_FAAD_MD INDEX 1 INTO DATA(WA_GLO_FAAD_MD2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<GLO_FAAD_MD>-MANDT = 1.
<GLO_FAAD_MD>-DRAFTUUID = 1.
<GLO_FAAD_MD>-COMPANYCODE = 1.
<GLO_FAAD_MD>-MASTERFIXEDASSET = 1.
<GLO_FAAD_MD>-FIXEDASSET = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_GLO_FAAD_MD-MASTERFIXEDASSETFOREDIT, sy-vline,
  WA_GLO_FAAD_MD-FIXEDASSETFOREDIT, sy-vline,
  WA_GLO_FAAD_MD-COUNTRY, sy-vline,
  WA_GLO_FAAD_MD-NATIONALCLASSIFICATION, sy-vline,
  WA_GLO_FAAD_MD-NATIONALCLASSIFICATIONDESC, sy-vline,
  WA_GLO_FAAD_MD-TAXDEPRECIATIONGROUP, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_GLO_FAAD_MD 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_GLO_FAAD_MD 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_GLO_FAAD_MD INTO WA_GLO_FAAD_MD.


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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field GLACCOUNT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_GLO_FAAD_MD-GLACCOUNT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GLO_FAAD_MD-GLACCOUNT.
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_GLO_FAAD_MD_STR, 
MANDT TYPE STRING,
DRAFTUUID TYPE STRING,
COMPANYCODE TYPE STRING,
MASTERFIXEDASSET TYPE STRING,
FIXEDASSET TYPE STRING,
MASTERFIXEDASSETFOREDIT TYPE STRING,
FIXEDASSETFOREDIT TYPE STRING,
COUNTRY TYPE STRING,
NATIONALCLASSIFICATION TYPE STRING,
NATIONALCLASSIFICATIONDESC TYPE STRING,
TAXDEPRECIATIONGROUP TYPE STRING,
TAXDEPRECIATIONGROUPDESC TYPE STRING,
RU_LONGSERIALNUMBER TYPE STRING,
RU_WORKWEARMATERIAL TYPE STRING,
RU_RETIREDMASTERFIXEDASSET TYPE STRING,
RU_RETIREDFIXEDASSET TYPE STRING,
RU_ASSETTRANSPORTTYPE TYPE STRING,
RU_VEHICLEIDNUMBER TYPE STRING,
RU_MANUFACTURINGDATE TYPE STRING,
RU_VEHICLEECOLOGICALCLASS TYPE STRING,
RU_PROPERTYADDRESS TYPE STRING,
CHARTOFACCOUNTS TYPE STRING,
CHARTOFACCOUNTSTEXT TYPE STRING,
GLACCOUNT TYPE STRING,
GLACCOUNTTEXT TYPE STRING,
JP_ANNEX16ASSETSTRUCTURE TYPE STRING,
JP_ANNEX16ASSETSTRUCTUREDESC TYPE STRING,
JP_ANNEX16ASSETITEM TYPE STRING,
JP_ANNEX16ASSETITEMDESC TYPE STRING,
JP_ANNEX16LEASINGAGRMTDATE TYPE STRING,
JP_PRPTYTXRPTCITY TYPE STRING,
JP_PRPTYTXRPTCLASSFCTNKEY TYPE STRING,
JP_PRPTYTXRPTSPCLDEPR TYPE STRING,
JP_PRPTYTXRPTADDLDEPR TYPE STRING,
IN_ASSETBLOCK TYPE STRING,
IN_ASSETPUTTOUSEDATE TYPE STRING,
IN_ADDITIONALASSETBLOCK TYPE STRING,
IN_ASSETISRESEARCHANDDEV TYPE STRING,
IN_ASSETISPRIORYEAR TYPE STRING,
PT_VEHICLETYPEBYENERGY TYPE STRING,
PT_VEHICLEISWITHOUTLIMIT TYPE STRING,
PT_BIGREPAIRASSETLINK TYPE STRING,
PT_LANDASSETLINK TYPE STRING,
PT_ASSETREPORTFORMCATEGORY TYPE STRING,
PT_AMORTIZEDASSETISREEVALUATED TYPE STRING,
IL_INVMTCTRINTERNALCODE TYPE STRING,
IL_INVMTCTRAPPROVALDOCNMBR TYPE STRING,
IL_INVMTCTRAPPROVALVERSION TYPE STRING,
IL_INVMTCTRBOGUSASSETNUMBER TYPE STRING,
IL_INVMTCTRASSETVERSION TYPE STRING,
HASACTIVEENTITY TYPE STRING,
DRAFTENTITYCREATIONDATETIME TYPE STRING,
DRAFTENTITYLASTCHANGEDATETIME TYPE STRING,
DRAFTADMINISTRATIVEDATAUUID TYPE STRING,
DRAFTENTITYCONSISTENCYSTATUS TYPE STRING,
DRAFTENTITYOPERATIONCODE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_GLO_FAAD_MD_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_GLO_FAAD_MD_STR-MANDT sy-vline 
WA_GLO_FAAD_MD_STR-DRAFTUUID sy-vline 
WA_GLO_FAAD_MD_STR-COMPANYCODE sy-vline 
WA_GLO_FAAD_MD_STR-MASTERFIXEDASSET sy-vline 
WA_GLO_FAAD_MD_STR-FIXEDASSET sy-vline 
WA_GLO_FAAD_MD_STR-MASTERFIXEDASSETFOREDIT sy-vline 
WA_GLO_FAAD_MD_STR-FIXEDASSETFOREDIT sy-vline 
WA_GLO_FAAD_MD_STR-COUNTRY sy-vline 
WA_GLO_FAAD_MD_STR-NATIONALCLASSIFICATION sy-vline 
WA_GLO_FAAD_MD_STR-NATIONALCLASSIFICATIONDESC sy-vline 
WA_GLO_FAAD_MD_STR-TAXDEPRECIATIONGROUP sy-vline 
WA_GLO_FAAD_MD_STR-TAXDEPRECIATIONGROUPDESC sy-vline 
WA_GLO_FAAD_MD_STR-RU_LONGSERIALNUMBER sy-vline 
WA_GLO_FAAD_MD_STR-RU_WORKWEARMATERIAL sy-vline 
WA_GLO_FAAD_MD_STR-RU_RETIREDMASTERFIXEDASSET sy-vline 
WA_GLO_FAAD_MD_STR-RU_RETIREDFIXEDASSET sy-vline 
WA_GLO_FAAD_MD_STR-RU_ASSETTRANSPORTTYPE sy-vline 
WA_GLO_FAAD_MD_STR-RU_VEHICLEIDNUMBER sy-vline 
WA_GLO_FAAD_MD_STR-RU_MANUFACTURINGDATE sy-vline 
WA_GLO_FAAD_MD_STR-RU_VEHICLEECOLOGICALCLASS sy-vline 
WA_GLO_FAAD_MD_STR-RU_PROPERTYADDRESS sy-vline 
WA_GLO_FAAD_MD_STR-CHARTOFACCOUNTS sy-vline 
WA_GLO_FAAD_MD_STR-CHARTOFACCOUNTSTEXT sy-vline 
WA_GLO_FAAD_MD_STR-GLACCOUNT sy-vline 
WA_GLO_FAAD_MD_STR-GLACCOUNTTEXT sy-vline 
WA_GLO_FAAD_MD_STR-JP_ANNEX16ASSETSTRUCTURE sy-vline 
WA_GLO_FAAD_MD_STR-JP_ANNEX16ASSETSTRUCTUREDESC sy-vline 
WA_GLO_FAAD_MD_STR-JP_ANNEX16ASSETITEM sy-vline 
WA_GLO_FAAD_MD_STR-JP_ANNEX16ASSETITEMDESC sy-vline 
WA_GLO_FAAD_MD_STR-JP_ANNEX16LEASINGAGRMTDATE sy-vline 
WA_GLO_FAAD_MD_STR-JP_PRPTYTXRPTCITY sy-vline 
WA_GLO_FAAD_MD_STR-JP_PRPTYTXRPTCLASSFCTNKEY sy-vline 
WA_GLO_FAAD_MD_STR-JP_PRPTYTXRPTSPCLDEPR sy-vline 
WA_GLO_FAAD_MD_STR-JP_PRPTYTXRPTADDLDEPR sy-vline 
WA_GLO_FAAD_MD_STR-IN_ASSETBLOCK sy-vline 
WA_GLO_FAAD_MD_STR-IN_ASSETPUTTOUSEDATE sy-vline 
WA_GLO_FAAD_MD_STR-IN_ADDITIONALASSETBLOCK sy-vline 
WA_GLO_FAAD_MD_STR-IN_ASSETISRESEARCHANDDEV sy-vline 
WA_GLO_FAAD_MD_STR-IN_ASSETISPRIORYEAR sy-vline 
WA_GLO_FAAD_MD_STR-PT_VEHICLETYPEBYENERGY sy-vline 
WA_GLO_FAAD_MD_STR-PT_VEHICLEISWITHOUTLIMIT sy-vline 
WA_GLO_FAAD_MD_STR-PT_BIGREPAIRASSETLINK sy-vline 
WA_GLO_FAAD_MD_STR-PT_LANDASSETLINK sy-vline 
WA_GLO_FAAD_MD_STR-PT_ASSETREPORTFORMCATEGORY sy-vline 
WA_GLO_FAAD_MD_STR-PT_AMORTIZEDASSETISREEVALUATED sy-vline 
WA_GLO_FAAD_MD_STR-IL_INVMTCTRINTERNALCODE sy-vline 
WA_GLO_FAAD_MD_STR-IL_INVMTCTRAPPROVALDOCNMBR sy-vline 
WA_GLO_FAAD_MD_STR-IL_INVMTCTRAPPROVALVERSION sy-vline 
WA_GLO_FAAD_MD_STR-IL_INVMTCTRBOGUSASSETNUMBER sy-vline 
WA_GLO_FAAD_MD_STR-IL_INVMTCTRASSETVERSION sy-vline 
WA_GLO_FAAD_MD_STR-HASACTIVEENTITY sy-vline 
WA_GLO_FAAD_MD_STR-DRAFTENTITYCREATIONDATETIME sy-vline 
WA_GLO_FAAD_MD_STR-DRAFTENTITYLASTCHANGEDATETIME sy-vline 
WA_GLO_FAAD_MD_STR-DRAFTADMINISTRATIVEDATAUUID sy-vline 
WA_GLO_FAAD_MD_STR-DRAFTENTITYCONSISTENCYSTATUS sy-vline 
WA_GLO_FAAD_MD_STR-DRAFTENTITYOPERATIONCODE sy-vline      INTO ld_text SEPARATED BY SPACE.

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