ABAP Select data from SAP table FMCOPI 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 FMCOPI 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 FMCOPI. 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 FMCOPI 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_FMCOPI TYPE STANDARD TABLE OF FMCOPI,
WA_FMCOPI TYPE FMCOPI,
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: <FMCOPI> TYPE FMCOPI.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_FMCOPI.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM FMCOPI
INTO TABLE IT_FMCOPI.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM FMCOPI
* INTO TABLE @DATA(IT_FMCOPI2).
*--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_FMCOPI INDEX 1 INTO DATA(WA_FMCOPI2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_FMCOPI ASSIGNING <FMCOPI>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<FMCOPI>-MANDT = 1.
<FMCOPI>-KOKRS = 1.
<FMCOPI>-QVERSN = 1.
<FMCOPI>-QGJAHR = 1.
<FMCOPI>-GJAHR = 1.
ENDLOOP. LOOP AT IT_FMCOPI INTO WA_FMCOPI. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_FMCOPI-FIKRS, sy-vline,
WA_FMCOPI-GEBER, sy-vline,
WA_FMCOPI-ZVERSN, sy-vline,
WA_FMCOPI-KSTAR, sy-vline,
WA_FMCOPI-OBJNR, sy-vline,
WA_FMCOPI-FISTL, sy-vline.
ENDLOOP. *Add any further fields from structure WA_FMCOPI 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_FMCOPI 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_FMCOPI INTO WA_FMCOPI. *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 QVERSN CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_FMCOPI-QVERSN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FMCOPI-QVERSN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit GJAHR, internal->external for field QGJAHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_FMCOPI-QGJAHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FMCOPI-QGJAHR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit GJAHR, internal->external for field GJAHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_FMCOPI-GJAHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FMCOPI-GJAHR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field ZVERSN CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_FMCOPI-ZVERSN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FMCOPI-ZVERSN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field KSTAR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_FMCOPI-KSTAR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FMCOPI-KSTAR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit FMCIL, internal->external for field FIPEX CALL FUNCTION 'CONVERSION_EXIT_FMCIL_OUTPUT' EXPORTING input = WA_FMCOPI-FIPEX IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FMCOPI-FIPEX.
WRITE:/ 'New Value:', ld_input.
*Conversion exit FMCIS, internal->external for field FIPOS CALL FUNCTION 'CONVERSION_EXIT_FMCIS_OUTPUT' EXPORTING input = WA_FMCOPI-FIPOS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FMCOPI-FIPOS.
WRITE:/ 'New Value:', ld_input.
*Conversion exit GJAHR, internal->external for field GNJHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_FMCOPI-GNJHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FMCOPI-GNJHR.
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_FMCOPI_STR,
MANDT TYPE STRING,
KOKRS TYPE STRING,
QVERSN TYPE STRING,
QGJAHR TYPE STRING,
GJAHR TYPE STRING,
FIKRS TYPE STRING,
GEBER TYPE STRING,
ZVERSN TYPE STRING,
KSTAR TYPE STRING,
OBJNR TYPE STRING,
FISTL TYPE STRING,
FIPEX TYPE STRING,
FIPOS TYPE STRING,
FAREA TYPE STRING,
WRTTP TYPE STRING,
PERBL TYPE STRING,
TOTAL TYPE STRING,
PERIO01 TYPE STRING,
PERIO02 TYPE STRING,
PERIO03 TYPE STRING,
PERIO04 TYPE STRING,
PERIO05 TYPE STRING,
PERIO06 TYPE STRING,
PERIO07 TYPE STRING,
PERIO08 TYPE STRING,
PERIO09 TYPE STRING,
PERIO10 TYPE STRING,
PERIO11 TYPE STRING,
PERIO12 TYPE STRING,
PERIO13 TYPE STRING,
PERIO14 TYPE STRING,
PERIO15 TYPE STRING,
PERIO16 TYPE STRING,
GNJHR TYPE STRING,END OF T_EKKO_STR. DATA: WA_FMCOPI_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_FMCOPI_STR-MANDT sy-vline
WA_FMCOPI_STR-KOKRS sy-vline
WA_FMCOPI_STR-QVERSN sy-vline
WA_FMCOPI_STR-QGJAHR sy-vline
WA_FMCOPI_STR-GJAHR sy-vline
WA_FMCOPI_STR-FIKRS sy-vline
WA_FMCOPI_STR-GEBER sy-vline
WA_FMCOPI_STR-ZVERSN sy-vline
WA_FMCOPI_STR-KSTAR sy-vline
WA_FMCOPI_STR-OBJNR sy-vline
WA_FMCOPI_STR-FISTL sy-vline
WA_FMCOPI_STR-FIPEX sy-vline
WA_FMCOPI_STR-FIPOS sy-vline
WA_FMCOPI_STR-FAREA sy-vline
WA_FMCOPI_STR-WRTTP sy-vline
WA_FMCOPI_STR-PERBL sy-vline
WA_FMCOPI_STR-TOTAL sy-vline
WA_FMCOPI_STR-PERIO01 sy-vline
WA_FMCOPI_STR-PERIO02 sy-vline
WA_FMCOPI_STR-PERIO03 sy-vline
WA_FMCOPI_STR-PERIO04 sy-vline
WA_FMCOPI_STR-PERIO05 sy-vline
WA_FMCOPI_STR-PERIO06 sy-vline
WA_FMCOPI_STR-PERIO07 sy-vline
WA_FMCOPI_STR-PERIO08 sy-vline
WA_FMCOPI_STR-PERIO09 sy-vline
WA_FMCOPI_STR-PERIO10 sy-vline
WA_FMCOPI_STR-PERIO11 sy-vline
WA_FMCOPI_STR-PERIO12 sy-vline
WA_FMCOPI_STR-PERIO13 sy-vline
WA_FMCOPI_STR-PERIO14 sy-vline
WA_FMCOPI_STR-PERIO15 sy-vline
WA_FMCOPI_STR-PERIO16 sy-vline
WA_FMCOPI_STR-GNJHR sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
