20: RETURN TRUE;
21: END IF;
22: SELECT MSC_E1APS_UTIL.MSC_E1APS_ODIScenarioExecute(scenario_name,scenario_version,scenario_param,wsurl)
23: INTO return_str
24: FROM dual;
25:
26: EXCEPTION
27: WHEN OTHERS THEN
28: SELECT instr(return_str,'#')
26: EXCEPTION
27: WHEN OTHERS THEN
28: SELECT instr(return_str,'#')
29: INTO start_index
30: FROM dual;
31:
32: SELECT SUBSTR(return_str,start_index+1,1800)
33: INTO err_message
34: FROM dual;
30: FROM dual;
31:
32: SELECT SUBSTR(return_str,start_index+1,1800)
33: INTO err_message
34: FROM dual;
35:
36: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Scenario'
37: || scenario_name
38: || ' execution failed.'
40: RETURN FALSE;
41: END;
42: SELECT instr(return_str,'#')
43: INTO start_index
44: FROM dual;
45:
46: SELECT SUBSTR(return_str,0,start_index-1)
47: INTO session_num
48: FROM dual;
44: FROM dual;
45:
46: SELECT SUBSTR(return_str,0,start_index-1)
47: INTO session_num
48: FROM dual;
49:
50: SELECT SUBSTR(return_str,start_index+1,1800)
51: INTO err_message
52: FROM dual;
48: FROM dual;
49:
50: SELECT SUBSTR(return_str,start_index+1,1800)
51: INTO err_message
52: FROM dual;
53:
54: IF session_num = '-1' THEN
55: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Scenario '
56: || scenario_name
451: IF odi_url IS NOT NULL THEN
452: BEGIN
453: SELECT MSC_E1APS_UTIL.MSC_E1APS_ODIInitialize(odi_url,2)
454: INTO ReturnStr
455: FROM dual;
456:
457: EXCEPTION
458: WHEN OTHERS THEN
459: select instr(ReturnStr,'#') into StartIndex from dual;
455: FROM dual;
456:
457: EXCEPTION
458: WHEN OTHERS THEN
459: select instr(ReturnStr,'#') into StartIndex from dual;
460: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
461:
462: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
463: RETCODE := MSC_UTIL.G_ERROR;
456:
457: EXCEPTION
458: WHEN OTHERS THEN
459: select instr(ReturnStr,'#') into StartIndex from dual;
460: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
461:
462: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
463: RETCODE := MSC_UTIL.G_ERROR;
464: RETURN;
462: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
463: RETCODE := MSC_UTIL.G_ERROR;
464: RETURN;
465: END;
466: select instr(ReturnStr,'#') into StartIndex from dual;
467: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
468:
469: IF(length(ErrMessage) > 0) THEN
470: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
463: RETCODE := MSC_UTIL.G_ERROR;
464: RETURN;
465: END;
466: select instr(ReturnStr,'#') into StartIndex from dual;
467: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
468:
469: IF(length(ErrMessage) > 0) THEN
470: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
471: RETCODE := MSC_UTIL.G_ERROR;
675: IF odi_url IS NOT NULL THEN
676: BEGIN
677: SELECT MSC_E1APS_UTIL.MSC_E1APS_ODIInitialize(odi_url,2)
678: INTO ReturnStr
679: FROM dual;
680:
681: EXCEPTION
682: WHEN OTHERS THEN
683: select instr(ReturnStr,'#') into StartIndex from dual;
679: FROM dual;
680:
681: EXCEPTION
682: WHEN OTHERS THEN
683: select instr(ReturnStr,'#') into StartIndex from dual;
684: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
685:
686: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
687: RETCODE := MSC_UTIL.G_ERROR;
680:
681: EXCEPTION
682: WHEN OTHERS THEN
683: select instr(ReturnStr,'#') into StartIndex from dual;
684: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
685:
686: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
687: RETCODE := MSC_UTIL.G_ERROR;
688: RETURN;
686: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
687: RETCODE := MSC_UTIL.G_ERROR;
688: RETURN;
689: END;
690: select instr(ReturnStr,'#') into StartIndex from dual;
691: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
692:
693: IF(length(ErrMessage) > 0) THEN
694: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
687: RETCODE := MSC_UTIL.G_ERROR;
688: RETURN;
689: END;
690: select instr(ReturnStr,'#') into StartIndex from dual;
691: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
692:
693: IF(length(ErrMessage) > 0) THEN
694: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
695: RETCODE := MSC_UTIL.G_ERROR;
988: IF odi_url IS NOT NULL THEN
989: BEGIN
990: SELECT MSC_E1APS_UTIL.MSC_E1APS_ODIInitialize(odi_url,2)
991: INTO ReturnStr
992: FROM dual;
993:
994: EXCEPTION
995: WHEN OTHERS THEN
996: select instr(ReturnStr,'#') into StartIndex from dual;
992: FROM dual;
993:
994: EXCEPTION
995: WHEN OTHERS THEN
996: select instr(ReturnStr,'#') into StartIndex from dual;
997: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
998:
999: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
1000: RETCODE := MSC_UTIL.G_ERROR;
993:
994: EXCEPTION
995: WHEN OTHERS THEN
996: select instr(ReturnStr,'#') into StartIndex from dual;
997: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
998:
999: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
1000: RETCODE := MSC_UTIL.G_ERROR;
1001: RETURN;
999: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
1000: RETCODE := MSC_UTIL.G_ERROR;
1001: RETURN;
1002: END;
1003: select instr(ReturnStr,'#') into StartIndex from dual;
1004: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
1005:
1006: IF(length(ErrMessage) > 0) THEN
1007: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
1000: RETCODE := MSC_UTIL.G_ERROR;
1001: RETURN;
1002: END;
1003: select instr(ReturnStr,'#') into StartIndex from dual;
1004: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
1005:
1006: IF(length(ErrMessage) > 0) THEN
1007: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
1008: RETCODE := MSC_UTIL.G_ERROR;
1189: IF odi_url IS NOT NULL THEN
1190: BEGIN
1191: SELECT MSC_E1APS_UTIL.MSC_E1APS_ODIInitialize(odi_url,2)
1192: INTO ReturnStr
1193: FROM dual;
1194:
1195: EXCEPTION
1196: WHEN OTHERS THEN
1197: select instr(ReturnStr,'#') into StartIndex from dual;
1193: FROM dual;
1194:
1195: EXCEPTION
1196: WHEN OTHERS THEN
1197: select instr(ReturnStr,'#') into StartIndex from dual;
1198: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
1199:
1200: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
1201: RETCODE := MSC_UTIL.G_ERROR;
1194:
1195: EXCEPTION
1196: WHEN OTHERS THEN
1197: select instr(ReturnStr,'#') into StartIndex from dual;
1198: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
1199:
1200: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
1201: RETCODE := MSC_UTIL.G_ERROR;
1202: RETURN ;
1340: IF odi_url IS NOT NULL THEN
1341: BEGIN
1342: SELECT MSC_E1APS_UTIL.MSC_E1APS_ODIInitialize(odi_url,2)
1343: INTO ReturnStr
1344: FROM dual;
1345:
1346: EXCEPTION
1347: WHEN OTHERS THEN
1348: select instr(ReturnStr,'#') into StartIndex from dual;
1344: FROM dual;
1345:
1346: EXCEPTION
1347: WHEN OTHERS THEN
1348: select instr(ReturnStr,'#') into StartIndex from dual;
1349: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
1350:
1351: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
1352: RETCODE := MSC_UTIL.G_ERROR;
1345:
1346: EXCEPTION
1347: WHEN OTHERS THEN
1348: select instr(ReturnStr,'#') into StartIndex from dual;
1349: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
1350:
1351: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
1352: RETCODE := MSC_UTIL.G_ERROR;
1353: RETURN;
1524: IF odi_url IS NOT NULL THEN
1525: BEGIN
1526: SELECT MSC_E1APS_UTIL.MSC_E1APS_ODIInitialize(odi_url,2)
1527: INTO ReturnStr
1528: FROM dual;
1529:
1530: EXCEPTION
1531: WHEN OTHERS THEN
1532: select instr(ReturnStr,'#') into StartIndex from dual;
1528: FROM dual;
1529:
1530: EXCEPTION
1531: WHEN OTHERS THEN
1532: select instr(ReturnStr,'#') into StartIndex from dual;
1533: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
1534:
1535: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
1536: RETCODE := MSC_UTIL.G_ERROR;
1529:
1530: EXCEPTION
1531: WHEN OTHERS THEN
1532: select instr(ReturnStr,'#') into StartIndex from dual;
1533: select substr(ReturnStr,StartIndex+1,1800) into ErrMessage from dual;
1534:
1535: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Intialization failed. Error message' || ErrMessage);
1536: RETCODE := MSC_UTIL.G_ERROR;
1537: RETURN;