In this step, you will extend the FindAll srvroutine in the iiixEmployeeDataServer Server Module to:
1. Open the iiixEmployeeDataServer Server Module in the editor.
Add the fields xEmployeeImageThumbnail and xDepartmentDescription to the end of the working list xEmployeeList.
2. Locate the FindAll srvroutine (Hint: see Go To tab). Add code to perform the following:
Add code to fetch field xEmployeeImageThumbnail from file xEmployeeImages with the key xEmployeeIdentification for each employee before an entry is added to list xEmployeeList.
Add code to fetch field xDepartmentdescription from the file xDepartments with the key xDepartmentCode.
Your code should look like the following, changes are shown in red.
List_Map For(*Output) List(#xEmployeeList)
Select Fields(#xEmployeeList) From_File(xEmployee)
Fetch Fields(#xEmployeeImageThumbnail) From_File(xEmployeeImages) With_Key(#xEmployeeIdentification)
Fetch Fields(#xDepartmentDescription) From_File(xdepartments) With_Key(#xDepartmentCode)
3. Compile your Server Module.