18: reportClob OUT NOCOPY CLOB) IS
19:
20: reportStr LONG;
21: counter NUMBER;
22: dummy_v2t JTF_DIAGNOSTIC_COREAPI.v2t;
23: c_userid VARCHAR2(50);
24: statusStr VARCHAR2(50);
25: errStr VARCHAR2(4000);
26: fixInfo VARCHAR2(4000);
36: BEGIN
37:
38: JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
39: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
40: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
41: --JTF_DIAGNOSTIC_COREAPI.line_out('this also writes to the clob');
42:
43: row_limit := INV_DIAG_GRP.g_max_row;
44:
37:
38: JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
39: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
40: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
41: --JTF_DIAGNOSTIC_COREAPI.line_out('this also writes to the clob');
42:
43: row_limit := INV_DIAG_GRP.g_max_row;
44:
45: l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrgId',inputs);
108: ELSE
109: sqltxt := sqltxt || ' AND ROWNUM < ' || row_limit ;
110: END IF;
111:
112: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'Dump of Move order headers (MTL_TXN_REQUEST_HEADERS)');
113:
114: ELSIF l_script = 'MTRL_DUMP' THEN
115: sqltxt := ' SELECT '||
116: ' MTRL.LINE_ID,' ||
218: END IF;
219:
220: END IF;
221:
222: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'Dump of Move Order Lines');
223:
224: ELSE
225: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,'Please execute the report with Script Name');
226: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '|| 'Invalid Script Name');
222: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'Dump of Move Order Lines');
223:
224: ELSE
225: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,'Please execute the report with Script Name');
226: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '|| 'Invalid Script Name');
227: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please choose correct Script Name');
228: statusStr := 'FAILURE';
229: errStr := 'Invalid Script Name';
230: fixInfo := 'Please choose correct Script Name';
223:
224: ELSE
225: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,'Please execute the report with Script Name');
226: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '|| 'Invalid Script Name');
227: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please choose correct Script Name');
228: statusStr := 'FAILURE';
229: errStr := 'Invalid Script Name';
230: fixInfo := 'Please choose correct Script Name';
231: isFatal := 'FALSE';
241: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
242:
243: EXCEPTION
244: when others then
245: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
246: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
247: statusStr := 'FAILURE';
248: errStr := sqlerrm ||' occurred in script Exception handled';
249: fixInfo := 'Unexpected Exception in INVDM05B.pls';
242:
243: EXCEPTION
244: when others then
245: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
246: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
247: statusStr := 'FAILURE';
248: errStr := sqlerrm ||' occurred in script Exception handled';
249: fixInfo := 'Unexpected Exception in INVDM05B.pls';
250: isFatal := 'FALSE';