ABAP Select data from SAP table ISOCSGMTHDRDFT 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 ISOCSGMTHDRDFT 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 ISOCSGMTHDRDFT. 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 ISOCSGMTHDRDFT 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_ISOCSGMTHDRDFT TYPE STANDARD TABLE OF ISOCSGMTHDRDFT,
      WA_ISOCSGMTHDRDFT TYPE ISOCSGMTHDRDFT,
      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: <ISOCSGMTHDRDFT> TYPE ISOCSGMTHDRDFT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ISOCSGMTHDRDFT
*  INTO TABLE @DATA(IT_ISOCSGMTHDRDFT2).
*--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_ISOCSGMTHDRDFT INDEX 1 INTO DATA(WA_ISOCSGMTHDRDFT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<ISOCSGMTHDRDFT>-MANDT = 1.
<ISOCSGMTHDRDFT>-TANKSTORAGEOBJUUID = 1.
<ISOCSGMTHDRDFT>-MEASUREMENTPOINT = 1.
<ISOCSGMTHDRDFT>-MEASUREMENTPTNAME = 1.
<ISOCSGMTHDRDFT>-STORAGEOBJEQUIPMENTNUMBER = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ISOCSGMTHDRDFT-STORAGEOBJECTFUNCTIONALLOC, sy-vline,
  WA_ISOCSGMTHDRDFT-MANUFACTURERNAME, sy-vline,
  WA_ISOCSGMTHDRDFT-COUNTRYORREGION, sy-vline,
  WA_ISOCSGMTHDRDFT-MANUFACTURERDRAWINGNUMBER, sy-vline,
  WA_ISOCSGMTHDRDFT-MANUFACTURERSERIALNUMBER, sy-vline,
  WA_ISOCSGMTHDRDFT-MANUFACTURERMODELNUMBER, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_ISOCSGMTHDRDFT 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_ISOCSGMTHDRDFT 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_ISOCSGMTHDRDFT INTO WA_ISOCSGMTHDRDFT.


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

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

*Conversion exit TPLNR, internal->external for field STORAGEOBJECTFUNCTIONALLOC
CALL FUNCTION 'CONVERSION_EXIT_TPLNR_OUTPUT'
  EXPORTING
    input =                      WA_ISOCSGMTHDRDFT-STORAGEOBJECTFUNCTIONALLOC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ISOCSGMTHDRDFT-STORAGEOBJECTFUNCTIONALLOC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field MATERIALVOLUMEUOM
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_ISOCSGMTHDRDFT-MATERIALVOLUMEUOM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ISOCSGMTHDRDFT-MATERIALVOLUMEUOM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field MASSUOMTANK
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_ISOCSGMTHDRDFT-MASSUOMTANK
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ISOCSGMTHDRDFT-MASSUOMTANK.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field TANKDIPTOTALHEIGHTUOM
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_ISOCSGMTHDRDFT-TANKDIPTOTALHEIGHTUOM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ISOCSGMTHDRDFT-TANKDIPTOTALHEIGHTUOM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field FLOWRATEUNITOFMEASURE
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_ISOCSGMTHDRDFT-FLOWRATEUNITOFMEASURE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ISOCSGMTHDRDFT-FLOWRATEUNITOFMEASURE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field UNITOFMEASURETEMPERATUREUNIT
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_ISOCSGMTHDRDFT-UNITOFMEASURETEMPERATUREUNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ISOCSGMTHDRDFT-UNITOFMEASURETEMPERATUREUNIT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field DENSITYUNITOFMEASURE
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_ISOCSGMTHDRDFT-DENSITYUNITOFMEASURE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ISOCSGMTHDRDFT-DENSITYUNITOFMEASURE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field VOLUMEPERHEIGHTUNITOFMEASURE
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_ISOCSGMTHDRDFT-VOLUMEPERHEIGHTUNITOFMEASURE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ISOCSGMTHDRDFT-VOLUMEPERHEIGHTUNITOFMEASURE.
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_ISOCSGMTHDRDFT_STR, 
MANDT TYPE STRING,
TANKSTORAGEOBJUUID TYPE STRING,
MEASUREMENTPOINT TYPE STRING,
MEASUREMENTPTNAME TYPE STRING,
STORAGEOBJEQUIPMENTNUMBER TYPE STRING,
STORAGEOBJECTFUNCTIONALLOC TYPE STRING,
MANUFACTURERNAME TYPE STRING,
COUNTRYORREGION TYPE STRING,
MANUFACTURERDRAWINGNUMBER TYPE STRING,
MANUFACTURERSERIALNUMBER TYPE STRING,
MANUFACTURERMODELNUMBER TYPE STRING,
EQUIPMENTYEAROFMANUFACTURE TYPE STRING,
EQUIPMENTMONTHOFMANUFACTURE TYPE STRING,
MATERIALVOLUMEUOM TYPE STRING,
MASSUOMTANK TYPE STRING,
TANKDIPTOTALHEIGHTUOM TYPE STRING,
FLOWRATEUNITOFMEASURE TYPE STRING,
UNITOFMEASURETEMPERATUREUNIT TYPE STRING,
DENSITYUNITOFMEASURE TYPE STRING,
VOLUMEPERHEIGHTUNITOFMEASURE TYPE STRING,
DENSITYTYPE TYPE STRING,
TANKCAPACITY TYPE STRING,
OILTANKMAXIMUMSAFETYWEIGHT TYPE STRING,
OILTANKSTORAGEEXPRYDTE TYPE STRING,
OILTANKSTORAGEEXPRYTIME TYPE STRING,
OILTANKEXPIRYREASON TYPE STRING,
STOROBJGROUPNAME TYPE STRING,
PRACREATIONDATETIME TYPE STRING,
CREATEDBYUSER TYPE STRING,
PRACHANGEDATETIME TYPE STRING,
OILTANKDIPCHANGEDBYUSER TYPE STRING,
PRALOCLLASTCHGDATDATETIME TYPE STRING,END OF T_EKKO_STR.
DATA: WA_ISOCSGMTHDRDFT_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_ISOCSGMTHDRDFT_STR-MANDT sy-vline 
WA_ISOCSGMTHDRDFT_STR-TANKSTORAGEOBJUUID sy-vline 
WA_ISOCSGMTHDRDFT_STR-MEASUREMENTPOINT sy-vline 
WA_ISOCSGMTHDRDFT_STR-MEASUREMENTPTNAME sy-vline 
WA_ISOCSGMTHDRDFT_STR-STORAGEOBJEQUIPMENTNUMBER sy-vline 
WA_ISOCSGMTHDRDFT_STR-STORAGEOBJECTFUNCTIONALLOC sy-vline 
WA_ISOCSGMTHDRDFT_STR-MANUFACTURERNAME sy-vline 
WA_ISOCSGMTHDRDFT_STR-COUNTRYORREGION sy-vline 
WA_ISOCSGMTHDRDFT_STR-MANUFACTURERDRAWINGNUMBER sy-vline 
WA_ISOCSGMTHDRDFT_STR-MANUFACTURERSERIALNUMBER sy-vline 
WA_ISOCSGMTHDRDFT_STR-MANUFACTURERMODELNUMBER sy-vline 
WA_ISOCSGMTHDRDFT_STR-EQUIPMENTYEAROFMANUFACTURE sy-vline 
WA_ISOCSGMTHDRDFT_STR-EQUIPMENTMONTHOFMANUFACTURE sy-vline 
WA_ISOCSGMTHDRDFT_STR-MATERIALVOLUMEUOM sy-vline 
WA_ISOCSGMTHDRDFT_STR-MASSUOMTANK sy-vline 
WA_ISOCSGMTHDRDFT_STR-TANKDIPTOTALHEIGHTUOM sy-vline 
WA_ISOCSGMTHDRDFT_STR-FLOWRATEUNITOFMEASURE sy-vline 
WA_ISOCSGMTHDRDFT_STR-UNITOFMEASURETEMPERATUREUNIT sy-vline 
WA_ISOCSGMTHDRDFT_STR-DENSITYUNITOFMEASURE sy-vline 
WA_ISOCSGMTHDRDFT_STR-VOLUMEPERHEIGHTUNITOFMEASURE sy-vline 
WA_ISOCSGMTHDRDFT_STR-DENSITYTYPE sy-vline 
WA_ISOCSGMTHDRDFT_STR-TANKCAPACITY sy-vline 
WA_ISOCSGMTHDRDFT_STR-OILTANKMAXIMUMSAFETYWEIGHT sy-vline 
WA_ISOCSGMTHDRDFT_STR-OILTANKSTORAGEEXPRYDTE sy-vline 
WA_ISOCSGMTHDRDFT_STR-OILTANKSTORAGEEXPRYTIME sy-vline 
WA_ISOCSGMTHDRDFT_STR-OILTANKEXPIRYREASON sy-vline 
WA_ISOCSGMTHDRDFT_STR-STOROBJGROUPNAME sy-vline 
WA_ISOCSGMTHDRDFT_STR-PRACREATIONDATETIME sy-vline 
WA_ISOCSGMTHDRDFT_STR-CREATEDBYUSER sy-vline 
WA_ISOCSGMTHDRDFT_STR-PRACHANGEDATETIME sy-vline 
WA_ISOCSGMTHDRDFT_STR-OILTANKDIPCHANGEDBYUSER sy-vline 
WA_ISOCSGMTHDRDFT_STR-PRALOCLLASTCHGDATDATETIME sy-vline      INTO ld_text SEPARATED BY SPACE.

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