home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol155 / xindx.cmd < prev    next >
Encoding:
Text File  |  1984-04-29  |  3.1 KB  |  101 lines
  1. *
  2. *           Atlanta Data Base Users Society Banking System
  3. *             Index Checks Command File
  4. *
  5. *               Program Name    : XINDX.CMD
  6. *              Author        : Keith R. Plossl
  7. *            Date Written    : August 1982
  8. *
  9. * -----------------------------------------------------------------------------
  10. *       P U B L I C   D O M A I N   S O F T W A R E   N O T I C E
  11. *
  12. *   This program has been placed in the public domain by Keith R. Plossl
  13. *   for the Atlanta Data Base Users Society, Inc. Atlanta, Georgia
  14. *   and may be copied, modified or used NON-COMMERCIALLY provided this
  15. *   notice, the title block and modification history have not been 
  16. *   removed.  The COMMERCIAL sale or use of this program for profit 
  17. *   is strictly prohibited.  KRP 7/15/83
  18. *   
  19. * -----------------------------------------------------------------------------
  20. *                Modification History
  21. *
  22. *    2/1/83        Added decimal check numbers           Keith R. Plossl
  23. *            to data file & programs.
  24. *
  25. *    7/15/83        Set to Public Domain with Atlanta    Keith R. Plossl
  26. *            Data Base Users Society.
  27. *
  28. * -----------------------------------------------------------------------------
  29. ERASE
  30. SET TALK OFF
  31. SET DEFAULT TO &F:DSK
  32. USE &DBF
  33. @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System'
  34. @ 3,15  SAY '  Data File Indexing & Sorting System'
  35.  
  36. @ 5,0 SAY ' This Program will produce all indexes needed for print selection.'
  37. @ 8,25 SAY '    SELECTION MENU'
  38. @ 10,15 SAY ' I = Produce All indexes Except for Special'
  39. @ 11,15 SAY ' S = Produce Special Index'
  40. @ 12,15 SAY ' M = Return to Main Menu'
  41. @ 13,15 SAY ' X = Quit Dbase and Return to Operating System'
  42. WAIT TO SELECT
  43.  
  44.     IF SELECT = 'X'
  45.         ERASE
  46.         QUIT
  47.     ENDIF
  48.     IF SELECT = 'M'
  49.         STORE F TO INDEX
  50.     ENDIF
  51.     IF SELECT = 'S'
  52.         ERASE
  53.         STORE '        ' TO FLD1
  54.         STORE '        ' TO FLD2
  55.         STORE '        ' TO FLD3
  56.         @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System'
  57.         @ 3,15  SAY ' Data File Indexing & Sorting System'
  58.         @ 7,15  SAY 'First Field Name to Index on'    GET FLD1
  59.         @ 8,15  SAY 'Second Field Name to Index on'    GET FLD2
  60.         @ 9,15  SAY 'Third Field Name to Index on'    GET FLD3
  61.         @ 10,15 SAY 'Name of Special Index File'    GET NDX
  62.         READ
  63.         STORE TRIM(FLD1)    TO FLD1
  64.         STORE TRIM(FLD2)    TO FLD2
  65.         STORE TRIM(FLD3)    TO FLD3
  66.         STORE TRIM(NDX)        TO NDX
  67.  
  68.         IF LEN(FLD1) > 2
  69.             IF LEN(FLD3) = 1 .AND. LEN(FLD2) = 1
  70.                 INDEX ON &FLD1      TO &NDX
  71.             ENDIF
  72.             IF LEN(FLD3) = 1 .AND. LEN(FLD2) > 2
  73.                 INDEX ON &FLD1 + &FLD2    TO &NDX
  74.             ENDIF
  75.             IF LEN(FLD3) > 2 .AND. LEN(FLD2) > 2
  76.                 INDEX ON &FLD1 + &FLD2 + &FLD3    TO &NDX
  77.             ENDIF
  78.         ENDIF
  79.         @ 12,20 SAY 'Special Index Produced'
  80.     ENDIF
  81.     IF !(SELECT) = 'I' 
  82.         ERASE
  83.         @ 12,20 SAY 'Producing Indexes - Please Wait'
  84.         INDEX ON NUMBER        TO CKNUM
  85.         @ 14,10 SAY 'Number Index Complete - Working on Date       '
  86.         INDEX ON DATE        TO CKDATE
  87.         @ 14,10 SAY 'Date Index Complete - Working on Written to   '
  88.         INDEX ON TO        TO CKTO
  89.         @ 14,10 SAY 'Written to Index Complete - Working on Memo   '
  90.         INDEX ON MEMO        TO CKMEMO
  91.         @ 14,10 SAY 'Memo Index Complete - Working on Account No.  '
  92.         INDEX ON PURPOSE TO PURPOSE
  93.         @ 14,10 SAY ' ***** All Indexes Complete *****               '
  94.     ENDIF
  95. SET TALK ON
  96. ERASE
  97. RETURN
  98. *
  99. * ----------- END OF BANKING SYSTEM INDEXING COMMAND PROGRAM ----------
  100. *
  101.