ABAP Select data from SAP table WRF_APC_PASF_STY 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 WRF_APC_PASF_STY 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 WRF_APC_PASF_STY. 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 WRF_APC_PASF_STY 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_WRF_APC_PASF_STY TYPE STANDARD TABLE OF WRF_APC_PASF_STY,
      WA_WRF_APC_PASF_STY TYPE WRF_APC_PASF_STY,
      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: <WRF_APC_PASF_STY> TYPE WRF_APC_PASF_STY.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM WRF_APC_PASF_STY
*  INTO TABLE @DATA(IT_WRF_APC_PASF_STY2).
*--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_WRF_APC_PASF_STY INDEX 1 INTO DATA(WA_WRF_APC_PASF_STY2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<WRF_APC_PASF_STY>-MATNR = 1.
<WRF_APC_PASF_STY>-MTART = 1.
<WRF_APC_PASF_STY>-MATKL = 1.
<WRF_APC_PASF_STY>-CHAR_PROF = 1.
<WRF_APC_PASF_STY>-HIER_ID = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_WRF_APC_PASF_STY-NODE_ID, sy-vline,
  WA_WRF_APC_PASF_STY-ATTYP, sy-vline,
  WA_WRF_APC_PASF_STY-ATTYP_T, sy-vline,
  WA_WRF_APC_PASF_STY-REF_MATL, sy-vline,
  WA_WRF_APC_PASF_STY-REF_MATL_DESC, sy-vline,
  WA_WRF_APC_PASF_STY-REF_MATL_ATTYP_T, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_WRF_APC_PASF_STY 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_WRF_APC_PASF_STY 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_WRF_APC_PASF_STY INTO WA_WRF_APC_PASF_STY.


*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 MATN1, internal->external for field MATNR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_WRF_APC_PASF_STY-MATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_WRF_APC_PASF_STY-MATNR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit ISOLA, internal->external for field SPRAS
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_WRF_APC_PASF_STY-SPRAS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_WRF_APC_PASF_STY-SPRAS.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit EAN11, internal->external for field EAN11
CALL FUNCTION 'CONVERSION_EXIT_EAN11_OUTPUT'
  EXPORTING
    input =                      WA_WRF_APC_PASF_STY-EAN11
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_WRF_APC_PASF_STY-EAN11.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit GJAHR, internal->external for field SAISJ
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_WRF_APC_PASF_STY-SAISJ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_WRF_APC_PASF_STY-SAISJ.
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_WRF_APC_PASF_STY_STR, 
MATNR TYPE STRING,
MTART TYPE STRING,
MATKL TYPE STRING,
CHAR_PROF TYPE STRING,
HIER_ID TYPE STRING,
NODE_ID TYPE STRING,
ATTYP TYPE STRING,
ATTYP_T TYPE STRING,
REF_MATL TYPE STRING,
REF_MATL_DESC TYPE STRING,
REF_MATL_ATTYP_T TYPE STRING,
BASE_UOM TYPE STRING,
REL_FLAG TYPE STRING,
DEL_FLAG TYPE STRING,
SPRAS TYPE STRING,
MATL_DESC TYPE STRING,
ESOKZ TYPE STRING,
LIFNR TYPE STRING,
EKORG TYPE STRING,
NETPR TYPE STRING,
WAERS TYPE STRING,
NETPR_VEN TYPE STRING,
WAERS_VEN TYPE STRING,
NETPR_PURCH_PO TYPE STRING,
WAERS_PURCH_PO TYPE STRING,
NETPR_PURCH TYPE STRING,
WAERS_PURCH TYPE STRING,
NETPR_SALES_DC TYPE STRING,
WAERS_SALES_DC TYPE STRING,
NETPR_SALES_STORE TYPE STRING,
WAERS_SALES_STORE TYPE STRING,
MARKUP1 TYPE STRING,
MARKUP2 TYPE STRING,
VKORG TYPE STRING,
VTWEG TYPE STRING,
VLFKZ TYPE STRING,
VKPNE TYPE STRING,
VWAER TYPE STRING,
AUFSG TYPE STRING,
UNIT TYPE STRING,
UMREZ TYPE STRING,
UMREN TYPE STRING,
EANNR TYPE STRING,
EAN11 TYPE STRING,
NUMTP TYPE STRING,
VARNR TYPE STRING,
PRINBR TYPE STRING,
EAN_UPC_BASE TYPE STRING,
VALIDITY_BASE TYPE STRING,
EAN_UPC_TYPE TYPE STRING,
PROFILE TYPE STRING,
FPRFM TYPE STRING,
PRICAT_FLAG TYPE STRING,
SALES_PRICE_DC_FIX TYPE STRING,
PURCH_PRICE_FIX TYPE STRING,
PPACT_NETPR_FIX TYPE STRING,
SALES_PRICE_STORE_FIX TYPE STRING,
MARKUP1_FIX TYPE STRING,
MARKUP2_FIX TYPE STRING,
VZWRK TYPE STRING,
FIWRK TYPE STRING,
MAINFLG TYPE STRING,
SAISO TYPE STRING,
SAISJ TYPE STRING,
COLOR TYPE STRING,
SIZE1 TYPE STRING,
SIZE2 TYPE STRING,
NETNETPR TYPE STRING,
KWAER TYPE STRING,
NETNETPR_FIX TYPE STRING,
CHAR1 TYPE STRING,
CHAR2 TYPE STRING,
CHAR3 TYPE STRING,
MARKET_NO TYPE STRING,
PPACT_NETPR TYPE STRING,
PPACT_WAERS TYPE STRING,
PPCALC_NETPR TYPE STRING,
PPCALC_WAERS TYPE STRING,
EKGRP TYPE STRING,
EX_R3MAT TYPE STRING,
VEN_NAME TYPE STRING,
VKORG_ACTUAL TYPE STRING,
VTWEG_ACTUAL TYPE STRING,
PO_NETPR_OWN TYPE STRING,
PO_WAERS_OWN TYPE STRING,
TEXT TYPE STRING,
BSTAT TYPE STRING,
DELTO_STATUS TYPE STRING,
DELTO_VALUE TYPE STRING,
EKOTX TYPE STRING,
EKNAM TYPE STRING,
VKOTX TYPE STRING,
VTWTX TYPE STRING,
HIER_TXT TYPE STRING,
NODE_TXT TYPE STRING,
WGBEZ TYPE STRING,
MTBEZ TYPE STRING,
FPRFM_TXT TYPE STRING,
BSTAT_TXT TYPE STRING,
CPROF_TXT TYPE STRING,
MEINS_TXT TYPE STRING,
PPACT_LOC TYPE STRING,
PPACT_HWAER TYPE STRING,
PPCALC_LOC TYPE STRING,
PPCALC_HWAER TYPE STRING,
NETNETPR_LOC TYPE STRING,
NETNETPR_HWAER TYPE STRING,
VKPNE_LOC TYPE STRING,
VKPNE_HWAER TYPE STRING,
MARGIN_NET TYPE STRING,
MARGIN_GR TYPE STRING,
MKUPDN1 TYPE STRING,
MKUPDN2 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_WRF_APC_PASF_STY_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_WRF_APC_PASF_STY_STR-MATNR sy-vline 
WA_WRF_APC_PASF_STY_STR-MTART sy-vline 
WA_WRF_APC_PASF_STY_STR-MATKL sy-vline 
WA_WRF_APC_PASF_STY_STR-CHAR_PROF sy-vline 
WA_WRF_APC_PASF_STY_STR-HIER_ID sy-vline 
WA_WRF_APC_PASF_STY_STR-NODE_ID sy-vline 
WA_WRF_APC_PASF_STY_STR-ATTYP sy-vline 
WA_WRF_APC_PASF_STY_STR-ATTYP_T sy-vline 
WA_WRF_APC_PASF_STY_STR-REF_MATL sy-vline 
WA_WRF_APC_PASF_STY_STR-REF_MATL_DESC sy-vline 
WA_WRF_APC_PASF_STY_STR-REF_MATL_ATTYP_T sy-vline 
WA_WRF_APC_PASF_STY_STR-BASE_UOM sy-vline 
WA_WRF_APC_PASF_STY_STR-REL_FLAG sy-vline 
WA_WRF_APC_PASF_STY_STR-DEL_FLAG sy-vline 
WA_WRF_APC_PASF_STY_STR-SPRAS sy-vline 
WA_WRF_APC_PASF_STY_STR-MATL_DESC sy-vline 
WA_WRF_APC_PASF_STY_STR-ESOKZ sy-vline 
WA_WRF_APC_PASF_STY_STR-LIFNR sy-vline 
WA_WRF_APC_PASF_STY_STR-EKORG sy-vline 
WA_WRF_APC_PASF_STY_STR-NETPR sy-vline 
WA_WRF_APC_PASF_STY_STR-WAERS sy-vline 
WA_WRF_APC_PASF_STY_STR-NETPR_VEN sy-vline 
WA_WRF_APC_PASF_STY_STR-WAERS_VEN sy-vline 
WA_WRF_APC_PASF_STY_STR-NETPR_PURCH_PO sy-vline 
WA_WRF_APC_PASF_STY_STR-WAERS_PURCH_PO sy-vline 
WA_WRF_APC_PASF_STY_STR-NETPR_PURCH sy-vline 
WA_WRF_APC_PASF_STY_STR-WAERS_PURCH sy-vline 
WA_WRF_APC_PASF_STY_STR-NETPR_SALES_DC sy-vline 
WA_WRF_APC_PASF_STY_STR-WAERS_SALES_DC sy-vline 
WA_WRF_APC_PASF_STY_STR-NETPR_SALES_STORE sy-vline 
WA_WRF_APC_PASF_STY_STR-WAERS_SALES_STORE sy-vline 
WA_WRF_APC_PASF_STY_STR-MARKUP1 sy-vline 
WA_WRF_APC_PASF_STY_STR-MARKUP2 sy-vline 
WA_WRF_APC_PASF_STY_STR-VKORG sy-vline 
WA_WRF_APC_PASF_STY_STR-VTWEG sy-vline 
WA_WRF_APC_PASF_STY_STR-VLFKZ sy-vline 
WA_WRF_APC_PASF_STY_STR-VKPNE sy-vline 
WA_WRF_APC_PASF_STY_STR-VWAER sy-vline 
WA_WRF_APC_PASF_STY_STR-AUFSG sy-vline 
WA_WRF_APC_PASF_STY_STR-UNIT sy-vline 
WA_WRF_APC_PASF_STY_STR-UMREZ sy-vline 
WA_WRF_APC_PASF_STY_STR-UMREN sy-vline 
WA_WRF_APC_PASF_STY_STR-EANNR sy-vline 
WA_WRF_APC_PASF_STY_STR-EAN11 sy-vline 
WA_WRF_APC_PASF_STY_STR-NUMTP sy-vline 
WA_WRF_APC_PASF_STY_STR-VARNR sy-vline 
WA_WRF_APC_PASF_STY_STR-PRINBR sy-vline 
WA_WRF_APC_PASF_STY_STR-EAN_UPC_BASE sy-vline 
WA_WRF_APC_PASF_STY_STR-VALIDITY_BASE sy-vline 
WA_WRF_APC_PASF_STY_STR-EAN_UPC_TYPE sy-vline 
WA_WRF_APC_PASF_STY_STR-PROFILE sy-vline 
WA_WRF_APC_PASF_STY_STR-FPRFM sy-vline 
WA_WRF_APC_PASF_STY_STR-PRICAT_FLAG sy-vline 
WA_WRF_APC_PASF_STY_STR-SALES_PRICE_DC_FIX sy-vline 
WA_WRF_APC_PASF_STY_STR-PURCH_PRICE_FIX sy-vline 
WA_WRF_APC_PASF_STY_STR-PPACT_NETPR_FIX sy-vline 
WA_WRF_APC_PASF_STY_STR-SALES_PRICE_STORE_FIX sy-vline 
WA_WRF_APC_PASF_STY_STR-MARKUP1_FIX sy-vline 
WA_WRF_APC_PASF_STY_STR-MARKUP2_FIX sy-vline 
WA_WRF_APC_PASF_STY_STR-VZWRK sy-vline 
WA_WRF_APC_PASF_STY_STR-FIWRK sy-vline 
WA_WRF_APC_PASF_STY_STR-MAINFLG sy-vline 
WA_WRF_APC_PASF_STY_STR-SAISO sy-vline 
WA_WRF_APC_PASF_STY_STR-SAISJ sy-vline 
WA_WRF_APC_PASF_STY_STR-COLOR sy-vline 
WA_WRF_APC_PASF_STY_STR-SIZE1 sy-vline 
WA_WRF_APC_PASF_STY_STR-SIZE2 sy-vline 
WA_WRF_APC_PASF_STY_STR-NETNETPR sy-vline 
WA_WRF_APC_PASF_STY_STR-KWAER sy-vline 
WA_WRF_APC_PASF_STY_STR-NETNETPR_FIX sy-vline 
WA_WRF_APC_PASF_STY_STR-CHAR1 sy-vline 
WA_WRF_APC_PASF_STY_STR-CHAR2 sy-vline 
WA_WRF_APC_PASF_STY_STR-CHAR3 sy-vline 
WA_WRF_APC_PASF_STY_STR-MARKET_NO sy-vline 
WA_WRF_APC_PASF_STY_STR-PPACT_NETPR sy-vline 
WA_WRF_APC_PASF_STY_STR-PPACT_WAERS sy-vline 
WA_WRF_APC_PASF_STY_STR-PPCALC_NETPR sy-vline 
WA_WRF_APC_PASF_STY_STR-PPCALC_WAERS sy-vline 
WA_WRF_APC_PASF_STY_STR-EKGRP sy-vline 
WA_WRF_APC_PASF_STY_STR-EX_R3MAT sy-vline 
WA_WRF_APC_PASF_STY_STR-VEN_NAME sy-vline 
WA_WRF_APC_PASF_STY_STR-VKORG_ACTUAL sy-vline 
WA_WRF_APC_PASF_STY_STR-VTWEG_ACTUAL sy-vline 
WA_WRF_APC_PASF_STY_STR-PO_NETPR_OWN sy-vline 
WA_WRF_APC_PASF_STY_STR-PO_WAERS_OWN sy-vline 
WA_WRF_APC_PASF_STY_STR-TEXT sy-vline 
WA_WRF_APC_PASF_STY_STR-BSTAT sy-vline 
WA_WRF_APC_PASF_STY_STR-DELTO_STATUS sy-vline 
WA_WRF_APC_PASF_STY_STR-DELTO_VALUE sy-vline 
WA_WRF_APC_PASF_STY_STR-EKOTX sy-vline 
WA_WRF_APC_PASF_STY_STR-EKNAM sy-vline 
WA_WRF_APC_PASF_STY_STR-VKOTX sy-vline 
WA_WRF_APC_PASF_STY_STR-VTWTX sy-vline 
WA_WRF_APC_PASF_STY_STR-HIER_TXT sy-vline 
WA_WRF_APC_PASF_STY_STR-NODE_TXT sy-vline 
WA_WRF_APC_PASF_STY_STR-WGBEZ sy-vline 
WA_WRF_APC_PASF_STY_STR-MTBEZ sy-vline 
WA_WRF_APC_PASF_STY_STR-FPRFM_TXT sy-vline 
WA_WRF_APC_PASF_STY_STR-BSTAT_TXT sy-vline 
WA_WRF_APC_PASF_STY_STR-CPROF_TXT sy-vline 
WA_WRF_APC_PASF_STY_STR-MEINS_TXT sy-vline 
WA_WRF_APC_PASF_STY_STR-PPACT_LOC sy-vline 
WA_WRF_APC_PASF_STY_STR-PPACT_HWAER sy-vline 
WA_WRF_APC_PASF_STY_STR-PPCALC_LOC sy-vline 
WA_WRF_APC_PASF_STY_STR-PPCALC_HWAER sy-vline 
WA_WRF_APC_PASF_STY_STR-NETNETPR_LOC sy-vline 
WA_WRF_APC_PASF_STY_STR-NETNETPR_HWAER sy-vline 
WA_WRF_APC_PASF_STY_STR-VKPNE_LOC sy-vline 
WA_WRF_APC_PASF_STY_STR-VKPNE_HWAER sy-vline 
WA_WRF_APC_PASF_STY_STR-MARGIN_NET sy-vline 
WA_WRF_APC_PASF_STY_STR-MARGIN_GR sy-vline 
WA_WRF_APC_PASF_STY_STR-MKUPDN1 sy-vline 
WA_WRF_APC_PASF_STY_STR-MKUPDN2 sy-vline      INTO ld_text SEPARATED BY SPACE.

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