28:
29: BEGIN
30: JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
31: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
32: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
33:
34: l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrgId',inputs);
35:
36: sqltxt :='select mp.organization_code|| '' (''||moqd.organization_id ||'')'' "Organization|Code (Id)"' ||
57: ' moqd.inventory_item_id, moqd.subinventory_code, moqd.locator_id, moqd.lot_number, moqd.revision' ;
58:
59:
60:
61: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'Onhand without Lot number for Lot controlled Item');
62:
63: reportStr := 'The test completed as expected';
64: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
65: statusStr := 'SUCCESS';
67: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
68:
69: EXCEPTION
70: when others then
71: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
72: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
73: statusStr := 'FAILURE';
74: errStr := sqlerrm ||' occurred in script Exception handled';
75: fixInfo := 'Unexpected Exception in INVDO02B.pls';
68:
69: EXCEPTION
70: when others then
71: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
72: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
73: statusStr := 'FAILURE';
74: errStr := sqlerrm ||' occurred in script Exception handled';
75: fixInfo := 'Unexpected Exception in INVDO02B.pls';
76: isFatal := 'FALSE';