Need to execute a anonymous block

Question

Hi guys,
I have one proc like below.
proc_expl(
empid in number,
ename in varchar2,
marks in marks_typ);
marks_type is record type which consists of 3 subjects.
marks_typ(sub1 number, sub2 number, sub3 number)
and i declared with table type this record type.
now I want to execute anonymous block and i am giving parameter values like below:
declare
empid in number,
ename in varchar2,
marks in marks_typ
begin
empid := 123,
ename := 'abc',
marks marks_typ := marks_typ(55,67,78);
proc_expl(
empid => empid,
ename => ename,
marks => marks_typ);
end;
can any one please suggest me why this is not executing properly.
thanks in advance!
Rgds,
LKR

Answer 1

Try the below
CREATE OR REPLACE TYPE marks_type IS OBJECT (sub1 NUMBER(10),
                                             sub2 NUMBER(10),
                                             sub3 NUMBER(10)
CREATE OR REPLACE TYPE marks_typ IS TABLE OF marks_type;
CREATE OR REPLACE PROCEDURE proc_expl(empid NUMBER,
                                      ename VARCHAR2,
                                      marks marks_typ
AS
v_marks marks_typ:= marks;
BEGIN
FOR i IN 1..v_marks.COUNT
  LOOP
   DBMS_OUTPUT.PUT_LINE(v_marks(i).sub1||','||v_marks(i).sub2||','||v_marks(i).sub3);
  END LOOP;
END;
SET SERVEROUTPUT ON
DECLARE
empid NUMBER;
ename VARCHAR2(20);
marks marks_typ := marks_typ();
BEGIN
empid := 123;
ename := 'abc';
marks.extend;
marks(1) := marks_type(55,67,78);
proc_expl(empid,ename,marks);
END;
Execution:-
SQL> DECLARE
  2  empid NUMBER;
  3  ename VARCHAR2(20);
  4  marks marks_typ := marks_typ();
  5  BEGIN
  6  empid := 123;
  7  ename := 'abc';
  8  marks.extend;
  9  marks(1) := marks_type(55,67,78);
10  proc_expl(empid,ename,marks);
11  END;
12  /
55,67,78
PL/SQL procedure successfully completed.
Hope it helps