PROCEDURE TestProcedure (x NUMBER)
AS
   TYPE linearray IS VARRAY(20) OF VARCHAR2(256);
   lines linearray := linearray();
   TIME VARCHAR2(256);
   out_File  UTL_FILE.FILE_TYPE;
   i NUMBER := 0;
   idx NUMBER := 1;
BEGIN
   WHILE idx <= 20
   LOOP
     IF MOD(i,5000000) = 0 THEN
        TIME := TO_CHAR(SYSTIMESTAMP,'yyyy-mm-dd hh24:mi:SS.FF6');
        lines.extend();
        lines(idx) := TIME || ' ' || 'Iteration: ' || TO_CHAR(i);
        idx := idx + 1;
     END IF;
     i := i + 1;
   END LOOP;
   out_File := UTL_FILE.FOPEN('CTEST', 'test_file' || TO_CHAR(x) || '.txt' , 'W');
   FOR i IN 1..(idx-1)
   LOOP
     UTL_FILE.PUT_LINE(out_file, lines(i));
   END LOOP;
END;