You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Next »

[ |../../index.htm#lansa/vlfonetutorials_0390.htm]

Create a Server Module for Table Access

Before you create the filter, create a server module to control access to the table the filter will use.
In the Visual LANSA editor, use File > New > Server Module:

 
Give the server module a name and description, and specify xEmployee as the table to be accessed by the server module:

When the server module is open in the editor, locate the FindxEmployeeBySurna server routine. Comment out the Select statement in the routine:

  • Select Fields(#xEmployeeList) From_File(xEmployeeBySurname) With_Key(#xEmployeeSurname #xEmployeeGivenNames) Nbr_Keys(*Compute) Generic(*Yes)
     
    And paste in these lines of code after it:
    Define_Com Class(#xEmployeeSurname) Name(#SearchEmployeeSurname)
    #SearchEmployeeSurname := #xEmployeeSurname.UpperCase
    Select Fields(#xEmployeeList) From_File(xEmployeeBySurname) Where(#xEmployeeSurname.UpperCase.Contains( #SearchEmployeeSurname ))
     
    (Note that the Where() clause means the SELECT statement will read the whole table. For your own applications, you should investigate the SELECT_SQL statement to learn how to perform searches efficiently on large tables.)
    Compile the server module.

     
     
    [ |../../index.htm#lansa/vlfonetutorials_0390.htm]
  • No labels