ABAP Select data from SAP table PEWMWO 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 PEWMWO 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 PEWMWO. 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 PEWMWO 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_PEWMWO TYPE STANDARD TABLE OF PEWMWO,
      WA_PEWMWO TYPE PEWMWO,
      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: <PEWMWO> TYPE PEWMWO.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PEWMWO
*  INTO TABLE @DATA(IT_PEWMWO2).
*--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_PEWMWO INDEX 1 INTO DATA(WA_PEWMWO2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PEWMWO>-MANDT = 1.
<PEWMWO>-WAREHOUSE = 1.
<PEWMWO>-WAREHOUSEORDER = 1.
<PEWMWO>-WAREHOUSEORDERCREATIONRULE = 1.
<PEWMWO>-WHSEORDERCREATIONRULECATEGORY = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PEWMWO-WHSEPROCESSTYPEDOCUMENTHDR, sy-vline,
  WA_PEWMWO-WAVE, sy-vline,
  WA_PEWMWO-WAREHOUSEORDERSTATUS, sy-vline,
  WA_PEWMWO-ACTIVITYAREA, sy-vline,
  WA_PEWMWO-STORAGETYPE, sy-vline,
  WA_PEWMWO-STORAGEBIN, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PEWMWO 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_PEWMWO 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_PEWMWO INTO WA_PEWMWO.


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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field WHSEORDERSUBSEQUENTWHSEORDER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_PEWMWO-WHSEORDERSUBSEQUENTWHSEORDER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PEWMWO-WHSEORDERSUBSEQUENTWHSEORDER.
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_PEWMWO_STR, 
MANDT TYPE STRING,
WAREHOUSE TYPE STRING,
WAREHOUSEORDER TYPE STRING,
WAREHOUSEORDERCREATIONRULE TYPE STRING,
WHSEORDERCREATIONRULECATEGORY TYPE STRING,
WHSEPROCESSTYPEDOCUMENTHDR TYPE STRING,
WAVE TYPE STRING,
WAREHOUSEORDERSTATUS TYPE STRING,
ACTIVITYAREA TYPE STRING,
STORAGETYPE TYPE STRING,
STORAGEBIN TYPE STRING,
CREATIONDATETIME TYPE STRING,
CREATEDBYUSER TYPE STRING,
QUEUE TYPE STRING,
WAREHOUSEORDERSTARTDATETIME TYPE STRING,
WAREHOUSEORDERSTARTTIMEISFIXED TYPE STRING,
WHSEORDERCONFIRMEDDATETIME TYPE STRING,
WAREHOUSEORDERCONFIRMEDBY TYPE STRING,
PROCESSOR TYPE STRING,
EXECUTINGRESOURCE TYPE STRING,
PROCESSORISMANUALASSIGNED TYPE STRING,
WAREHOUSEORDERHASPHYSINVTRYDOC TYPE STRING,
WHSEORDERFORSPLITWHSEORDER TYPE STRING,
WAREHOUSEORDERISSPLIT TYPE STRING,
RESOURCESTARTBIN TYPE STRING,
WHSEORDERLATESTSTARTDATETIME TYPE STRING,
WAREHOUSEORDERPLANNEDDURATION TYPE STRING,
WHSEORDERPLANDURATIONTIMEUNIT TYPE STRING,
LASTCHANGEDATETIME TYPE STRING,
LASTCHANGEDBYUSER TYPE STRING,
WHSEORDERHIGHERLEVELWHSEORDER TYPE STRING,
WHSEORDERSUBSEQUENTWHSEORDER TYPE STRING,
WHSEORDERHASSUBSQNTWHSEORDER TYPE STRING,
WAREHOUSEORDERHASWHSETASK TYPE STRING,
HZDSSUBSTANCEISRLVTFORSTORAGE TYPE STRING,
WHSEORDERCRTNWHSETMZNDATETIME TYPE STRING,
WHSEORDERSTRTWHSETMZNDATETIME TYPE STRING,
WHSEORDLTSTSTRTWHSETMZNDTETME TYPE STRING,
WHSEORDERCONFWHSETMZNDATETIME TYPE STRING,
WHSEORDERCHGDWHSETMZNDATETIME TYPE STRING,
OPENMOD TYPE STRING,
CONFIRMEDMOD TYPE STRING,
WHSEORDEROVERDUEHOURS TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PEWMWO_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_PEWMWO_STR-MANDT sy-vline 
WA_PEWMWO_STR-WAREHOUSE sy-vline 
WA_PEWMWO_STR-WAREHOUSEORDER sy-vline 
WA_PEWMWO_STR-WAREHOUSEORDERCREATIONRULE sy-vline 
WA_PEWMWO_STR-WHSEORDERCREATIONRULECATEGORY sy-vline 
WA_PEWMWO_STR-WHSEPROCESSTYPEDOCUMENTHDR sy-vline 
WA_PEWMWO_STR-WAVE sy-vline 
WA_PEWMWO_STR-WAREHOUSEORDERSTATUS sy-vline 
WA_PEWMWO_STR-ACTIVITYAREA sy-vline 
WA_PEWMWO_STR-STORAGETYPE sy-vline 
WA_PEWMWO_STR-STORAGEBIN sy-vline 
WA_PEWMWO_STR-CREATIONDATETIME sy-vline 
WA_PEWMWO_STR-CREATEDBYUSER sy-vline 
WA_PEWMWO_STR-QUEUE sy-vline 
WA_PEWMWO_STR-WAREHOUSEORDERSTARTDATETIME sy-vline 
WA_PEWMWO_STR-WAREHOUSEORDERSTARTTIMEISFIXED sy-vline 
WA_PEWMWO_STR-WHSEORDERCONFIRMEDDATETIME sy-vline 
WA_PEWMWO_STR-WAREHOUSEORDERCONFIRMEDBY sy-vline 
WA_PEWMWO_STR-PROCESSOR sy-vline 
WA_PEWMWO_STR-EXECUTINGRESOURCE sy-vline 
WA_PEWMWO_STR-PROCESSORISMANUALASSIGNED sy-vline 
WA_PEWMWO_STR-WAREHOUSEORDERHASPHYSINVTRYDOC sy-vline 
WA_PEWMWO_STR-WHSEORDERFORSPLITWHSEORDER sy-vline 
WA_PEWMWO_STR-WAREHOUSEORDERISSPLIT sy-vline 
WA_PEWMWO_STR-RESOURCESTARTBIN sy-vline 
WA_PEWMWO_STR-WHSEORDERLATESTSTARTDATETIME sy-vline 
WA_PEWMWO_STR-WAREHOUSEORDERPLANNEDDURATION sy-vline 
WA_PEWMWO_STR-WHSEORDERPLANDURATIONTIMEUNIT sy-vline 
WA_PEWMWO_STR-LASTCHANGEDATETIME sy-vline 
WA_PEWMWO_STR-LASTCHANGEDBYUSER sy-vline 
WA_PEWMWO_STR-WHSEORDERHIGHERLEVELWHSEORDER sy-vline 
WA_PEWMWO_STR-WHSEORDERSUBSEQUENTWHSEORDER sy-vline 
WA_PEWMWO_STR-WHSEORDERHASSUBSQNTWHSEORDER sy-vline 
WA_PEWMWO_STR-WAREHOUSEORDERHASWHSETASK sy-vline 
WA_PEWMWO_STR-HZDSSUBSTANCEISRLVTFORSTORAGE sy-vline 
WA_PEWMWO_STR-WHSEORDERCRTNWHSETMZNDATETIME sy-vline 
WA_PEWMWO_STR-WHSEORDERSTRTWHSETMZNDATETIME sy-vline 
WA_PEWMWO_STR-WHSEORDLTSTSTRTWHSETMZNDTETME sy-vline 
WA_PEWMWO_STR-WHSEORDERCONFWHSETMZNDATETIME sy-vline 
WA_PEWMWO_STR-WHSEORDERCHGDWHSETMZNDATETIME sy-vline 
WA_PEWMWO_STR-OPENMOD sy-vline 
WA_PEWMWO_STR-CONFIRMEDMOD sy-vline 
WA_PEWMWO_STR-WHSEORDEROVERDUEHOURS sy-vline      INTO ld_text SEPARATED BY SPACE.

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