Help with PLSQL table population.....

Question

Hi all,
I am populating a PLSQL table from a cursor and then inserting into a target table using FORALL.
While populating, I need two two records differing only by the process_name.
Say my populated PLSQL table should look like this.
vt_proc_status_tbl:
1     76     Pname_A     20     Sysdate     1     U     1
1     76     Pname_B     20     Sysdate     1     U     1
How can I create duplicate records like this inside the PLSQL table varying only by process_name????
OPEN cur_fcst_sites_ppo;
FETCH cur_fcst_sites_ppo
BULK COLLECT INTO vt_fcst_sites_tbl;
CLOSE cur_fcst_sites_ppo;
FOR v_idx_fcst_sites IN 1 .. vt_fcst_sites_tbl.COUNT
LOOP
BEGIN
SELECT seq_ods_site_process_status.NEXTVAL
INTO v_odssiteprocessid
FROM DUAL;
END;
v_pst_idx := v_pst_idx + 1;
vt_proc_status_tbl (v_pst_idx).odssiteprocessid :=
v_odssiteprocessid;
vt_proc_status_tbl (v_pst_idx).SYSTEM := pi_system;
vt_proc_status_tbl (v_pst_idx).process_name := pi_process_name;
vt_proc_status_tbl (v_pst_idx).siteid :=
vt_fcst_sites_tbl (v_idx_fcst_sites).siteid;
vt_proc_status_tbl (v_pst_idx).bday := pi_transferday;
vt_proc_status_tbl (v_pst_idx).is_no := pi_is_no;
vt_proc_status_tbl (v_pst_idx).rest_status := c_status_unprocessed;
vt_proc_status_tbl (v_pst_idx).batch_id := v_batch_id;
v_cntr := v_cntr + 1;
IF v_cntr = pi_sites_at_a_time
THEN
v_batch_id := v_batch_id + 1;
v_cntr := 0;
END IF;
v_odssiteprocessid := NULL;
END LOOP;
IF v_pst_idx > 0
THEN
BEGIN
FORALL v_proc_status_tbl_idx IN 1 .. vt_proc_status_tbl.COUNT
INSERT INTO ods_site_process_status
VALUES vt_proc_status_tbl (v_proc_status_tbl_idx);
END;
ELSE
v_code := NULL;
SELECT SUBSTR ( '[M]:0- No Site Available for the '
|| pi_process_name
|| ' Process For '
|| DECODE (pi_process_name,
c_transform_bmi_ppo, 'IS_NO '
|| pi_is_no,
'TransferDay ' || pi_transferday
|| '..',
1,
125
INTO v_errm
FROM DUAL;
DBMS_OUTPUT.put_line (v_errm);
scimf_common.write_log (v_code, --Log error into the LOGFILE
'E',
'p_mfcst_transform_master',
v_errm,
vr_market.marketid,
'I'
END IF;
Thanks in Advance.
Jagadish
Edited by: user646716 on Oct 12, 2008 10:08 AM
Edited by: user646716 on Oct 12, 2008 12:02 PM

Answer 1

hi aweiden,
Please find my entire code below.
what I am trying to achieve is that when my plsql table vt_proc_status_tbl is populated, I want two different rows to be populated for different process names (i.e bmi_ppo and bmi_ai ) and load it into ODS_SITE_PROCESS_STATUS table so that i do not have to alter my forall statement.
Thanks for the help
PROCEDURE p_mfcst_transform_master (
pi_system IN mfcst_ppo.SYSTEM%TYPE,
pi_is_ no IN mfcst_ppo.is_no%TYPE,
pi_transferday IN mfcst_ppo.transferday%TYPE,
pi_sites_at_a_time IN NUMBER,
pi_process_name IN ods_site_process_status.process_name%TYPE,
po_status OUT NUMBER,
po_error OUT VARCHAR2
AS
-- Cursor to get sites to be processed for bmi to ppo transformation process
CURSOR cur_fcst_sites_ppo
IS
SELECT DISTINCT siteid
FROM sci_restaurant
WHERE hist_load_status in ('L','H')
AND SYSTEM = pi_system
ORDER BY siteid;
-- Cursor to get sites to be processed for bmi to ai transformation process
-- Note this cursor is based on the system and transfer day
TYPE sites_tbltype IS TABLE OF cur_fcst_sites_ppo%ROWTYPE
INDEX BY PLS_INTEGER;
vt_fcst_sites_tbl sites_tbltype;
TYPE proc_status_tbltype IS TABLE OF ods_site_process_status%ROWTYPE
INDEX BY PLS_INTEGER;
vt_proc_status_tbl proc_status_tbltype;
v_cnt NUMBER := 0;
v_cntr NUMBER := 0;
v_batch_id NUMBER := 1;
v_pst_idx PLS_INTEGER := 0;
v_k PLS_INTEGER := 0;
v_odssiteprocessid ods_site_process_status.odssiteprocessid%TYPE;
v_exceptionid NUMBER;
--variable to log exception into sci_exception table
BEGIN
--- If sites were identitfied before, skip the rest of the execution
--- Note that ods_site_process_status holds the status from the prior runs
po_error := '';
po_status := 0;
scimf_common.p_get_market_parameters (NULL,
pi_system,
vr_market,
v_error_out
IF v_error_out IS NOT NULL
THEN
RAISE e_market_not_found;
END IF;
IF pi_process_name = c_transform_bmi_ppo
THEN
SELECT COUNT (*)
INTO v_cnt
FROM ods_site_process_status
WHERE SYSTEM = pi_system
AND process_name = pi_process_name
AND is_no = pi_is_no
AND ROWNUM < 2;
ELSIF pi_process_name = c_transform_bmi_ai
THEN
SELECT COUNT (*)
INTO v_cnt
FROM ods_site_process_status
WHERE SYSTEM = pi_system
AND process_name = pi_process_name
AND rest_status = c_status_processed
AND ROWNUM < 2;
ELSE
v_code := NULL;
v_errm :=
SUBSTR ( '[E]:0- Process Name :>'
|| pi_process_name
|| '<Is Not Proper For System:>'
|| pi_system
|| '< and IS_NO :>'
|| pi_is_no
|| '< and TransferDay :>'
|| pi_transferday
|| '<',
1,
125
DBMS_OUTPUT.put_line (v_errm);
scimf_common.write_log (v_code, --Log error into the LOGFILE
'E',
'p_mfcst_transform',
v_errm,
vr_market.marketid,
'I'
po_error := TO_CHAR (SQLCODE) || ' -Error Message: ' || v_errm;
po_status := -1;
-- Log Exception in the log file and come out.
END IF;
IF NVL (v_cnt, 0) > 0
THEN
IF pi_process_name = c_transform_bmi_ppo
THEN
SELECT SUBSTR
( ':0- Sites are already identified before for the '
|| pi_process_name
|| ' Process For '
|| DECODE (pi_process_name,
c_transform_bmi_ppo, 'IS_NO ' || pi_is_no,
'TransferDay ' || pi_transferday
|| '..'
|| 'proceeding to invoke child scripts',
1,
125
INTO v_errm
FROM DUAL;
DBMS_OUTPUT.put_line (v_errm);
ELSIF pi_process_name = c_transform_bmi_ai
THEN
SELECT SUBSTR
( '[I]:0- Sites are already identified before for the '
|| pi_process_name
|| ' Process For '
|| DECODE (pi_process_name,
c_transform_bmi_ai, 'IS_NO ' || pi_is_no,
'TransferDay ' || pi_transferday
|| '..'
|| 'proceeding to invoke child scripts',
1,
125
INTO v_errm
FROM DUAL;
DBMS_OUTPUT.put_line (v_errm);
END IF;
ELSIF NVL (v_cnt, 0) = 0
THEN
OPEN cur_fcst_sites_ppo;
FETCH cur_fcst_sites_ppo
BULK COLLECT INTO vt_fcst_sites_tbl;
CLOSE cur_fcst_sites_ppo;
END IF;
-- Logic to batch the sites to be processed in the batches of
-- sites derived from the pi_sites_at_a_time parameter
-- Batch_Id starts with 1 and need to used along with
-- either is_no (bmi-ppo) and process name or along with
-- system, bday and process_name (bmi-ai)
IF pi_sites_at_a_time IS NULL
THEN
v_code := NULL;
v_errm := 'Site At A Time not defined';
scimf_common.write_log (v_code, --Log error into the LOGFILE
'E',
'p_mfcst_transform_master',
v_errm,
vr_market.marketid,
'I'
po_error := TO_CHAR (SQLCODE) || ' -Error Message: ' || v_errm;
po_status := -1;
raise_application_error (-200002, v_errm);
END IF;
FOR v_idx_fcst_sites IN 1 .. vt_fcst_sites_tbl.COUNT
LOOP
BEGIN
SELECT seq_ods_site_process_status.NEXTVAL
INTO v_odssiteprocessid
FROM DUAL;
EXCEPTION
WHEN OTHERS
THEN
ROLLBACK;
DBMS_OUTPUT.put_line ( '[E]:0- Sequence :>'
|| 'seq_ods_site_process_status'
|| ' <Is Invalid>'
|| '<'
v_errm :=
SUBSTR ( 'Sequence seq_ods_site_process_status Error:'
|| SQLERRM,
1,
125
scimf_common.write_log (v_code, --Log error into the LOGFILE
'E',
'p_mfcst_transform',
v_errm,
vr_market.marketid,
'I'
po_error :=
TO_CHAR (SQLCODE) || ' -Error Message: '
|| v_errm;
po_status := -1;
raise_application_error (-200002, v_errm);
END;
v_pst_idx := v_pst_idx + 1;
vt_proc_status_tbl (v_pst_idx).odssiteprocessid :=
v_odssiteprocessid;
vt_proc_status_tbl (v_pst_idx).SYSTEM := pi_system;
vt_proc_status_tbl (v_pst_idx).process_name := pi_process_name;
vt_proc_status_tbl (v_pst_idx).siteid :=
vt_fcst_sites_tbl (v_idx_fcst_sites).siteid;
vt_proc_status_tbl (v_pst_idx).bday := pi_transferday;
vt_proc_status_tbl (v_pst_idx).is_no := pi_is_no;
vt_proc_status_tbl (v_pst_idx).rest_status := c_status_unprocessed;
vt_proc_status_tbl (v_pst_idx).batch_id := v_batch_id;
v_cntr := v_cntr + 1;
IF v_cntr = pi_sites_at_a_time
THEN
v_batch_id := v_batch_id + 1;
v_cntr := 0;
END IF;
v_odssiteprocessid := NULL;
END LOOP;
IF v_pst_idx > 0
THEN
BEGIN
FORALL v_proc_status_tbl_idx IN 1 .. vt_proc_status_tbl.COUNT
INSERT INTO ods_site_process_status
VALUES vt_proc_status_tbl (v_proc_status_tbl_idx);
EXCEPTION
WHEN OTHERS
THEN
ROLLBACK;
v_error_count := SQL%BULK_EXCEPTIONS.COUNT;
DBMS_OUTPUT.put_line
( '[E]:0- Bulk Insert Fail using FORALL Number of Failure:>'
|| v_error_count
|| '<'
FOR v_i IN 1 .. v_error_count
LOOP
v_errm :=
SUBSTR
( '[E]:Error Insert into ODS_SITE_PROCESS_STATUS table '
|| 'Insert Error: '
|| v_i
|| ' Array Index: '
|| SQL%BULK_EXCEPTIONS (v_i).ERROR_INDEX
|| SQLERRM
(-SQL%BULK_EXCEPTIONS (v_i).ERROR_CODE),
1,
125
DBMS_OUTPUT.put_line (v_errm);
END LOOP;
v_code := NULL;
scimf_common.write_log (v_code, --Log error into the LOGFILE
'E',
'p_mfcst_transform_master',
v_errm,
vr_market.marketid,
'I'
po_error :=
TO_CHAR (SQLCODE) || ' -Error Message: '
|| v_errm;
po_status := -1;
END;
ELSE
v_code := NULL;
SELECT SUBSTR ( '[M]:0- No Site Available for the '
|| pi_process_name
|| ' Process For '
|| DECODE (pi_process_name,
c_transform_bmi_ppo, 'IS_NO '
|| pi_is_no,
'TransferDay ' || pi_transferday
|| '..',
1,
125
INTO v_errm
FROM DUAL;
DBMS_OUTPUT.put_line (v_errm);
scimf_common.write_log (v_code, --Log error into the LOGFILE
'E',
'p_mfcst_transform_master',
v_errm,
vr_market.marketid,
'I'
END IF;
END IF;
COMMIT;
po_status := NVL (po_status, 0);
EXCEPTION
WHEN e_market_not_found
THEN
ROLLBACK;
v_code := NULL;
v_errm := SUBSTR ('[E]:Error Market Not Found ' || SQLERRM, 1, 125);
scimf_common.write_log (v_code, --Log error into the LOGFILE
'E',
'p_mfcst_transform_master',
v_errm,
vr_market.marketid,
'I'
raise_application_error (-200001,
'Market parameter not found for system'
|| pi_system
po_error := TO_CHAR (SQLCODE) || ' -Error Message: ' || SQLERRM;
po_status := -1;
WHEN OTHERS
THEN
ROLLBACK;
DBMS_OUTPUT.put_line ( '[E]:0-ERROR :-- '
|| ' --SQLCODE: '
|| SQLCODE
|| ' -Error Message: '
|| SQLERRM
po_error := TO_CHAR (SQLCODE) || ' -Error Message: ' || SQLERRM;
po_status := -1;
END;