ABAP Select data from SAP table KOMGP 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 KOMGP 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 KOMGP. 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 KOMGP 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_KOMGP TYPE STANDARD TABLE OF KOMGP,
WA_KOMGP TYPE KOMGP,
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: <KOMGP> TYPE KOMGP.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_KOMGP.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM KOMGP
INTO TABLE IT_KOMGP.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM KOMGP
* INTO TABLE @DATA(IT_KOMGP2).
*--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_KOMGP INDEX 1 INTO DATA(WA_KOMGP2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_KOMGP ASSIGNING <KOMGP>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<KOMGP>-WERKS = 1.
<KOMGP>-MATNR = 1.
<KOMGP>-ABRVW = 1.
<KOMGP>-KUNWE = 1.
<KOMGP>-ABLAD = 1.
ENDLOOP. LOOP AT IT_KOMGP INTO WA_KOMGP. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_KOMGP-LIFNR, sy-vline,
WA_KOMGP-ROUTE, sy-vline,
WA_KOMGP-KUNAG, sy-vline,
WA_KOMGP-VERSART, sy-vline,
WA_KOMGP-VSTEL, sy-vline,
WA_KOMGP-LGORT, sy-vline.
ENDLOOP. *Add any further fields from structure WA_KOMGP 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_KOMGP 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_KOMGP INTO WA_KOMGP. *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_KOMGP-MATNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KOMGP-MATNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field KUNWE CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KOMGP-KUNWE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KOMGP-KUNWE.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field LIFNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KOMGP-LIFNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KOMGP-LIFNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field KUNAG CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KOMGP-KUNAG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KOMGP-KUNAG.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field PWLIF CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KOMGP-PWLIF IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KOMGP-PWLIF.
WRITE:/ 'New Value:', ld_input.
*Conversion exit MATN1, internal->external for field RMATP CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING input = WA_KOMGP-RMATP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KOMGP-RMATP.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field PRODUCTION_SUPPLY_AREA CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KOMGP-PRODUCTION_SUPPLY_AREA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KOMGP-PRODUCTION_SUPPLY_AREA.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field CARRIER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KOMGP-CARRIER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KOMGP-CARRIER.
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_KOMGP_STR,
WERKS TYPE STRING,
MATNR TYPE STRING,
ABRVW TYPE STRING,
KUNWE TYPE STRING,
ABLAD TYPE STRING,
LIFNR TYPE STRING,
ROUTE TYPE STRING,
KUNAG TYPE STRING,
VERSART TYPE STRING,
VSTEL TYPE STRING,
LGORT TYPE STRING,
LGNUM TYPE STRING,
LGTYP TYPE STRING,
LGBZO TYPE STRING,
LGTOR TYPE STRING,
PWLIF TYPE STRING,
PRVBE TYPE STRING,
TRAGR TYPE STRING,
LADGR TYPE STRING,
RESWK TYPE STRING,
RMATP TYPE STRING,
BERID TYPE STRING,
EWM_WAREHOUSE_NUMBER TYPE STRING,
WORKCENTER TYPE STRING,
CONSOLIDATION_GROUP TYPE STRING,
WAREHOUSE_PROCESS_TYPE TYPE STRING,
PRODUCTION_SUPPLY_AREA TYPE STRING,
EWM_STORAGE_TYPE TYPE STRING,
EWM_ROUTE TYPE STRING,
EWM_HANDLING_UNIT_TYPE TYPE STRING,
CARRIER TYPE STRING,END OF T_EKKO_STR. DATA: WA_KOMGP_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_KOMGP_STR-WERKS sy-vline
WA_KOMGP_STR-MATNR sy-vline
WA_KOMGP_STR-ABRVW sy-vline
WA_KOMGP_STR-KUNWE sy-vline
WA_KOMGP_STR-ABLAD sy-vline
WA_KOMGP_STR-LIFNR sy-vline
WA_KOMGP_STR-ROUTE sy-vline
WA_KOMGP_STR-KUNAG sy-vline
WA_KOMGP_STR-VERSART sy-vline
WA_KOMGP_STR-VSTEL sy-vline
WA_KOMGP_STR-LGORT sy-vline
WA_KOMGP_STR-LGNUM sy-vline
WA_KOMGP_STR-LGTYP sy-vline
WA_KOMGP_STR-LGBZO sy-vline
WA_KOMGP_STR-LGTOR sy-vline
WA_KOMGP_STR-PWLIF sy-vline
WA_KOMGP_STR-PRVBE sy-vline
WA_KOMGP_STR-TRAGR sy-vline
WA_KOMGP_STR-LADGR sy-vline
WA_KOMGP_STR-RESWK sy-vline
WA_KOMGP_STR-RMATP sy-vline
WA_KOMGP_STR-BERID sy-vline
WA_KOMGP_STR-EWM_WAREHOUSE_NUMBER sy-vline
WA_KOMGP_STR-WORKCENTER sy-vline
WA_KOMGP_STR-CONSOLIDATION_GROUP sy-vline
WA_KOMGP_STR-WAREHOUSE_PROCESS_TYPE sy-vline
WA_KOMGP_STR-PRODUCTION_SUPPLY_AREA sy-vline
WA_KOMGP_STR-EWM_STORAGE_TYPE sy-vline
WA_KOMGP_STR-EWM_ROUTE sy-vline
WA_KOMGP_STR-EWM_HANDLING_UNIT_TYPE sy-vline
WA_KOMGP_STR-CARRIER sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.