ABAP Select data from SAP table KKOS 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 KKOS 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 KKOS. 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 KKOS 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_KKOS TYPE STANDARD TABLE OF KKOS,
WA_KKOS TYPE KKOS,
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: <KKOS> TYPE KKOS.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_KKOS.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM KKOS
INTO TABLE IT_KKOS.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM KKOS
* INTO TABLE @DATA(IT_KKOS2).
*--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_KKOS INDEX 1 INTO DATA(WA_KKOS2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_KKOS ASSIGNING <KKOS>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<KKOS>-MANDT = 1.
<KKOS>-KOART = 1.
<KKOS>-BUKRS = 1.
<KKOS>-KONTO = 1.
<KKOS>-GJAHR = 1.
ENDLOOP. LOOP AT IT_KKOS INTO WA_KKOS. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_KKOS-GSBER, sy-vline,
WA_KKOS-SAART, sy-vline,
WA_KKOS-ANRED, sy-vline,
WA_KKOS-NAME1, sy-vline,
WA_KKOS-NAME2, sy-vline,
WA_KKOS-PSTLZ, sy-vline.
ENDLOOP. *Add any further fields from structure WA_KKOS 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_KKOS 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_KKOS INTO WA_KKOS. *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 KONTO CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KKOS-KONTO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-KONTO.
WRITE:/ 'New Value:', ld_input.
*Conversion exit GJAHR, internal->external for field GJAHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_KKOS-GJAHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-GJAHR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field KNRZA CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KKOS-KNRZA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-KNRZA.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field KDNRE CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KKOS-KDNRE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-KDNRE.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field KNRZB CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KKOS-KNRZB IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-KNRZB.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ISOLA, internal->external for field SPRAS CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT' EXPORTING input = WA_KKOS-SPRAS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-SPRAS.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field LIFNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KKOS-LIFNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-LIFNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field KLIMG CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_KKOS-KLIMG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-KLIMG.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field FISKN CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KKOS-FISKN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-FISKN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field AKONT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KKOS-AKONT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-AKONT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field KLIMK CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_KKOS-KLIMK IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-KLIMK.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field VBUND CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KKOS-VBUND IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-VBUND.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field KNRZE CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KKOS-KNRZE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-KNRZE.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field FDGRV CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KKOS-FDGRV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-FDGRV.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU132, internal->external for field WEBTR CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_KKOS-WEBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-WEBTR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field REMIT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KKOS-REMIT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-REMIT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field SLVFW CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKOS-SLVFW IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-SLVFW.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field SLJFW CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKOS-SLJFW IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-SLJFW.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UMSAV CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKOS-UMSAV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-UMSAV.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UMALS CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKOS-UMALS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-UMALS.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UMALH CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKOS-UMALH IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-UMALH.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field SHBSD CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKOS-SHBSD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-SHBSD.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field SBV01 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKOS-SBV01 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-SBV01.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field SBV02 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKOS-SBV02 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-SBV02.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field SBV03 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKOS-SBV03 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-SBV03.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field SBV04 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKOS-SBV04 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-SBV04.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field SBV05 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKOS-SBV05 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-SBV05.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field SBV06 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKOS-SBV06 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-SBV06.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field SBV07 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKOS-SBV07 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-SBV07.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field SBV08 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKOS-SBV08 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKOS-SBV08.
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_KKOS_STR,
MANDT TYPE STRING,
KOART TYPE STRING,
BUKRS TYPE STRING,
KONTO TYPE STRING,
GJAHR TYPE STRING,
GSBER TYPE STRING,
SAART TYPE STRING,
ANRED TYPE STRING,
NAME1 TYPE STRING,
NAME2 TYPE STRING,
PSTLZ TYPE STRING,
ORT01 TYPE STRING,
LAND1 TYPE STRING,
STRAS TYPE STRING,
PFACH TYPE STRING,
PSTL2 TYPE STRING,
ORT02 TYPE STRING,
REGIO TYPE STRING,
COUNC TYPE STRING,
CITYC TYPE STRING,
XCPDK TYPE STRING,
XZEMP TYPE STRING,
BLNKZ TYPE STRING,
KTOKD TYPE STRING,
BANKN TYPE STRING,
BANKL TYPE STRING,
BANKS TYPE STRING,
BANKA TYPE STRING,
PSKTO TYPE STRING,
BKONT TYPE STRING,
BANKP TYPE STRING,
SWIFT TYPE STRING,
KNRZA TYPE STRING,
BRSCH TYPE STRING,
KONZS TYPE STRING,
KDNRE TYPE STRING,
KNRZB TYPE STRING,
TELF1 TYPE STRING,
TELX1 TYPE STRING,
TELFX TYPE STRING,
TELTX TYPE STRING,
DATLT TYPE STRING,
TELBX TYPE STRING,
SORTL TYPE STRING,
WAERS TYPE STRING,
SPRAS TYPE STRING,
LIFNR TYPE STRING,
KLIMG TYPE STRING,
BBBNR TYPE STRING,
BBSNR TYPE STRING,
BUBKZ TYPE STRING,
STCD1 TYPE STRING,
STCD2 TYPE STRING,
FISKN TYPE STRING,
STKZU TYPE STRING,
STKZA TYPE STRING,
ESRNR TYPE STRING,
AKONT TYPE STRING,
BEGRU TYPE STRING,
EIKTO TYPE STRING,
ERNAM TYPE STRING,
ZUAWA TYPE STRING,
ZWELS TYPE STRING,
ZAMIM TYPE STRING,
ZTERM TYPE STRING,
ZAHLS TYPE STRING,
MAHNS TYPE STRING,
KLIMK TYPE STRING,
VZSKZ TYPE STRING,
ZINDT TYPE STRING,
ZINRT TYPE STRING,
DATLZ TYPE STRING,
VBUND TYPE STRING,
BUSAB TYPE STRING,
KNRZE TYPE STRING,
FDGRV TYPE STRING,
PERRN TYPE STRING,
WKOND TYPE STRING,
WAKON TYPE STRING,
MSCHL TYPE STRING,
WEBTR TYPE STRING,
REMIT TYPE STRING,
QSZNR TYPE STRING,
QSZDT TYPE STRING,
VRSNR TYPE STRING,
REPRF TYPE STRING,
SLVFW TYPE STRING,
SLJFW TYPE STRING,
UMSAV TYPE STRING,
UMALS TYPE STRING,
UMALH TYPE STRING,
SHBSD TYPE STRING,
SKZ01 TYPE STRING,
SBV01 TYPE STRING,
SKZ02 TYPE STRING,
SBV02 TYPE STRING,
SKZ03 TYPE STRING,
SBV03 TYPE STRING,
SKZ04 TYPE STRING,
SBV04 TYPE STRING,
SKZ05 TYPE STRING,
SBV05 TYPE STRING,
SKZ06 TYPE STRING,
SBV06 TYPE STRING,
SKZ07 TYPE STRING,
SBV07 TYPE STRING,
SKZ08 TYPE STRING,
SBV08 TYPE STRING,END OF T_EKKO_STR. DATA: WA_KKOS_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_KKOS_STR-MANDT sy-vline
WA_KKOS_STR-KOART sy-vline
WA_KKOS_STR-BUKRS sy-vline
WA_KKOS_STR-KONTO sy-vline
WA_KKOS_STR-GJAHR sy-vline
WA_KKOS_STR-GSBER sy-vline
WA_KKOS_STR-SAART sy-vline
WA_KKOS_STR-ANRED sy-vline
WA_KKOS_STR-NAME1 sy-vline
WA_KKOS_STR-NAME2 sy-vline
WA_KKOS_STR-PSTLZ sy-vline
WA_KKOS_STR-ORT01 sy-vline
WA_KKOS_STR-LAND1 sy-vline
WA_KKOS_STR-STRAS sy-vline
WA_KKOS_STR-PFACH sy-vline
WA_KKOS_STR-PSTL2 sy-vline
WA_KKOS_STR-ORT02 sy-vline
WA_KKOS_STR-REGIO sy-vline
WA_KKOS_STR-COUNC sy-vline
WA_KKOS_STR-CITYC sy-vline
WA_KKOS_STR-XCPDK sy-vline
WA_KKOS_STR-XZEMP sy-vline
WA_KKOS_STR-BLNKZ sy-vline
WA_KKOS_STR-KTOKD sy-vline
WA_KKOS_STR-BANKN sy-vline
WA_KKOS_STR-BANKL sy-vline
WA_KKOS_STR-BANKS sy-vline
WA_KKOS_STR-BANKA sy-vline
WA_KKOS_STR-PSKTO sy-vline
WA_KKOS_STR-BKONT sy-vline
WA_KKOS_STR-BANKP sy-vline
WA_KKOS_STR-SWIFT sy-vline
WA_KKOS_STR-KNRZA sy-vline
WA_KKOS_STR-BRSCH sy-vline
WA_KKOS_STR-KONZS sy-vline
WA_KKOS_STR-KDNRE sy-vline
WA_KKOS_STR-KNRZB sy-vline
WA_KKOS_STR-TELF1 sy-vline
WA_KKOS_STR-TELX1 sy-vline
WA_KKOS_STR-TELFX sy-vline
WA_KKOS_STR-TELTX sy-vline
WA_KKOS_STR-DATLT sy-vline
WA_KKOS_STR-TELBX sy-vline
WA_KKOS_STR-SORTL sy-vline
WA_KKOS_STR-WAERS sy-vline
WA_KKOS_STR-SPRAS sy-vline
WA_KKOS_STR-LIFNR sy-vline
WA_KKOS_STR-KLIMG sy-vline
WA_KKOS_STR-BBBNR sy-vline
WA_KKOS_STR-BBSNR sy-vline
WA_KKOS_STR-BUBKZ sy-vline
WA_KKOS_STR-STCD1 sy-vline
WA_KKOS_STR-STCD2 sy-vline
WA_KKOS_STR-FISKN sy-vline
WA_KKOS_STR-STKZU sy-vline
WA_KKOS_STR-STKZA sy-vline
WA_KKOS_STR-ESRNR sy-vline
WA_KKOS_STR-AKONT sy-vline
WA_KKOS_STR-BEGRU sy-vline
WA_KKOS_STR-EIKTO sy-vline
WA_KKOS_STR-ERNAM sy-vline
WA_KKOS_STR-ZUAWA sy-vline
WA_KKOS_STR-ZWELS sy-vline
WA_KKOS_STR-ZAMIM sy-vline
WA_KKOS_STR-ZTERM sy-vline
WA_KKOS_STR-ZAHLS sy-vline
WA_KKOS_STR-MAHNS sy-vline
WA_KKOS_STR-KLIMK sy-vline
WA_KKOS_STR-VZSKZ sy-vline
WA_KKOS_STR-ZINDT sy-vline
WA_KKOS_STR-ZINRT sy-vline
WA_KKOS_STR-DATLZ sy-vline
WA_KKOS_STR-VBUND sy-vline
WA_KKOS_STR-BUSAB sy-vline
WA_KKOS_STR-KNRZE sy-vline
WA_KKOS_STR-FDGRV sy-vline
WA_KKOS_STR-PERRN sy-vline
WA_KKOS_STR-WKOND sy-vline
WA_KKOS_STR-WAKON sy-vline
WA_KKOS_STR-MSCHL sy-vline
WA_KKOS_STR-WEBTR sy-vline
WA_KKOS_STR-REMIT sy-vline
WA_KKOS_STR-QSZNR sy-vline
WA_KKOS_STR-QSZDT sy-vline
WA_KKOS_STR-VRSNR sy-vline
WA_KKOS_STR-REPRF sy-vline
WA_KKOS_STR-SLVFW sy-vline
WA_KKOS_STR-SLJFW sy-vline
WA_KKOS_STR-UMSAV sy-vline
WA_KKOS_STR-UMALS sy-vline
WA_KKOS_STR-UMALH sy-vline
WA_KKOS_STR-SHBSD sy-vline
WA_KKOS_STR-SKZ01 sy-vline
WA_KKOS_STR-SBV01 sy-vline
WA_KKOS_STR-SKZ02 sy-vline
WA_KKOS_STR-SBV02 sy-vline
WA_KKOS_STR-SKZ03 sy-vline
WA_KKOS_STR-SBV03 sy-vline
WA_KKOS_STR-SKZ04 sy-vline
WA_KKOS_STR-SBV04 sy-vline
WA_KKOS_STR-SKZ05 sy-vline
WA_KKOS_STR-SBV05 sy-vline
WA_KKOS_STR-SKZ06 sy-vline
WA_KKOS_STR-SBV06 sy-vline
WA_KKOS_STR-SKZ07 sy-vline
WA_KKOS_STR-SBV07 sy-vline
WA_KKOS_STR-SKZ08 sy-vline
WA_KKOS_STR-SBV08 sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
