946: RAISE_APPLICATION_ERROR(-20000, 'Error while migrating CSD_REPAIR_JOB_XREF table data. '||l_error_text);
947: END CSD_REPAIR_JOB_XREF_MIG;
948:
949:
950: -- Migration procedure for CSD_REPAIR_TYPES_B
951: PROCEDURE CSD_REPAIR_TYPES_B_MIG IS
952:
953: Type NumTabType is VARRAY(10000) of NUMBER;
954: repair_type_id_mig NumTabType;
947: END CSD_REPAIR_JOB_XREF_MIG;
948:
949:
950: -- Migration procedure for CSD_REPAIR_TYPES_B
951: PROCEDURE CSD_REPAIR_TYPES_B_MIG IS
952:
953: Type NumTabType is VARRAY(10000) of NUMBER;
954: repair_type_id_mig NumTabType;
955:
955:
956: Type RowidTabType is VARRAY(1000) of VARCHAR2(30);
957: rowid_mig RowidTabtype;
958:
959: l_repair_type_ref CSD_REPAIR_TYPES_B.REPAIR_TYPE_REF%TYPE := 'SR';
960: l_repair_mode CSD_REPAIR_TYPES_B.REPAIR_MODE%TYPE := 'WIP';
961: l_seeded_flag CSD_REPAIR_TYPES_B.SEEDED_FLAG%TYPE := 'N';
962: l_auto_process_rma CSD_REPAIR_TYPES_B.AUTO_PROCESS_RMA%TYPE := 'N';
963: l_interface_to_om_flag CSD_REPAIR_TYPES_B.INTERFACE_TO_OM_FLAG%TYPE := 'N';
956: Type RowidTabType is VARRAY(1000) of VARCHAR2(30);
957: rowid_mig RowidTabtype;
958:
959: l_repair_type_ref CSD_REPAIR_TYPES_B.REPAIR_TYPE_REF%TYPE := 'SR';
960: l_repair_mode CSD_REPAIR_TYPES_B.REPAIR_MODE%TYPE := 'WIP';
961: l_seeded_flag CSD_REPAIR_TYPES_B.SEEDED_FLAG%TYPE := 'N';
962: l_auto_process_rma CSD_REPAIR_TYPES_B.AUTO_PROCESS_RMA%TYPE := 'N';
963: l_interface_to_om_flag CSD_REPAIR_TYPES_B.INTERFACE_TO_OM_FLAG%TYPE := 'N';
964: l_booK_sales_order_flag CSD_REPAIR_TYPES_B.BOOK_SALES_ORDER_FLAG%TYPE := 'N';
957: rowid_mig RowidTabtype;
958:
959: l_repair_type_ref CSD_REPAIR_TYPES_B.REPAIR_TYPE_REF%TYPE := 'SR';
960: l_repair_mode CSD_REPAIR_TYPES_B.REPAIR_MODE%TYPE := 'WIP';
961: l_seeded_flag CSD_REPAIR_TYPES_B.SEEDED_FLAG%TYPE := 'N';
962: l_auto_process_rma CSD_REPAIR_TYPES_B.AUTO_PROCESS_RMA%TYPE := 'N';
963: l_interface_to_om_flag CSD_REPAIR_TYPES_B.INTERFACE_TO_OM_FLAG%TYPE := 'N';
964: l_booK_sales_order_flag CSD_REPAIR_TYPES_B.BOOK_SALES_ORDER_FLAG%TYPE := 'N';
965: l_release_sales_order_flag CSD_REPAIR_TYPES_B.RELEASE_SALES_ORDER_FLAG%TYPE := 'N';
958:
959: l_repair_type_ref CSD_REPAIR_TYPES_B.REPAIR_TYPE_REF%TYPE := 'SR';
960: l_repair_mode CSD_REPAIR_TYPES_B.REPAIR_MODE%TYPE := 'WIP';
961: l_seeded_flag CSD_REPAIR_TYPES_B.SEEDED_FLAG%TYPE := 'N';
962: l_auto_process_rma CSD_REPAIR_TYPES_B.AUTO_PROCESS_RMA%TYPE := 'N';
963: l_interface_to_om_flag CSD_REPAIR_TYPES_B.INTERFACE_TO_OM_FLAG%TYPE := 'N';
964: l_booK_sales_order_flag CSD_REPAIR_TYPES_B.BOOK_SALES_ORDER_FLAG%TYPE := 'N';
965: l_release_sales_order_flag CSD_REPAIR_TYPES_B.RELEASE_SALES_ORDER_FLAG%TYPE := 'N';
966: l_ship_sales_order_flag CSD_REPAIR_TYPES_B.SHIP_SALES_ORDER_FLAG%TYPE := 'N';
959: l_repair_type_ref CSD_REPAIR_TYPES_B.REPAIR_TYPE_REF%TYPE := 'SR';
960: l_repair_mode CSD_REPAIR_TYPES_B.REPAIR_MODE%TYPE := 'WIP';
961: l_seeded_flag CSD_REPAIR_TYPES_B.SEEDED_FLAG%TYPE := 'N';
962: l_auto_process_rma CSD_REPAIR_TYPES_B.AUTO_PROCESS_RMA%TYPE := 'N';
963: l_interface_to_om_flag CSD_REPAIR_TYPES_B.INTERFACE_TO_OM_FLAG%TYPE := 'N';
964: l_booK_sales_order_flag CSD_REPAIR_TYPES_B.BOOK_SALES_ORDER_FLAG%TYPE := 'N';
965: l_release_sales_order_flag CSD_REPAIR_TYPES_B.RELEASE_SALES_ORDER_FLAG%TYPE := 'N';
966: l_ship_sales_order_flag CSD_REPAIR_TYPES_B.SHIP_SALES_ORDER_FLAG%TYPE := 'N';
967:
960: l_repair_mode CSD_REPAIR_TYPES_B.REPAIR_MODE%TYPE := 'WIP';
961: l_seeded_flag CSD_REPAIR_TYPES_B.SEEDED_FLAG%TYPE := 'N';
962: l_auto_process_rma CSD_REPAIR_TYPES_B.AUTO_PROCESS_RMA%TYPE := 'N';
963: l_interface_to_om_flag CSD_REPAIR_TYPES_B.INTERFACE_TO_OM_FLAG%TYPE := 'N';
964: l_booK_sales_order_flag CSD_REPAIR_TYPES_B.BOOK_SALES_ORDER_FLAG%TYPE := 'N';
965: l_release_sales_order_flag CSD_REPAIR_TYPES_B.RELEASE_SALES_ORDER_FLAG%TYPE := 'N';
966: l_ship_sales_order_flag CSD_REPAIR_TYPES_B.SHIP_SALES_ORDER_FLAG%TYPE := 'N';
967:
968: CURSOR csd_repair_types_b_cursor is
961: l_seeded_flag CSD_REPAIR_TYPES_B.SEEDED_FLAG%TYPE := 'N';
962: l_auto_process_rma CSD_REPAIR_TYPES_B.AUTO_PROCESS_RMA%TYPE := 'N';
963: l_interface_to_om_flag CSD_REPAIR_TYPES_B.INTERFACE_TO_OM_FLAG%TYPE := 'N';
964: l_booK_sales_order_flag CSD_REPAIR_TYPES_B.BOOK_SALES_ORDER_FLAG%TYPE := 'N';
965: l_release_sales_order_flag CSD_REPAIR_TYPES_B.RELEASE_SALES_ORDER_FLAG%TYPE := 'N';
966: l_ship_sales_order_flag CSD_REPAIR_TYPES_B.SHIP_SALES_ORDER_FLAG%TYPE := 'N';
967:
968: CURSOR csd_repair_types_b_cursor is
969: select crtb.repair_type_id,
962: l_auto_process_rma CSD_REPAIR_TYPES_B.AUTO_PROCESS_RMA%TYPE := 'N';
963: l_interface_to_om_flag CSD_REPAIR_TYPES_B.INTERFACE_TO_OM_FLAG%TYPE := 'N';
964: l_booK_sales_order_flag CSD_REPAIR_TYPES_B.BOOK_SALES_ORDER_FLAG%TYPE := 'N';
965: l_release_sales_order_flag CSD_REPAIR_TYPES_B.RELEASE_SALES_ORDER_FLAG%TYPE := 'N';
966: l_ship_sales_order_flag CSD_REPAIR_TYPES_B.SHIP_SALES_ORDER_FLAG%TYPE := 'N';
967:
968: CURSOR csd_repair_types_b_cursor is
969: select crtb.repair_type_id,
970: crtb.rowid
964: l_booK_sales_order_flag CSD_REPAIR_TYPES_B.BOOK_SALES_ORDER_FLAG%TYPE := 'N';
965: l_release_sales_order_flag CSD_REPAIR_TYPES_B.RELEASE_SALES_ORDER_FLAG%TYPE := 'N';
966: l_ship_sales_order_flag CSD_REPAIR_TYPES_B.SHIP_SALES_ORDER_FLAG%TYPE := 'N';
967:
968: CURSOR csd_repair_types_b_cursor is
969: select crtb.repair_type_id,
970: crtb.rowid
971: from csd_repair_types_b crtb
972: where crtb.seeded_flag IS NULL;
967:
968: CURSOR csd_repair_types_b_cursor is
969: select crtb.repair_type_id,
970: crtb.rowid
971: from csd_repair_types_b crtb
972: where crtb.seeded_flag IS NULL;
973:
974: l_min NUMBER;
975: l_max NUMBER;
979:
980: BEGIN
981:
982: -- Open the cursor and update the table
983: OPEN csd_repair_types_b_cursor;
984: LOOP
985: FETCH csd_repair_types_b_cursor bulk collect into
986: repair_type_id_mig,
987: rowid_mig
981:
982: -- Open the cursor and update the table
983: OPEN csd_repair_types_b_cursor;
984: LOOP
985: FETCH csd_repair_types_b_cursor bulk collect into
986: repair_type_id_mig,
987: rowid_mig
988: LIMIT MAX_BUFFER_SIZE;
989:
989:
990: FOR j in 1..repair_type_id_mig.count
991: LOOP
992: BEGIN
993: SAVEPOINT CSD_REPAIR_TYPES_B;
994:
995: UPDATE csd_repair_types_b
996: SET repair_mode = l_repair_mode,
997: repair_type_ref = l_repair_type_ref,
991: LOOP
992: BEGIN
993: SAVEPOINT CSD_REPAIR_TYPES_B;
994:
995: UPDATE csd_repair_types_b
996: SET repair_mode = l_repair_mode,
997: repair_type_ref = l_repair_type_ref,
998: auto_process_rma = l_auto_process_rma,
999: interface_to_om_flag = l_interface_to_om_flag,
1007: EXCEPTION
1008: WHEN OTHERS THEN
1009: -- when errored rollback and insert the message into
1010: -- the csd upgrade errors table
1011: Rollback to CSD_REPAIR_TYPES_B;
1012: l_error_text := 'Repair Type Updation Error'||substr(sqlerrm,1,1000);
1013: INSERT INTO csd_upg_errors
1014: (orig_system_reference,
1015: target_system_reference,
1017: upgrade_datetime,
1018: error_message,
1019: migration_phase)
1020: VALUES
1021: ('CSD_REPAIR_TYPES_B',
1022: 'CSD_REPAIR_TYPES_B',
1023: repair_type_id_mig(j),
1024: sysdate,
1025: l_error_text,
1018: error_message,
1019: migration_phase)
1020: VALUES
1021: ('CSD_REPAIR_TYPES_B',
1022: 'CSD_REPAIR_TYPES_B',
1023: repair_type_id_mig(j),
1024: sysdate,
1025: l_error_text,
1026: '11.5.8');
1026: '11.5.8');
1027:
1028: commit;
1029:
1030: raise_application_error( -20000, 'Error while migrating CSD_REPAIR_TYPES_B table data. '|| l_error_text);
1031:
1032:
1033: END;
1034: END LOOP;
1034: END LOOP;
1035:
1036: COMMIT;
1037:
1038: EXIT WHEN csd_repair_types_b_cursor%notfound;
1039: END LOOP;
1040:
1041: if csd_repair_types_b_cursor%isopen then
1042: close csd_repair_types_b_cursor;
1037:
1038: EXIT WHEN csd_repair_types_b_cursor%notfound;
1039: END LOOP;
1040:
1041: if csd_repair_types_b_cursor%isopen then
1042: close csd_repair_types_b_cursor;
1043: end if;
1044:
1045: EXCEPTION
1038: EXIT WHEN csd_repair_types_b_cursor%notfound;
1039: END LOOP;
1040:
1041: if csd_repair_types_b_cursor%isopen then
1042: close csd_repair_types_b_cursor;
1043: end if;
1044:
1045: EXCEPTION
1046: WHEN OTHERS THEN
1044:
1045: EXCEPTION
1046: WHEN OTHERS THEN
1047: l_error_text := substr(sqlerrm,1,1000);
1048: if csd_repair_types_b_cursor%isopen then
1049: close csd_repair_types_b_cursor;
1050: end if;
1051: RAISE_APPLICATION_ERROR(-20000, 'Error while migrating CSD_REPAIR_TYPES_B table data. '||l_error_text);
1052: END CSD_REPAIR_TYPES_B_MIG;
1045: EXCEPTION
1046: WHEN OTHERS THEN
1047: l_error_text := substr(sqlerrm,1,1000);
1048: if csd_repair_types_b_cursor%isopen then
1049: close csd_repair_types_b_cursor;
1050: end if;
1051: RAISE_APPLICATION_ERROR(-20000, 'Error while migrating CSD_REPAIR_TYPES_B table data. '||l_error_text);
1052: END CSD_REPAIR_TYPES_B_MIG;
1053:
1047: l_error_text := substr(sqlerrm,1,1000);
1048: if csd_repair_types_b_cursor%isopen then
1049: close csd_repair_types_b_cursor;
1050: end if;
1051: RAISE_APPLICATION_ERROR(-20000, 'Error while migrating CSD_REPAIR_TYPES_B table data. '||l_error_text);
1052: END CSD_REPAIR_TYPES_B_MIG;
1053:
1054: END CSD_Migrate_From_115X_PKG;
1055:
1048: if csd_repair_types_b_cursor%isopen then
1049: close csd_repair_types_b_cursor;
1050: end if;
1051: RAISE_APPLICATION_ERROR(-20000, 'Error while migrating CSD_REPAIR_TYPES_B table data. '||l_error_text);
1052: END CSD_REPAIR_TYPES_B_MIG;
1053:
1054: END CSD_Migrate_From_115X_PKG;
1055: