Record type - Am I doing something wrong here

Question

Hi,
I am writing a package for testing and I am facing issue in compiling this package.
I am getting error
PLS-00302: component 'ID' must be declared.
PLS-00302: component 'STEP_ID' must be declared.
PLS-00302: component 'STTS' must be declared.
I am using record type. Below is the test code.
I am on 10.2.0.4.0
create table T1
   (id number,
    dtl_desc varchar2(400)
create table T2
   (step_id number,
    id number,
    stts varchar2(400)
create package pkg_1
as
type g_typ_stup_rec is record
     id  t1.id%type,
     step_id t2.step_id%type,
     stts  t2.stts%type
g_ty_stup_tab is table of g_typ_stup_rec;
procedure pr_stup_rec
     i_id in t1.id%type := 1,
     i_step_id in t2.step_id%type := 1,
     i_stts in t2.stts%type := 'SUCS',
     o_rec out g_ty_stup_tab
end ;
create package body pkg_1
as
procedure pr_stup_rec
      i_id in t1.id%type := 1,
      i_step_id in t2.step_id%type := 1,
      i_stts in t2.stts%type := 'SUCS',
      o_rec out g_ty_stup_tab
   is
   l_v_id t1.id%type;
   l_v_step_id  t2.step_id%type;
   select
       s_id.nextval
   into
       l_v_id
   from
       dual;
   select
       s_step_id.nextval
   into
       l_v_step_id
   from
       dual;
   o_rec.id      := l_v_id;
   o_rec.step_id := l_v_step_id;
   o_rec.stts    := i_stts ;
end pr_stup_rec;
procedure g_sp_ins_rec
      i_ins_rec in g_ty_stup_tab
   is
   insert into t1
    (id,
     desc
    values
     i_ins_rec.id,
     'TEST'
    insert into t2
       step_id,
       id.
       stts
      values
       i_ins_rec.step_id,
       i_ins_rec.id,
       i_ins_rec.stts
   commit;
end g_sp_ins_rec;
end pkg_1 ;
Appreciate if you can point out what I am doing wrong here.
Thanks in advance
TA
Edited by: user572194 on Feb 1, 2012 1:22 PM
Edited by: user572194 on Feb 1, 2012 1:34 PM

Answer 1

Surely, though, you have the ability to actually create these objects in your system (or in some local development environment) in order to verify that the code you're posting compiles and shows the problem you're trying to demonstrate, right?
Your package definition, for example, fails to compile because you're missing the TYPE in your declaration of G_TY_STUP_TAB
SQL> ed
Wrote file afiedt.buf
  1  create or replace package pkg_1
  2  as
  3  type g_typ_stup_rec is record
  4     (
  5       id  t1.id%type,
  6       step_id t2.step_id%type,
  7       stts  t2.stts%type
  8     );
  9   type g_ty_stup_tab is table of g_typ_stup_rec;
10   procedure pr_stup_rec
11     (
12       i_id in t1.id%type := 1,
13       i_step_id in t2.step_id%type := 1,
14       i_stts in t2.stts%type := 'SUCS',
15       o_rec out g_ty_stup_tab
16     );
17*  end ;
SQL> /
Package created.Your package body is missing the BEGIN statements in both of the procedure definitions. Then it references the old DESC column from T1 which needs to be changed to DTL_DESC. Then, you're missing a couple of sequences. Once all those items are fixed, I think we're down to the compilation errors that you're originally talking about
SQL> create or replace package body pkg_1
  2   as
  3   procedure pr_stup_rec
  4      (
  5        i_id in t1.id%type := 1,
  6        i_step_id in t2.step_id%type := 1,
  7        i_stts in t2.stts%type := 'SUCS',
  8        o_rec out g_ty_stup_tab
  9     )
10  is
11     l_v_id t1.id%type;
12     l_v_step_id  t2.step_id%type;
13  begin
14     select
15         s_id.nextval
16     into
17         l_v_id
18     from
19         dual;
20     select
21         s_step_id.nextval
22     into
23         l_v_step_id
24     from
25         dual;
26     o_rec.id      := l_v_id;
27     o_rec.step_id := l_v_step_id;
28     o_rec.stts    := i_stts ;
29  end pr_stup_rec;
30  procedure g_sp_ins_rec
31     (
32        i_ins_rec in g_ty_stup_tab
33     )
34     is
35  begin
36     insert into t1
37      (id,
38       dtl_desc
39      )
40      values
41      (
42       i_ins_rec.id,
43       'TEST'
44      );
45      insert into t2
46        (
47         step_id,
48         id.
49         stts
50        )
51        values
52        (
53         i_ins_rec.step_id,
54         i_ins_rec.id,
55         i_ins_rec.stts
56        );
57     commit;
58   end g_sp_ins_rec;
59   end pkg_1 ;
60  /
Warning: Package Body created with compilation errors.
SQL> sho err
Errors for PACKAGE BODY PKG_1:
LINE/COL ERROR
26/4     PL/SQL: Statement ignored
26/10    PLS-00302: component 'ID' must be declared
27/4     PL/SQL: Statement ignored
27/10    PLS-00302: component 'STEP_ID' must be declared
28/4     PL/SQL: Statement ignored
28/10    PLS-00302: component 'STTS' must be declared
36/4     PL/SQL: SQL Statement ignored
42/16    PL/SQL: ORA-00984: column not allowed here
42/16    PLS-00302: component 'ID' must be declared
45/5     PL/SQL: SQL Statement ignored
45/17    PL/SQL: ORA-00913: too many valuesThose errors are the result of treating a nested table of records as if it was a single record. pr_stup_rec is defined to return a collection of records. If you're using a collection of records, you'd have to initialize the collection and you'd have to reference a particular element of the collection when you wanted to assign values. Something like this, for example, will declare a local variable of type pkg_1.g_ty_stup_tab, initialize the collection, add an element to the collection, and assign the values to the individual components of the record that is the first element in the collection
SQL> ed
Wrote file afiedt.buf
  1  declare
  2    l_collection pkg_1.g_ty_stup_tab := new pkg_1.g_ty_stup_tab();
  3  begin
  4    l_collection.extend;
  5    l_collection(1).id := 1;
  6    l_collection(1).step_id := 10;
  7    l_collection(1).stts := 'Foo';
  8* end;
SQL> /
PL/SQL procedure successfully completed.Alternately, you could create a record type and add that as an element in your collection
SQL> ed
Wrote file afiedt.buf
  1  declare
  2    l_collection pkg_1.g_ty_stup_tab := new pkg_1.g_ty_stup_tab();
  3    l_record     pkg_1.g_typ_stup_rec;
  4  begin
  5    l_collection.extend;
  6    l_record.id := 1;
  7    l_record.step_id := 10;
  8    l_record.stts := 'Foo';
  9    l_collection(1) := l_record;
10* end;
SQL> /
PL/SQL procedure successfully completed.But it's not obvious to me that you actually want to use a collection here. Perhaps you want your procedures to simply return a single record.
Justin