home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol155 / xmoddep.cmd < prev    next >
Encoding:
Text File  |  1984-04-29  |  2.8 KB  |  103 lines
  1. *
  2. *  Atlanta Data Base Users Society Banking System Deposit Modify Command File
  3. *
  4. *            Program Name    : XMODDEP.CMD
  5. *            Author        : Keith R. Plossl
  6. *            Date Written    : July 1982
  7. *
  8. * -----------------------------------------------------------------------------
  9. *       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
  10. *
  11. *   This program has been placed in the public domain by Keith R. Plossl
  12. *   for the Atlanta Data Base Users Society, Inc. Atlanta, Georgia
  13. *   and may be copied, modified or used NON-COMMERCIALLY provided this
  14. *   notice, the title block and modification history have not been 
  15. *   removed.  The COMMERCIAL sale or use of this program for profit 
  16. *   is strictly prohibited.  KRP 7/15/83
  17. *   
  18. * -----------------------------------------------------------------------------
  19. *                Modification History
  20. *
  21. *    2/1/83        Added decimal check numbers           Keith R. Plossl
  22. *            to data file & programs.
  23. *
  24. *    7/15/83        Set to Public Domain with Atlanta    Keith R. Plossl
  25. *            Data Base Users Society.
  26. *
  27. * -----------------------------------------------------------------------------
  28. ERASE
  29. STORE 'Y'    TO MODIFY
  30. STORE '                              '    TO BLNKS
  31. STORE F    TO XEND
  32. GO BOTTOM
  33. STORE DATE TO CH:DAT
  34. STORE 0.00 TO CH:AMT
  35. DO WHILE MODIFY <> 'F'
  36.  
  37.     GO TOP
  38.     @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System'
  39.     @ 3,22 SAY 'Deposit Modification Program'
  40.     @ 6,10 SAY '     Deposit Date  ' GET CH:DAT PICTURE '99/99/99'
  41.     @ 7,10 SAY 'Amount of Deposit  ' GET CH:AMT
  42.     READ
  43.  
  44.     LOCATE FOR DATE = CH:DAT .AND. AMOUNT = CH:AMT .AND. NUMBER = 0.0
  45.     ERASE
  46.     @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System'
  47.     @ 3,22 SAY 'Deposit Modification Program'
  48.     IF .NOT.EOF
  49.         @ 6,10 SAY '     Deposit Date : ' + DATE
  50.         @ 7,10 SAY 'Amount of Deposit : ' + STR(AMOUNT,10,2)
  51.  
  52.         @ 21,0 SAY 'Modify This Deposit (Y)es or (N)o'
  53.         WAIT TO MODF
  54.         IF MODF = 'Y'
  55.             ERASE
  56.         @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System'
  57.         @ 3,22 SAY 'Deposit Modification Program'
  58.         @ 6,10 SAY '     Deposit Date  ' GET CH:DAT PICTURE '99/99/99'
  59.         @ 7,10 SAY 'Amount of Deposit  ' GET CH:AMT
  60.         READ
  61.         @ 21,0    SAY BLNKS + BLNKS
  62.         @ 22,0    SAY BLNKS
  63.         @ 21,0  SAY 'Update This Record (Y)es or (N)o'
  64.         WAIT TO ANSWER
  65.         IF ANSWER = 'Y'
  66.             REPLACE AMOUNT    WITH CH:AMT
  67.             REPLACE    DATE    WITH CH:DAT
  68.         ENDIF
  69.         ENDIF
  70.     ELSE
  71.         @ 10,10 SAY 'No Such Deposit on File'
  72.         STORE T TO XEND
  73.     ENDIF
  74.     IF .NOT. XEND
  75.         @ 21,0  SAY BLNKS
  76.         @ 22,0    SAY BLNKS
  77.         @ 21,0    SAY 'Continue Modifying Records (Y)es or (N)o'
  78.         WAIT TO ANSWER            
  79.     ENDIF
  80.     IF XEND
  81.         STORE 'N'  TO ANSWER
  82.     ENDIF
  83.     IF ANSWER = 'N'
  84.         @ 21,0 SAY BLNKS + BLNKS
  85.         @ 22,0 SAY BLNKS
  86.         @ 21,0 SAY 'Enter (F)inished or <CR> to QUIT'
  87.         WAIT TO END
  88.         IF END <> 'F'
  89.             ERASE
  90.             QUIT
  91.         ELSE
  92.             STORE 'F' TO MODIFY
  93.         ENDIF
  94.     ENDIF
  95.     ERASE
  96. ENDDO MODIFY
  97. RELEASE ALL
  98. SET TALK ON
  99. RETURN  
  100. *
  101. *        END OF MODIFY DEPOSIT COMMAND FILE
  102. *
  103.