Make.List subroutine
Description
The Make.List subroutine creates an active select list of keys from the passed list of keys.
Syntax
Make.List(cursor, keylist, f_datavar, f_dictvar)
Parameters
The Make.List subroutine has the following parameters:
| Parameter | Description |
|---|---|
| Cursor | Specify the cursor number. Valid cursors numbers are 0 through 8. |
| Keylist | An @fm-delimited list of keys. Note: The Keylist parameter is passed by reference and the Make.List subroutine will clear the variable passed. |
| f_datavar | The file handle for the data file as set by the open statement. |
| f_dictvar | The file handle for the dictionary file as set by the open statement. |
Cursor 0 is the default cursor and is the only cursor used by RList and the simple forms of the Select and Readnext statements.|
See Also
Example
subroutine make_list_example(parent)
Declare Function Unassigned, Get_Status, Get_Property
Declare Subroutine Msg, MAKE.LIST, fsmsg, Set_Status, Save_Select
$Insert Logical
$Insert Msg_Equates
* Initialize Variables
errCodes = ""
errFlag = ""
* Determine Parent Window
If Unassigned(parent) Then parent = @Window
frame = Get_Property(parent,"MDIFRAME")
If frame Then parent = frame
* Open Files
Open "CUSTOMER" To f_customers Then
Open "DICT.CUSTOMERS" To d_customers Else
errText = "Unable to open the Customers Dictionary file."
errFlag = TRUE$
End
End Else
errText = "Unable to open Customers file."
errFlag = TRUE$
End
If errFlag Else
* A List of Customer keys
custList = "1" : @fm : "2" : @fm : "22" : @fm : "26"
* Create the List in Cursor 0 and if successful save the list
Set_Status(0)
MAKE.LIST(0, custList, f_customers, d_customers)
If Get_Status(errCodes) Then
FSMsg(errCodes)
End Else
Set_Status(0)
Save_Select("","MAKE_LIST_TEST","","")
If Get_Status(errCodes) then
FSMsg(errCodes)
end
End
End
if errFlag Then
msgStruct = ""
msgStruct<MCAPTION$> = "Error"
msgStruct<MICON$> = "H"
msgStruct<MTEXT$> = errText : "Error Code: " : @file.error<1>
Msg(Parent,msgStruct)
end
return