ABAP Select data from SAP table /SYCLO/PM_SI_T001_STR 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 /SYCLO/PM_SI_T001_STR 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 /SYCLO/PM_SI_T001_STR. 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 /SYCLO/PM_SI_T001_STR 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_/SYCLO/PM_SI_T001_STR TYPE STANDARD TABLE OF /SYCLO/PM_SI_T001_STR,
WA_/SYCLO/PM_SI_T001_STR TYPE /SYCLO/PM_SI_T001_STR,
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: </SYCLO/PM_SI_T001_STR> TYPE /SYCLO/PM_SI_T001_STR.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_/SYCLO/PM_SI_T001_STR.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM /SYCLO/PM_SI_T001_STR
INTO TABLE IT_/SYCLO/PM_SI_T001_STR.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM /SYCLO/PM_SI_T001_STR
* INTO TABLE @DATA(IT_/SYCLO/PM_SI_T001_STR2).
*--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_/SYCLO/PM_SI_T001_STR INDEX 1 INTO DATA(WA_/SYCLO/PM_SI_T001_STR2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/SYCLO/PM_SI_T001_STR ASSIGNING </SYCLO/PM_SI_T001_STR>.
*To update a field value using a field symbol simply change the value via the field symbol pointer</SYCLO/PM_SI_T001_STR>-BUTXT = 1.
</SYCLO/PM_SI_T001_STR>-KTOPL = 1.
</SYCLO/PM_SI_T001_STR>-PERIV = 1.
</SYCLO/PM_SI_T001_STR>-KOKFI = 1.
</SYCLO/PM_SI_T001_STR>-RCOMP = 1.
ENDLOOP. LOOP AT IT_/SYCLO/PM_SI_T001_STR INTO WA_/SYCLO/PM_SI_T001_STR. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_/SYCLO/PM_SI_T001_STR-STCEG, sy-vline,
WA_/SYCLO/PM_SI_T001_STR-FIKRS, sy-vline,
WA_/SYCLO/PM_SI_T001_STR-XFMCO, sy-vline,
WA_/SYCLO/PM_SI_T001_STR-XFMCB, sy-vline,
WA_/SYCLO/PM_SI_T001_STR-XFMCA, sy-vline,
WA_/SYCLO/PM_SI_T001_STR-FMHRDATE, sy-vline.
ENDLOOP. *Add any further fields from structure WA_/SYCLO/PM_SI_T001_STR 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_/SYCLO/PM_SI_T001_STR 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_/SYCLO/PM_SI_T001_STR INTO WA_/SYCLO/PM_SI_T001_STR. *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 RCOMP CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_/SYCLO/PM_SI_T001_STR-RCOMP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SYCLO/PM_SI_T001_STR-RCOMP.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field INFMT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_/SYCLO/PM_SI_T001_STR-INFMT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/SYCLO/PM_SI_T001_STR-INFMT.
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_/SYCLO/PM_SI_T001_STR_STR,
BUTXT TYPE STRING,
KTOPL TYPE STRING,
PERIV TYPE STRING,
KOKFI TYPE STRING,
RCOMP TYPE STRING,
STCEG TYPE STRING,
FIKRS TYPE STRING,
XFMCO TYPE STRING,
XFMCB TYPE STRING,
XFMCA TYPE STRING,
FMHRDATE TYPE STRING,
BUVAR TYPE STRING,
FDBUK TYPE STRING,
XFDIS TYPE STRING,
XVALV TYPE STRING,
XSKFN TYPE STRING,
KKBER TYPE STRING,
XMWSN TYPE STRING,
MREGL TYPE STRING,
XGSBE TYPE STRING,
XGJRV TYPE STRING,
XKDFT TYPE STRING,
XPROD TYPE STRING,
XEINK TYPE STRING,
XJVAA TYPE STRING,
XVVWA TYPE STRING,
XSLTA TYPE STRING,
XFDMM TYPE STRING,
XFDSD TYPE STRING,
XEXTB TYPE STRING,
EBUKR TYPE STRING,
KTOP2 TYPE STRING,
UMKRS TYPE STRING,
BUKRS_GLOB TYPE STRING,
FSTVA TYPE STRING,
OPVAR TYPE STRING,
XCOVR TYPE STRING,
TXKRS TYPE STRING,
WFVAR TYPE STRING,
XBBBF TYPE STRING,
XBBBE TYPE STRING,
XBBBA TYPE STRING,
XBBKO TYPE STRING,
XSTDT TYPE STRING,
MWSKV TYPE STRING,
MWSKA TYPE STRING,
IMPDA TYPE STRING,
XNEGP TYPE STRING,
XKKBI TYPE STRING,
WT_NEWWT TYPE STRING,
PP_PDATE TYPE STRING,
INFMT TYPE STRING,
FSTVARE TYPE STRING,
KOPIM TYPE STRING,
DKWEG TYPE STRING,
OFFSACCT TYPE STRING,
BAPOVAR TYPE STRING,
XCOS TYPE STRING,
XCESSION TYPE STRING,
XSPLT TYPE STRING,
SURCCM TYPE STRING,
DTPROV TYPE STRING,
DTAMTC TYPE STRING,
DTTAXC TYPE STRING,
DTTDSP TYPE STRING,
DTAXR TYPE STRING,
XVATDATE TYPE STRING,
PST_PER_VAR TYPE STRING,
XBBSC TYPE STRING,
F_OBSOLETE TYPE STRING,END OF T_EKKO_STR. DATA: WA_/SYCLO/PM_SI_T001_STR_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_/SYCLO/PM_SI_T001_STR_STR-BUTXT sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-KTOPL sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-PERIV sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-KOKFI sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-RCOMP sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-STCEG sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-FIKRS sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XFMCO sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XFMCB sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XFMCA sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-FMHRDATE sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-BUVAR sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-FDBUK sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XFDIS sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XVALV sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XSKFN sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-KKBER sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XMWSN sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-MREGL sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XGSBE sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XGJRV sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XKDFT sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XPROD sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XEINK sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XJVAA sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XVVWA sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XSLTA sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XFDMM sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XFDSD sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XEXTB sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-EBUKR sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-KTOP2 sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-UMKRS sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-BUKRS_GLOB sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-FSTVA sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-OPVAR sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XCOVR sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-TXKRS sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-WFVAR sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XBBBF sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XBBBE sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XBBBA sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XBBKO sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XSTDT sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-MWSKV sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-MWSKA sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-IMPDA sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XNEGP sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XKKBI sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-WT_NEWWT sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-PP_PDATE sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-INFMT sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-FSTVARE sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-KOPIM sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-DKWEG sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-OFFSACCT sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-BAPOVAR sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XCOS sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XCESSION sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XSPLT sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-SURCCM sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-DTPROV sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-DTAMTC sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-DTTAXC sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-DTTDSP sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-DTAXR sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XVATDATE sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-PST_PER_VAR sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-XBBSC sy-vline
WA_/SYCLO/PM_SI_T001_STR_STR-F_OBSOLETE sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.