Show Contents List

Step 2. Create Salary Review Form

FRM095 - Calling a Function

1.  Create a New / Basic Form:

     Name: iiiSalReview

     Description: Salary Review Request.

     Framework : Personnel and Payroll

     RDMLX Enabled (YES)

2.  Design the form as follows:

• Drop a Group Box towards the top of the form and resize it. Give it a Caption of Change Request.

• Drop fields DEPTMENT and iiiPERCNT onto the Group Box and position them as required.

• Drop a Push Button into the Change Request group box, to the right of the fields.

• Change Name to SUBMIT.
• Give it a Caption of Submit
• Create a Click event routine for it.

• Drop a List View onto the form and resize and position it. Add fields EMPNO, FULLNAME, DEPTMENT, SALARY and iiiNEWSAL.

• Add a Status Bar to bottom of the form.

• Change its AutoLocate property to True

• Add field iiiTOTSAL to the form below the List View.

• Change its Caption to Salary Increase
• Change its CaptionType to Caption

     Your form should look like the following:

3.  Switch to the Source tab. Define four work fields:

• NEWTOT, reference field iiiTOTSAL

• CURTOT, reference field iiiTOTSAL

• SRVCON, *CHAR, 1, default = *SSERVER_CONNECTED

• SSTATUS, reference field IO$STS

4.  Define the EMPLOYS working list.

Def_List Name(#employs) Fields(#empno #fullname #DEPTMENT #salary #iiinewsal) Counter(#listcount) Type(*working) Entrys(*max)

     It is a good idea to copy the DEF_LIST definition from function iiiFN21 as it is essential that your working lists are identically defined in the calling form and the called function. If not identical, run time errors will occur. Each list must contain the same fields in the same sequence.

5.  Review the following pseudo code. You will create this code in the following steps.

      Use BEGINCHECK/FILECHECK/ENDCHECK to validate DEPTMENT using file DEPTAB

      Clear list EMPLOYS

      EXCHANGE fields DEPTMENT and iiiPERCNT

      If SVRCON = N

          Call, process *direct, function iiiFN21, Pass list EMPLOYS

          else

          USE CALL_SERVER_FUNCTION, with arguments (*sserver_ssn iiiFN21 Y *default EMPLOYS) To Get(#sstatus)

      EndIf

      If (#sstatus *ne OK)

      Message 'Call server function failed'

      End if

      Clear  list ListView1

      CURTOT and NEWTOT = zero

      Selectlist EMPLOYS

          Accumulate SALARY in CURTOT

          Accumulate iiiNEWSAL in NEWTOT

          Add entry ListView1

      End selectlist

      iiiTOTSAL = NEWTOT – CURTOT

6.  Begin the SUBMIT.Click event routine by using Begincheck/Endcheck and Filecheck to ensure the department code exists. Your code should look like the following:

Begincheck
Filecheck Field(#DEPTMENT) Using_File(deptab) Msgtxt('Department not found')
Endcheck
 

     Recall that the the Endcheck error handling will branch to the Endroutine if the Filecheck raises an error.

7.  Clear the working list EMPLOYS

Clr_List Name(#EMPLOYS)

8.  Add an Exchange command to pass DEPTMENT and IIIPERCNT to the called function. This is termed "adding to the exchange list"

Exchange Fields(#deptment #iiipercnt)

• This will add these fields to the Exchange List which is passed to the called function.

• The called function will map these values into its variables and clear the exchange list

9.  The SRVCON field contains the value of the system variable *sserver_connected. The system variable is Y when connected to a server, and N when not connected to a server.

     Add an If loop to call the function IIIFN21 locally when not connected.

If (#srvcon = N)
Call Process(*DIRECT) Function(iiifn21) Pass_Lst(#employs)
Endif
 

     Note: The CALL command is passing the working list EMPLOYS to the called function, which will return it.

10. Add an Else to the If loop, which calls the function IIIFN21 on the server.

     Your code should now look like the following:

If (#srvcon = N)
Call Process(*DIRECT) Function(iiifn21) Pass_Lst(#employs)
Else
Use Builtin(call_server_function) With_Args(*sserver_ssn 'iiifn21' Y *Default #employs) To_Get(#sstatus)
If (#sstatus *NE OK)
Message Msgtxt('Call server function failed')
Endif
Endif

     The CALL_SERVER_FUNCTION uses the following parameters:

• *sserver_ssn is a system variable which returns the server symbolic name of the server. The server symbolic name is defined by the CONNECT_SERVER BIF or by the automatic server connection to be used in this example.

• The called function IIIFN21 is called directly

• The Exchange List (of fields) is passed to function IIIFN21. The Exchange List was set up by the Exchange command

• A returned Exchange List is not required in this case (Receive Exchange List back = *default)

• Only one working list is passed to function IIFN21 and will be returned by IIIFN21.

• The Return Code will be work field SSTATUS

11. Complete the SUBMIT.Click event routine, with:

• Clear the list view

• Initialize fields CURTOT and NEWTOT

• Read (SELECTLIST) the returned working list EMPLOYS

• Accumulate CURTOT
• Accumulate NEWTOT
• Add and entry to list view

• End read

• Set IIITOTSAL to (NEWTOT – CURTOT)

     Your additional code should look like the following:

. . . . . .
Endif
Clr_List Named(#ListView1)
#curtot #newtot := *zeroes
Selectlist Named(#employs)
#curtot += #salary
#newtot += #iiinewsal
Add_Entry To_List(#ListView1)
Endselect
#IIITOTSAL := (#newtot - #curtot)
Endroutine
 

12. Compile your new form.

     If required, see FRM095 Appendix B. FRM095 for a complete solution.

Show Contents List