create or replace package CONSUMERPACK is

-- Author : ALEE
-- Created : 2/27/2003 7:43:51 PM
-- Purpose :

-- Public type declarations
type ret_date is Record (payerid integer := 0,
dopl date := Null);


function get_noplat(pid in integer) return ret_date;


Procedure test;

end CONSUMERPACK;


create or replace package body CONSUMERPACK is
function get_noplat(pid in integer) return ret_date
is
RetBorgRec ret_date;
begin
RetBorgRec.payerid := pid;
return(RetBorgRec);
end get_noplat;

Procedure test is
ret_dat ret_date;
pid Integer := 0;
Begin
pid := 1;
ret_dat:=get_noplat(pid);
dbms_output.put_line(ret_dat.payerid);
pid := 2;
ret_dat:=get_noplat(pid);
dbms_output.put_line(ret_dat.payerid);
end test;
end CONSUMERPACK;


begin
-- Call the procedure
consumerpack.test;
end;
1
2