ABAP Select data from SAP table CATG into internal table

Get Example source ABAP code based on a different SAP table
  Get ABAP code

Below is a number of ABAP code snippets to demonstrate how to select data from SAP CATG 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 CATG. 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 CATG 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_CATG TYPE STANDARD TABLE OF CATG,
      WA_CATG TYPE CATG,
      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: <CATG> TYPE CATG.

*Process all fields in table header/work area as string values
  PERFORM process_as_string_field_values CHANGING wa_CATG.

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM CATG
  INTO TABLE IT_CATG.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CATG
*  INTO TABLE @DATA(IT_CATG2).
*--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_CATG INDEX 1 INTO DATA(WA_CATG2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_CATG ASSIGNING <CATG>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
<CATG>-ABLNR = 1.
<CATG>-SPRAS = 1.
<CATG>-KTEXT = 1.
<CATG>-SUCH1 = 1.
<CATG>-SUCH2 = 1.

ENDLOOP.

LOOP AT IT_CATG INTO WA_CATG.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CATG-SUCH3, sy-vline,
  WA_CATG-SUCH4, sy-vline,
  WA_CATG-SUCH5, sy-vline,
  WA_CATG-PATX01, sy-vline,
  WA_CATG-PATX02, sy-vline,
  WA_CATG-PATX03, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CATG 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_CATG 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_CATG INTO WA_CATG.


*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 ISOLA, internal->external for field SPRAS
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_CATG-SPRAS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CATG-SPRAS.
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_CATG_STR, 
ABLNR TYPE STRING,
SPRAS TYPE STRING,
KTEXT TYPE STRING,
SUCH1 TYPE STRING,
SUCH2 TYPE STRING,
SUCH3 TYPE STRING,
SUCH4 TYPE STRING,
SUCH5 TYPE STRING,
PATX01 TYPE STRING,
PATX02 TYPE STRING,
PATX03 TYPE STRING,
PATX04 TYPE STRING,
PATX05 TYPE STRING,
PATX06 TYPE STRING,
PATX07 TYPE STRING,
PATX08 TYPE STRING,
PATX09 TYPE STRING,
PATX10 TYPE STRING,
PATX11 TYPE STRING,
PATX12 TYPE STRING,
PATX13 TYPE STRING,
PATX14 TYPE STRING,
PATX15 TYPE STRING,
PATX16 TYPE STRING,
PATX17 TYPE STRING,
PATX18 TYPE STRING,
PATX19 TYPE STRING,
PATX20 TYPE STRING,
PATX21 TYPE STRING,
PATX22 TYPE STRING,
PATX23 TYPE STRING,
PATX24 TYPE STRING,
PATX25 TYPE STRING,
PATX26 TYPE STRING,
PATX27 TYPE STRING,
PATX28 TYPE STRING,
PATX29 TYPE STRING,
PATX30 TYPE STRING,
PATXI18 TYPE STRING,
PATXI19 TYPE STRING,
PATXI20 TYPE STRING,
PATXE04 TYPE STRING,
PATXE05 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CATG_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_CATG_STR-ABLNR sy-vline 
WA_CATG_STR-SPRAS sy-vline 
WA_CATG_STR-KTEXT sy-vline 
WA_CATG_STR-SUCH1 sy-vline 
WA_CATG_STR-SUCH2 sy-vline 
WA_CATG_STR-SUCH3 sy-vline 
WA_CATG_STR-SUCH4 sy-vline 
WA_CATG_STR-SUCH5 sy-vline 
WA_CATG_STR-PATX01 sy-vline 
WA_CATG_STR-PATX02 sy-vline 
WA_CATG_STR-PATX03 sy-vline 
WA_CATG_STR-PATX04 sy-vline 
WA_CATG_STR-PATX05 sy-vline 
WA_CATG_STR-PATX06 sy-vline 
WA_CATG_STR-PATX07 sy-vline 
WA_CATG_STR-PATX08 sy-vline 
WA_CATG_STR-PATX09 sy-vline 
WA_CATG_STR-PATX10 sy-vline 
WA_CATG_STR-PATX11 sy-vline 
WA_CATG_STR-PATX12 sy-vline 
WA_CATG_STR-PATX13 sy-vline 
WA_CATG_STR-PATX14 sy-vline 
WA_CATG_STR-PATX15 sy-vline 
WA_CATG_STR-PATX16 sy-vline 
WA_CATG_STR-PATX17 sy-vline 
WA_CATG_STR-PATX18 sy-vline 
WA_CATG_STR-PATX19 sy-vline 
WA_CATG_STR-PATX20 sy-vline 
WA_CATG_STR-PATX21 sy-vline 
WA_CATG_STR-PATX22 sy-vline 
WA_CATG_STR-PATX23 sy-vline 
WA_CATG_STR-PATX24 sy-vline 
WA_CATG_STR-PATX25 sy-vline 
WA_CATG_STR-PATX26 sy-vline 
WA_CATG_STR-PATX27 sy-vline 
WA_CATG_STR-PATX28 sy-vline 
WA_CATG_STR-PATX29 sy-vline 
WA_CATG_STR-PATX30 sy-vline 
WA_CATG_STR-PATXI18 sy-vline 
WA_CATG_STR-PATXI19 sy-vline 
WA_CATG_STR-PATXI20 sy-vline 
WA_CATG_STR-PATXE04 sy-vline 
WA_CATG_STR-PATXE05 sy-vline      INTO ld_text SEPARATED BY SPACE.

*Add any further fields from structure WA_EKKO_STR you want to CONCATENATE...
ENDLOOP.
ENDFORM.