How to pass type variable in a procedure as IN parameter

Question

CREATE OR REPLACE PROCEDURE APPS."QFJS_LMO_TIMESLOT_PROC"
a_std IN VARCHAR2,
TYPE str_table IS TABLE OF CLOB INDEX BY BINARY_INTEGER;
timeStr OUT str_table;
This is giving error!!
Please help!!

Answer 1

This is what you're looking for? (you can also create the type in your database)
CREATE OR REPLACE PACKAGE APPS.MY_PACKAGE AS
  PRAGMA SERIALLY_REUSABLE;
  TYPE str_table IS TABLE OF CLOB INDEX BY BINARY_INTEGER;
  PROCEDURE "QFJS_LMO_TIMESLOT_PROC"(a_std             IN VARCHAR2,
                                     post_std          IN VARCHAR2,
                                     a_time            IN VARCHAR2,
                                     post_hc           IN NUMBER,
                                     pre_hc            IN NUMBER,
                                     ods_schedule_date IN DATE,
                                     timeStr           IN OUT str_table);
END MY_PACKAGE;
CREATE OR REPLACE PACKAGE BODY APPS.MY_PACKAGE IS
  PRAGMA SERIALLY_REUSABLE;
  PROCEDURE "QFJS_LMO_TIMESLOT_PROC"(a_std             IN VARCHAR2,
                                     post_std          IN VARCHAR2,
                                     a_time            IN VARCHAR2,
                                     post_hc           IN NUMBER,
                                     pre_hc            IN NUMBER,
                                     ods_schedule_date IN DATE,
                                     timeStr           IN OUT str_table) IS
v_clob clob;
  BEGIN
    FOR i IN 1 .. timeStr.COUNT LOOP
      v_clob := timeStr(i);
    END LOOP;
  END "QFJS_LMO_TIMESLOT_PROC";
BEGIN
  NULL;
END MY_PACKAGE;
BEGIN
  APPS.MY_PACKAGE.QFJS_LMO_TIMESLOT_PROC('1','2','3',4,5,sysdate,APPS.MY_PACKAGE.str_table('clob1', 'clob2', 'clob3'));
END;
/ -- Hugs, Philips