In this step, first, create an index over the Employee Holidays table keyed by the Holiday Code:

1.  Create an index called iiiEmpHolByCode with a key of iiiHolCode.

2.  Compile the table. Display the Compile Options dialog to check you are using the correct compile options.

3.  This step should create a form to test the index. Create form iiiEnqEmpHols with the description Holidays by Holiday Code:

     a.  Display the Common Controls tab, select the LANSA Controls, and drag a Push button and a List view onto your form.

     b.  Change the button Caption to Fetch.

     c.  Select the Details / Events tab and double-click on the Click event to create an event routine for the push button.

     d.  Display the iiiLIST tab, expand the table iiiEmpHolidays, and drag the iiiHolCode (Holiday Code) to the top of the form.

     e.  Drag the Employee Number (iiiEmployNumber), Surname (iiiSurnamePJC), and the Holiday Duration (iiiHolDuration) into the list view. You will probably need to widen the list view and the columns which will have been created for the fields.

     f.  Display the Source tab and complete the push button Click event routine.

  • Clear the list view.
  • Select entries from the index in holiday code order.
  • Retrieve each entry with the key Holiday Code.
  • Add an entry to the list view.
  • End the Select loop.

     Your code should look like the following:

     Evtroutine Handling(#Button1.Click)
     Clr_list #ListView1
     Select Fields(*ALL) From_File(iiiEmpHolByCode) With_Key(#iiiHolCode)
     Add_Entry To_List(#ListView1)
     Endselect
     Endroutine

Replace the table and field name with your own holiday table name and holiday code name.

     g.  Compile and execute the form.

     h.  Enter a holiday code and press the button to fetch the records with the matching code:

     i.  Replace the Holiday Code field on the form with the Employee Number field.

     j.  Switch to the Source tab and change the Select statement to:

     Select Fields(*ALL) From_file(iiiEmpHolidays) With_key(#iiiEmployNumber)

     The application will now retrieve records from the Holiday table based on the employee number:



k.  Close the form and close the form in the editor.


  • No labels