ABAP Select data from SAP table FBMW_S_Z4_ITEM 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 FBMW_S_Z4_ITEM 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 FBMW_S_Z4_ITEM. 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 FBMW_S_Z4_ITEM 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_FBMW_S_Z4_ITEM TYPE STANDARD TABLE OF FBMW_S_Z4_ITEM,
      WA_FBMW_S_Z4_ITEM TYPE FBMW_S_Z4_ITEM,
      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: <FBMW_S_Z4_ITEM> TYPE FBMW_S_Z4_ITEM.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FBMW_S_Z4_ITEM
*  INTO TABLE @DATA(IT_FBMW_S_Z4_ITEM2).
*--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_FBMW_S_Z4_ITEM INDEX 1 INTO DATA(WA_FBMW_S_Z4_ITEM2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<FBMW_S_Z4_ITEM>-MLDCO = 1.
<FBMW_S_Z4_ITEM>-MLDJA = 1.
<FBMW_S_Z4_ITEM>-MLDPE = 1.
<FBMW_S_Z4_ITEM>-BUKRS = 1.
<FBMW_S_Z4_ITEM>-BELNR = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FBMW_S_Z4_ITEM-GJAHR, sy-vline,
  WA_FBMW_S_Z4_ITEM-BUZEI, sy-vline,
  WA_FBMW_S_Z4_ITEM-XREVRS, sy-vline,
  WA_FBMW_S_Z4_ITEM-MLDSP, sy-vline,
  WA_FBMW_S_Z4_ITEM-LZBKZ, sy-vline,
  WA_FBMW_S_Z4_ITEM-MLDINTCA, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_FBMW_S_Z4_ITEM 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_FBMW_S_Z4_ITEM 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_FBMW_S_Z4_ITEM INTO WA_FBMW_S_Z4_ITEM.


*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 GJAHR, internal->external for field MLDJA
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_FBMW_S_Z4_ITEM-MLDJA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FBMW_S_Z4_ITEM-MLDJA.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit AU132, internal->external for field WRBTR
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_FBMW_S_Z4_ITEM-WRBTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FBMW_S_Z4_ITEM-WRBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field DMBTR
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_FBMW_S_Z4_ITEM-DMBTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FBMW_S_Z4_ITEM-DMBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field PSWBT
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_FBMW_S_Z4_ITEM-PSWBT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FBMW_S_Z4_ITEM-PSWBT.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field REF_AWSYS
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_FBMW_S_Z4_ITEM-REF_AWSYS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FBMW_S_Z4_ITEM-REF_AWSYS.
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_FBMW_S_Z4_ITEM_STR, 
MLDCO TYPE STRING,
MLDJA TYPE STRING,
MLDPE TYPE STRING,
BUKRS TYPE STRING,
BELNR TYPE STRING,
GJAHR TYPE STRING,
BUZEI TYPE STRING,
XREVRS TYPE STRING,
MLDSP TYPE STRING,
LZBKZ TYPE STRING,
MLDINTCA TYPE STRING,
LANDL TYPE STRING,
KAPNR TYPE STRING,
SHKZG TYPE STRING,
MLD_WAERS TYPE STRING,
WRBTR TYPE STRING,
DMBTR TYPE STRING,
BLALB TYPE STRING,
XSOANZ TYPE STRING,
BSCHL TYPE STRING,
UMSKZ TYPE STRING,
WAERS TYPE STRING,
PSWBT TYPE STRING,
BUDAT TYPE STRING,
CPUDT TYPE STRING,
KOART TYPE STRING,
XBILK TYPE STRING,
XBANK TYPE STRING,
KONTO TYPE STRING,
AUGBL TYPE STRING,
AUGDT TYPE STRING,
ERROR TYPE STRING,
LANDL_S TYPE STRING,
REBZG TYPE STRING,
XGZREF TYPE STRING,
GZREF_BUZEI TYPE STRING,
GZREF_SHKZG TYPE STRING,
GZREF_KOART TYPE STRING,
GZREF_XBILK TYPE STRING,
GZREF_LZBKZ TYPE STRING,
GZREF_LANDL TYPE STRING,
XLZBREV TYPE STRING,
XCRMEM TYPE STRING,
XKEEPSIGN TYPE STRING,
REF_REBZT TYPE STRING,
REF_REBZG TYPE STRING,
REF_REBZJ TYPE STRING,
REF_REBZZ TYPE STRING,
REF_SHKZG TYPE STRING,
REF_KOART TYPE STRING,
REF_AWTYP TYPE STRING,
REF_AWKEY TYPE STRING,
REF_AWSYS TYPE STRING,
REF_VORGN TYPE STRING,
REF_LZBKZ TYPE STRING,
REF_LANDL TYPE STRING,
REF_BUDAT TYPE STRING,
REF_CPUDT TYPE STRING,
XIGNORE TYPE STRING,
GOODS_DESCR_TR TYPE STRING,END OF T_EKKO_STR.
DATA: WA_FBMW_S_Z4_ITEM_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_FBMW_S_Z4_ITEM_STR-MLDCO sy-vline 
WA_FBMW_S_Z4_ITEM_STR-MLDJA sy-vline 
WA_FBMW_S_Z4_ITEM_STR-MLDPE sy-vline 
WA_FBMW_S_Z4_ITEM_STR-BUKRS sy-vline 
WA_FBMW_S_Z4_ITEM_STR-BELNR sy-vline 
WA_FBMW_S_Z4_ITEM_STR-GJAHR sy-vline 
WA_FBMW_S_Z4_ITEM_STR-BUZEI sy-vline 
WA_FBMW_S_Z4_ITEM_STR-XREVRS sy-vline 
WA_FBMW_S_Z4_ITEM_STR-MLDSP sy-vline 
WA_FBMW_S_Z4_ITEM_STR-LZBKZ sy-vline 
WA_FBMW_S_Z4_ITEM_STR-MLDINTCA sy-vline 
WA_FBMW_S_Z4_ITEM_STR-LANDL sy-vline 
WA_FBMW_S_Z4_ITEM_STR-KAPNR sy-vline 
WA_FBMW_S_Z4_ITEM_STR-SHKZG sy-vline 
WA_FBMW_S_Z4_ITEM_STR-MLD_WAERS sy-vline 
WA_FBMW_S_Z4_ITEM_STR-WRBTR sy-vline 
WA_FBMW_S_Z4_ITEM_STR-DMBTR sy-vline 
WA_FBMW_S_Z4_ITEM_STR-BLALB sy-vline 
WA_FBMW_S_Z4_ITEM_STR-XSOANZ sy-vline 
WA_FBMW_S_Z4_ITEM_STR-BSCHL sy-vline 
WA_FBMW_S_Z4_ITEM_STR-UMSKZ sy-vline 
WA_FBMW_S_Z4_ITEM_STR-WAERS sy-vline 
WA_FBMW_S_Z4_ITEM_STR-PSWBT sy-vline 
WA_FBMW_S_Z4_ITEM_STR-BUDAT sy-vline 
WA_FBMW_S_Z4_ITEM_STR-CPUDT sy-vline 
WA_FBMW_S_Z4_ITEM_STR-KOART sy-vline 
WA_FBMW_S_Z4_ITEM_STR-XBILK sy-vline 
WA_FBMW_S_Z4_ITEM_STR-XBANK sy-vline 
WA_FBMW_S_Z4_ITEM_STR-KONTO sy-vline 
WA_FBMW_S_Z4_ITEM_STR-AUGBL sy-vline 
WA_FBMW_S_Z4_ITEM_STR-AUGDT sy-vline 
WA_FBMW_S_Z4_ITEM_STR-ERROR sy-vline 
WA_FBMW_S_Z4_ITEM_STR-LANDL_S sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REBZG sy-vline 
WA_FBMW_S_Z4_ITEM_STR-XGZREF sy-vline 
WA_FBMW_S_Z4_ITEM_STR-GZREF_BUZEI sy-vline 
WA_FBMW_S_Z4_ITEM_STR-GZREF_SHKZG sy-vline 
WA_FBMW_S_Z4_ITEM_STR-GZREF_KOART sy-vline 
WA_FBMW_S_Z4_ITEM_STR-GZREF_XBILK sy-vline 
WA_FBMW_S_Z4_ITEM_STR-GZREF_LZBKZ sy-vline 
WA_FBMW_S_Z4_ITEM_STR-GZREF_LANDL sy-vline 
WA_FBMW_S_Z4_ITEM_STR-XLZBREV sy-vline 
WA_FBMW_S_Z4_ITEM_STR-XCRMEM sy-vline 
WA_FBMW_S_Z4_ITEM_STR-XKEEPSIGN sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REF_REBZT sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REF_REBZG sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REF_REBZJ sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REF_REBZZ sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REF_SHKZG sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REF_KOART sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REF_AWTYP sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REF_AWKEY sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REF_AWSYS sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REF_VORGN sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REF_LZBKZ sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REF_LANDL sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REF_BUDAT sy-vline 
WA_FBMW_S_Z4_ITEM_STR-REF_CPUDT sy-vline 
WA_FBMW_S_Z4_ITEM_STR-XIGNORE sy-vline 
WA_FBMW_S_Z4_ITEM_STR-GOODS_DESCR_TR sy-vline      INTO ld_text SEPARATED BY SPACE.

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