PACKAGE BODY: APPS.JTF_PRIME

Source

1 package body jtf_prime AS
2 /*$Header: JTFPRMB.pls 120.2 2005/11/28 22:21:23 skothe ship $ */
3 
4   procedure proc1(t OUT NOCOPY /* file.sql.39 change */ tab01) is
5     retval tab01;
6     r rec01;
7   begin
8     r.n :=7; r.d := sysdate;
9     r.vc01 := 'a';
10     r.vc02 := 'a';
11     r.vc03 := 'a';
12     r.vc04 := 'a';
13     r.vc10 := 'a';
14     r.vc20 := 'a';
15     r.vc30 := 'a';
16     r.vc40 := 'a';
17 
18     t(1) := r;
19   end;
20   procedure proc2(t IN OUT NOCOPY /* file.sql.39 change */ tab01) is
21   begin
22     null;
23   end;
24 end JTF_PRIME;