tolist.tst

Oracle PL/SQL procedure generator (second generator type)

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;
/