pi_age number;
po_sqlcode number;
po_sqlmsg varchar2;

if (pi_age - trunc(pi_age)) > then
 po_sqlmsg := 'Age should be an integer';
 po_sqlcode := -1;
 RETURN;
end if;