[Home] [Help]
19: --
20: c_default_defined constant number default 1;
21: --
22: --
23: -- Error Exceptions which can be raised by dbms_describe.describe_procedure
24: --
25: --
26: -- Specified Object does not exist
27: --
1226: --
1227: -- Local variables to catch the values returned from
1228: -- describe_procedure
1229: --
1230: l_overload dbms_describe.number_table;
1231: l_position dbms_describe.number_table;
1232: l_level dbms_describe.number_table;
1233: l_argument_name dbms_describe.varchar2_table;
1234: l_datatype dbms_describe.number_table;
1227: -- Local variables to catch the values returned from
1228: -- describe_procedure
1229: --
1230: l_overload dbms_describe.number_table;
1231: l_position dbms_describe.number_table;
1232: l_level dbms_describe.number_table;
1233: l_argument_name dbms_describe.varchar2_table;
1234: l_datatype dbms_describe.number_table;
1235: l_default_value dbms_describe.number_table;
1228: -- describe_procedure
1229: --
1230: l_overload dbms_describe.number_table;
1231: l_position dbms_describe.number_table;
1232: l_level dbms_describe.number_table;
1233: l_argument_name dbms_describe.varchar2_table;
1234: l_datatype dbms_describe.number_table;
1235: l_default_value dbms_describe.number_table;
1236: l_in_out dbms_describe.number_table;
1229: --
1230: l_overload dbms_describe.number_table;
1231: l_position dbms_describe.number_table;
1232: l_level dbms_describe.number_table;
1233: l_argument_name dbms_describe.varchar2_table;
1234: l_datatype dbms_describe.number_table;
1235: l_default_value dbms_describe.number_table;
1236: l_in_out dbms_describe.number_table;
1237: l_length dbms_describe.number_table;
1230: l_overload dbms_describe.number_table;
1231: l_position dbms_describe.number_table;
1232: l_level dbms_describe.number_table;
1233: l_argument_name dbms_describe.varchar2_table;
1234: l_datatype dbms_describe.number_table;
1235: l_default_value dbms_describe.number_table;
1236: l_in_out dbms_describe.number_table;
1237: l_length dbms_describe.number_table;
1238: l_precision dbms_describe.number_table;
1231: l_position dbms_describe.number_table;
1232: l_level dbms_describe.number_table;
1233: l_argument_name dbms_describe.varchar2_table;
1234: l_datatype dbms_describe.number_table;
1235: l_default_value dbms_describe.number_table;
1236: l_in_out dbms_describe.number_table;
1237: l_length dbms_describe.number_table;
1238: l_precision dbms_describe.number_table;
1239: l_scale dbms_describe.number_table;
1232: l_level dbms_describe.number_table;
1233: l_argument_name dbms_describe.varchar2_table;
1234: l_datatype dbms_describe.number_table;
1235: l_default_value dbms_describe.number_table;
1236: l_in_out dbms_describe.number_table;
1237: l_length dbms_describe.number_table;
1238: l_precision dbms_describe.number_table;
1239: l_scale dbms_describe.number_table;
1240: l_radix dbms_describe.number_table;
1233: l_argument_name dbms_describe.varchar2_table;
1234: l_datatype dbms_describe.number_table;
1235: l_default_value dbms_describe.number_table;
1236: l_in_out dbms_describe.number_table;
1237: l_length dbms_describe.number_table;
1238: l_precision dbms_describe.number_table;
1239: l_scale dbms_describe.number_table;
1240: l_radix dbms_describe.number_table;
1241: l_spare dbms_describe.number_table;
1234: l_datatype dbms_describe.number_table;
1235: l_default_value dbms_describe.number_table;
1236: l_in_out dbms_describe.number_table;
1237: l_length dbms_describe.number_table;
1238: l_precision dbms_describe.number_table;
1239: l_scale dbms_describe.number_table;
1240: l_radix dbms_describe.number_table;
1241: l_spare dbms_describe.number_table;
1242:
1235: l_default_value dbms_describe.number_table;
1236: l_in_out dbms_describe.number_table;
1237: l_length dbms_describe.number_table;
1238: l_precision dbms_describe.number_table;
1239: l_scale dbms_describe.number_table;
1240: l_radix dbms_describe.number_table;
1241: l_spare dbms_describe.number_table;
1242:
1243: --
1236: l_in_out dbms_describe.number_table;
1237: l_length dbms_describe.number_table;
1238: l_precision dbms_describe.number_table;
1239: l_scale dbms_describe.number_table;
1240: l_radix dbms_describe.number_table;
1241: l_spare dbms_describe.number_table;
1242:
1243: --
1244: -- Variable to store the parameter table passed out from the call to
1237: l_length dbms_describe.number_table;
1238: l_precision dbms_describe.number_table;
1239: l_scale dbms_describe.number_table;
1240: l_radix dbms_describe.number_table;
1241: l_spare dbms_describe.number_table;
1242:
1243: --
1244: -- Variable to store the parameter table passed out from the call to
1245: -- populate_parameter_table
1340: end if;
1341:
1342: if (l_debug = 1) then
1343: trace(l_proc||' Passed Progress :'|| l_prog);
1344: trace(l_proc||' Before Calling dbms_describe.describe_procedure...', 4);
1345: end if;
1346:
1347: l_prog := 53.4;
1348:
1345: end if;
1346:
1347: l_prog := 53.4;
1348:
1349: dbms_describe.describe_procedure(
1350: object_name => l_object_name
1351: , reserved1 => null
1352: , reserved2 => null
1353: , overload => l_overload
1418:
1419: l_prog := 53.5;
1420: if (l_debug = 1) then
1421: trace(l_proc|| ' Passed Progress :'|| l_prog);
1422: trace(l_proc|| ' After Calling dbms_describe.describe_procedure...', 4);
1423: end if;
1424: exception
1425: when Package_Not_Exists then
1426: -- Error: The call_package does not exist in the database. Code to
1733: --
1734: -- Local variables to catch the values returned from
1735: -- describe_procedure
1736: --
1737: l_overload dbms_describe.number_table;
1738: l_position dbms_describe.number_table;
1739: l_level dbms_describe.number_table;
1740: l_argument_name dbms_describe.varchar2_table;
1741: l_datatype dbms_describe.number_table;
1734: -- Local variables to catch the values returned from
1735: -- describe_procedure
1736: --
1737: l_overload dbms_describe.number_table;
1738: l_position dbms_describe.number_table;
1739: l_level dbms_describe.number_table;
1740: l_argument_name dbms_describe.varchar2_table;
1741: l_datatype dbms_describe.number_table;
1742: l_default_value dbms_describe.number_table;
1735: -- describe_procedure
1736: --
1737: l_overload dbms_describe.number_table;
1738: l_position dbms_describe.number_table;
1739: l_level dbms_describe.number_table;
1740: l_argument_name dbms_describe.varchar2_table;
1741: l_datatype dbms_describe.number_table;
1742: l_default_value dbms_describe.number_table;
1743: l_in_out dbms_describe.number_table;
1736: --
1737: l_overload dbms_describe.number_table;
1738: l_position dbms_describe.number_table;
1739: l_level dbms_describe.number_table;
1740: l_argument_name dbms_describe.varchar2_table;
1741: l_datatype dbms_describe.number_table;
1742: l_default_value dbms_describe.number_table;
1743: l_in_out dbms_describe.number_table;
1744: l_length dbms_describe.number_table;
1737: l_overload dbms_describe.number_table;
1738: l_position dbms_describe.number_table;
1739: l_level dbms_describe.number_table;
1740: l_argument_name dbms_describe.varchar2_table;
1741: l_datatype dbms_describe.number_table;
1742: l_default_value dbms_describe.number_table;
1743: l_in_out dbms_describe.number_table;
1744: l_length dbms_describe.number_table;
1745: l_precision dbms_describe.number_table;
1738: l_position dbms_describe.number_table;
1739: l_level dbms_describe.number_table;
1740: l_argument_name dbms_describe.varchar2_table;
1741: l_datatype dbms_describe.number_table;
1742: l_default_value dbms_describe.number_table;
1743: l_in_out dbms_describe.number_table;
1744: l_length dbms_describe.number_table;
1745: l_precision dbms_describe.number_table;
1746: l_scale dbms_describe.number_table;
1739: l_level dbms_describe.number_table;
1740: l_argument_name dbms_describe.varchar2_table;
1741: l_datatype dbms_describe.number_table;
1742: l_default_value dbms_describe.number_table;
1743: l_in_out dbms_describe.number_table;
1744: l_length dbms_describe.number_table;
1745: l_precision dbms_describe.number_table;
1746: l_scale dbms_describe.number_table;
1747: l_radix dbms_describe.number_table;
1740: l_argument_name dbms_describe.varchar2_table;
1741: l_datatype dbms_describe.number_table;
1742: l_default_value dbms_describe.number_table;
1743: l_in_out dbms_describe.number_table;
1744: l_length dbms_describe.number_table;
1745: l_precision dbms_describe.number_table;
1746: l_scale dbms_describe.number_table;
1747: l_radix dbms_describe.number_table;
1748: l_spare dbms_describe.number_table;
1741: l_datatype dbms_describe.number_table;
1742: l_default_value dbms_describe.number_table;
1743: l_in_out dbms_describe.number_table;
1744: l_length dbms_describe.number_table;
1745: l_precision dbms_describe.number_table;
1746: l_scale dbms_describe.number_table;
1747: l_radix dbms_describe.number_table;
1748: l_spare dbms_describe.number_table;
1749:
1742: l_default_value dbms_describe.number_table;
1743: l_in_out dbms_describe.number_table;
1744: l_length dbms_describe.number_table;
1745: l_precision dbms_describe.number_table;
1746: l_scale dbms_describe.number_table;
1747: l_radix dbms_describe.number_table;
1748: l_spare dbms_describe.number_table;
1749:
1750: l_proc varchar2(72) := 'CREATE_DELETE_API_CALL :';
1743: l_in_out dbms_describe.number_table;
1744: l_length dbms_describe.number_table;
1745: l_precision dbms_describe.number_table;
1746: l_scale dbms_describe.number_table;
1747: l_radix dbms_describe.number_table;
1748: l_spare dbms_describe.number_table;
1749:
1750: l_proc varchar2(72) := 'CREATE_DELETE_API_CALL :';
1751: l_prog float;
1744: l_length dbms_describe.number_table;
1745: l_precision dbms_describe.number_table;
1746: l_scale dbms_describe.number_table;
1747: l_radix dbms_describe.number_table;
1748: l_spare dbms_describe.number_table;
1749:
1750: l_proc varchar2(72) := 'CREATE_DELETE_API_CALL :';
1751: l_prog float;
1752:
1922: if (l_debug = 1) then
1923: trace(l_proc||' Passed Progress :'|| l_prog);
1924: trace(l_proc||' Within the if condition where the called package/procedure derived and passed in does not match...');
1925: trace(l_proc||' This combination does not exist and hence proceed with the Registration process.......', 4);
1926: trace(l_proc||' Before Calling dbms_describe.describe_procedure...', 4);
1927: end if;
1928:
1929: --
1930: -- Check if the call procedure exists in the call package in the database
1930: -- Check if the call procedure exists in the call package in the database
1931: -- and if the package is valid. if the call package is invalid, try compiling
1932: -- it once, If successful proceed with the registration otherwise abort operation.
1933: l_prog := 51;
1934: dbms_describe.describe_procedure(
1935: object_name => p_call_package || '.' || p_call_procedure
1936: , reserved1 => null
1937: , reserved2 => null
1938: , overload => l_overload
1991: --
1992: raise Invalid_package;
1993: end;
1994: --
1995: -- DBMS_DESCRIBE.DESCRIBE_PROCEDURE succeeded so exit the loop.
1996: --
1997: end if;
1998:
1999: -- Validate the signature of the call procedure before inserting records in the