The following lines contain the word 'select', 'insert', 'update' or 'delete':
sql_cnd := 'select INSTR('''||ws_prf||''','''||srch_str||''') from dual';
SELECT instr(soap_respond,'')
INTO StartIndex
FROM dual;
SELECT instr(soap_respond,'')
INTO EndIndex
FROM dual;
SELECT SUBSTR(soap_respond,StartIndex+8,EndIndex-(StartIndex+8))
INTO returnStr
FROM dual;
sql_cnd := 'select INSTR('''||ws_prf||''','''||srch_str||''') from dual';
SELECT instr(soap_respond,'')
INTO StartIndex
FROM dual;
SELECT instr(soap_respond,'')
INTO EndIndex
FROM dual;
SELECT SUBSTR(soap_respond,StartIndex+8,EndIndex-(StartIndex+8))
INTO returnStr
FROM dual;
SELECT instr(returnStr,'#')
INTO StartIndex
FROM dual;
SELECT SUBSTR(returnStr,0,StartIndex-1)
INTO SessionNum
FROM dual;
SELECT SUBSTR(returnStr,StartIndex+1,1800)
INTO ErrMessage
FROM dual;
--****UPDATEVARIABLE****
BEGIN
--11g Web Logic SOAP Request
soap_request:= ''
||'UPDATEVARIABLE 001 '
||'E1TOAPSPROJECT.PVD_BASE_DATE='||BaseDate ||' /env:Body> ';
SELECT instr(soap_respond,'')
INTO StartIndex
FROM dual;
SELECT instr(soap_respond,'')
INTO EndIndex
FROM dual;
SELECT SUBSTR(soap_respond,StartIndex+8,EndIndex-(StartIndex+8))
INTO returnStr
FROM dual;
SELECT instr(returnStr,'#')
INTO StartIndex
FROM dual;
SELECT SUBSTR(returnStr,0,StartIndex-1)
INTO SessionNum
FROM dual;
SELECT SUBSTR(returnStr,StartIndex+1,1800)
INTO ErrMessage
FROM dual;
||'UPDATEVARIABLE'
||'#ODI Session No.#Error Message='
||returnStr;
||'UPDATEVARIABLE'
||'#ODI Session No.#Error Message='
||returnStr;
MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'UPDATE VARIABLE FAILED. Session # ' || SessionNum);
||'UPDATEVARIABLE'
||'#ODI Session No.#Error Message=-1#Error in execution of ODI Scenario. Please check Application Server Log.';
SELECT instr(soap_respond,'')
INTO StartIndex
FROM dual;
SELECT instr(soap_respond,'')
INTO EndIndex
FROM dual;
SELECT SUBSTR(soap_respond,StartIndex+8,EndIndex-(StartIndex+8))
INTO returnStr
FROM dual;
SELECT instr(returnStr,'#')
INTO StartIndex
FROM dual;
SELECT SUBSTR(returnStr,0,StartIndex-1)
INTO SessionNum
FROM dual;
SELECT SUBSTR(returnStr,StartIndex+1,1800)
INTO ErrMessage
FROM dual;
l_sql := 'select user_name, password from '
||dem_schema
||'.user_id where user_id = '
||l_user_id;
l_sql := 'select user_name, password from '
||dem_schema
||'.user_id where user_id = '
||l_user_id;
l_sql := 'SELECT
utl_http.request('''
||l_url
||'/WorkflowServer?action=run_proc&user='
||l_user_name
||'&password='
||l_password
||'&schema='
|| REPLACE(l_schema_name, ' ', '%20')
||'&sync=no'') FROM dual';
v_sql := 'select status from '
|| g_demantra_schema
|| '.wf_process_log'
|| ' where '
|| ' process_id '
|| '='
|| ret_process_id;
x_sql := 'select sess_no,sess_status from snp_session@'|| DbLink||
' where scen_name= '''||scenario_name||''' and rownum=1 order by sess_no desc ';
x_sql := 'select sess_no,sess_status from snp_session
where scen_name= '''||scenario_name||'''
and rownum=1 order by sess_no desc ';
/* Procedure to Update Trading Partner Site Code bug#9757888*/
PROCEDURE UPDATE_TP_SITE_CODE(errbuf OUT NOCOPY VARCHAR2,
retcode OUT NOCOPY VARCHAR2,
parInstanceID IN VARCHAR2,
updateFlag IN NUMBER )
IS
lv_sql_stmt VARCHAR2(2000);
SELECT NVL(count(1),0) into x_table_presence
FROM dba_tables
WHERE owner = owner AND table_name = 'MDP_MATRIX';
IF (updateFlag = MSC_UTIL.SYS_NO) THEN
IF (fnd_profile.value('MSD_DEM_SCHEMA') IS NOT NULL AND x_table_presence > 0) THEN
x_dem_schema := fnd_profile.value('MSD_DEM_SCHEMA');
select attribute15 into e1_instance_name from msc_apps_instances
where instance_id = parInstanceID;
IF updateFlag = MSC_UTIL.SYS_YES THEN
-- TO Update TP_SITE_CODE to BILL_TO
lv_sql_stmt :=
'UPDATE msc_trading_partner_sites '
||' SET TP_SITE_CODE = ''BILL_TO'' '
||' WHERE partner_type = ' || MSC_CL_PRE_PROCESS.G_CUSTOMER
||' AND sr_instance_id = ' || parInstanceID
||' AND partner_address like ''E1_BILL_TO%''';
'UPDATE msc_trading_partner_sites '
||' SET TP_SITE_CODE = ''SHIP_TO'' '
||' WHERE partner_type = ' || MSC_CL_PRE_PROCESS.G_CUSTOMER
||' AND sr_instance_id = ' || parInstanceID
||' AND partner_address not like ''E1_BILL_TO%'''; -- Removed comment for bug# 12558193
ELSIF updateFlag = MSC_UTIL.SYS_NO THEN
-- To Update TP_SITE_CODE with Location
lv_sql_stmt :=
'UPDATE msc_trading_partner_sites '
||' SET TP_SITE_CODE = LOCATION '
||' WHERE partner_type = ' || MSC_CL_PRE_PROCESS.G_CUSTOMER
||' AND sr_instance_id = ' || parInstanceID ;
errbuf := ' TP_SITE_CODE Update failed ';
END UPDATE_TP_SITE_CODE;
chk_sql := 'select err_msg from wr_execution_status@' ||DbLink|| ' where session_id = '''|| session_no || '''';
chk_sql := 'select err_msg from wr_execution_status where session_id = ''' || session_no || '''';
SELECT instr(soap_respond,'')
INTO StartIndex
FROM dual;
SELECT instr(soap_respond,'')
INTO EndIndex
FROM dual;
SELECT SUBSTR(soap_respond,StartIndex+12,EndIndex-(StartIndex+12))
INTO returnStr
FROM dual;
SELECT instr(soap_respond,'')
INTO StartIndex
FROM dual;
SELECT instr(soap_respond,'')
INTO EndIndex
FROM dual;
SELECT SUBSTR(soap_respond,StartIndex+12,EndIndex-(StartIndex+12))
INTO returnStr
FROM dual;
SELECT instr(returnStr,'#')
INTO StartIndex
FROM dual;
SELECT SUBSTR(returnStr,0,StartIndex-1)
INTO SessionNum
FROM dual;
SELECT SUBSTR(returnStr,StartIndex+1,1800)
INTO ErrMessage
FROM dual;
/*UPDATEVARIABLE*/
BEGIN
soap_request:= ''
|| ''
|| ''
|| 'UPDATEVARIABLE '
|| '001 '
|| 'E1TOAPSPROJECT.PVD_BASE_DATE='||BaseDate ||' '
|| ' '
|| ' '
||' ';
SELECT instr(soap_respond,'')
INTO StartIndex
FROM dual;
SELECT instr(soap_respond,'')
INTO EndIndex
FROM dual;
SELECT SUBSTR(soap_respond,StartIndex+12,EndIndex-(StartIndex+12))
INTO returnStr
FROM dual;
SELECT instr(returnStr,'#')
INTO StartIndex
FROM dual;
SELECT SUBSTR(returnStr,0,StartIndex-1)
INTO SessionNum
FROM dual;
SELECT SUBSTR(returnStr,StartIndex+1,1800)
INTO ErrMessage
FROM dual;
||'UPDATEVARIABLE'
||'#ODI Session No.#Error Message='
||returnStr;
||'UPDATEVARIABLE'
||'#ODI Session No.#Error Message='
||returnStr;
||'UPDATEVARIABLE'
||'#ODI Session No.#Error Message=-1#Error in execution of ODI Scenario. Please check Application Server Log.';
SELECT instr(soap_respond,'')
INTO StartIndex
FROM dual;
SELECT instr(soap_respond,'')
INTO EndIndex
FROM dual;
SELECT SUBSTR(soap_respond,StartIndex+12,EndIndex-(StartIndex+12))
INTO returnStr
FROM dual;
SELECT instr(returnStr,'#')
INTO StartIndex
FROM dual;
SELECT SUBSTR(returnStr,0,StartIndex-1)
INTO SessionNum
FROM dual;
SELECT SUBSTR(returnStr,StartIndex+1,1800)
INTO ErrMessage
FROM dual;