home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / a / a610 / 6.ddi / DEMO / FGL / MENU.4GL < prev    next >
Encoding:
Text File  |  1989-12-08  |  2.7 KB  |  83 lines
  1. DATABASE leads
  2. GLOBALS "globals.4gl"
  3.  
  4. MAIN
  5. {
  6. The menu program initially displays the Top-Level menu.
  7. Depending on the user's selection, it then either displays a
  8. submenu or calls a function or report driver.  When a submenu
  9. is called, it in turn invokes a submenu or calls a function or
  10. report driver, and so forth.
  11. }
  12.  
  13. MENU "TOP-LEVEL"
  14.  
  15. COMMAND "Contact" "Log information about a contact with a prospect."
  16.    CALL decide(1)
  17.    IF pr_prospect.ref IS NULL THEN CALL prospect(1) END IF
  18.    IF eflag = 0 THEN CALL contact() END IF
  19.    LET eflag = 0
  20.  
  21. COMMAND "Report" "Run a report."
  22.    MENU "REPORT"
  23.       COMMAND "Mailing-labels" "Generate labels for a prospects mailing."
  24.          CALL rd_label()
  25.          EXIT MENU
  26.       COMMAND "Sales" "Run a report on sales by salesperson by month."
  27.          CALL rd_sales()
  28.          EXIT MENU
  29.       COMMAND "Follow-up" "Run a report on follow-up calls to be made."
  30.          CALL rd_follow()
  31.          EXIT MENU
  32.       COMMAND "Letters" "Generate follow-up letters for contacts."
  33.          CALL rd_letter()
  34.          EXIT MENU
  35.       COMMAND "Exit" "Return to the Top-Level menu."
  36.          EXIT MENU
  37.    END MENU
  38.  
  39. COMMAND "Update" "Update information about a contact or prospect."
  40.    MENU "UPDATE"
  41.       COMMAND "Contact" "Correct information about a contact."
  42.          CALL qcontact()
  43.          EXIT MENU
  44.       COMMAND "Prospect" "Update information about a prospect."
  45.          CALL decide(2)
  46.          IF pr_prospect.ref IS NOT NULL THEN CALL prospect(2) END IF
  47.          EXIT MENU
  48.       COMMAND "Exit" "Return to the Top-Level menu."
  49.          EXIT MENU
  50.    END MENU
  51.  
  52. COMMAND "Administration" "Change information about a product or salesperson."
  53.    MENU "ADMINISTRATION"
  54.       COMMAND "Product" "Change information about a product."
  55.          CALL product()
  56.          EXIT MENU
  57.       COMMAND "Salesperson" "Change information about a salesperson."
  58.          MENU "SALESPERSON"
  59.             COMMAND "Add" "Add a new salesperson."
  60.                CALL sperson(1)
  61.                EXIT MENU
  62.             COMMAND "Update" "Update information about a salesperson."
  63.                CALL sperson(2)
  64.                EXIT MENU
  65.             COMMAND "Delete" "Delete an old salesperson."
  66.                CALL sperson(3)
  67.                EXIT MENU
  68.             COMMAND "List" "Display a list of salespeople."
  69.                CALL rd_sperson()
  70.                EXIT MENU
  71.             COMMAND "Exit" "Return to the Top-Level menu."
  72.                EXIT MENU
  73.          END MENU
  74.          EXIT MENU
  75.       COMMAND "Exit" "Return to the Top-Level menu."
  76.          EXIT MENU
  77.    END MENU
  78. COMMAND "Exit" "Return to the operating system."
  79.    EXIT MENU
  80. END MENU
  81. CLEAR SCREEN
  82. END MAIN
  83.