Home SAP Development ABAP Coding SAP Fiori SAP Training SAP Tables SAP Objects...

SAP S160 ABAP Select data from SAP table

Table Field Attributes
Data Element Attributes
Domain Attributes
SAP Tables
Best ABAP Books

Below is a number of ABAP code snippets to demonstrate how to select data from SAP S160 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 S160. 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 S160 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_S160 TYPE STANDARD TABLE OF S160,
      WA_S160 TYPE S160,
      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: <S160> TYPE S160.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM S160
*  INTO TABLE @DATA(IT_S1602).
*--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_S160 INDEX 1 INTO DATA(WA_S1602).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<S160>-MANDT = 1.
<S160>-SSOUR = 1.
<S160>-VRSIO = 1.
<S160>-SPMON = 1.
<S160>-SPTAG = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_S160-SPWOC, sy-vline,
  WA_S160-SPBUP, sy-vline,
  WA_S160-EKGRP, sy-vline,
  WA_S160-WERKS, sy-vline,
  WA_S160-BTRKZ, sy-vline,
  WA_S160-LIFNR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_S160 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_S160 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_S160 INTO WA_S160.


*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 PERI, internal->external for field SPMON
CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
  EXPORTING
    input =                      WA_S160-SPMON
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_S160-SPMON.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PERI, internal->external for field SPWOC
CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
  EXPORTING
    input =                      WA_S160-SPWOC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_S160-SPWOC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PERI, internal->external for field SPBUP
CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
  EXPORTING
    input =                      WA_S160-SPBUP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_S160-SPBUP.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit MATN1, internal->external for field SATNR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_S160-SATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_S160-SATNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATN1, internal->external for field MATNR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_S160-MATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_S160-MATNR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ATINN, internal->external for field ATINM1
CALL FUNCTION 'CONVERSION_EXIT_ATINN_OUTPUT'
  EXPORTING
    input =                      WA_S160-ATINM1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_S160-ATINM1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ATINN, internal->external for field ATINM2
CALL FUNCTION 'CONVERSION_EXIT_ATINN_OUTPUT'
  EXPORTING
    input =                      WA_S160-ATINM2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_S160-ATINM2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ATINN, internal->external for field ATINM3
CALL FUNCTION 'CONVERSION_EXIT_ATINN_OUTPUT'
  EXPORTING
    input =                      WA_S160-ATINM3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_S160-ATINM3.
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_S160_STR, 
MANDT TYPE STRING,
SSOUR TYPE STRING,
VRSIO TYPE STRING,
SPMON TYPE STRING,
SPTAG TYPE STRING,
SPWOC TYPE STRING,
SPBUP TYPE STRING,
EKGRP TYPE STRING,
WERKS TYPE STRING,
BTRKZ TYPE STRING,
LIFNR TYPE STRING,
MATKL TYPE STRING,
SATNR TYPE STRING,
MATNR TYPE STRING,
PERIV TYPE STRING,
VWDAT TYPE STRING,
BASME TYPE STRING,
HWAER TYPE STRING,
BVLMNG TYPE STRING,
BVLGEO TYPE STRING,
BVLGVO TYPE STRING,
BVLGVP TYPE STRING,
WESMNG TYPE STRING,
WESGEO TYPE STRING,
WESGVO TYPE STRING,
WESGVP TYPE STRING,
RTEMNG TYPE STRING,
RTEGEO TYPE STRING,
RTEGVO TYPE STRING,
RTEGVP TYPE STRING,
ULVMNG TYPE STRING,
ULVGEO TYPE STRING,
ULVGVO TYPE STRING,
ULVGVP TYPE STRING,
UAVMNG TYPE STRING,
UAVGEO TYPE STRING,
UAVGVO TYPE STRING,
UAVGVP TYPE STRING,
KMAMNG TYPE STRING,
KMAGEO TYPE STRING,
KMAGVO TYPE STRING,
KMAGVP TYPE STRING,
KMEMNG TYPE STRING,
KMEGEO TYPE STRING,
KMEGVO TYPE STRING,
KMEGVP TYPE STRING,
ULAMNG TYPE STRING,
ULAGEO TYPE STRING,
ULAGVO TYPE STRING,
ULAGVP TYPE STRING,
ULEMNG TYPE STRING,
ULEGEO TYPE STRING,
ULEGVO TYPE STRING,
ULEGVP TYPE STRING,
BKSMMG TYPE STRING,
BKSMEO TYPE STRING,
BKSMVO TYPE STRING,
BKSMVP TYPE STRING,
UMSMNG TYPE STRING,
UMSGEO TYPE STRING,
UMSGVO TYPE STRING,
UMSGVP TYPE STRING,
PRSNLS TYPE STRING,
KAVMNG TYPE STRING,
KAVGEO TYPE STRING,
KAVGVO TYPE STRING,
KAVGVP TYPE STRING,
LIFMNG TYPE STRING,
ABTNR TYPE STRING,
MERK1 TYPE STRING,
MERK2 TYPE STRING,
MERK3 TYPE STRING,
ATINM1 TYPE STRING,
ATINM2 TYPE STRING,
ATINM3 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_S160_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_S160_STR-MANDT sy-vline 
WA_S160_STR-SSOUR sy-vline 
WA_S160_STR-VRSIO sy-vline 
WA_S160_STR-SPMON sy-vline 
WA_S160_STR-SPTAG sy-vline 
WA_S160_STR-SPWOC sy-vline 
WA_S160_STR-SPBUP sy-vline 
WA_S160_STR-EKGRP sy-vline 
WA_S160_STR-WERKS sy-vline 
WA_S160_STR-BTRKZ sy-vline 
WA_S160_STR-LIFNR sy-vline 
WA_S160_STR-MATKL sy-vline 
WA_S160_STR-SATNR sy-vline 
WA_S160_STR-MATNR sy-vline 
WA_S160_STR-PERIV sy-vline 
WA_S160_STR-VWDAT sy-vline 
WA_S160_STR-BASME sy-vline 
WA_S160_STR-HWAER sy-vline 
WA_S160_STR-BVLMNG sy-vline 
WA_S160_STR-BVLGEO sy-vline 
WA_S160_STR-BVLGVO sy-vline 
WA_S160_STR-BVLGVP sy-vline 
WA_S160_STR-WESMNG sy-vline 
WA_S160_STR-WESGEO sy-vline 
WA_S160_STR-WESGVO sy-vline 
WA_S160_STR-WESGVP sy-vline 
WA_S160_STR-RTEMNG sy-vline 
WA_S160_STR-RTEGEO sy-vline 
WA_S160_STR-RTEGVO sy-vline 
WA_S160_STR-RTEGVP sy-vline 
WA_S160_STR-ULVMNG sy-vline 
WA_S160_STR-ULVGEO sy-vline 
WA_S160_STR-ULVGVO sy-vline 
WA_S160_STR-ULVGVP sy-vline 
WA_S160_STR-UAVMNG sy-vline 
WA_S160_STR-UAVGEO sy-vline 
WA_S160_STR-UAVGVO sy-vline 
WA_S160_STR-UAVGVP sy-vline 
WA_S160_STR-KMAMNG sy-vline 
WA_S160_STR-KMAGEO sy-vline 
WA_S160_STR-KMAGVO sy-vline 
WA_S160_STR-KMAGVP sy-vline 
WA_S160_STR-KMEMNG sy-vline 
WA_S160_STR-KMEGEO sy-vline 
WA_S160_STR-KMEGVO sy-vline 
WA_S160_STR-KMEGVP sy-vline 
WA_S160_STR-ULAMNG sy-vline 
WA_S160_STR-ULAGEO sy-vline 
WA_S160_STR-ULAGVO sy-vline 
WA_S160_STR-ULAGVP sy-vline 
WA_S160_STR-ULEMNG sy-vline 
WA_S160_STR-ULEGEO sy-vline 
WA_S160_STR-ULEGVO sy-vline 
WA_S160_STR-ULEGVP sy-vline 
WA_S160_STR-BKSMMG sy-vline 
WA_S160_STR-BKSMEO sy-vline 
WA_S160_STR-BKSMVO sy-vline 
WA_S160_STR-BKSMVP sy-vline 
WA_S160_STR-UMSMNG sy-vline 
WA_S160_STR-UMSGEO sy-vline 
WA_S160_STR-UMSGVO sy-vline 
WA_S160_STR-UMSGVP sy-vline 
WA_S160_STR-PRSNLS sy-vline 
WA_S160_STR-KAVMNG sy-vline 
WA_S160_STR-KAVGEO sy-vline 
WA_S160_STR-KAVGVO sy-vline 
WA_S160_STR-KAVGVP sy-vline 
WA_S160_STR-LIFMNG sy-vline 
WA_S160_STR-ABTNR sy-vline 
WA_S160_STR-MERK1 sy-vline 
WA_S160_STR-MERK2 sy-vline 
WA_S160_STR-MERK3 sy-vline 
WA_S160_STR-ATINM1 sy-vline 
WA_S160_STR-ATINM2 sy-vline 
WA_S160_STR-ATINM3 sy-vline      INTO ld_text SEPARATED BY SPACE.

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

Search for further information about these or an SAP related objects

Comments on this SAP object

What made you want to lookup this SAP object? Please tell us what you were looking for and anything you would like to be included on this page!