REPORT ZINI_PRG_GO_QUICK_VIEW.
INITIALIZATION.
if sy-tcode cp 'ZAQA*'.
data(l_prg) = CONV CHAR30( sy-tcode ).
shift l_prg left by 8 PLACES.
concatenate 'AQA%' l_prg '%' into l_prg.
SELECT single * FROM d010sinf INTO @data(l_010)
WHERE prog like @l_PRG.
if sy-subrc eq 0.
submit (l_010-prog) VIA SELECTION-SCREEN AND RETURN.
endif.
endif.
LEAVE PROGRAM.