CREATE OR REPLACE FUNCTION INSERT_PAYJOURNALREC_ARCH (
   V_START_ID     IN NUMBER,
   COUNT_RECORD   IN NUMBER)
   RETURN BOOLEAN
AS
   save_success   BOOLEAN;
BEGIN
   DECLARE
      j   INT;
   BEGIN
      DBMS_OUTPUT.ENABLE;
      j := 0;

      FOR i IN (SELECT id
                  FROM ipsh.payjournalrec pay
                 WHERE pay.id <= V_START_ID)
      LOOP
         j := j + 1;

         INSERT INTO PAYJOURNALREC_ARCH
            (SELECT *
               FROM PAYJOURNALREC
              WHERE ID = i.id);

         DELETE IPSH.PAYJOURNALREC pay_inn
          WHERE pay_inn.id = i.id;

         IF j > COUNT_RECORD
         THEN
            COMMIT;
            DBMS_OUTPUT.put_line ('COMMIT');
            j := 0;
         END IF;
      END LOOP;

      COMMIT;
   END;
END;
/