ABAP Select data from SAP table IGLOBASSETTP 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 IGLOBASSETTP 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 IGLOBASSETTP. 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 IGLOBASSETTP 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_IGLOBASSETTP TYPE STANDARD TABLE OF IGLOBASSETTP,
      WA_IGLOBASSETTP TYPE IGLOBASSETTP,
      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: <IGLOBASSETTP> TYPE IGLOBASSETTP.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IGLOBASSETTP
*  INTO TABLE @DATA(IT_IGLOBASSETTP2).
*--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_IGLOBASSETTP INDEX 1 INTO DATA(WA_IGLOBASSETTP2).


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

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

ENDLOOP.

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

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


*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_IGLOBASSETTP-MASTERFIXEDASSET
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IGLOBASSETTP-MASTERFIXEDASSET.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit MATN1, internal->external for field RU_WORKWEARMATERIAL
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_IGLOBASSETTP-RU_WORKWEARMATERIAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IGLOBASSETTP-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_IGLOBASSETTP-RU_RETIREDMASTERFIXEDASSET
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IGLOBASSETTP-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_IGLOBASSETTP-RU_RETIREDFIXEDASSET
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IGLOBASSETTP-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_IGLOBASSETTP-RU_PROPERTYADDRESS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IGLOBASSETTP-RU_PROPERTYADDRESS.
WRITE:/ 'New Value:', ld_input.

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

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