ABAP Select data from SAP table /SCWM/S_EX_VAS 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 /SCWM/S_EX_VAS 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 /SCWM/S_EX_VAS. 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 /SCWM/S_EX_VAS 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_/SCWM/S_EX_VAS TYPE STANDARD TABLE OF /SCWM/S_EX_VAS,
      WA_/SCWM/S_EX_VAS TYPE /SCWM/S_EX_VAS,
      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: </SCWM/S_EX_VAS> TYPE /SCWM/S_EX_VAS.

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

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM /SCWM/S_EX_VAS
  INTO TABLE IT_/SCWM/S_EX_VAS.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM /SCWM/S_EX_VAS
*  INTO TABLE @DATA(IT_/SCWM/S_EX_VAS2).
*--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_/SCWM/S_EX_VAS INDEX 1 INTO DATA(WA_/SCWM/S_EX_VAS2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/SCWM/S_EX_VAS ASSIGNING </SCWM/S_EX_VAS>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
</SCWM/S_EX_VAS>-MANDT = 1.
</SCWM/S_EX_VAS>-ROCANCEL = 1.
</SCWM/S_EX_VAS>-LGNUM = 1.
</SCWM/S_EX_VAS>-VAS_ID = 1.
</SCWM/S_EX_VAS>-VAS_TYPE = 1.

ENDLOOP.

LOOP AT IT_/SCWM/S_EX_VAS INTO WA_/SCWM/S_EX_VAS.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/SCWM/S_EX_VAS-VAS_ART, sy-vline,
  WA_/SCWM/S_EX_VAS-STATUS, sy-vline,
  WA_/SCWM/S_EX_VAS-EFFORT_CODE, sy-vline,
  WA_/SCWM/S_EX_VAS-TZONE, sy-vline,
  WA_/SCWM/S_EX_VAS-CREUSR, sy-vline,
  WA_/SCWM/S_EX_VAS-CRETST, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/SCWM/S_EX_VAS 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_/SCWM/S_EX_VAS 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_/SCWM/S_EX_VAS INTO WA_/SCWM/S_EX_VAS.


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

*Conversion exit TSTPS, internal->external for field CRETST
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_/SCWM/S_EX_VAS-CRETST
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_EX_VAS-CRETST.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field CHGTST
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_/SCWM/S_EX_VAS-CHGTST
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_EX_VAS-CHGTST.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit TSTPS, internal->external for field PL_END_TIME
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_/SCWM/S_EX_VAS-PL_END_TIME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_EX_VAS-PL_END_TIME.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit TSTPS, internal->external for field ACT_STARTED_AT
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_/SCWM/S_EX_VAS-ACT_STARTED_AT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_EX_VAS-ACT_STARTED_AT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field ACT_ENDED_AT
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_/SCWM/S_EX_VAS-ACT_ENDED_AT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_EX_VAS-ACT_ENDED_AT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field ACT_PL_START_TIM
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_/SCWM/S_EX_VAS-ACT_PL_START_TIM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_EX_VAS-ACT_PL_START_TIM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field ACT_PL_END_TIME
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_/SCWM/S_EX_VAS-ACT_PL_END_TIME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_EX_VAS-ACT_PL_END_TIME.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field AX_ENTITLED
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_/SCWM/S_EX_VAS-AX_ENTITLED
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SCWM/S_EX_VAS-AX_ENTITLED.
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_/SCWM/S_EX_VAS_STR, 
MANDT TYPE STRING,
ROCANCEL TYPE STRING,
LGNUM TYPE STRING,
VAS_ID TYPE STRING,
VAS_TYPE TYPE STRING,
VAS_ART TYPE STRING,
STATUS TYPE STRING,
EFFORT_CODE TYPE STRING,
TZONE TYPE STRING,
CREUSR TYPE STRING,
CRETST TYPE STRING,
CREDATE TYPE STRING,
CRETIME TYPE STRING,
CHGUSR TYPE STRING,
CHGTST TYPE STRING,
CHGDATE TYPE STRING,
CHGTIME TYPE STRING,
PS_ID TYPE STRING,
PLAN_START_DATE TYPE STRING,
PLAN_START_TIME TYPE STRING,
PL_END_TIME TYPE STRING,
PLAN_END_DATE TYPE STRING,
PLAN_END_TIME TYPE STRING,
ACT_SEQ TYPE STRING,
ACT_STATUS TYPE STRING,
ACT_CHGUSR TYPE STRING,
ACT_PLAN_MATNR TYPE STRING,
ACT_PLAN_QTY TYPE STRING,
ACT_COMPLQTY TYPE STRING,
ACT_PLAN_QTY_UOM TYPE STRING,
WORKCENTER TYPE STRING,
PROCS TYPE STRING,
PROCTY TYPE STRING,
KIT_ACT TYPE STRING,
ACT_EFFORT_CODE TYPE STRING,
PLDURA TYPE STRING,
UNIT_T TYPE STRING,
ACT_STARTED_AT TYPE STRING,
ACT_START_DATE TYPE STRING,
ACT_START_TIME TYPE STRING,
ACT_ENDED_AT TYPE STRING,
ACT_END_DATE TYPE STRING,
ACT_END_TIME TYPE STRING,
ACT_PL_START_TIM TYPE STRING,
ACT_PLAN_START_D TYPE STRING,
ACT_PLAN_START_T TYPE STRING,
ACT_PL_END_TIME TYPE STRING,
ACT_PLAN_END_D TYPE STRING,
ACT_PLAN_END_T TYPE STRING,
ITM_SEQ TYPE STRING,
IT_MATNR TYPE STRING,
IT_PLAN_QTY TYPE STRING,
IT_PLAN_QTY_UOM TYPE STRING,
IT_COMPLQTY TYPE STRING,
IT_RDOCCAT TYPE STRING,
IT_RDOCNO TYPE STRING,
IT_RITMNO TYPE STRING,
AUX_SEQ TYPE STRING,
AX_MATNR TYPE STRING,
AX_PLAN_QTY TYPE STRING,
AX_POSTQTY TYPE STRING,
AX_BASE_UNIT TYPE STRING,
HURELEVANT TYPE STRING,
AX_CHARG TYPE STRING,
AX_CAT TYPE STRING,
STOCK_USAGE TYPE STRING,
STOCK_CNT TYPE STRING,
STOCK_DOCCAT TYPE STRING,
STOCK_DOCNO TYPE STRING,
STOCK_ITMNO TYPE STRING,
AX_OWNER_ROLE TYPE STRING,
AX_OWNER TYPE STRING,
AX_ENTITLED_ROLE TYPE STRING,
AX_ENTITLED TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/SCWM/S_EX_VAS_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_/SCWM/S_EX_VAS_STR-MANDT sy-vline 
WA_/SCWM/S_EX_VAS_STR-ROCANCEL sy-vline 
WA_/SCWM/S_EX_VAS_STR-LGNUM sy-vline 
WA_/SCWM/S_EX_VAS_STR-VAS_ID sy-vline 
WA_/SCWM/S_EX_VAS_STR-VAS_TYPE sy-vline 
WA_/SCWM/S_EX_VAS_STR-VAS_ART sy-vline 
WA_/SCWM/S_EX_VAS_STR-STATUS sy-vline 
WA_/SCWM/S_EX_VAS_STR-EFFORT_CODE sy-vline 
WA_/SCWM/S_EX_VAS_STR-TZONE sy-vline 
WA_/SCWM/S_EX_VAS_STR-CREUSR sy-vline 
WA_/SCWM/S_EX_VAS_STR-CRETST sy-vline 
WA_/SCWM/S_EX_VAS_STR-CREDATE sy-vline 
WA_/SCWM/S_EX_VAS_STR-CRETIME sy-vline 
WA_/SCWM/S_EX_VAS_STR-CHGUSR sy-vline 
WA_/SCWM/S_EX_VAS_STR-CHGTST sy-vline 
WA_/SCWM/S_EX_VAS_STR-CHGDATE sy-vline 
WA_/SCWM/S_EX_VAS_STR-CHGTIME sy-vline 
WA_/SCWM/S_EX_VAS_STR-PS_ID sy-vline 
WA_/SCWM/S_EX_VAS_STR-PLAN_START_DATE sy-vline 
WA_/SCWM/S_EX_VAS_STR-PLAN_START_TIME sy-vline 
WA_/SCWM/S_EX_VAS_STR-PL_END_TIME sy-vline 
WA_/SCWM/S_EX_VAS_STR-PLAN_END_DATE sy-vline 
WA_/SCWM/S_EX_VAS_STR-PLAN_END_TIME sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_SEQ sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_STATUS sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_CHGUSR sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_PLAN_MATNR sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_PLAN_QTY sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_COMPLQTY sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_PLAN_QTY_UOM sy-vline 
WA_/SCWM/S_EX_VAS_STR-WORKCENTER sy-vline 
WA_/SCWM/S_EX_VAS_STR-PROCS sy-vline 
WA_/SCWM/S_EX_VAS_STR-PROCTY sy-vline 
WA_/SCWM/S_EX_VAS_STR-KIT_ACT sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_EFFORT_CODE sy-vline 
WA_/SCWM/S_EX_VAS_STR-PLDURA sy-vline 
WA_/SCWM/S_EX_VAS_STR-UNIT_T sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_STARTED_AT sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_START_DATE sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_START_TIME sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_ENDED_AT sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_END_DATE sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_END_TIME sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_PL_START_TIM sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_PLAN_START_D sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_PLAN_START_T sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_PL_END_TIME sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_PLAN_END_D sy-vline 
WA_/SCWM/S_EX_VAS_STR-ACT_PLAN_END_T sy-vline 
WA_/SCWM/S_EX_VAS_STR-ITM_SEQ sy-vline 
WA_/SCWM/S_EX_VAS_STR-IT_MATNR sy-vline 
WA_/SCWM/S_EX_VAS_STR-IT_PLAN_QTY sy-vline 
WA_/SCWM/S_EX_VAS_STR-IT_PLAN_QTY_UOM sy-vline 
WA_/SCWM/S_EX_VAS_STR-IT_COMPLQTY sy-vline 
WA_/SCWM/S_EX_VAS_STR-IT_RDOCCAT sy-vline 
WA_/SCWM/S_EX_VAS_STR-IT_RDOCNO sy-vline 
WA_/SCWM/S_EX_VAS_STR-IT_RITMNO sy-vline 
WA_/SCWM/S_EX_VAS_STR-AUX_SEQ sy-vline 
WA_/SCWM/S_EX_VAS_STR-AX_MATNR sy-vline 
WA_/SCWM/S_EX_VAS_STR-AX_PLAN_QTY sy-vline 
WA_/SCWM/S_EX_VAS_STR-AX_POSTQTY sy-vline 
WA_/SCWM/S_EX_VAS_STR-AX_BASE_UNIT sy-vline 
WA_/SCWM/S_EX_VAS_STR-HURELEVANT sy-vline 
WA_/SCWM/S_EX_VAS_STR-AX_CHARG sy-vline 
WA_/SCWM/S_EX_VAS_STR-AX_CAT sy-vline 
WA_/SCWM/S_EX_VAS_STR-STOCK_USAGE sy-vline 
WA_/SCWM/S_EX_VAS_STR-STOCK_CNT sy-vline 
WA_/SCWM/S_EX_VAS_STR-STOCK_DOCCAT sy-vline 
WA_/SCWM/S_EX_VAS_STR-STOCK_DOCNO sy-vline 
WA_/SCWM/S_EX_VAS_STR-STOCK_ITMNO sy-vline 
WA_/SCWM/S_EX_VAS_STR-AX_OWNER_ROLE sy-vline 
WA_/SCWM/S_EX_VAS_STR-AX_OWNER sy-vline 
WA_/SCWM/S_EX_VAS_STR-AX_ENTITLED_ROLE sy-vline 
WA_/SCWM/S_EX_VAS_STR-AX_ENTITLED sy-vline      INTO ld_text SEPARATED BY SPACE.

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