ABAP Select data from SAP table T5ITIP 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 T5ITIP 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 T5ITIP. 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 T5ITIP 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_T5ITIP TYPE STANDARD TABLE OF T5ITIP, WA_T5ITIP TYPE T5ITIP, 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: <T5ITIP> TYPE T5ITIP. *Process all fields in table header/work area as string values PERFORM process_as_string_field_values CHANGING wa_T5ITIP. SELECT * *restrict ABAP select to first 10 rows UP TO 10 ROWS FROM T5ITIP INTO TABLE IT_T5ITIP. *Select data and declare internal table using in-line method @DATA *SELECT * * FROM T5ITIP * INTO TABLE @DATA(IT_T5ITIP2). *--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_T5ITIP INDEX 1 INTO DATA(WA_T5ITIP2). *Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL LOOP AT IT_T5ITIP ASSIGNING <T5ITIP>.*To update a field value using a field symbol simply change the value via the field symbol pointer
<T5ITIP>-MANDT = 1.
<T5ITIP>-TRFAR = 1.
<T5ITIP>-TRFGB = 1.
<T5ITIP>-TRFKZ = 1.
<T5ITIP>-TPTRA = 1.
ENDLOOP. LOOP AT IT_T5ITIP INTO WA_T5ITIP. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_T5ITIP-ENDDA, sy-vline,
WA_T5ITIP-BEGDA, sy-vline,
WA_T5ITIP-GGCOR, sy-vline,
WA_T5ITIP-WTINI, sy-vline,
WA_T5ITIP-ABY1, sy-vline,
WA_T5ITIP-ABS1, sy-vline.
ENDLOOP. *Add any further fields from structure WA_T5ITIP 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_T5ITIP 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_T5ITIP INTO WA_T5ITIP. *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.
ENDFORM. *&---------------------------------------------------------------------* *& Form process_as_string_field_values *&---------------------------------------------------------------------* FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO. TYPES: BEGIN OF T_T5ITIP_STR,
MANDT TYPE STRING,
TRFAR TYPE STRING,
TRFGB TYPE STRING,
TRFKZ TYPE STRING,
TPTRA TYPE STRING,
ENDDA TYPE STRING,
BEGDA TYPE STRING,
GGCOR TYPE STRING,
WTINI TYPE STRING,
ABY1 TYPE STRING,
ABS1 TYPE STRING,
WTINA TYPE STRING,
ABY2 TYPE STRING,
ABS2 TYPE STRING,
UNIMI TYPE STRING,
GGSN1 TYPE STRING,
GGSN2 TYPE STRING,
TPF1 TYPE STRING,
TPF2 TYPE STRING,
TPF3 TYPE STRING,
TPF4 TYPE STRING,
TPF5 TYPE STRING,
TPF6 TYPE STRING,
TPF7 TYPE STRING,
TPF8 TYPE STRING,
TPF9 TYPE STRING,
TPF10 TYPE STRING,
TPGD1 TYPE STRING,
TPGD2 TYPE STRING,
TPGD3 TYPE STRING,
TPGD4 TYPE STRING,
WTGN1 TYPE STRING,
ABS3 TYPE STRING,
MPARF TYPE STRING,
GGIND TYPE STRING,
WTICI TYPE STRING,
ABY4 TYPE STRING,
ABS4 TYPE STRING,
WTIAZ TYPE STRING,
ABY5 TYPE STRING,
ABS5 TYPE STRING,
GGSI1 TYPE STRING,
GGSI2 TYPE STRING,
TPG1 TYPE STRING,
TPG2 TYPE STRING,
TPG3 TYPE STRING,
TPG4 TYPE STRING,
TPG5 TYPE STRING,
TPG6 TYPE STRING,
TPG7 TYPE STRING,
TPG8 TYPE STRING,
TPG9 TYPE STRING,
TPG10 TYPE STRING,
TPGF1 TYPE STRING,
TPGF2 TYPE STRING,
TPGF3 TYPE STRING,
TPGF4 TYPE STRING,
WTGN2 TYPE STRING,
ABS6 TYPE STRING,
GGLI1 TYPE STRING,
GGLI2 TYPE STRING,
GGLI3 TYPE STRING,
ABY6 TYPE STRING,
ABY7 TYPE STRING,
ABY8 TYPE STRING,
WTIA1 TYPE STRING,
WTIA2 TYPE STRING,
WTIA3 TYPE STRING,
WTIAD TYPE STRING,END OF T_EKKO_STR. DATA: WA_T5ITIP_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_T5ITIP_STR-MANDT sy-vline
WA_T5ITIP_STR-TRFAR sy-vline
WA_T5ITIP_STR-TRFGB sy-vline
WA_T5ITIP_STR-TRFKZ sy-vline
WA_T5ITIP_STR-TPTRA sy-vline
WA_T5ITIP_STR-ENDDA sy-vline
WA_T5ITIP_STR-BEGDA sy-vline
WA_T5ITIP_STR-GGCOR sy-vline
WA_T5ITIP_STR-WTINI sy-vline
WA_T5ITIP_STR-ABY1 sy-vline
WA_T5ITIP_STR-ABS1 sy-vline
WA_T5ITIP_STR-WTINA sy-vline
WA_T5ITIP_STR-ABY2 sy-vline
WA_T5ITIP_STR-ABS2 sy-vline
WA_T5ITIP_STR-UNIMI sy-vline
WA_T5ITIP_STR-GGSN1 sy-vline
WA_T5ITIP_STR-GGSN2 sy-vline
WA_T5ITIP_STR-TPF1 sy-vline
WA_T5ITIP_STR-TPF2 sy-vline
WA_T5ITIP_STR-TPF3 sy-vline
WA_T5ITIP_STR-TPF4 sy-vline
WA_T5ITIP_STR-TPF5 sy-vline
WA_T5ITIP_STR-TPF6 sy-vline
WA_T5ITIP_STR-TPF7 sy-vline
WA_T5ITIP_STR-TPF8 sy-vline
WA_T5ITIP_STR-TPF9 sy-vline
WA_T5ITIP_STR-TPF10 sy-vline
WA_T5ITIP_STR-TPGD1 sy-vline
WA_T5ITIP_STR-TPGD2 sy-vline
WA_T5ITIP_STR-TPGD3 sy-vline
WA_T5ITIP_STR-TPGD4 sy-vline
WA_T5ITIP_STR-WTGN1 sy-vline
WA_T5ITIP_STR-ABS3 sy-vline
WA_T5ITIP_STR-MPARF sy-vline
WA_T5ITIP_STR-GGIND sy-vline
WA_T5ITIP_STR-WTICI sy-vline
WA_T5ITIP_STR-ABY4 sy-vline
WA_T5ITIP_STR-ABS4 sy-vline
WA_T5ITIP_STR-WTIAZ sy-vline
WA_T5ITIP_STR-ABY5 sy-vline
WA_T5ITIP_STR-ABS5 sy-vline
WA_T5ITIP_STR-GGSI1 sy-vline
WA_T5ITIP_STR-GGSI2 sy-vline
WA_T5ITIP_STR-TPG1 sy-vline
WA_T5ITIP_STR-TPG2 sy-vline
WA_T5ITIP_STR-TPG3 sy-vline
WA_T5ITIP_STR-TPG4 sy-vline
WA_T5ITIP_STR-TPG5 sy-vline
WA_T5ITIP_STR-TPG6 sy-vline
WA_T5ITIP_STR-TPG7 sy-vline
WA_T5ITIP_STR-TPG8 sy-vline
WA_T5ITIP_STR-TPG9 sy-vline
WA_T5ITIP_STR-TPG10 sy-vline
WA_T5ITIP_STR-TPGF1 sy-vline
WA_T5ITIP_STR-TPGF2 sy-vline
WA_T5ITIP_STR-TPGF3 sy-vline
WA_T5ITIP_STR-TPGF4 sy-vline
WA_T5ITIP_STR-WTGN2 sy-vline
WA_T5ITIP_STR-ABS6 sy-vline
WA_T5ITIP_STR-GGLI1 sy-vline
WA_T5ITIP_STR-GGLI2 sy-vline
WA_T5ITIP_STR-GGLI3 sy-vline
WA_T5ITIP_STR-ABY6 sy-vline
WA_T5ITIP_STR-ABY7 sy-vline
WA_T5ITIP_STR-ABY8 sy-vline
WA_T5ITIP_STR-WTIA1 sy-vline
WA_T5ITIP_STR-WTIA2 sy-vline
WA_T5ITIP_STR-WTIA3 sy-vline
WA_T5ITIP_STR-WTIAD sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.