Page History
...
See also
Activate_Save_Select, ReadNext, RList, Select, Save_Select
Example
Code Block |
---|
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" : @vm : "2" : @vm : "22" : @vm : "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 |