tolist.tst

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

declare
   string PLGadmin.maxvc2 :=
     '[STOREIN]cgml.tst
      PROCEDURE insert_row (
      [FOREACH]gencol[between],
         [colname]_in IN [coldatatype]
         );';
   
begin
   PLGgen.teststring ('employee', string, show => false);
   
   PLGgen.list_init;
   
   LOOP
      EXIT WHEN PLGgen.end_of_list;
      DBMS_OUTPUT.PUT_LINE (PLGgen.next_list_entry);
   END LOOP;
   
   PLGgen.list_clear;
END;
/