ABAP Select data from SAP table /SAPAPO/PE_S_PROD into internal table
Get Example source ABAP code based on a different SAP table
Below is a number of ABAP code snippets to demonstrate how to select data from SAP /SAPAPO/PE_S_PROD 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 /SAPAPO/PE_S_PROD. 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 /SAPAPO/PE_S_PROD 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_/SAPAPO/PE_S_PROD TYPE STANDARD TABLE OF /SAPAPO/PE_S_PROD, WA_/SAPAPO/PE_S_PROD TYPE /SAPAPO/PE_S_PROD, 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: </SAPAPO/PE_S_PROD> TYPE /SAPAPO/PE_S_PROD. *Process all fields in table header/work area as string values PERFORM process_as_string_field_values CHANGING wa_/SAPAPO/PE_S_PROD. SELECT * *restrict ABAP select to first 10 rows UP TO 10 ROWS FROM /SAPAPO/PE_S_PROD INTO TABLE IT_/SAPAPO/PE_S_PROD. *Select data and declare internal table using in-line method @DATA *SELECT * * FROM /SAPAPO/PE_S_PROD * INTO TABLE @DATA(IT_/SAPAPO/PE_S_PROD2). *--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_/SAPAPO/PE_S_PROD INDEX 1 INTO DATA(WA_/SAPAPO/PE_S_PROD2). *Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL LOOP AT IT_/SAPAPO/PE_S_PROD ASSIGNING </SAPAPO/PE_S_PROD>.*To update a field value using a field symbol simply change the value via the field symbol pointer
</SAPAPO/PE_S_PROD>-MATID = 1.
</SAPAPO/PE_S_PROD>-MATNR = 1.
</SAPAPO/PE_S_PROD>-DATA_CHECK_BY = 1.
</SAPAPO/PE_S_PROD>-DATA_CHECK_AT = 1.
</SAPAPO/PE_S_PROD>-MDL = 1.
ENDLOOP. LOOP AT IT_/SAPAPO/PE_S_PROD INTO WA_/SAPAPO/PE_S_PROD. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_/SAPAPO/PE_S_PROD-METHOD, sy-vline,
WA_/SAPAPO/PE_S_PROD-FIELDS, sy-vline,
WA_/SAPAPO/PE_S_PROD-TXT, sy-vline,
WA_/SAPAPO/PE_S_PROD-UOM, sy-vline,
WA_/SAPAPO/PE_S_PROD-EAN, sy-vline,
WA_/SAPAPO/PE_S_PROD-MEAN, sy-vline.
ENDLOOP. *Add any further fields from structure WA_/SAPAPO/PE_S_PROD 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_/SAPAPO/PE_S_PROD 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_/SAPAPO/PE_S_PROD INTO WA_/SAPAPO/PE_S_PROD. *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_/SAPAPO/PE_S_PROD-MATNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPAPO/PE_S_PROD-MATNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit TSTLC, internal->external for field DATA_CHECK_AT CALL FUNCTION 'CONVERSION_EXIT_TSTLC_OUTPUT' EXPORTING input = WA_/SAPAPO/PE_S_PROD-DATA_CHECK_AT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPAPO/PE_S_PROD-DATA_CHECK_AT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field MEINS CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_/SAPAPO/PE_S_PROD-MEINS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPAPO/PE_S_PROD-MEINS.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field LOGUNIT CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_/SAPAPO/PE_S_PROD-LOGUNIT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPAPO/PE_S_PROD-LOGUNIT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit TSTRG, internal->external for field SHLF_LFE_REQ_MIN CALL FUNCTION 'CONVERSION_EXIT_TSTRG_OUTPUT' EXPORTING input = WA_/SAPAPO/PE_S_PROD-SHLF_LFE_REQ_MIN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPAPO/PE_S_PROD-SHLF_LFE_REQ_MIN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit TSTRG, internal->external for field SHELF_LIFE_DUR CALL FUNCTION 'CONVERSION_EXIT_TSTRG_OUTPUT' EXPORTING input = WA_/SAPAPO/PE_S_PROD-SHELF_LIFE_DUR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPAPO/PE_S_PROD-SHELF_LIFE_DUR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit TSTRG, internal->external for field SHLF_LFE_REQ_MAX CALL FUNCTION 'CONVERSION_EXIT_TSTRG_OUTPUT' EXPORTING input = WA_/SAPAPO/PE_S_PROD-SHLF_LFE_REQ_MAX IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPAPO/PE_S_PROD-SHLF_LFE_REQ_MAX.
WRITE:/ 'New Value:', ld_input.
*Conversion exit TSTRG, internal->external for field MATURITY_DUR CALL FUNCTION 'CONVERSION_EXIT_TSTRG_OUTPUT' EXPORTING input = WA_/SAPAPO/PE_S_PROD-MATURITY_DUR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPAPO/PE_S_PROD-MATURITY_DUR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field MFRNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_/SAPAPO/PE_S_PROD-MFRNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPAPO/PE_S_PROD-MFRNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field HEIGHT_NONFLAT_UOM CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_/SAPAPO/PE_S_PROD-HEIGHT_NONFLAT_UOM IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SAPAPO/PE_S_PROD-HEIGHT_NONFLAT_UOM.
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_/SAPAPO/PE_S_PROD_STR,
MATID TYPE STRING,
MATNR TYPE STRING,
DATA_CHECK_BY TYPE STRING,
DATA_CHECK_AT TYPE STRING,
MDL TYPE STRING,
METHOD TYPE STRING,
FIELDS TYPE STRING,
TXT TYPE STRING,
UOM TYPE STRING,
EAN TYPE STRING,
MEAN TYPE STRING,
BOD TYPE STRING,
PAC TYPE STRING,
MEX TYPE STRING,
GRP TYPE STRING,
INF TYPE STRING,
RGP TYPE STRING,
APN TYPE STRING,
MEINS TYPE STRING,
ATTYP TYPE STRING,
LOGUNIT TYPE STRING,
CWREL TYPE STRING,
MATKL TYPE STRING,
SHLF_LFE_REQ_MIN TYPE STRING,
SHELF_LIFE_DUR TYPE STRING,
SHLF_LFE_REQ_MAX TYPE STRING,
MATURITY_DUR TYPE STRING,
SLED_BBD TYPE STRING,
SLDRND TYPE STRING,
IPRKZ TYPE STRING,
WRKST TYPE STRING,
MFRPN TYPE STRING,
MFRNR TYPE STRING,
KZKFG TYPE STRING,
TRAGR TYPE STRING,
GTIN_IND TYPE STRING,
LVORM TYPE STRING,
PRDHA TYPE STRING,
VMIKOSCH TYPE STRING,
VMIKOSCH_GRP TYPE STRING,
STFAC TYPE STRING,
PACKGR TYPE STRING,
RMATP TYPE STRING,
HUTYP_DFLT TYPE STRING,
RMATID_PB TYPE STRING,
PROD_SHAPE TYPE STRING,
MO_PROFILE_ID TYPE STRING,
OVERHANG_TRESH TYPE STRING,
BRIDGE_TRESH TYPE STRING,
BRIDGE_MAX_SLOPE TYPE STRING,
HEIGHT_NONFLAT TYPE STRING,
HEIGHT_NONFLAT_UOM TYPE STRING,
DISPLAY TYPE STRING,
KITCOMP TYPE STRING,
BOD_DEPLVL TYPE STRING,
EXCL_EXPEDITE TYPE STRING,
PROD_PAOOPT TYPE STRING,
RESTRICT_INVBAL TYPE STRING,
HERKL TYPE STRING,
BATCH_REQ TYPE STRING,
PRDSET_IND TYPE STRING,
SERIAL TYPE STRING,
TEMPRPBLOCK TYPE STRING,
TEMPRPFROM TYPE STRING,
TEMPRPTO TYPE STRING,
PRODUCT_TYPE TYPE STRING,
MHDLP TYPE STRING,
ATT01 TYPE STRING,
ATT02 TYPE STRING,
ATT03 TYPE STRING,
ATT04 TYPE STRING,
ATT05 TYPE STRING,
DRP_GL_STOCK TYPE STRING,
SATID TYPE STRING,END OF T_EKKO_STR. DATA: WA_/SAPAPO/PE_S_PROD_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_/SAPAPO/PE_S_PROD_STR-MATID sy-vline
WA_/SAPAPO/PE_S_PROD_STR-MATNR sy-vline
WA_/SAPAPO/PE_S_PROD_STR-DATA_CHECK_BY sy-vline
WA_/SAPAPO/PE_S_PROD_STR-DATA_CHECK_AT sy-vline
WA_/SAPAPO/PE_S_PROD_STR-MDL sy-vline
WA_/SAPAPO/PE_S_PROD_STR-METHOD sy-vline
WA_/SAPAPO/PE_S_PROD_STR-FIELDS sy-vline
WA_/SAPAPO/PE_S_PROD_STR-TXT sy-vline
WA_/SAPAPO/PE_S_PROD_STR-UOM sy-vline
WA_/SAPAPO/PE_S_PROD_STR-EAN sy-vline
WA_/SAPAPO/PE_S_PROD_STR-MEAN sy-vline
WA_/SAPAPO/PE_S_PROD_STR-BOD sy-vline
WA_/SAPAPO/PE_S_PROD_STR-PAC sy-vline
WA_/SAPAPO/PE_S_PROD_STR-MEX sy-vline
WA_/SAPAPO/PE_S_PROD_STR-GRP sy-vline
WA_/SAPAPO/PE_S_PROD_STR-INF sy-vline
WA_/SAPAPO/PE_S_PROD_STR-RGP sy-vline
WA_/SAPAPO/PE_S_PROD_STR-APN sy-vline
WA_/SAPAPO/PE_S_PROD_STR-MEINS sy-vline
WA_/SAPAPO/PE_S_PROD_STR-ATTYP sy-vline
WA_/SAPAPO/PE_S_PROD_STR-LOGUNIT sy-vline
WA_/SAPAPO/PE_S_PROD_STR-CWREL sy-vline
WA_/SAPAPO/PE_S_PROD_STR-MATKL sy-vline
WA_/SAPAPO/PE_S_PROD_STR-SHLF_LFE_REQ_MIN sy-vline
WA_/SAPAPO/PE_S_PROD_STR-SHELF_LIFE_DUR sy-vline
WA_/SAPAPO/PE_S_PROD_STR-SHLF_LFE_REQ_MAX sy-vline
WA_/SAPAPO/PE_S_PROD_STR-MATURITY_DUR sy-vline
WA_/SAPAPO/PE_S_PROD_STR-SLED_BBD sy-vline
WA_/SAPAPO/PE_S_PROD_STR-SLDRND sy-vline
WA_/SAPAPO/PE_S_PROD_STR-IPRKZ sy-vline
WA_/SAPAPO/PE_S_PROD_STR-WRKST sy-vline
WA_/SAPAPO/PE_S_PROD_STR-MFRPN sy-vline
WA_/SAPAPO/PE_S_PROD_STR-MFRNR sy-vline
WA_/SAPAPO/PE_S_PROD_STR-KZKFG sy-vline
WA_/SAPAPO/PE_S_PROD_STR-TRAGR sy-vline
WA_/SAPAPO/PE_S_PROD_STR-GTIN_IND sy-vline
WA_/SAPAPO/PE_S_PROD_STR-LVORM sy-vline
WA_/SAPAPO/PE_S_PROD_STR-PRDHA sy-vline
WA_/SAPAPO/PE_S_PROD_STR-VMIKOSCH sy-vline
WA_/SAPAPO/PE_S_PROD_STR-VMIKOSCH_GRP sy-vline
WA_/SAPAPO/PE_S_PROD_STR-STFAC sy-vline
WA_/SAPAPO/PE_S_PROD_STR-PACKGR sy-vline
WA_/SAPAPO/PE_S_PROD_STR-RMATP sy-vline
WA_/SAPAPO/PE_S_PROD_STR-HUTYP_DFLT sy-vline
WA_/SAPAPO/PE_S_PROD_STR-RMATID_PB sy-vline
WA_/SAPAPO/PE_S_PROD_STR-PROD_SHAPE sy-vline
WA_/SAPAPO/PE_S_PROD_STR-MO_PROFILE_ID sy-vline
WA_/SAPAPO/PE_S_PROD_STR-OVERHANG_TRESH sy-vline
WA_/SAPAPO/PE_S_PROD_STR-BRIDGE_TRESH sy-vline
WA_/SAPAPO/PE_S_PROD_STR-BRIDGE_MAX_SLOPE sy-vline
WA_/SAPAPO/PE_S_PROD_STR-HEIGHT_NONFLAT sy-vline
WA_/SAPAPO/PE_S_PROD_STR-HEIGHT_NONFLAT_UOM sy-vline
WA_/SAPAPO/PE_S_PROD_STR-DISPLAY sy-vline
WA_/SAPAPO/PE_S_PROD_STR-KITCOMP sy-vline
WA_/SAPAPO/PE_S_PROD_STR-BOD_DEPLVL sy-vline
WA_/SAPAPO/PE_S_PROD_STR-EXCL_EXPEDITE sy-vline
WA_/SAPAPO/PE_S_PROD_STR-PROD_PAOOPT sy-vline
WA_/SAPAPO/PE_S_PROD_STR-RESTRICT_INVBAL sy-vline
WA_/SAPAPO/PE_S_PROD_STR-HERKL sy-vline
WA_/SAPAPO/PE_S_PROD_STR-BATCH_REQ sy-vline
WA_/SAPAPO/PE_S_PROD_STR-PRDSET_IND sy-vline
WA_/SAPAPO/PE_S_PROD_STR-SERIAL sy-vline
WA_/SAPAPO/PE_S_PROD_STR-TEMPRPBLOCK sy-vline
WA_/SAPAPO/PE_S_PROD_STR-TEMPRPFROM sy-vline
WA_/SAPAPO/PE_S_PROD_STR-TEMPRPTO sy-vline
WA_/SAPAPO/PE_S_PROD_STR-PRODUCT_TYPE sy-vline
WA_/SAPAPO/PE_S_PROD_STR-MHDLP sy-vline
WA_/SAPAPO/PE_S_PROD_STR-ATT01 sy-vline
WA_/SAPAPO/PE_S_PROD_STR-ATT02 sy-vline
WA_/SAPAPO/PE_S_PROD_STR-ATT03 sy-vline
WA_/SAPAPO/PE_S_PROD_STR-ATT04 sy-vline
WA_/SAPAPO/PE_S_PROD_STR-ATT05 sy-vline
WA_/SAPAPO/PE_S_PROD_STR-DRP_GL_STOCK sy-vline
WA_/SAPAPO/PE_S_PROD_STR-SATID sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.