ABAP Select data from SAP table /PRA/CI_DETAIL 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 /PRA/CI_DETAIL 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 /PRA/CI_DETAIL. 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 /PRA/CI_DETAIL 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_/PRA/CI_DETAIL TYPE STANDARD TABLE OF /PRA/CI_DETAIL,
WA_/PRA/CI_DETAIL TYPE /PRA/CI_DETAIL,
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: </PRA/CI_DETAIL> TYPE /PRA/CI_DETAIL.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_/PRA/CI_DETAIL.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM /PRA/CI_DETAIL
INTO TABLE IT_/PRA/CI_DETAIL.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM /PRA/CI_DETAIL
* INTO TABLE @DATA(IT_/PRA/CI_DETAIL2).
*--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_/PRA/CI_DETAIL INDEX 1 INTO DATA(WA_/PRA/CI_DETAIL2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/PRA/CI_DETAIL ASSIGNING </PRA/CI_DETAIL>.
*To update a field value using a field symbol simply change the value via the field symbol pointer</PRA/CI_DETAIL>-MANDT = 1.
</PRA/CI_DETAIL>-REMITTER = 1.
</PRA/CI_DETAIL>-CHECK_NUMBER = 1.
</PRA/CI_DETAIL>-LINE_NUMBER = 1.
</PRA/CI_DETAIL>-GROUP_NUMBER = 1.
ENDLOOP. LOOP AT IT_/PRA/CI_DETAIL INTO WA_/PRA/CI_DETAIL. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_/PRA/CI_DETAIL-LINE_STATUS, sy-vline,
WA_/PRA/CI_DETAIL-SUSP_NOTE, sy-vline,
WA_/PRA/CI_DETAIL-REMITTER_PROP, sy-vline,
WA_/PRA/CI_DETAIL-REMITTER_PRODUCT, sy-vline,
WA_/PRA/CI_DETAIL-NET_AMOUNT, sy-vline,
WA_/PRA/CI_DETAIL-SALES_DATE_FROM, sy-vline.
ENDLOOP. *Add any further fields from structure WA_/PRA/CI_DETAIL 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_/PRA/CI_DETAIL 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_/PRA/CI_DETAIL INTO WA_/PRA/CI_DETAIL. *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 REMITTER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_/PRA/CI_DETAIL-REMITTER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/PRA/CI_DETAIL-REMITTER.
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_/PRA/CI_DETAIL_STR,
MANDT TYPE STRING,
REMITTER TYPE STRING,
CHECK_NUMBER TYPE STRING,
LINE_NUMBER TYPE STRING,
GROUP_NUMBER TYPE STRING,
LINE_STATUS TYPE STRING,
SUSP_NOTE TYPE STRING,
REMITTER_PROP TYPE STRING,
REMITTER_PRODUCT TYPE STRING,
NET_AMOUNT TYPE STRING,
SALES_DATE_FROM TYPE STRING,
FIELD05 TYPE STRING,
FIELD06 TYPE STRING,
FIELD07 TYPE STRING,
FIELD08 TYPE STRING,
FIELD09 TYPE STRING,
FIELD10 TYPE STRING,
FIELD11 TYPE STRING,
FIELD12 TYPE STRING,
FIELD13 TYPE STRING,
FIELD14 TYPE STRING,
FIELD15 TYPE STRING,
FIELD16 TYPE STRING,
FIELD17 TYPE STRING,
FIELD18 TYPE STRING,
FIELD19 TYPE STRING,
FIELD20 TYPE STRING,
FIELD21 TYPE STRING,
FIELD22 TYPE STRING,
FIELD23 TYPE STRING,
FIELD24 TYPE STRING,
FIELD25 TYPE STRING,
FIELD26 TYPE STRING,
FIELD27 TYPE STRING,
FIELD28 TYPE STRING,
FIELD29 TYPE STRING,
FIELD30 TYPE STRING,
FIELD31 TYPE STRING,
FIELD32 TYPE STRING,
XCHK_NO TYPE STRING,
XLINE_NO TYPE STRING,
XOPR TYPE STRING,END OF T_EKKO_STR. DATA: WA_/PRA/CI_DETAIL_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_/PRA/CI_DETAIL_STR-MANDT sy-vline
WA_/PRA/CI_DETAIL_STR-REMITTER sy-vline
WA_/PRA/CI_DETAIL_STR-CHECK_NUMBER sy-vline
WA_/PRA/CI_DETAIL_STR-LINE_NUMBER sy-vline
WA_/PRA/CI_DETAIL_STR-GROUP_NUMBER sy-vline
WA_/PRA/CI_DETAIL_STR-LINE_STATUS sy-vline
WA_/PRA/CI_DETAIL_STR-SUSP_NOTE sy-vline
WA_/PRA/CI_DETAIL_STR-REMITTER_PROP sy-vline
WA_/PRA/CI_DETAIL_STR-REMITTER_PRODUCT sy-vline
WA_/PRA/CI_DETAIL_STR-NET_AMOUNT sy-vline
WA_/PRA/CI_DETAIL_STR-SALES_DATE_FROM sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD05 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD06 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD07 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD08 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD09 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD10 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD11 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD12 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD13 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD14 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD15 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD16 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD17 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD18 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD19 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD20 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD21 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD22 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD23 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD24 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD25 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD26 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD27 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD28 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD29 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD30 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD31 sy-vline
WA_/PRA/CI_DETAIL_STR-FIELD32 sy-vline
WA_/PRA/CI_DETAIL_STR-XCHK_NO sy-vline
WA_/PRA/CI_DETAIL_STR-XLINE_NO sy-vline
WA_/PRA/CI_DETAIL_STR-XOPR sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
