Listing 3.  "Display Categories" Global Routine



    1 *************
    2 * Global routine "Display Categories"
    3   Let CurrentDocument = DocumentName
    4   WorkWithDocument "Accounts"
    5   Let ChosenAccount = TheLine
    6   If ChosenAccount <> NULL
    7     WorkWithDocument "Categories."||ChosenAccount  ;Create if nonexistant
    8     Let NewCategoryDocument = TextFromDocument("Categories."||ChosenAccount)
    9     WorkWithDocument "Categories"
   10     Clear DOCUMENT 
   11     Type NewCategoryDocument
   12   Else
   13     WorkWithDocument "Categories"
   14     Clear DOCUMENT 
   15   EndIf
   16   WorkWithDocument CurrentDocument
   17 * End of routine "Display Categories"
   18 *************