ABAP Select data from SAP table FIEU_S_GOODS_HEAD 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 FIEU_S_GOODS_HEAD 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 FIEU_S_GOODS_HEAD. 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 FIEU_S_GOODS_HEAD 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_FIEU_S_GOODS_HEAD TYPE STANDARD TABLE OF FIEU_S_GOODS_HEAD,
      WA_FIEU_S_GOODS_HEAD TYPE FIEU_S_GOODS_HEAD,
      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: <FIEU_S_GOODS_HEAD> TYPE FIEU_S_GOODS_HEAD.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FIEU_S_GOODS_HEAD
*  INTO TABLE @DATA(IT_FIEU_S_GOODS_HEAD2).
*--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_FIEU_S_GOODS_HEAD INDEX 1 INTO DATA(WA_FIEU_S_GOODS_HEAD2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<FIEU_S_GOODS_HEAD>-BUKRS = 1.
<FIEU_S_GOODS_HEAD>-VBELN = 1.
<FIEU_S_GOODS_HEAD>-MJAHR = 1.
<FIEU_S_GOODS_HEAD>-BLDAT = 1.
<FIEU_S_GOODS_HEAD>-DELV_NUM = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FIEU_S_GOODS_HEAD-MOVEMENT_STATUS, sy-vline,
  WA_FIEU_S_GOODS_HEAD-MOVE_STAT_DATE, sy-vline,
  WA_FIEU_S_GOODS_HEAD-SOURCEID, sy-vline,
  WA_FIEU_S_GOODS_HEAD-SOURCEBILL, sy-vline,
  WA_FIEU_S_GOODS_HEAD-HASH, sy-vline,
  WA_FIEU_S_GOODS_HEAD-HASHCONTROL, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_FIEU_S_GOODS_HEAD 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_FIEU_S_GOODS_HEAD 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_FIEU_S_GOODS_HEAD INTO WA_FIEU_S_GOODS_HEAD.


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

*Conversion exit GJAHR, internal->external for field MJAHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_FIEU_S_GOODS_HEAD-MJAHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIEU_S_GOODS_HEAD-MJAHR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit EXCRT, internal->external for field EXCHANGERATE
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_FIEU_S_GOODS_HEAD-EXCHANGERATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIEU_S_GOODS_HEAD-EXCHANGERATE.
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_FIEU_S_GOODS_HEAD_STR, 
BUKRS TYPE STRING,
VBELN TYPE STRING,
MJAHR TYPE STRING,
BLDAT TYPE STRING,
DELV_NUM TYPE STRING,
MOVEMENT_STATUS TYPE STRING,
MOVE_STAT_DATE TYPE STRING,
SOURCEID TYPE STRING,
SOURCEBILL TYPE STRING,
HASH TYPE STRING,
HASHCONTROL TYPE STRING,
PERIOD TYPE STRING,
MOVEMENT_DATE TYPE STRING,
MOVEMENT_TYPE TYPE STRING,
ENTRY_DATE TYPE STRING,
CUSTOMERID TYPE STRING,
CUSTOMERID_NEW TYPE STRING,
SUPPLIERID TYPE STRING,
SOUCEID TYPE STRING,
EACCODE TYPE STRING,
MOVE_COMMENTS TYPE STRING,
ST_DELVID TYPE STRING,
ST_STREET_NAME TYPE STRING,
ST_BUILD_NUMBER TYPE STRING,
ST_DELVDATE TYPE STRING,
ST_ADDETAIL TYPE STRING,
ST_CITY TYPE STRING,
ST_POST TYPE STRING,
ST_REGION TYPE STRING,
ST_COUNTRY TYPE STRING,
SF_DELVID TYPE STRING,
SF_DELVDATE TYPE STRING,
SF_STREET_NAME TYPE STRING,
SF_BUILD_NUMBER TYPE STRING,
SF_ADDETAIL TYPE STRING,
SF_CITY TYPE STRING,
SF_REGION TYPE STRING,
SF_POST TYPE STRING,
SF_COUNTRY TYPE STRING,
MOVEMENT_END TYPE STRING,
MOVEMENT_START TYPE STRING,
ATDOCCODEID TYPE STRING,
TAXPAYABLE TYPE STRING,
NETTOTAL TYPE STRING,
GROSSTOTAL TYPE STRING,
CURRENCY TYPE STRING,
CURRENCYAMOUNT TYPE STRING,
EXCHANGERATE TYPE STRING,
HASH_NEW TYPE STRING,
HASHCONTROL_NEW TYPE STRING,END OF T_EKKO_STR.
DATA: WA_FIEU_S_GOODS_HEAD_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_FIEU_S_GOODS_HEAD_STR-BUKRS sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-VBELN sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-MJAHR sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-BLDAT sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-DELV_NUM sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-MOVEMENT_STATUS sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-MOVE_STAT_DATE sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-SOURCEID sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-SOURCEBILL sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-HASH sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-HASHCONTROL sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-PERIOD sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-MOVEMENT_DATE sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-MOVEMENT_TYPE sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-ENTRY_DATE sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-CUSTOMERID sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-CUSTOMERID_NEW sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-SUPPLIERID sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-SOUCEID sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-EACCODE sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-MOVE_COMMENTS sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-ST_DELVID sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-ST_STREET_NAME sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-ST_BUILD_NUMBER sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-ST_DELVDATE sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-ST_ADDETAIL sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-ST_CITY sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-ST_POST sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-ST_REGION sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-ST_COUNTRY sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-SF_DELVID sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-SF_DELVDATE sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-SF_STREET_NAME sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-SF_BUILD_NUMBER sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-SF_ADDETAIL sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-SF_CITY sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-SF_REGION sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-SF_POST sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-SF_COUNTRY sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-MOVEMENT_END sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-MOVEMENT_START sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-ATDOCCODEID sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-TAXPAYABLE sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-NETTOTAL sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-GROSSTOTAL sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-CURRENCY sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-CURRENCYAMOUNT sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-EXCHANGERATE sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-HASH_NEW sy-vline 
WA_FIEU_S_GOODS_HEAD_STR-HASHCONTROL_NEW sy-vline      INTO ld_text SEPARATED BY SPACE.

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