Stproc built in package

Question

Hello All,
We are using an ancient version of report writer i.e. 2.5! I have got a very old report to modify which is accessing a stored package procedure. The procedure had to be modified to accept one more parameter. Now the report does not compile. That is because the form has a local package definition with the same package name. The local version seems to have been generated by stproc built in package of report writer. It does not seem to have any business logic but some kind of "interface" with the RDBMS package. If the local version is dropped the report still does not compile (Though there is only one reference to the package in the entire report).
Modifying the local version of the package to match the changes in RDBMS is extremely painful, as it seems to be generated code, which has entire code of one page in just "one line", wrapped around (see attached). Finally we managed to change it and got the form working. Oracle documentation seems to have not much about stproc except that "it is internal and should not be used".
What I need to know is
1. Are there situations where such "interface local version" is necessary. If not why dropping local version is causing problems?
2. How can this local version be updated without manual intervention to synchronize with modified RDBMS package?
Thanks in Advance,
NAG

Answer 1

Sorry, missed the attachment mentioned above.
The local package spec & body are as follows -
package PKG_SAS_UTILS is function DF_GET_ADDRESS (P_ADD_REFNO NUMBER) return CHAR; function DF_GET_NAME (P_PEO_REFNO INTEGER) return CHAR; procedure DP_CREATE_KCS (P_SESSION_ID CHAR, P_ALE_REFNO CHAR, P_APP_REFNO NUMBER, P_AREA_CODE CHAR); procedure DP_CREATE_PRA (P_SREV_ID NUMBER, P_SREV_HRV_STATUS CHAR, P_DOMAIN CHAR, P_CODE CHAR); function DF_APP_FILE_REF (P_APP_REFNO NUMBER) return CHAR; function DF_GET_SYS_PARAM (P_PARAM_CODE CHAR) return CHAR; function DF_APP_APPROVED_DATE (P_APP_REFNO NUMBER, P_HRV_APPLCAT CHAR) return DATE; function DF_GET_TEAM (P_ADD_REFNO NUMBER) return CHAR; function DF_APP_ADDRESS (P_APP_REFNO NUMBER, P_TYPE CHAR) return CHAR; function DF_APP_NAME (P_APP_REFNO NUMBER) return CHAR; function DF_GET_DSP_SCODES (P_STATUS_CODE CHAR) return CHAR; procedure DP_LENGTH_OF_ASSIST (P_APP_REFNO NUMBER, P_RLI_CODE CHAR, P_NO_DAYS out NUMBER, P_TOT_AMT out NUMBER, p_date_till in date); end;
package body PKG_SAS_UTILS is function DF_GET_ADDRESS (P_ADD_REFNO NUMBER) return CHAR is X0 CHAR(2000); begin stproc.init('begin :X0 := PKG_SAS_UTILS.DF_GET_ADDRESS(:P_ADD_REFNO); end;'); stproc.bind_o(X0); stproc.bind_i(P_ADD_REFNO); stproc.execute; stproc.retrieve(1, X0); return X0; end; function DF_GET_NAME (P_PEO_REFNO INTEGER) return CHAR is X0 CHAR(2000); begin stproc.init('begin :X0 := PKG_SAS_UTILS.DF_GET_NAME(:P_PEO_REFNO); end;'); stproc.bind_o(X0); stproc.bind_i(P_PEO_REFNO); stproc.execute; stproc.retrieve(1, X0); return X0; end; procedure DP_CREATE_KCS (P_SESSION_ID CHAR, P_ALE_REFNO CHAR, P_APP_REFNO NUMBER, P_AREA_CODE CHAR) is begin stproc.init('begin PKG_SAS_UTILS.DP_CREATE_KCS(:P_SESSION_ID, :P_ALE_REFNO, :P_APP_REFNO, :P_AREA_CODE); end;'); stproc.bind_i(P_SESSION_ID); stproc.bind_i(P_ALE_REFNO); stproc.bind_i(P_APP_REFNO); stproc.bind_i(P_AREA_CODE); stproc.execute; end; procedure DP_CREATE_PRA (P_SREV_ID NUMBER, P_SREV_HRV_STATUS CHAR, P_DOMAIN CHAR, P_CODE CHAR) is begin stproc.init('begin PKG_SAS_UTILS.DP_CREATE_PRA(:P_SREV_ID, :P_SREV_HRV_STATUS, :P_DOMAIN, :P_CODE); end;'); stproc.bind_i(P_SREV_ID); stproc.bind_i(P_SREV_HRV_STATUS); stproc.bind_i(P_DOMAIN); stproc.bind_i(P_CODE); stproc.execute; end; function DF_APP_FILE_REF (P_APP_REFNO NUMBER) return CHAR is X0 CHAR(2000); begin stproc.init('begin :X0 := PKG_SAS_UTILS.DF_APP_FILE_REF(:P_APP_REFNO); end;'); stproc.bind_o(X0); stproc.bind_i(P_APP_REFNO); stproc.execute; stproc.retrieve(1, X0); return X0; end; function DF_GET_SYS_PARAM (P_PARAM_CODE CHAR) return CHAR is X0 CHAR(2000); begin stproc.init('begin :X0 := PKG_SAS_UTILS.DF_GET_SYS_PARAM(:P_PARAM_CODE); end;'); stproc.bind_o(X0); stproc.bind_i(P_PARAM_CODE); stproc.execute; stproc.retrieve(1, X0); return X0; end; function DF_APP_APPROVED_DATE (P_APP_REFNO NUMBER, P_HRV_APPLCAT CHAR) return DATE is X0 DATE; begin stproc.init('begin :X0 := PKG_SAS_UTILS.DF_APP_APPROVED_DATE(:P_APP_REFNO, :P_HRV_APPLCAT); end;'); stproc.bind_o(X0); stproc.bind_i(P_APP_REFNO); stproc.bind_i(P_HRV_APPLCAT); stproc.execute; stproc.retrieve(1, X0); return X0; end; function DF_GET_TEAM (P_ADD_REFNO NUMBER) return CHAR is X0 CHAR(2000); begin stproc.init('begin :X0 := PKG_SAS_UTILS.DF_GET_TEAM(:P_ADD_REFNO); end;'); stproc.bind_o(X0); stproc.bind_i(P_ADD_REFNO); stproc.execute; stproc.retrieve(1, X0); return X0; end; function DF_APP_ADDRESS (P_APP_REFNO NUMBER, P_TYPE CHAR) return CHAR is X0 CHAR(2000); begin stproc.init('begin :X0 := PKG_SAS_UTILS.DF_APP_ADDRESS(:P_APP_REFNO, :P_TYPE); end;'); stproc.bind_o(X0); stproc.bind_i(P_APP_REFNO); stproc.bind_i(P_TYPE); stproc.execute; stproc.retrieve(1, X0); return X0; end; function DF_APP_NAME (P_APP_REFNO NUMBER) return CHAR is X0 CHAR(2000); begin stproc.init('begin :X0 := PKG_SAS_UTILS.DF_APP_NAME(:P_APP_REFNO); end;'); stproc.bind_o(X0); stproc.bind_i(P_APP_REFNO); stproc.execute; stproc.retrieve(1, X0); return X0; end; function DF_GET_DSP_SCODES (P_STATUS_CODE CHAR) return CHAR is X0 CHAR(2000); begin stproc.init('begin :X0 := PKG_SAS_UTILS.DF_GET_DSP_SCODES(:P_STATUS_CODE); end;'); stproc.bind_o(X0); stproc.bind_i(P_STATUS_CODE); stproc.execute; stproc.retrieve(1, X0); return X0; end; procedure DP_LENGTH_OF_ASSIST (P_APP_REFNO NUMBER, P_RLI_CODE CHAR, P_NO_DAYS out NUMBER, P_TOT_AMT out NUMBER, p_start_date in date) is begin stproc.init('begin PKG_SAS_UTILS.DP_LENGTH_OF_ASSIST(:P_APP_REFNO, :P_RLI_CODE, :P_NO_DAYS, :P_TOT_AMT, :p_date_till); end;'); stproc.bind_i(P_APP_REFNO); stproc.bind_i(P_RLI_CODE); stproc.bind_o(P_NO_DAYS); stproc.bind_o(P_TOT_AMT); stproc.bind_i(p_date_till); stproc.execute; stproc.retrieve(3, P_NO_DAYS); stproc.retrieve(4, P_TOT_AMT); end; end;