Accessing procedure in a package.

I have two procedures in a package.. I need to access them, and how am i to take the results from a VArray..
Kindly help me on this...

If you want to have access to the package, include it in your java class that you're calling the package from. For example......
package com.CustomUtils.*;
package com.CustomStrings.*

Similar Messages

To grant execute on a specific procedure in a package

is there a way to grant execute on a specific procedure in a package without granting execute to the package itself.

Case 1: If you have package function,
->Then you can create a view on it and give access to specific user.
Case 2: If you have package procedure
-> I think, there is no direct method to GRANT part of package.
-> Make GLOBAL procedure only the one that you want to grant to the user. Now if you grant the package (having few global), user only able to access the GLOBAL's only..
So how do u implement?
PACKAGE global_pkg
Procedure first_global_procedure;
Procedure second_global_procedure;
END global_pkg;
Now You create Package as per user access:
Package user_1_pkg
call first_global_procedure;
END;
Package user_2_pkg
call second_global_procedure;
END;
Now, you Grant user_1_pkg to USER1 and user_2_pkg to USER2

SSRS with Oracle Stored Procedures, Functions and Packages

Hi,
I am working on a BI project. Here we are using PowerPivot to access data from Oracle DB and generate reports. Currently Client generates Few reports using Oracle Stored Procedures, Functions and Packages. We need to move everything to PowerPivot, so
that user can generate all reports using same platform. But PowerPivot doesn'e support Oracle Stored Procedures, Functions and Packages. So we have decided to try those reports using SSRS.
I have no knowledge about using SSRS which will call Oracle function/stored procedures/packages for generating reports.
Can anybody help me in getting exact steps?
Please let me know if my question is not clear enough.
Thanks and Regards,
SS

Hi Visakh,
Thanks for the detailed steps. My next question is:
Is there any other way to develop such reports without using any development tool like Visual Studio? Our aim is to provide a self-serviced reporting platform where user don't need any technical knowledge.
I am sorry I have no knowledge about SSRS and Oracle DB.Can you please have a look at my Oracle function and let me know whether it's possible to execute this using SSRS? (I am pasting one by one as there is a character limit.
CREATE OR REPLACE TYPE obj_special_pass_cases
AS OBJECT
      CLAIM_ID    NUMBER(12),
      claim_ref_no VARCHAR2(20),
      OFFICER_NAME   VARCHAR2(201),
      SUBMIT_DT   VARCHAR2(10),
      ACC_DT   VARCHAR2(10),
      SP_ISSUE_DT   VARCHAR2(10),
      STATUS    VARCHAR2(30),
      SUB_STATUS   VARCHAR2(30),
      STATUS_LAST_UPDATE_DATE VARCHAR2(10),
      SP_EXP_DT VARCHAR2(10),
      INDUSTRY_CODE VARCHAR2(8),
      EMP_SSIC VARCHAR2(8),
      rel VARCHAR2(4),
      WPNo VARCHAR2(20),
      FIN VARCHAR2(9),
      PASSPORT_NO VARCHAR2(16),
      SPNo VARCHAR2(20),
      VictimName VARCHAR2(100),
      SP_EXT_PURPOSE VARCHAR2(100),
      ISSUE_SYSTEM VARCHAR2(4),
      REPATRIATION_DATE VARCHAR2(10),
      SP_STATUS    VARCHAR2(30),
      SP_ISSUE_PURPOSE VARCHAR2(500)
CREATE OR REPLACE TYPE tbl_special_pass_cases
   AS TABLE OF obj_special_pass_cases
CREATE OR REPLACE TYPE obj_special_pass_casesNew
AS OBJECT
      CLAIM_ID    NUMBER(12),
      claim_ref_no VARCHAR2(20),
      OFFICER_NAME   VARCHAR2(201),
      SUBMIT_DT   VARCHAR2(10), /*Case Registration Date*/
      ACC_DT   VARCHAR2(10),
      SP_ISSUE_DT   VARCHAR2(10),
      calc_sp_issue_dt VARCHAR2(10),
      calc_sp_issue_dt_month VARCHAR2(2),
      calc_sp_issue_dt_year VARCHAR2(4),
      calc_Duration_Of_Stay VARCHAR2(4),
      STATUS    VARCHAR2(30),
      SUB_STATUS   VARCHAR2(30),
      STATUS_LAST_UPDATE_DATE VARCHAR2(10),
      lastUpdateDtMonth varchar2(2),
      lastUpdateDtYear varchar2(4),
      DurationOfUpdateDt VARCHAR2(4),
      SP_EXP_DT VARCHAR2(10),
      INDUSTRY_CODE VARCHAR2(8),
      EMP_SSIC VARCHAR2(8),
      rel VARCHAR2(4),
      WPNo VARCHAR2(20), /* New columns from here - SR */
      FIN VARCHAR2(9),
      PASSPORT_NO VARCHAR2(16),
      SPNo VARCHAR2(20),
      VictimName VARCHAR2(100),
      workerNationality VARCHAR2(20),
      employName VARCHAR2(200),
      reportType VARCHAR2(10),
      SP_EXT_PURPOSE VARCHAR2(100),
      ISSUE_SYSTEM VARCHAR2(4), /*IWPS, EIDS*/
      REPATRIATION_DATE VARCHAR2(10),
      SP_STATUS    VARCHAR2(30),
      SP_ISSUE_PURPOSE VARCHAR2(500)
CREATE OR REPLACE TYPE tbl_special_pass_casesNew
   AS TABLE OF obj_special_pass_casesNew
   FUNCTION getListOfSpecialPassCases(
              vRepatriationDateFrom VARCHAR2,
              vRepatriationDateTo VARCHAR2,
              vIncludeRepatriationDate VARCHAR2)
    RETURN tbl_special_pass_cases
    IS
      TYPE cur_typ IS REF CURSOR;
      SPECIAL_PASS_CASES_CUR cur_typ;
      vSQL1 VARCHAR2(4000);
      --vSQL1 VARCHAR2(4000) := 'SELECT DISTINCT(A.CLAIM_ID), A.CLAIM_REF_NO, A.STATUS, A.SUB_STATUS, A.OFFICER_NAME, A.SUBMIT_DT, A.ACC_DT, A.vLatestUpdatedDate, A.INDUSTRY_CODE, A.ID_NO, A.vWorkerName, B.vSPWPNO, B.vFIN, B.vSPPassportNo,
B.vSPIssueDate, B.vSPExpiryDate, B.vSPNo, DECODE(B.vSPExtensionPurpose,''1'',''WICB'',''2'',''RE-APPLICATION'',''3'',''POLICE'',''4'',''REPATRIATION'',''5'',''LRD'',''6'',''LATE RENEWAL'',''9'',''OTHERS'',''10'',''LATE EISSUANCE'',''13'',''FMMD'',''14'',''TMB
PENDING REPATRIATION'',''15'',''TMB REPATRIATION'',''16'',''PENDING REPATRIATION (SB-F)'',''17'',''REPATRIATION (SB-F)'') vSPExtensionPurpose, B.vIssueSystem, B.vSPActualDepartDate, B.vSPStatus, DECODE(B.vSPIssuePurpose,''1'',''WICB'',''2'',''RE-APPLICATION'',''3'',''POLICE'',''4'',''REPATRIATION'',''5'',''LRD'',''6'',''LATE
RENEWAL'',''9'',''OTHERS'',''10'',''LATE EISSUANCE'',''11'',''PENDING DOCUMENT VERIFICATION'',''12'',''LATE ERENEWAL'',''13'',''FMMD'',''14'',''TMB PENDING REPATRIATION'',''15'',''TMB REPATRIATION'',''16'',''PENDING REPATRIATION (SB-F)'',''17'',''REPATRIATION
(SB-F)'') vSPIssuePurpose FROM (SELECT vSPWPNO, vFIN, vSPPassportNo, vSPIssueDate, vSPExpiryDate, vSPNo, vSPExtensionPurpose, vIssueSystem, vSPActualDepartDate, vSPStatus, vSPIssuePurpose FROM TABLE(IOSH_WIC_EXT_INTERFACE_PKG.getIWPSActiveSpecialPass) WHERE
(vSPWPNO IS NOT NULL OR vFIN IS NOT NULL)) B JOIN (SELECT WC.CLAIM_ID CLAIM_ID, WC.CLAIM_REF_NO CLAIM_REF_NO, WC.STATUS STATUS, WC.SUB_STATUS SUB_STATUS, TAS.LAST_NAME ||'' ''|| TAS.FIRST_NAME OFFICER_NAME, to_char(trunc(IRN.SUBMIT_DT), ''dd/MM/yyyy'')
SUBMIT_DT, TO_CHAR(trunc(decode(wc.assessmt_type,''OD-PI'',EV.OD_CONSULT_DT,''OD-TI'',ev.od_consult_dt,ECASE.acc_dt)), ''dd/MM/yyyy'') ACC_DT, (SELECT TO_CHAR(MAX(WCS.STATUS_START_DT), ''dd/MM/yyyy'') STATUS_LAST_UPDATE_DATE FROM WIC_CLAIM_STATUS WCS WHERE
WCS.CLAIM_ID=WC.CLAIM_ID) vLatestUpdatedDate, EC.INDUSTRY_CODE INDUSTRY_CODE, EP.ID_NO ID_NO, EP.NAME vWorkerName FROM EVENT_PERSON EP, WIC_CLAIMS WC, TBL_AA_SUBJECT TAS, EVENT_COMPANY EC,EVENT_CASE ECASE,event_victim ev WHERE EP.ID_NO IS NOT NULL AND EP.DELETE_IND
= ''F'' AND EP.INVOLVEMENT = ''VICTIM'' AND WC.EVENT_CASE_NO = EP.EVENT_CASE_NO AND WC.EVENT_PERSON_ID = EP.EVENT_PERSON_ID AND ep.event_person_id = ev.event_person_id (+) AND WC.ASSIGN_OFFICER_ID = TAS.SUBJECT_ID AND EC.EVENT_CASE_NO=WC.EVENT_CASE_NO AND
EC.INVOLVEMENT in (''EMPLOYER'',''EMPLOYER_OCCUPIER'') AND ECASE.EVENT_CASE_NO=WC.EVENT_CASE_NO AND EC.DELETE_IND = ''F'') A ON (B.vFIN = A.ID_NO OR B.vSPPassportNo = A.ID_NO)';
      vSQL2 VARCHAR2(4000);
      --vSQL2 VARCHAR2(4000) := 'SELECT DISTINCT(A.CLAIM_ID),A.CLAIM_REF_NO,A.STATUS,A.SUB_STATUS,A.OFFICER_NAME,A.SUBMIT_DT,A.ACC_DT,A.vLatestUpdatedDate,A.INDUSTRY_CODE,A.ID_NO,A.vWorkerName,B.vSPWPNO,B.vFIN,B.vSPPassportNo,B.vSPIssueDate,B.vSPExpiryDate,B.vSPNo,DECODE(B.vSPExtensionPurpose,''1'',''WICB'',''2'',''RE-APPLICATION'',''3'',''POLICE'',''4'',''REPATRIATION'',''5'',''LRD'',''6'',''LATE
RENEWAL'',''9'',''OTHERS'',''10'',''LATE EISSUANCE'',''13'',''FMMD'',''14'',''TMB PENDING REPATRIATION'',''15'',''TMB REPATRIATION'',''16'',''PENDING REPATRIATION (SB-F)'',''17'',''REPATRIATION (SB-F)'') vSPExtensionPurpose,B.vIssueSystem,B.vSPActualDepartDate,B.vSPStatus,DECODE(B.vSPIssuePurpose,''1'',''WICB'',''2'',''RE-APPLICATION'',''3'',''POLICE'',''4'',''REPATRIATION'',''5'',''LRD'',''6'',''LATE
RENEWAL'',''9'',''OTHERS'',''10'',''LATE EISSUANCE'',''11'',''PENDING DOCUMENT VERIFICATION'',''12'',''LATE ERENEWAL'',''13'',''FMMD'',''14'',''TMB PENDING REPATRIATION'',''15'',''TMB REPATRIATION'',''16'',''PENDING REPATRIATION (SB-F)'',''17'',''REPATRIATION
(SB-F)'') vSPIssuePurpose FROM (SELECT vSPWPNO,vFIN,vSPPassportNo,vSPIssueDate,vSPExpiryDate,vSPNo,vSPExtensionPurpose,vIssueSystem,vSPActualDepartDate,vSPStatus,vSPIssuePurpose FROM TABLE(IOSH_WIC_EXT_INTERFACE_PKG.getIWPSDepartedSpecialPass(''' || vRepatriationDateFrom
|| ''', ''' || vRepatriationDateTo || ''')) WHERE (vSPWPNO IS NOT NULL OR vFIN IS NOT NULL)) B JOIN (SELECT WC.CLAIM_ID CLAIM_ID, WC.CLAIM_REF_NO CLAIM_REF_NO, WC.STATUS STATUS,WC.SUB_STATUS SUB_STATUS, TAS.LAST_NAME ||'' ''|| TAS.FIRST_NAME OFFICER_NAME,
to_char(trunc(IRN.SUBMIT_DT), ''dd/MM/yyyy'') SUBMIT_DT,TO_CHAR(trunc(decode(wc.assessmt_type,''OD-PI'',EV.OD_CONSULT_DT,''OD-TI'',ev.od_consult_dt,ECASE.acc_dt)), ''dd/MM/yyyy'') ACC_DT, (SELECT TO_CHAR(MAX(WCS.STATUS_START_DT), ''dd/MM/yyyy'') STATUS_LAST_UPDATE_DATE
FROM WIC_CLAIM_STATUS WCS WHERE WCS.CLAIM_ID=WC.CLAIM_ID) vLatestUpdatedDate, EC.INDUSTRY_CODE INDUSTRY_CODE, EP.ID_NO ID_NO, EP.NAME vWorkerName FROM EVENT_PERSON EP, WIC_CLAIMS WC, TBL_AA_SUBJECT TAS, EVENT_COMPANY EC,EVENT_CASE ECASE, IR_NOTIFICATION IRN,event_victim
ev WHERE EP.ID_NO IS NOT NULL AND EP.DELETE_IND = ''F'' AND EP.INVOLVEMENT = ''VICTIM'' AND WC.EVENT_CASE_NO = EP.EVENT_CASE_NO AND WC.EVENT_PERSON_ID = EP.EVENT_PERSON_ID and ep.event_person_id = ev.event_person_id (+) AND WC.ASSIGN_OFFICER_ID = TAS.SUBJECT_ID
AND EC.EVENT_CASE_NO=WC.EVENT_CASE_NO AND EC.INVOLVEMENT in (''EMPLOYER'',''EMPLOYER_OCCUPIER'') AND ECASE.EVENT_CASE_NO=WC.EVENT_CASE_NO AND IRN.REF_NO(+) = ECASE.IR_REF_NO AND IRN.SUBMIT_TYPE IN (''SI'',''SE'') AND EC.DELETE_IND = ''F'') A ON (B.vFIN = A.ID_NO
OR B.vSPPassportNo = A.ID_NO)';
      SPECIAL_PASS_CASES_TBL tbl_special_pass_cases := tbl_special_pass_cases();
   cursor sp_pass_settle_cur is
   SELECT DISTINCT (A.CLAIM_ID),
                A.CLAIM_REF_NO,
                A.STATUS,
                A.SUB_STATUS,
                A.OFFICER_NAME,
                A.SUBMIT_DT,
                A.ACC_DT,
                A.vLatestUpdatedDate,
                A.INDUSTRY_CODE,
                A.ID_NO,
                A.vWorkerName,
                B.vSPWPNO,
                B.vFIN,
                B.vSPPassportNo,
                B.vSPIssueDate,
                B.vSPExpiryDate,
                B.vSPNo,
                DECODE(B.vSPExtensionPurpose,
                       '1',
                       'WICB',
                       '2',
                       'RE - APPLICATION',
                       '3',
                       'POLICE',
                       '4',
                       'REPATRIATION',
                       '5',
                       'LRD',
                       '6',
                       'LATE RENEWAL',
                       '9',
                       'OTHERS',
                       '10',
                       'LATE EISSUANCE',
                       '13',
                       'FMMD',
                       '14',
                       'TMB PENDING REPATRIATION',
                       '15',
                       'TMB REPATRIATION',
                       '16',
                       'PENDING REPATRIATION(SB - F)',
                       '17',
                       'REPATRIATION(SB - F)') vSPExtensionPurpose,
                B.vIssueSystem,
                B.vSPActualDepartDate,
                B.vSPStatus,
                DECODE(B.vSPIssuePurpose,
                       '1',
                       'WICB',
                       '2',
                       'RE - APPLICATION',
                       '3',
                       'POLICE',
                       '4',
                       'REPATRIATION',
                       '5',
                       'LRD',
                       '6',
                       'LATE RENEWAL',
                       '9',
                       'OTHERS',
                       '10',
                       'LATE EISSUANCE',
                       '11',
                       'PENDING DOCUMENT VERIFICATION',
                       '12',
                       'LATE ERENEWAL',
                       '13',
                       'FMMD',
                       '14',
                       'TMB PENDING REPATRIATION',
                       '15',
                       'TMB REPATRIATION',
                       '16',
                       'PENDING REPATRIATION(SB - F)',
                       '17',
                       'REPATRIATION(SB - F)') vSPIssuePurpose
FROM (SELECT vSPWPNO,
               vFIN,
               vSPPassportNo,
               vSPIssueDate,
               vSPExpiryDate,
               vSPNo,
               vSPExtensionPurpose,
               vIssueSystem,
               vSPActualDepartDate,
               vSPStatus,
               vSPIssuePurpose
          FROM TABLE(IOSH_WIC_EXT_INTERFACE_PKG.getIWPSActiveSpecialPass)
         WHERE (vSPWPNO IS NOT NULL OR vFIN IS NOT NULL)) B
JOIN (SELECT WC.CLAIM_ID CLAIM_ID,
               WC.CLAIM_REF_NO CLAIM_REF_NO,
               WC.STATUS STATUS,
               WC.SUB_STATUS SUB_STATUS,
               TAS.LAST_NAME ||''|| TAS.FIRST_NAME OFFICER_NAME,
               '' SUBMIT_DT,
               TO_CHAR(trunc(decode(wc.assessmt_type,
                                    'OD-PI',
                                    EV.OD_CONSULT_DT,
                                    'OD-TI',
                                    ev.od_consult_dt,
                                    ECASE.acc_dt)),
                       'dd/MM/yyyy') ACC_DT,
               (SELECT TO_CHAR(MAX(WCS.STATUS_START_DT), 'dd/MM/yyyy') STATUS_LAST_UPDATE_DATE
                  FROM WIC_CLAIM_STATUS WCS
                 WHERE WCS.CLAIM_ID = WC.CLAIM_ID) vLatestUpdatedDate,
               EC.INDUSTRY_CODE INDUSTRY_CODE,
               EP.ID_NO ID_NO,
               EP.NAME vWorkerName
          FROM EVENT_PERSON   EP,
               WIC_CLAIMS     WC,
               TBL_AA_SUBJECT TAS,
               EVENT_COMPANY EC,
               EVENT_CASE     ECASE,
               event_victim   ev
         WHERE EP.ID_NO IS NOT NULL
           AND EP.DELETE_IND = 'F'
           AND EP.INVOLVEMENT = 'VICTIM'
           AND WC.EVENT_CASE_NO = EP.EVENT_CASE_NO
           AND WC.EVENT_PERSON_ID = EP.EVENT_PERSON_ID
           AND ep.event_person_id = ev.event_person_id(+)
           AND WC.ASSIGN_OFFICER_ID = TAS.SUBJECT_ID
           AND EC.EVENT_CASE_NO = WC.EVENT_CASE_NO
           AND EC.INVOLVEMENT in ('EMPLOYER', 'EMPLOYER_OCCUPIER')
           AND ECASE.EVENT_CASE_NO = WC.EVENT_CASE_NO
           AND EC.DELETE_IND = 'F') A ON (B.vFIN = A.ID_NO OR B.vSPPassportNo = A.ID_NO);
   sp_pass_settle_rec sp_pass_settle_cur%rowtype;
   cursor sp_details_with_dt_cur is
SELECT DISTINCT (A.CLAIM_ID),
                A.CLAIM_REF_NO,
                A.STATUS,
                A.SUB_STATUS,
                A.OFFICER_NAME,
                A.SUBMIT_DT,
                A.ACC_DT,
                A.vLatestUpdatedDate,
                A.INDUSTRY_CODE,
                A.ID_NO,
                A.vWorkerName,
                B.vSPWPNO,
                B.vFIN,
                B.vSPPassportNo,
                B.vSPIssueDate,
                B.vSPExpiryDate,
                B.vSPNo,
                DECODE(B.vSPExtensionPurpose,'1','WICB', '2','RE - APPLICATION','3','POLICE','4','REPATRIATION','5','LRD','6','LATE RENEWAL','9','OTHERS','10','LATE EISSUANCE',
                       '13','FMMD','14','TMB PENDING REPATRIATION','15','TMB REPATRIATION','16','PENDING REPATRIATION(SB - F)','17','REPATRIATION(SB
- F)') vSPExtensionPurpose,
                B.vIssueSystem,
                B.vSPActualDepartDate,
                B.vSPStatus,
                DECODE(B.vSPIssuePurpose,
                       '1','WICB','2','RE - APPLICATION','3','POLICE','4','REPATRIATION','5','LRD','6','LATE RENEWAL','9','OTHERS', '10', 'LATE EISSUANCE','11','PENDING
DOCUMENT VERIFICATION',
                       '12','LATE ERENEWAL','13','FMMD','14','TMB PENDING REPATRIATION','15','TMB REPATRIATION','16','PENDING REPATRIATION(SB - F)','17','REPATRIATION(SB
- F)') vSPIssuePurpose
FROM (SELECT vSPWPNO,
               vFIN,
               vSPPassportNo,
               vSPIssueDate,
               vSPExpiryDate,
               vSPNo,
               vSPExtensionPurpose,
               vIssueSystem,
               vSPActualDepartDate,
               vSPStatus,
               vSPIssuePurpose
          FROM TABLE(IOSH_WIC_EXT_INTERFACE_PKG.getIWPSDepartedSpecialPass(''|| vRepatriationDateFrom ||'', ''|| vRepatriationDateTo ||''))
         WHERE (vSPWPNO IS NOT NULL OR vFIN IS NOT NULL)) B
JOIN (SELECT WC.CLAIM_ID CLAIM_ID,
               WC.CLAIM_REF_NO CLAIM_REF_NO,
               WC.STATUS STATUS,
               WC.SUB_STATUS SUB_STATUS,
               TAS.LAST_NAME ||''|| TAS.FIRST_NAME OFFICER_NAME,
               to_char(trunc(IRN.SUBMIT_DT), 'dd/MM/yyyy') SUBMIT_DT,
               TO_CHAR(trunc(decode(wc.assessmt_type,
                                    'OD - PI',
                                    EV.OD_CONSULT_DT,
                                    'OD - TI',
                                    ev.od_consult_dt,
                                    ECASE.acc_dt)),
                       'dd/MM/yyyy') ACC_DT,
               (SELECT TO_CHAR(MAX(WCS.STATUS_START_DT), 'dd/MM/yyyy') STATUS_LAST_UPDATE_DATE
                  FROM WIC_CLAIM_STATUS WCS
                 WHERE WCS.CLAIM_ID = WC.CLAIM_ID) vLatestUpdatedDate,
               EC.INDUSTRY_CODE INDUSTRY_CODE,
               EP.ID_NO ID_NO,
               EP.NAME vWorkerName
          FROM EVENT_PERSON    EP,
               WIC_CLAIMS      WC,
               TBL_AA_SUBJECT TAS,
               EVENT_COMPANY   EC,
               EVENT_CASE      ECASE,
               IR_NOTIFICATION IRN,
               event_victim    ev
         WHERE EP.ID_NO IS NOT NULL
           AND EP.DELETE_IND = 'F'
           AND EP.INVOLVEMENT = 'VICTIM'
           AND WC.EVENT_CASE_NO = EP.EVENT_CASE_NO
           AND WC.EVENT_PERSON_ID = EP.EVENT_PERSON_ID
           and ep.event_person_id = ev.event_person_id(+)
           AND WC.ASSIGN_OFFICER_ID = TAS.SUBJECT_ID
           AND EC.EVENT_CASE_NO = WC.EVENT_CASE_NO
           AND EC.INVOLVEMENT in ('EMPLOYER', 'EMPLOYER_OCCUPIER')
           AND ECASE.EVENT_CASE_NO = WC.EVENT_CASE_NO
           AND IRN.REF_NO(+) = ECASE.IR_REF_NO
           AND IRN.SUBMIT_TYPE IN ('SI', 'SE')
           AND EC.DELETE_IND = 'F') A ON (B.vFIN = A.ID_NO OR B.vSPPassportNo = A.ID_NO);
     sp_details_with_dt_rec sp_details_with_dt_cur%rowtype;
      /*vSQL VARCHAR2(4000);
      vFIN VARCHAR2(9);
      vSPPassportNo VARCHAR2(16);
      vSPWPNO VARCHAR2(20);
      vSPIssueDate VARCHAR2(10);
      vSPExpiryDate VARCHAR2(10);
      vSPNo VARCHAR2(20);
      vSPExtensionPurpose VARCHAR2(100);
      vIssueSystem VARCHAR2(4);
      vSPActualDepartDate VARCHAR2(10);
      vSPStatus VARCHAR2(30);
      vSPIssuePurpose VARCHAR2(500);
      CLAIM_ID NUMBER(12);
      CLAIM_REF_NO VARCHAR2(20);
      STATUS VARCHAR2(30);
      SUB_STATUS VARCHAR2(30);
      OFFICER_NAME VARCHAR2(201);
      SUBMIT_DT VARCHAR2(10);
      ACC_DT VARCHAR2(10);
      vLatestUpdatedDate VARCHAR2(10);
      INDUSTRY_CODE VARCHAR2(8);
      ID_NO VARCHAR2(50);
      vWorkerName VARCHAR2(100);*/
    BEGIN
  if vIncludeRepatriationDate = 'Y' then
   for sp_details_with_dt_rec in sp_details_with_dt_cur
   loop
   SPECIAL_PASS_CASES_TBL.EXTEND;
   SPECIAL_PASS_CASES_TBL(SPECIAL_PASS_CASES_TBL.LAST) := obj_special_pass_cases(sp_details_with_dt_rec.CLAIM_ID,sp_details_with_dt_rec.CLAIM_REF_NO,sp_details_with_dt_rec.OFFICER_NAME,sp_details_with_dt_rec.SUBMIT_DT,sp_details_with_dt_rec.ACC_DT,sp_details_with_dt_rec.vSPIssueDate,sp_details_with_dt_rec.STATUS,sp_details_with_dt_rec.SUB_STATUS,sp_details_with_dt_rec.vLatestUpdatedDate,sp_details_with_dt_rec.vSPExpiryDate,sp_details_with_dt_rec.INDUSTRY_CODE,sp_details_with_dt_rec.INDUSTRY_CODE,'a',sp_details_with_dt_rec.vSPWPNO,sp_details_with_dt_rec.vFIN,sp_details_with_dt_rec.vSPPassportNo,sp_details_with_dt_rec.vSPNo,sp_details_with_dt_rec.vWorkerName,sp_details_with_dt_rec.vSPExtensionPurpose,sp_details_with_dt_rec.vIssueSystem,sp_details_with_dt_rec.vSPActualDepartDate,sp_details_with_dt_rec.vSPStatus,sp_details_with_dt_rec.vSPIssuePurpose);
   end loop;
  else
   for sp_pass_settle_rec in sp_pass_settle_cur
   loop
   SPECIAL_PASS_CASES_TBL.EXTEND;
   SPECIAL_PASS_CASES_TBL(SPECIAL_PASS_CASES_TBL.LAST) := obj_special_pass_cases(sp_pass_settle_rec.CLAIM_ID,sp_pass_settle_rec.CLAIM_REF_NO,sp_pass_settle_rec.OFFICER_NAME,sp_pass_settle_rec.SUBMIT_DT,sp_pass_settle_rec.ACC_DT,sp_pass_settle_rec.vSPIssueDate,sp_pass_settle_rec.STATUS,sp_pass_settle_rec.SUB_STATUS,sp_pass_settle_rec.vLatestUpdatedDate,sp_pass_settle_rec.vSPExpiryDate,sp_pass_settle_rec.INDUSTRY_CODE,sp_pass_settle_rec.INDUSTRY_CODE,'a',sp_pass_settle_rec.vSPWPNO,sp_pass_settle_rec.vFIN,sp_pass_settle_rec.vSPPassportNo,sp_pass_settle_rec.vSPNo,sp_pass_settle_rec.vWorkerName,sp_pass_settle_rec.vSPExtensionPurpose,sp_pass_settle_rec.vIssueSystem,sp_pass_settle_rec.vSPActualDepartDate,sp_pass_settle_rec.vSPStatus,sp_pass_settle_rec.vSPIssuePurpose);
   end loop;
  end if ;
    RETURN SPECIAL_PASS_CASES_TBL;
END getListOfSpecialPassCases;
Thanks,
SS

Execute procedure in a package using the caller privileges?

Is it possible to execute a procedure within a package using the privileges of the caller rather than the privileges of the package owner? So if we have a procedure that does a select, one that does an insert, and another for update and a 4th for delete, then we just want to grant execute to user X on the select procedure in the package. This is a developer request. I think I just need to tell the requestor to copy or move the procedure out of the package and into it's own procedure so that it's safe to run by user X and not grant execute on the package since I don't believe it is possible to specify what procedures in a package are granted execute since that command is a blanket for the whole package right?
Example - fails due to specifying the proc:
grant execute on scmemaname.pkgname.procname to usr;
There's no other command to do that is there?
Thanks,
Dave
Edited by: Gib on Jan 19, 2010 8:42 AM

AUTHID is at the package level ... not the individual function or procedure.
Create a second package.

Help on ORA-06550 & PLS-00363 Error while running a procedure from a packag

Greeting All,
I ran the following procedure from a package on a command line in sqlplus:
SQL> exec QUALITY_ASSURANCE.COPY_SW_RESOURCES(2009,2010,9508);Where '2009' is the old fiscal year, '2010' is the new fiscal year and '9508' is the error code passed from the calling program. But, I received the following error messages:
ERROR at line 1:
ORA-06550: line 1, column 53:
PLS-00363: expression '9508' cannot be used as an assignment target
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored
Any thoughts, suggestions and/or advice to resolve these errors.
Thanks in advance.

Orchid wrote:
Justin,
Thanks for your response and information. Yes, Theoa was correct the 3rd parameter is an OUT variable, and it is a numeric field. The procedure was called by a form as follows:
QUALITY_ASSURANCE.COPY_SW_RESOURCES(:BLK_CONTROL.FROMFY,:BLK_CONTROL.TOFY,V_ERR);But the form does not work so I am trying to isolate the problem by running the procedure by itself in sqlplus to make sure there is no problem with the procedure.
Yesterday, I was able to run the procedure in Toad for Oracle to a successful completion by providing the 3 parameters: (2009, 2010, null). Just wonder why I cannot run the same procedure with the same parameters on a command line in sqlplus as follows:
exec QUALITY_ASSURANCE.COPY_SW_RESOURCES(2009,2010,null);So, if I understand your suggestion correctly, in order to run the procedure with the 3 parameter successfully in sqlplus,
I have to declare the 3rd parameter in PL/SQL. That is to create a PL/SQL file as suggested and run the file, correct? CORRECT!

Calling a stored procedure within a package

We have a number of packages containing stored procedures. In an existing production application, we used embedded SQL in C programs to call these stored procs
e.g.
EXEC SQL EXECUTE
BEGIN owner.fees_calc.some_fee(:parm1,...);
END;
END-EXEC;
Now, I am trying to use SQLJ to call this same stored proc in the package. However, I am getting a compilation error from sqlj saying that it cannot find a stored procedure or function of that name. It works fine if I use a stored proc that is not in a package.
So how do I call a stored procedure within a package? Or is this not currently possible with sqlj?
I am also getting a warning just before the error and I'm wondering if the error is being caused by this:
Warning: You are using an Oracle JDBC driver, but connecting to a non-Oracle database. SQLJ will perform JDBC-generic SQL checking.
I am connecting to an Oracle 7.3.3 database using an Oracle 7.3.4 JDBC driver. I also tried using the Oracle 8.0.5 JDBC driver for the same database but I get the same warning message.

I used the following code to call a stored
procedure via SQLJ:
try {
#sql [iCtx] {
CALL ibs.cvs_validate.validate_port_id(:IN record_id ,:IN poe_pod_flag,:IN port_id,:OUT error_code,:OUT error_message) };
where
"ibs" is the schema
"cvs_validate" is the package
"validate_port_id" is the procedure
The code runs fine, but to get it to compile
in JDeveloper 2.0, I had to disable the "Check SQL semantics against database schema" option on the Project Properties (SQLJ) property sheet.
null

Not able to access the mx.controls package

hi,
i found a weird issue. I'm developing my application
entirely using actionscript 3 by creating "actionscript Project' in
the flex builder. I need to use the ColorPicker component which is
under mx.controls package, but to my disappointment i'm not able to
access that mx.controls package and when i forcefully use it the
compiler throws me an error, but when i create a new flex project
and create an asctionscript file, i'm able to access that
mx.controls package and also the ColorPicker class. Can anyone tell
me what the problem is?
Thanks,
Shajahan

I am having the same issue. I'm using Flex 3 and I cannot
access the mx.controls package in any actionscript project.

Display invalid pattern name while calling the procedure inside the package

Hi ,
I'am trying to call a package which is having procedure ,from JDBC in which one of the return type is Varray from the procedure.When i'am calling the procedure inside the package
from java showing invalid name pattern name.Just i'am placing the code snippet for package and calling java through package.
Package body
create or replace package body Rewards_Summary_Package as
PROCEDURE Rewards_Summary_Procedure
(v_Tot_Earned_Points OUT NUMBER, v_TOT_REDEEMED OUT NUMBER, v_TOT_PTS_EXP OUT NUMBER,
v_TOT_AVAILABLE OUT NUMBER, v_TIER_NAME OUT VARCHAR2,VA OUT t_varray,V_PR_CON_ID IN VARCHAR2) AS
v_ACCRUALED_VAL NUMBER := 0;
v_USED_VAL NUMBER := 0;
/*v_TOT_ACCRUALED_VAL NUMBER := 0;
v_TOT_USED_VAL NUMBER := 0;
V_PR_TIER_ID VARCHAR2(30);
V_PR_CON_ID VARCHAR2(30);
V_EXPIRY_DT DATE;
v_month varchar2(30);
v_date date;
v_next_month_date date;
v_TIER_NAME VARCHAR2(50);
v_TOT_AVAILABLE NUMBER := 0;
v_EARNED NUMBER := 0;
v_TOT_EARNED NUMBER := 0;
v_TOT_REDEEMED NUMBER := 0;
v_TOT_EXPIRED NUMBER := 0;
v_EARNED_TOTAL NUMBER := 0;
v_TOT_EXPIRED_MONTH NUMBER := 0;
v_TOT_PTS_EXP NUMBER := 0;
v_TOT_RDMD_CANCELLED NUMBER :=0;
v_TOT_EARNED_POINTS NUMBER :=0;*/
v_FIRST_DT DATE;
v_LAST_DT DATE;
v_MEMBER_ID VARCHAR2(30);
V_EXPIRED_VAL Number;
v_TOT_PRDPTS_RDMD NUMBER := 0;
v_TOT_PTS_RDMD NUMBER := 0;
v_CAN_ACCRUAL_POINTS NUMBER := 0;
BEGIN
/*TotalRwdPoints and Tier Name*/
SELECT TR.NAME,MEM.POINT_TYPE_A_VAL,MEM.ROW_ID INTO v_TIER_NAME,v_TOT_AVAILABLE,v_MEMBER_ID
FROM SIEBEL.S_LOY_MEMBER MEM, SIEBEL.S_LOY_TIER TR WHERE MEM.PR_DOM_TIER_ID=TR.ROW_ID
AND MEM.PR_CON_ID=V_PR_CON_ID;
vTotPrdPtsRdmd
SELECT NVL(SUM(A.VALUE),0) INTO v_TOT_PRDPTS_RDMD from SIEBEL.S_LOY_RDM_ITM A,SIEBEL.S_LOY_ATTRDEFN B
WHERE A.MEMBER_ID = v_MEMBER_ID AND A.ATTRB_DEFN_ID = B.ROW_ID AND b.INTERNAL_NAME = 'Point 1 Value' AND A.TYPE_CD='Product'
AND A.TXN_ID IS NOT NULL;
vTotPtsRdmd
SELECT NVL(SUM(A.VALUE),0) INTO v_TOT_PTS_RDMD from SIEBEL.S_LOY_RDM_ITM A,SIEBEL.S_LOY_ATTRDEFN B
WHERE A.MEMBER_ID = v_MEMBER_ID AND A.ATTRB_DEFN_ID = B.ROW_ID AND b.INTERNAL_NAME = 'Point 1 Value' AND (A.TYPE_CD='Product' or A.TYPE_CD='Transfer')
AND A.TXN_ID IS NOT NULL;
vTotRewardPtExp
SELECT NVL(SUM(A.VALUE),0) INTO v_TOT_PTS_EXP FROM SIEBEL.S_LOY_RDM_ITM A,SIEBEL.S_LOY_ATTRDEFN B
WHERE A.MEMBER_ID = v_MEMBER_ID AND A.ATTRB_DEFN_ID = B.ROW_ID AND b.INTERNAL_NAME = 'Point 1 Value' AND A.TYPE_CD='Expired'
AND a.TXN_ID IS NULL;
vCanAccrualPoints
SELECT NVL(SUM(A.ACCRUALED_VALUE),0) INTO v_CAN_ACCRUAL_POINTS from SIEBEL.S_LOY_ACRL_ITM A,SIEBEL.S_LOY_ATTRDEFN B
WHERE A.MEMBER_ID = v_MEMBER_ID AND A.ATTRIB_DEFN_ID = B.ROW_ID AND b.INTERNAL_NAME = 'Point 1 Value' AND A.TYPE_CD='Cancellation';
v_Tot_Earned_Points := v_TOT_AVAILABLE+v_TOT_PRDPTS_RDMD+v_TOT_PTS_EXP-v_CAN_ACCRUAL_POINTS;
v_TOT_REDEEMED := v_TOT_PTS_RDMD-v_CAN_ACCRUAL_POINTS;
DBMS_OUTPUT.PUT_LINE(' Total Earned: '|| v_Tot_Earned_Points || ' Total Redeemed: '|| v_TOT_REDEEMED || ' Total Expired: '|| v_TOT_PTS_EXP
|| ' Balance Points: '|| v_TOT_AVAILABLE || ' Tier Name: '|| v_TIER_NAME);
select trunc(sysdate,'MONTH') INTO v_FIRST_DT from dual;
va:= t_varray(Null,Null,Null,Null,Null,Null);
FOR a in 1 .. 6 LOOP
select trunc(last_day(v_FIRST_DT)) INTO v_LAST_DT from dual;
SELECT SUM(AI.ACCRUALED_VALUE),SUM(AI.USED_VALUE) INTO v_ACCRUALED_VAL,v_USED_VAL from SIEBEL.S_LOY_ACRL_ITM AI,SIEBEL.S_LOY_ATTRDEFN A
WHERE AI.MEMBER_ID = v_MEMBER_ID AND A.ROW_ID = AI.ATTRIB_DEFN_ID AND A.INTERNAL_NAME = 'Point 1 Value'
AND trunc(AI.EXPIRATION_DT) >= v_FIRST_DT AND trunc(AI.EXPIRATION_DT) <= v_LAST_DT;
V_EXPIRED_VAL := NVL(v_ACCRUALED_VAL-v_USED_VAL,0);
va(a):=V_EXPIRED_VAL;
v_FIRST_DT := add_months(v_FIRST_DT,1);
End loop;
END;
end;
Package declaration
create or replace package Rewards_Summary_Package as
TYPE t_varray IS VARRAY(6) OF NUMBER;
PROCEDURE Rewards_Summary_Procedure
(v_Tot_Earned_Points OUT NUMBER, v_TOT_REDEEMED OUT NUMBER, v_TOT_PTS_EXP OUT NUMBER,
v_TOT_AVAILABLE OUT NUMBER, v_TIER_NAME OUT VARCHAR2,VA OUT t_varray,V_PR_CON_ID IN VARCHAR2);
end;
java code
I had tried using java types and Oracle types
conn=SiebelServiceDatasource.getConnection(SSBConstants.REWARDS_PROP_LOG_SUFIX);
// ArrayDescriptor.TYPE_VARRAY
ocstmt=(OracleCallableStatement)conn.prepareCall(" {call REWARDS_SUMMARY_PACKAGE.REWARDS_SUMMARY_PROCEDURE(?,?,?,?,?,?,?)}");
//ocstmt=(OracleCallableStatement)conn.prepareCall(" call Test_Array(?,?)");
ocstmt.registerOutParameter(1,OracleTypes.INTEGER);
ocstmt.registerOutParameter(2,OracleTypes.INTEGER);//1-616BH
ocstmt.registerOutParameter(3,OracleTypes.INTEGER);
ocstmt.registerOutParameter(4,OracleTypes.INTEGER);
ocstmt.registerOutParameter(5,OracleTypes.VARCHAR);
ocstmt.registerOutParameter(6,OracleTypes.ARRAY,"SIEBEL.T_VARRAY");
ocstmt.setString(7,contactSiebelRowId);
ocstmt.execute();
Showing the following invalid name pattern SIEBEL.T_VARRAY
Please help
Thanks in advance
Kiran

create or replace package Rewards_Summary_Package as
TYPE t_varray IS VARRAY(6) OF NUMBER;
end;You've declared your type inside the package. You need to declare it as a SQL type, which is not part of a PL/SQL package.

Oracle stored procedure in a package

Hello,
I'm working on a Web service -> XI -> Oracle scenario.
In the receiver side I'm using JDBC Adapter to call to stored procedure.
I have stored procedure in a package.
For example: package "price_list_pk" and stored procedure "is_pl".
When I try to enter the stored procedure path to XML tags I need to separate between the package and the stored procedure with dot "." and dot is not allowed in XML tag.
I want to now if you have answer for this problem
Have other way to work with stored procedure in packages?
Elad

Hey everyone,
What Elad means is that in the XML structure of JDBC there are 2 places you define the DB\SP name:
1. Defined in the structure itself as an element name. (DT)
2. Mapped with a constant to a subelement called TABLE. (MM)
The MM shouldn't be a problem as a value can get the dot character.
But, in the DT structure, because you define here a XSD (XML structure) there is a problem naming the element with the dot character being part of the name as this character is not accepted in a XML tagname.
The right question is if anyone knows of a special XML attribute with which you could define that the element name would contain a dot character? Or else a creative way to call a Stored Procedure inside a Package despite the disabilities above?
Ben

List of procedures in a package

Hi,
Iam using oracle 11g.
is there any option to view list of procedures in a package.
all_procedures gives me list of procedures defined in package specification.
But i need list of procedures defined in package body both public and private procedures
Thanks in advance..
Edited by: user9080289 on Aug 9, 2010 5:00 AM
Edited by: user9080289 on Aug 9, 2010 5:00 AM

try this
SELECT v.owner,
       (CASE V.type
        WHEN 'FUNCTION' THEN NULL
        WHEN 'PROCEDURE' THEN NULL
        ELSE v.name
        END
       )PACKAGE_NAME ,
        UPPER(
        SUBSTR
        TRANSLATE(
        LTRIM(REPLACE(SUBSTR(ltrim(v.text),LENGTH('PROCEDURE')+1),'"',''),' '),
        '+++'
        ),---TEXT TO BE SEARCH
        1,---STARTING POSITION
        INSTR(
        TRANSLATE(
        LTRIM(REPLACE(SUBSTR(ltrim(v.text),LENGTH('PROCEDURE')+1),'"',''),' '),
        '+++'
        ||'+'
        '+'
        )-1 ---lENGTH
        )OBJECT_NAME
        TRIM(SUBSTR(ltrim(v.text),1,LENGTH('PROCEDURE')))"TYPE"
FROM dba_source v
WHERE (TRIM(ltrim(v.text)) LIKE ('FUNCTION%') OR TRIM(ltrim(v.text)) LIKE ('PROCEDURE%')) AND
      v.owner IN (your schema) AND
      v.type IN ('PACKAGE BODY')
ORDER BY V.OWNER,V.name,v.text;note:
you may not need the Translate function here, but in my place the spacing of the procedure is a little bit messy.
maybe there are other better ways than this
hope this help
Edited by: HGDBA on Aug 9, 2010 8:09 AM

How can i find start line of any functions or procedures stored in package body?

hi
how can i find start line of any functions or procedures stored in package body?
is there any way to write a query from for example user_source?
thanks

how can i find start line of any functions or procedures stored in package body?
Why? What will you do differently if a procedure starts on line 173 instead of line 254?
Tell us what PROBLEM you are trying to solve so we can help you find the best way to solve it.
If you use PL_SCOPE that info is available in the *_IDENTIFIERS views. See 'Using PL/Scope in the Advanced Dev Doc
http://docs.oracle.com/cd/B28359_01/appdev.111/b28424/adfns_plscope.htm
Try this simple sample code. The query is modified from that doc sample:
-- tell the compiler to collect the info
ALTER SESSION SET PLSCOPE_SETTINGS='IDENTIFIERS:ALL';
-- recompile the package
CREATE OR REPLACE package SCOTT.pack1 as
PROCEDURE proc1;
PROCEDURE proc2;
END;
CREATE OR REPLACE package BODY SCOTT.pack1 as
PROCEDURE proc1 IS
BEGIN
NULL;
END;
PROCEDURE proc2 IS
BEGIN
proc1;
END;
PROCEDURE proc3 IS
BEGIN
proc1;
proc2;
END;
END;
-- query the info for the package spec
WITH v AS (
SELECT    Line,
            Col,
            INITCAP(NAME) Name,
            LOWER(TYPE)   Type,
            LOWER(USAGE) Usage,
            USAGE_ID,
            USAGE_CONTEXT_ID
    FROM USER_IDENTIFIERS
      WHERE Object_Name = 'PACK1'
        AND Object_Type = 'PACKAGE'
SELECT LINE, RPAD(LPAD(' ', 2*(Level-1)) ||
                 Name, 20, '.')||' '||
                 RPAD(Type, 20)||
                 RPAD(Usage, 20)
                 IDENTIFIER_USAGE_CONTEXTS
FROM v
START WITH USAGE_CONTEXT_ID = 0
CONNECT BY PRIOR USAGE_ID = USAGE_CONTEXT_ID
ORDER SIBLINGS BY Line, Col
LINE,IDENTIFIER_USAGE_CONTEXTS
1,Pack1............... package             declaration
2, Proc1............. procedure           declaration
3, Proc2............. procedure           declaration
-- query the info for the package body - change 'PACKAGE' to 'PACKAGE BODY' in the query above
LINE,IDENTIFIER_USAGE_CONTEXTS
1,Pack1............... package             definition
2, Proc1............. procedure           definition
6, Proc2............. procedure           definition
8,    Proc1........... procedure           call
10, Proc3............. procedure           declaration
10,    Proc3........... procedure           definition
12,      Proc1......... procedure           call
13,      Proc2......... procedure           call

How to list dependencies of stored procedure in a package in oracle

hi gurus,
can any body help me to solve the below issue?
how to list dependencies of stored procedure in a package in oracle?
advanced thanks...

It sounds like you're going to have trouble because you're trying to track dependencies at a more fine-grained level than Oracle does (at least prior to 11g, which I know does finer-grained dependency tracking for columns, so there may be something that would help you there).
In Oracle, the entity is the package body. The procedure within the package does not have dependencies and does not depend on anything, it is part of the package body, which does have dependencies. You can see what tables are used by the package body via DBA_DEPENDENCIES. But if you're trying to track the dependencies for a particular procedure in a package, you'd either have to manually examine the code or you'd have to write your own PL/SQL parser.
Justin

Query for getting all function and procedure inside the packages

hi All
Please provide me Query for getting all function and procedure inside the packages
thanks

As Todd said, you can use user_arguments data dictionary or you can join user_objects and user_procedures like below to get the name of the packaged function and procedure names.
If you are looking for the packaged procedures and functions source then use user_source data dictionary
select a.object_name,a.procedure_name from user_procedures a,
user_objects b
where a.object_name is not null
and a.procedure_name is not null
and b.object_type='PACKAGE'
and a.object_name=b.object_name

Searching strings in procedures, function and packages (OWB)

Hi all,
I'm working on an OMB script to look for a string in procedures, function and packages in OWB. So far, I found how to do it for functions and procedures:
string match -nocase \*text_to_find* [OMBRETRIEVE FUNCTION 'my_function' GET PROPERTIES(IMPLEMENTATION)]
string match -nocase \*text_to_find* [OMBRETRIEVE PROCEDURE 'my_procedure' GET PROPERTIES(IMPLEMENTATION)]
I have tried something similar for packages but it didn't work. Does someone know how to do this search in packages? Any help will be appreciated.
Regards,
Mauricio

Of course, if you are looking for a match in any source - including procedures and packages not imported into OWB, then OMB+ isn't going to be a ton of help as it won't be aware of those other packages.
In that case, you can always find those dependencies by doing a standard select owner, name, type, text from all_source where text like '%YOUR_SEARCH_CRITERIA%' query.
and you can embed that in your OMB+ using the Java/SQL library: How to run SQL from OMB+
Cheers,
Mike

How to find Unused variables in procedure,function or package

Hi all,
I want find out unused variables in procedure, function and package.
I have written below script for doing this ,but i am not getting the expected result.
Kindly help me to improve the below code ,so that it works as expected.
{code}
version details
Oracle Database 11g Enterprise Edition Release 11.2.0.3.0 - 64bit Production
PL/SQL Release 11.2.0.3.0 - Production
"CORE    11.2.0.3.0    Production"
TNS for Linux: Version 11.2.0.3.0 - Production
NLSRTL Version 11.2.0.3.0 - Production
{code}
{code}
What i Have tried is This.
DECLARE
V_OBJECT_NAME VARCHAR2(30) :='PR_PRINT';
V_OBJECT_TYPE VARCHAR2(30) :='PROCEDURE';
CURSOR C1(CP_OBJECT_NAME VARCHAR2,CP_OBJECT_TYPE VARCHAR2)
IS
    SELECT US.NAME,
      US.TYPE,
      US.LINE,
      REGEXP_SUBSTR(US.TEXT,'.* ') AS var_name
    FROM user_source US
    WHERE name=CP_OBJECT_NAME
    AND type =CP_OBJECT_TYPE
    AND REGEXP_LIKE (TEXT,'(v_|g_|c_)','i')
    AND REGEXP_LIKE (TEXT,'^[^ ]')
    AND REGEXP_LIKE (TEXT,'^[^--]') ;
v_count NUMBER ;
BEGIN
FOR i IN C1(V_OBJECT_NAME,V_OBJECT_TYPE)
LOOP
    SELECT COUNT( *)
    INTO V_COUNT
    FROM USER_SOURCE US
    WHERE US.NAME=I.NAME
    AND REGEXP_LIKE(US.TEXT,i.var_name,'i' )
    AND US.LINE<>I.LINE;
    IF V_COUNT =0 THEN
      DBMS_OUTPUT.PUT_LINE('variable '||I.VAR_NAME||'Is declared at line#'||I.LINE||' But no where used');
    END IF ;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('p_err_code := '||SQLCODE||dbms_utility.format_Error_backtrace());
DBMS_OUTPUT.PUT_LINE('p_err_msg := '||sqlerrm);
END ;
{code}
Thanks,
P Prakash

Hello,
as suggested by padders you can use PL/Scope, an example:
ALTER SESSION SET PLSCOPE_SETTINGS='IDENTIFIERS:ALL';
CREATE OR REPLACE PACKAGE ui_test1 AS
    global_number   NUMBER := 9;
FUNCTION get_number
    RETURN NUMBER;
END ui_test1;
CREATE OR REPLACE PACKAGE BODY ui_test1 AS
PROCEDURE setNull
     p_varchar          IN OUT VARCHAR2
IS
BEGIN
    p_varchar := NVL(p_varchar,'NULL');
END setNull;
FUNCTION get_number
    RETURN NUMBER
IS
    FUNCTION setZero
         p_number       IN NUMBER
        RETURN NUMBER
    IS
    BEGIN
        RETURN NVL(p_number,0);
    END setZero;
BEGIN
    RETURN global_number;
END get_number;
END ui_test1;
SELECT DISTINCT
        object_name
       ,object_type
       ,name
       ,type
       ,line
       ,col
FROM    all_identifiers obj
WHERE   obj.owner = USER
AND     obj.usage = 'DECLARATION'
AND     obj.object_name = 'UI_TEST1'
AND     NOT EXISTS (
            SELECT 1
            FROM    all_identifiers with_rh
            WHERE   obj.signature = with_rh.signature
            AND     with_rh.usage IN ('REFERENCE','CALL','ASSIGNMENT')
ORDER BY TYPE
        ,object_name
        ,object_type
        ,name;
OBJECT_NAME OBJECT_TYPE   NAME       TYPE       LINE COL
UI_TEST1     PACKAGE       GET_NUMBER FUNCTION     11 10
UI_TEST1     PACKAGE BODY SETZERO    FUNCTION     35 14
UI_TEST1     PACKAGE       UI_TEST1   PACKAGE       1   9
UI_TEST1     PACKAGE BODY SETNULL    PROCEDURE    12 11
Regards
Marcus

Accessing procedure in a package.

Similar Messages

Maybe you are looking for