Appendix A. FRM095
FRM095 - Calling a Function
Source code for function iiiFN21 – Calculate Salary Increase
Function Options(*DIRECT) Rcv_List(#employs)
Def_List Name(#employs) Fields(#empno #fullname #deptment #salary #iiinewsal) Counter(#listcount) Type(*working) Entrys(*max)
Group_By Name(#empdata) Fields(#empno #surname #givename #deptment #salary)
Clr_List Named(#employs)
Select Fields(#empdata) From_File(pslmst1) With_Key(#deptment) Nbr_Keys(*compute)
#iiinewsal := (#salary + (#salary * (#iiipercnt / 100)))
#fullname := #surname + ', ' + #givename
Add_Entry To_List(#employs)
Endselect
Return