ABAP Select data from SAP table TIPZZ 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 TIPZZ 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 TIPZZ. 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 TIPZZ 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_TIPZZ TYPE STANDARD TABLE OF TIPZZ,
      WA_TIPZZ TYPE TIPZZ,
      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: <TIPZZ> TYPE TIPZZ.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM TIPZZ
*  INTO TABLE @DATA(IT_TIPZZ2).
*--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_TIPZZ INDEX 1 INTO DATA(WA_TIPZZ2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<TIPZZ>-MANDT = 1.
<TIPZZ>-VVXLEERKEY = 1.
<TIPZZ>-HKOST_MD = 1.
<TIPZZ>-RZNR = 1.
<TIPZZ>-DTAUSHVERZ = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_TIPZZ-DTAUSNAMEA, sy-vline,
  WA_TIPZZ-DTAUSNAMED, sy-vline,
  WA_TIPZZ-DTAUSBK, sy-vline,
  WA_TIPZZ-DTAUSLM, sy-vline,
  WA_TIPZZ-DTAUSTRENN, sy-vline,
  WA_TIPZZ-IND_BAUK, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_TIPZZ 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_TIPZZ 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_TIPZZ INTO WA_TIPZZ.


*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_TIPZZ_STR, 
MANDT TYPE STRING,
VVXLEERKEY TYPE STRING,
HKOST_MD TYPE STRING,
RZNR TYPE STRING,
DTAUSHVERZ TYPE STRING,
DTAUSNAMEA TYPE STRING,
DTAUSNAMED TYPE STRING,
DTAUSBK TYPE STRING,
DTAUSLM TYPE STRING,
DTAUSTRENN TYPE STRING,
IND_BAUK TYPE STRING,
EQM_INSTAL TYPE STRING,
JINPWE TYPE STRING,
JOUTWE TYPE STRING,
JINPGEB TYPE STRING,
JOUTGEB TYPE STRING,
JINPGRU TYPE STRING,
JOUTGRU TYPE STRING,
JINPME TYPE STRING,
JOUTME TYPE STRING,
BWAUS TYPE STRING,
MBWAUS TYPE STRING,
ARC_INSTAL TYPE STRING,
MWSKZ TYPE STRING,
VVSBSCHL TYPE STRING,
XTXTV TYPE STRING,
BLART TYPE STRING,
ACCSYSTEM TYPE STRING,
JINPASP TYPE STRING,
JOUTASP TYPE STRING,
JINPARO TYPE STRING,
JOUTARO TYPE STRING,
JINPUSP TYPE STRING,
JOUTUSP TYPE STRING,END OF T_EKKO_STR.
DATA: WA_TIPZZ_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_TIPZZ_STR-MANDT sy-vline 
WA_TIPZZ_STR-VVXLEERKEY sy-vline 
WA_TIPZZ_STR-HKOST_MD sy-vline 
WA_TIPZZ_STR-RZNR sy-vline 
WA_TIPZZ_STR-DTAUSHVERZ sy-vline 
WA_TIPZZ_STR-DTAUSNAMEA sy-vline 
WA_TIPZZ_STR-DTAUSNAMED sy-vline 
WA_TIPZZ_STR-DTAUSBK sy-vline 
WA_TIPZZ_STR-DTAUSLM sy-vline 
WA_TIPZZ_STR-DTAUSTRENN sy-vline 
WA_TIPZZ_STR-IND_BAUK sy-vline 
WA_TIPZZ_STR-EQM_INSTAL sy-vline 
WA_TIPZZ_STR-JINPWE sy-vline 
WA_TIPZZ_STR-JOUTWE sy-vline 
WA_TIPZZ_STR-JINPGEB sy-vline 
WA_TIPZZ_STR-JOUTGEB sy-vline 
WA_TIPZZ_STR-JINPGRU sy-vline 
WA_TIPZZ_STR-JOUTGRU sy-vline 
WA_TIPZZ_STR-JINPME sy-vline 
WA_TIPZZ_STR-JOUTME sy-vline 
WA_TIPZZ_STR-BWAUS sy-vline 
WA_TIPZZ_STR-MBWAUS sy-vline 
WA_TIPZZ_STR-ARC_INSTAL sy-vline 
WA_TIPZZ_STR-MWSKZ sy-vline 
WA_TIPZZ_STR-VVSBSCHL sy-vline 
WA_TIPZZ_STR-XTXTV sy-vline 
WA_TIPZZ_STR-BLART sy-vline 
WA_TIPZZ_STR-ACCSYSTEM sy-vline 
WA_TIPZZ_STR-JINPASP sy-vline 
WA_TIPZZ_STR-JOUTASP sy-vline 
WA_TIPZZ_STR-JINPARO sy-vline 
WA_TIPZZ_STR-JOUTARO sy-vline 
WA_TIPZZ_STR-JINPUSP sy-vline 
WA_TIPZZ_STR-JOUTUSP sy-vline      INTO ld_text SEPARATED BY SPACE.

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