plsql.tst

来自「Oracle PL/SQL procedure generator (secon」· TST 代码 · 共 37 行

@ssoo
create or replace package temppkg
is
      prog PLGdesc.prog_tt;
      arglist PLGdesc.arglist_tt;
      retarglist PLGdesc.arglist_tt;
end;
/
declare
begin
  plgplsql.analyze_code ('&1', 
      temppkg.prog, temppkg.arglist,
      temppkg.retarglist); 
  /*
  plgdesc.get_prog_info (USER, '&1', NULL, 
     temppkg.prog, temppkg.arglist, temppkg.retarglist); */
end;
/
begin      
   p.l (temppkg.prog.count);
   p.l (temppkg.arglist.count);
   p.l (temppkg.retarglist.count);
end;
/
begin
   plgdesc.showprogs (      
      temppkg.prog);
/*
   plgdesc.showprogs (      
      temppkg.prog,
      temppkg.arglist,
      temppkg.progsep,
      temppkg.retarglist);  */
end;
/