Page History

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