function PDATE1ValidTrigger return boolean is
V2 VARCHAR2(4);
begin
  V2 := TO_CHAR(:PDATE1,'YYYY');
  return (TRUE);
end;

SQL> declare
  2    v2 varchar2(4);
  3  begin
  4    v2 := to_char(sysdate, 'yyyy');
  5  end;
  6  /

PL/SQL procedure successfully completed.

SQL>

function AfterPForm return boolean is
begin
  srw.message(1,'Subhead:'||nvl(:subhead,'sriram'));
  	begin
	  select nvl('Report for Employee '||' On '||to_char(hiredate,'YYYY'),'sriram') into :subhead from emp_sriram a
  	where a.empno=:emp_no;
	exception when no_data_found then
		:subhead := null;
		srw.message(1001,'subhead:' ||:subhead);
	end;
	  return (TRUE);
end;