API to Delete Certification Period Enrollment & Certification Enrollment

API to Delete Certification Period Enrollment

DECLARE

   CURSOR c1

   IS

      SELECT *

        FROM ota_cert_prd_enrollments

       WHERE business_group_id = 1627;

BEGIN

   FOR i IN c1

   LOOP

      BEGIN

         OTA_CERT_PRD_ENROLLMENT_API.

          delete_cert_prd_enrollment (

            p_cert_prd_enrollment_id   => i.cert_prd_enrollment_id,

            p_object_version_number    => i.object_version_number,

            p_validate                 => FALSE);

         COMMIT;

         DBMS_OUTPUT.

          put_line (i.cert_prd_enrollment_id || ' has been Zapped !!!');

      EXCEPTION

         WHEN OTHERS

         THEN

            DBMS_OUTPUT.

             put_line (

                  'Inner Exception:  '

               || i.cert_prd_enrollment_id

               || ' - '

               || SQLERRM);

      END;

   END LOOP;

EXCEPTION

   WHEN OTHERS

   THEN

      DBMS_OUTPUT.put_line ('Main Exception: ' || SQLERRM);

END;

API to Delete Certification Enrollment

DECLARE

   CURSOR c1

   IS

      SELECT *

        FROM ota_cert_enrollments enr

       WHERE business_group_id = 1627;

BEGIN

   FOR i IN c1

   LOOP

      BEGIN

         ota_cert_enrollment_api.

          delete_cert_enrollment (

            p_cert_enrollment_id      => i.cert_enrollment_id,

            p_object_version_number   => i.object_version_number,

            p_validate                => FALSE);

         COMMIT;

         DBMS_OUTPUT.

          put_line (i.cert_enrollment_id || ' has been Zapped !!!');

      EXCEPTION

         WHEN OTHERS

         THEN

            DBMS_OUTPUT.

             put_line (

                  'Inner Exception:  '

               || i.cert_enrollment_id

               || ' - '

               || SQLERRM);

      END;

   END LOOP;

EXCEPTION

   WHEN OTHERS

   THEN

      DBMS_OUTPUT.put_line ('Main Exception: ' || SQLERRM);

END;