declare
dr dept%rowtype;
begin
-- Copy from scalar variables if the record is an input parameter
dr.deptno := :deptno;
dr.dname := :dname;
dr.loc := :loc;
-- Call the procedure with the local record
myproc(dr);
-- Copy to scalar variables if the record is an output parameter
:deptno := dr.deptno;
:dname := dr.dname;
:loc := dr.loc;
end;