How to have OUT parameter for see if transaction have been posted correctly

Question

I've a package procedure that reads data from a staging tables into their corresponding target tables. The below procedure variables are in the package specification and body. I need to create another procedure that ensures data has been sent to both target tables successfully.
If successful, commits the transaction. If not, ensures all matching records are deleted from target tables.
Outcome will have two possible values "success" or "failure."
Failure would indicate things such as transaction not found, transaction does not match from source to target tables.
However I need to create another procedure that reads the value of o_outcome parameter in the below procedure code such that if the parameter is a success then commit, and if failure has happened then delete all match records up until that point. I am using Oracle 11.2.0.2 and TOAD 10.5.1.3.
  PROCEDURE edw_rex_pos_trans (p_begin_date     IN     DATE,
                             p_end_date       IN     DATE,
                             p_extract_type   IN     VARCHAR2,
                             o_outcome           OUT VARCHAR2)
IS
   v_extract_type            edw_pos_extract_log.extract_type%TYPE
                                := UPPER (p_extract_type);
   v_begin_date              edw_rex_head_extract.create_date%TYPE := p_begin_date;
   v_end_date                edw_rex_head_extract.create_date%TYPE := p_end_date;
   v_log_seq_nbr             edw_extract_log.log_seq_nbr%TYPE;
   v_record_count            edw_extract_log.record_count%TYPE := 0;
   e_dates_must_match        EXCEPTION;
   e_begin_date_higher       EXCEPTION;
   l_tran_seq_nbr            NUMBER;
   CURSOR edw_rex_head (
      v_begin_date    DATE,
      v_end_date      DATE)
   IS
      SELECT *
        FROM edw_rex_head_extract h
       WHERE 1 = 1
             AND TRUNC (h.create_date) BETWEEN v_begin_date AND v_end_date;
BEGIN
   IF v_begin_date <> v_end_date
      AND (v_extract_type = 'DAILY' OR v_extract_type = 'MANUAL')
   THEN
      RAISE e_dates_must_match;
   ELSIF v_begin_date > v_end_date
   THEN
      RAISE e_begin_date_higher;
===========================================================
   ELSE                             
      SELECT edw_extract_log_seq.NEXTVAL INTO v_log_seq_nbr FROM DUAL;
      DBMS_OUTPUT.PUT_LINE ('SELECTED next log_seq_nbr = ' || v_log_seq_nbr);
      DBMS_OUTPUT.
       PUT_LINE ('INSERTING record into bcf_pos_extract_log table');
      edw_extract_log_table.insert_log_entry (v_log_seq_nbr,
                                              'BCFPOS_TO_REX_EXTRACT',
                                              v_extract_type,
                                              v_begin_date,
                                              v_end_date,
                                              'STARTED',
                                              'bcfpos_to_rex_extract');
      DBMS_OUTPUT.PUT_LINE ('FINISHED creating log entry');
      v_record_count := 0;
     DBMS_OUTPUT. PUT_LINE ('SELECTING data and INSERTING it into REX tables');
      FOR edw_rex_head_rec IN edw_rex_head (v_begin_date, v_end_date)
      LOOP
         v_record_count := v_record_count + 1;
         SELECT navistor.kcpos_tran_seq.NEXTVAL@rex
           INTO l_tran_seq_nbr
           FROM DUAL;
         BEGIN
           INSERT INTO kcpos_tran_header (TRAN_SEQ_NBR,
                               ORG_NUMBER,
                               STORE_NUMBER,
                               TRAN_DATE,
                               TERMINAL_NUMBER,
                               TRAN_NUMBER,
                               TRAN_TIME,
                               BATCH_NUMBER,
                               BATCH_TYPE,
                               TRAN_TYPE)
           VALUES (l_tran_seq_nbr,
             1,
             edw_rex_head_rec.store_number,
             edw_rex_head_rec.tran_date,
             edw_rex_head_rec.terminal_number,
             edw_rex_head_rec.tran_number,
             edw_rex_head_rec.tran_time,
             edw_rex_head_rec.batch_number,
             edw_rex_head_rec.batch_type,
             edw_rex_head_rec.tran_type);
  -- Table 2          
INSERT INTO kcpos_tran_line (TRAN_SEQ_NBR,
                                                   TRAN_LINE_NBR,
                                                   ORG_NUMBER,
                                                   STORE_NUMBER,
                                                   TRAN_DATE,
                                                   TERMINAL_NUMBER,
                                                   TRAN_NUMBER,
                                                   TRAN_TIME,
                                                   TRAN_TYPE)
   SELECT l_tran_seq_nbr,
          tran_line_nbr,
          1,
          store_number,
          tran_date,
          terminal_number,
          tran_number,
          tran_time,
          tran_type
     FROM edw_rex_line_extract
    WHERE     1 = 1
          AND edw_rex_seq_nbr = edw_rex_head_rec.edw_rex_seq_nbr
          AND revision_number = edw_rex_head_rec.revision_number
          AND store_number = edw_rex_head_rec.store_number
          AND tran_date = edw_rex_head_rec.tran_date
          AND terminal_number = edw_rex_head_rec.terminal_number
          AND tran_number = edw_rex_head_rec.tran_number
          AND TRUNC (create_date) BETWEEN v_begin_date AND v_end_date;
EXCEPTION
              WHEN OTHERS THEN
                 DBMS_OUTPUT.put_line (TO_CHAR (SQLCODE) || ' ' || SQLERRM);
                 l_error := TO_CHAR (SQLCODE) || ' ' || SUBSTR(SQLERRM,1,300);
                 v_record_count := v_record_count - 1;
END LOOP;
          DBMS_OUTPUT.PUT_LINE('Total transactions inserted: ' || v_record_count);
           DBMS_OUTPUT.PUT_LINE('UPDATING log table');
         o_outcome := 'SUCCESS';
END IF;
   EXCEPTION
      WHEN e_dates_must_match THEN
         o_outcome  := 'FAILURE';
       -- insert into error log table
      WHEN e_begin_date_higher THEN
         o_outcome  := 'FAILURE';
       -- insert into error log table
      WHEN OTHERS THEN
         DBMS_OUTPUT.put_line (TO_CHAR (SQLCODE) || ' ' || SQLERRM);
         o_outcome  := 'FAILURE';
         --- insert into error log table
      END;

Answer 1

Barnes12 wrote:
I've a package procedure that reads data from a staging tables into their corresponding target tables. The below procedure variables are in the package specification and body. I need to create another procedure that ensures data has been sent to both target tables successfully.
If successful, commits the transaction. If not, ensures all matching records are deleted from target tables.
Outcome will have two possible values "success" or "failure."
Failure would indicate things such as transaction not found, transaction does not match from source to target tables.
However I need to create another procedure that reads the value of o_outcome parameter in the below procedure code such that if the parameter is a success then commit, and if failure has happened then delete all match records up until that point. I am using Oracle 11.2.0.2 and TOAD 10.5.1.3.Why do you wish to see if the Parameter is returned as SUCCESS?
Step 1: Load the data into Target Tables.
Step 2: Delete the data from Staging Tables.
Step 3: Verify if all the data is proper and there are no errors (Logical)
Step 4: If No errors, Commit the transaction.
Step 5: If any error, then Rollback the transaction.
Step 4, 5 ensures the data is either Inserted and Deleted or is untouched.
Thus, you can negate the need for another sub-program to verify it!!!
Regards,
P.