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

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

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

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


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
</SCWM/T333>-MANDT = 1.
</SCWM/T333>-LGNUM = 1.
</SCWM/T333>-PROCTY = 1.
</SCWM/T333>-TRART = 1.
</SCWM/T333>-ACT_TYPE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/SCWM/T333-PRIORITY, sy-vline,
  WA_/SCWM/T333-VLTYP, sy-vline,
  WA_/SCWM/T333-VLPLA, sy-vline,
  WA_/SCWM/T333-NLTYP, sy-vline,
  WA_/SCWM/T333-NLPLA, sy-vline,
  WA_/SCWM/T333-TBOBL, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/SCWM/T333 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/T333 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/T333 INTO WA_/SCWM/T333.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_/SCWM/T333_STR, 
MANDT TYPE STRING,
LGNUM TYPE STRING,
PROCTY TYPE STRING,
TRART TYPE STRING,
ACT_TYPE TYPE STRING,
PRIORITY TYPE STRING,
VLTYP TYPE STRING,
VLPLA TYPE STRING,
NLTYP TYPE STRING,
NLPLA TYPE STRING,
TBOBL TYPE STRING,
SQUIT TYPE STRING,
VQUIT TYPE STRING,
ROUND TYPE STRING,
PIKTA TYPE STRING,
PROCTYGRPR TYPE STRING,
PROCTYGRPQ TYPE STRING,
WCR TYPE STRING,
AAREL TYPE STRING,
NOROU TYPE STRING,
NROUM TYPE STRING,
PRCES TYPE STRING,
AUTWAVE TYPE STRING,
PLD TYPE STRING,
NO_AUTREPL TYPE STRING,
SCBIN TYPE STRING,
SCEXC TYPE STRING,
GMSEQ TYPE STRING,
PRT_CTLIST TYPE STRING,
PDENIALCTRL TYPE STRING,
PDENIALACT TYPE STRING,
DOCTYPE TYPE STRING,
ITEMTYPE TYPE STRING,
FULL_PICK TYPE STRING,
PROCPRFL_BYPASS TYPE STRING,
NOROU_KEEP_HU TYPE STRING,
STOCKID_CTRL TYPE STRING,
NEGAT TYPE STRING,
AVLGRP TYPE STRING,
RBATCH_WT TYPE STRING,
CWMEAS TYPE STRING,
VLPLA_BL_E TYPE STRING,
NLPLA_BL_E TYPE STRING,
VLPLA_BL_RF_E TYPE STRING,
NLPLA_BL_RF_E TYPE STRING,
VLPLA_BL_RF_M TYPE STRING,
NLPLA_BL_RF_M TYPE STRING,
RNDSPLIT TYPE STRING,
MEDI_PROC TYPE STRING,
WT_CREATE_AUTO TYPE STRING,
ORD_CANC TYPE STRING,
PTWY_AUTO_WT TYPE STRING,
KANBAN_EXC TYPE STRING,
PRE_ALLOCATED_IND TYPE STRING,
BDEN_BLOCK_WHR TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/SCWM/T333_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/T333_STR-MANDT sy-vline 
WA_/SCWM/T333_STR-LGNUM sy-vline 
WA_/SCWM/T333_STR-PROCTY sy-vline 
WA_/SCWM/T333_STR-TRART sy-vline 
WA_/SCWM/T333_STR-ACT_TYPE sy-vline 
WA_/SCWM/T333_STR-PRIORITY sy-vline 
WA_/SCWM/T333_STR-VLTYP sy-vline 
WA_/SCWM/T333_STR-VLPLA sy-vline 
WA_/SCWM/T333_STR-NLTYP sy-vline 
WA_/SCWM/T333_STR-NLPLA sy-vline 
WA_/SCWM/T333_STR-TBOBL sy-vline 
WA_/SCWM/T333_STR-SQUIT sy-vline 
WA_/SCWM/T333_STR-VQUIT sy-vline 
WA_/SCWM/T333_STR-ROUND sy-vline 
WA_/SCWM/T333_STR-PIKTA sy-vline 
WA_/SCWM/T333_STR-PROCTYGRPR sy-vline 
WA_/SCWM/T333_STR-PROCTYGRPQ sy-vline 
WA_/SCWM/T333_STR-WCR sy-vline 
WA_/SCWM/T333_STR-AAREL sy-vline 
WA_/SCWM/T333_STR-NOROU sy-vline 
WA_/SCWM/T333_STR-NROUM sy-vline 
WA_/SCWM/T333_STR-PRCES sy-vline 
WA_/SCWM/T333_STR-AUTWAVE sy-vline 
WA_/SCWM/T333_STR-PLD sy-vline 
WA_/SCWM/T333_STR-NO_AUTREPL sy-vline 
WA_/SCWM/T333_STR-SCBIN sy-vline 
WA_/SCWM/T333_STR-SCEXC sy-vline 
WA_/SCWM/T333_STR-GMSEQ sy-vline 
WA_/SCWM/T333_STR-PRT_CTLIST sy-vline 
WA_/SCWM/T333_STR-PDENIALCTRL sy-vline 
WA_/SCWM/T333_STR-PDENIALACT sy-vline 
WA_/SCWM/T333_STR-DOCTYPE sy-vline 
WA_/SCWM/T333_STR-ITEMTYPE sy-vline 
WA_/SCWM/T333_STR-FULL_PICK sy-vline 
WA_/SCWM/T333_STR-PROCPRFL_BYPASS sy-vline 
WA_/SCWM/T333_STR-NOROU_KEEP_HU sy-vline 
WA_/SCWM/T333_STR-STOCKID_CTRL sy-vline 
WA_/SCWM/T333_STR-NEGAT sy-vline 
WA_/SCWM/T333_STR-AVLGRP sy-vline 
WA_/SCWM/T333_STR-RBATCH_WT sy-vline 
WA_/SCWM/T333_STR-CWMEAS sy-vline 
WA_/SCWM/T333_STR-VLPLA_BL_E sy-vline 
WA_/SCWM/T333_STR-NLPLA_BL_E sy-vline 
WA_/SCWM/T333_STR-VLPLA_BL_RF_E sy-vline 
WA_/SCWM/T333_STR-NLPLA_BL_RF_E sy-vline 
WA_/SCWM/T333_STR-VLPLA_BL_RF_M sy-vline 
WA_/SCWM/T333_STR-NLPLA_BL_RF_M sy-vline 
WA_/SCWM/T333_STR-RNDSPLIT sy-vline 
WA_/SCWM/T333_STR-MEDI_PROC sy-vline 
WA_/SCWM/T333_STR-WT_CREATE_AUTO sy-vline 
WA_/SCWM/T333_STR-ORD_CANC sy-vline 
WA_/SCWM/T333_STR-PTWY_AUTO_WT sy-vline 
WA_/SCWM/T333_STR-KANBAN_EXC sy-vline 
WA_/SCWM/T333_STR-PRE_ALLOCATED_IND sy-vline 
WA_/SCWM/T333_STR-BDEN_BLOCK_WHR sy-vline      INTO ld_text SEPARATED BY SPACE.

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