home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol110 / maintain.acg < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.2 KB  |  66 lines
  1. * maintain.cmd 02/08/83 sml
  2. * files maintenance menu
  3.  
  4. * set up loop
  5. STORE t TO more
  6. DO WHILE more
  7.   
  8.   * set up screen
  9.   SET FORMAT TO maintain
  10.   
  11.   *find out what to do next
  12.   STORE '?' TO command
  13.   READ
  14.   
  15.   * perform desired function
  16.   DO CASE
  17.       
  18.     CASE command = '1' 
  19.       * check for duplicates
  20.       DO dupcheck.acg
  21.       
  22.     CASE command = '2' 
  23.       * verify new records
  24.       DO verifnew.acg
  25.       
  26.     CASE command = '3' 
  27.       * verify deleted records
  28.       DO verifdel.acg
  29.       
  30.     CASE command = '4' 
  31.       * remove records marked for deletion
  32.       DO purge.acg
  33.       
  34.     CASE command = '5' 
  35.       * add new data entry default values
  36.       DO defaults.acg
  37.       
  38.     CASE command = '6' 
  39.       * backup the disk
  40.       DO backup.acg
  41.       
  42.     CASE command = '7' 
  43.       * re-initialize index files
  44.           ERASE
  45.       @ 7,22 SAY 'Re-initializing index files' 
  46.       USE acg
  47.       INDEX ON !(lastname) TO lastname
  48.       INDEX ON !(company1) TO company
  49.       INDEX ON zip TO zip
  50.       USE acg INDEX lastname, company, zip
  51.       
  52.     CASE command = '8' 
  53.       * set up the loop to exit
  54.       STORE f TO more
  55.       
  56.   ENDCASE 
  57.   
  58.   * loop back again
  59. ENDDO WHILE more 
  60.  
  61. * release local variables
  62. RELEASE more
  63.  
  64. * restore original data
  65. STORE '?' TO command
  66.