ABAP Quick Viewer

  1. REPORT ZINI_PRG_GO_QUICK_VIEW.
  2.  
  3. INITIALIZATION.
  4.  
  5. if sy-tcode cp 'ZAQA*'.
  6.  
  7.   data(l_prg) = CONV CHAR30( sy-tcode ).
  8.   shift l_prg left by 8 PLACES.
  9.   concatenate 'AQA%' l_prg '%' into l_prg.
  10.   SELECT single * FROM d010sinf INTO @data(l_010)
  11.          WHERE prog like @l_PRG.
  12.  
  13.   if sy-subrc eq 0.
  14.       submit (l_010-prog) VIA SELECTION-SCREEN AND RETURN.
  15.   endif.
  16.  
  17. endif.
  18.  
  19. LEAVE PROGRAM.
[$[Get Code]]