PeopleCode to limit Search Veiw

serach record SearchInitGlobal string &NONEMP_Only_Access;
If RTrim(&NONEMP_Only_Access, " ") = "" Then
SQLExec("select 'Y' from psroleuser where roleuser = :1 and rolename ='NONEMP_Only_Access' ", %OperatorId, &NonEmp);
If &NonEmp = "Y" Then
&NONEMP_Only_Access = "Y";
Else
&NONEMP_Only_Access = "N"
End-If;
End-If;
If &NONEMP_Only_Access = "Y" Then
Field.EMPL_TYPE.DisplayOnly = True;
PER_SRCH.EMPL_TYPE = "C";
End-If;