ABAP Select data from SAP table BAPITSWNOM10 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 BAPITSWNOM10 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 BAPITSWNOM10. 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 BAPITSWNOM10 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_BAPITSWNOM10 TYPE STANDARD TABLE OF BAPITSWNOM10,
      WA_BAPITSWNOM10 TYPE BAPITSWNOM10,
      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: <BAPITSWNOM10> TYPE BAPITSWNOM10.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BAPITSWNOM10
*  INTO TABLE @DATA(IT_BAPITSWNOM102).
*--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_BAPITSWNOM10 INDEX 1 INTO DATA(WA_BAPITSWNOM102).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<BAPITSWNOM10>-NOMINATIONNUMBER_SAP = 1.
<BAPITSWNOM10>-ITEMNUMBER = 1.
<BAPITSWNOM10>-SUBITEMNUMBER = 1.
<BAPITSWNOM10>-SUBITEMAPPLICATION = 1.
<BAPITSWNOM10>-SUBITEMSCHEDULEQUANTITY = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BAPITSWNOM10-SCHEDULEQUANTITYUNIT_SAP, sy-vline,
  WA_BAPITSWNOM10-SCHEDULEQUANTITYUNIT_ISO, sy-vline,
  WA_BAPITSWNOM10-VEHICLECAPACITY, sy-vline,
  WA_BAPITSWNOM10-VEHICLECAPACITYUNIT_SAP, sy-vline,
  WA_BAPITSWNOM10-VEHICLECAPACITYUNIT_ISO, sy-vline,
  WA_BAPITSWNOM10-SUBITEMSCHEDULEMATERIAL, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_BAPITSWNOM10 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_BAPITSWNOM10 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_BAPITSWNOM10 INTO WA_BAPITSWNOM10.


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

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

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

*Conversion exit MATN5, internal->external for field SUBITEMSCHEDULEMATERIAL
CALL FUNCTION 'CONVERSION_EXIT_MATN5_OUTPUT'
  EXPORTING
    input =                      WA_BAPITSWNOM10-SUBITEMSCHEDULEMATERIAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITSWNOM10-SUBITEMSCHEDULEMATERIAL.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit MATN1, internal->external for field SUBITEMSCHEDULEMATERIAL_LONG
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_BAPITSWNOM10-SUBITEMSCHEDULEMATERIAL_LONG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITSWNOM10-SUBITEMSCHEDULEMATERIAL_LONG.
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_BAPITSWNOM10_STR, 
NOMINATIONNUMBER_SAP TYPE STRING,
ITEMNUMBER TYPE STRING,
SUBITEMNUMBER TYPE STRING,
SUBITEMAPPLICATION TYPE STRING,
SUBITEMSCHEDULEQUANTITY TYPE STRING,
SCHEDULEQUANTITYUNIT_SAP TYPE STRING,
SCHEDULEQUANTITYUNIT_ISO TYPE STRING,
VEHICLECAPACITY TYPE STRING,
VEHICLECAPACITYUNIT_SAP TYPE STRING,
VEHICLECAPACITYUNIT_ISO TYPE STRING,
SUBITEMSCHEDULEMATERIAL TYPE STRING,
SCHEDULEDATE TYPE STRING,
SCHEDULETST TYPE STRING,
ACTUALDATE TYPE STRING,
ACTUALTST TYPE STRING,
TICKETNUMBER_SAP TYPE STRING,
TICKETNUMBER_EXT TYPE STRING,
TICKETITEMNUMBER TYPE STRING,
TICKETVERSION TYPE STRING,
TICKETPURPOSE TYPE STRING,
SUBITEMSTATUS TYPE STRING,
DELETIONINDICATOR TYPE STRING,
RAILCARID TYPE STRING,
RAILCARSEQUENCE TYPE STRING,
RAILCARTYPE TYPE STRING,
RAILTARIFF TYPE STRING,
RAILTARIFFCURRENCY TYPE STRING,
RAILTARIFFCURRENCY_ISO TYPE STRING,
RAILDOCUMENTINDICATOR TYPE STRING,
RAILDOCUMENTNUMBER TYPE STRING,
RAILDOCUMENTITEMNUMBER TYPE STRING,
COMPARTMENTID TYPE STRING,
BARGEID TYPE STRING,
MULTIPLEDOCUMENTDOCINDICATOR TYPE STRING,
MULTIPLEDOCUMENTDOCNUMBER TYPE STRING,
MULTIPLEDOCUMENTDOCITEM TYPE STRING,
MULTIPLEDOCUMENTPARTNER TYPE STRING,
TANKNUMBER TYPE STRING,
STOCKPILENUMBER TYPE STRING,
CONTAINERNUMBER TYPE STRING,
BATCHNUMBER TYPE STRING,
OWNERNAME TYPE STRING,
VALUATIONTYPE TYPE STRING,
BATCHNUMBERFOROWNER TYPE STRING,
SUBITEMCREATION TYPE STRING,
SUBITEMCREATEDBY TYPE STRING,
SUBITEMMODIFICATION TYPE STRING,
SUBITEMCHANGEDBY TYPE STRING,
ACTUALQUANTITY_PAR TYPE STRING,
ACTUALQUANTITYUNIT_PAR_SAP TYPE STRING,
ACTUALQUANTITYUNIT_PAR_ISO TYPE STRING,
SUBITEMSCHEDULEMATERIAL_LONG TYPE STRING,END OF T_EKKO_STR.
DATA: WA_BAPITSWNOM10_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_BAPITSWNOM10_STR-NOMINATIONNUMBER_SAP sy-vline 
WA_BAPITSWNOM10_STR-ITEMNUMBER sy-vline 
WA_BAPITSWNOM10_STR-SUBITEMNUMBER sy-vline 
WA_BAPITSWNOM10_STR-SUBITEMAPPLICATION sy-vline 
WA_BAPITSWNOM10_STR-SUBITEMSCHEDULEQUANTITY sy-vline 
WA_BAPITSWNOM10_STR-SCHEDULEQUANTITYUNIT_SAP sy-vline 
WA_BAPITSWNOM10_STR-SCHEDULEQUANTITYUNIT_ISO sy-vline 
WA_BAPITSWNOM10_STR-VEHICLECAPACITY sy-vline 
WA_BAPITSWNOM10_STR-VEHICLECAPACITYUNIT_SAP sy-vline 
WA_BAPITSWNOM10_STR-VEHICLECAPACITYUNIT_ISO sy-vline 
WA_BAPITSWNOM10_STR-SUBITEMSCHEDULEMATERIAL sy-vline 
WA_BAPITSWNOM10_STR-SCHEDULEDATE sy-vline 
WA_BAPITSWNOM10_STR-SCHEDULETST sy-vline 
WA_BAPITSWNOM10_STR-ACTUALDATE sy-vline 
WA_BAPITSWNOM10_STR-ACTUALTST sy-vline 
WA_BAPITSWNOM10_STR-TICKETNUMBER_SAP sy-vline 
WA_BAPITSWNOM10_STR-TICKETNUMBER_EXT sy-vline 
WA_BAPITSWNOM10_STR-TICKETITEMNUMBER sy-vline 
WA_BAPITSWNOM10_STR-TICKETVERSION sy-vline 
WA_BAPITSWNOM10_STR-TICKETPURPOSE sy-vline 
WA_BAPITSWNOM10_STR-SUBITEMSTATUS sy-vline 
WA_BAPITSWNOM10_STR-DELETIONINDICATOR sy-vline 
WA_BAPITSWNOM10_STR-RAILCARID sy-vline 
WA_BAPITSWNOM10_STR-RAILCARSEQUENCE sy-vline 
WA_BAPITSWNOM10_STR-RAILCARTYPE sy-vline 
WA_BAPITSWNOM10_STR-RAILTARIFF sy-vline 
WA_BAPITSWNOM10_STR-RAILTARIFFCURRENCY sy-vline 
WA_BAPITSWNOM10_STR-RAILTARIFFCURRENCY_ISO sy-vline 
WA_BAPITSWNOM10_STR-RAILDOCUMENTINDICATOR sy-vline 
WA_BAPITSWNOM10_STR-RAILDOCUMENTNUMBER sy-vline 
WA_BAPITSWNOM10_STR-RAILDOCUMENTITEMNUMBER sy-vline 
WA_BAPITSWNOM10_STR-COMPARTMENTID sy-vline 
WA_BAPITSWNOM10_STR-BARGEID sy-vline 
WA_BAPITSWNOM10_STR-MULTIPLEDOCUMENTDOCINDICATOR sy-vline 
WA_BAPITSWNOM10_STR-MULTIPLEDOCUMENTDOCNUMBER sy-vline 
WA_BAPITSWNOM10_STR-MULTIPLEDOCUMENTDOCITEM sy-vline 
WA_BAPITSWNOM10_STR-MULTIPLEDOCUMENTPARTNER sy-vline 
WA_BAPITSWNOM10_STR-TANKNUMBER sy-vline 
WA_BAPITSWNOM10_STR-STOCKPILENUMBER sy-vline 
WA_BAPITSWNOM10_STR-CONTAINERNUMBER sy-vline 
WA_BAPITSWNOM10_STR-BATCHNUMBER sy-vline 
WA_BAPITSWNOM10_STR-OWNERNAME sy-vline 
WA_BAPITSWNOM10_STR-VALUATIONTYPE sy-vline 
WA_BAPITSWNOM10_STR-BATCHNUMBERFOROWNER sy-vline 
WA_BAPITSWNOM10_STR-SUBITEMCREATION sy-vline 
WA_BAPITSWNOM10_STR-SUBITEMCREATEDBY sy-vline 
WA_BAPITSWNOM10_STR-SUBITEMMODIFICATION sy-vline 
WA_BAPITSWNOM10_STR-SUBITEMCHANGEDBY sy-vline 
WA_BAPITSWNOM10_STR-ACTUALQUANTITY_PAR sy-vline 
WA_BAPITSWNOM10_STR-ACTUALQUANTITYUNIT_PAR_SAP sy-vline 
WA_BAPITSWNOM10_STR-ACTUALQUANTITYUNIT_PAR_ISO sy-vline 
WA_BAPITSWNOM10_STR-SUBITEMSCHEDULEMATERIAL_LONG sy-vline      INTO ld_text SEPARATED BY SPACE.

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