====== 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 ====
 
[[activate_save_select|Activate_Save_Select]], [[readnext|ReadNext]], [[rlist|RList]], [[select|Select]], [[save_select|Save_Select]]
 
==== Example ====
 
<code>
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
</code>