*&---------------------------------------------------------------------*
*& Report zagit_prog_using_ttyp
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zagit_prog_using_ttyp.
DATA(itab) = VALUE zagit_ttyp_ref_to_int4( ).
DATA(i) = itab[ 1 ]->*.
