home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug061.arc / CANMSC.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  77 lines
  1. ***** CANMSC.CMD *****
  2. ERASE
  3. * BORDER ROUTINE REMOVED
  4. SET INTENSITY ON
  5. @  6, 8 SAY [The final step is to cancel miscellaneous entries, which]
  6. @  7, 8 SAY [consist of Withdrawals, Account Transfers (to or from your]
  7. @  8, 8 SAY [account), Electronic Funds Transfers (such as "Check-O-]
  8. @  9, 8 SAY [Matic"), and Bank Service Charges.  When you're ready for]
  9. @ 10, 8 SAY [this final step,]
  10. SET INTENSITY OFF
  11. @ 13,23 SAY [HIT            TO CONTINUE]
  12. SET INTENSITY ON
  13. @ 13,28 SAY [<RETURN>]
  14. SET CONSOLE OFF
  15. WAIT
  16. SET CONSOLE ON
  17. ERASE
  18. @  1, 9 SAY [**********************************************************]
  19. @  2, 9 SAY [*                                                        *]
  20. @  3, 9 SAY [**********************************************************]
  21. SET INTENSITY OFF
  22. @  2,22 SAY [CANCELING MISCELLANEOUS ENTRIES]
  23. SET INTENSITY ON
  24. @  7, 9 SAY [The one-letter code on the left indicates whether the item]
  25. @  8, 9 SAY [is a Withdrawal (W), an Account Transfer (T), an Electronic]
  26. @  9, 9 SAY [Funds Transfer (E), or a Bank Service Charge (C).  In the]
  27. @ 10, 9 SAY [middle is the date of the transaction, as you entered it.]
  28. @ 11, 9 SAY [As before, type 'C' to Cancel, 'S' to Skip, or 'X' to abort]
  29. @ 12, 9 SAY [and exit.]
  30. LOCATE FOR (ENTRYCAT <> 'D' .AND. ENTRYCAT <> 'd' .AND. ENTRYCAT <> 'C' .AND. ENTRYCAT <> 'c')
  31. DO WHILE (.NOT. EOF)
  32.   SET INTENSITY ON
  33.   @ 15, 8 SAY [CODE:     DATE:            DEBIT:            CREDIT:]
  34.   SET INTENSITY OFF
  35.   @ 15,15 SAY ENTRYCAT
  36.   @ 15,25 SAY DATE
  37.   @ 15,43 SAY DEBIT
  38.   @ 15,62 SAY CREDIT
  39.   @ 18,24 SAY [-C-            -S-]
  40.   SET INTENSITY ON
  41.   @ 18,28 SAY [CANCEL]
  42.   @ 18,43 SAY [SKIP]
  43.   @ 20,27 SAY [-X- ABORT AND EXIT]
  44.   STORE ' ' TO Decision
  45.   @ 18,35 GET Decision
  46.   READ
  47.   DO WHILE (!('&Decision')<>'S' .AND. !('&Decision')<>'C')
  48.     IF !('&Decision')='X'
  49.       GO TOP
  50.       REPLACE CAN WITH F FOR CAN
  51.       RELEASE Decision
  52.       ERASE
  53.       RETURN
  54.     ENDIF
  55.     @ 22,0
  56.     STORE 1 TO N
  57.     DO WHILE N<10
  58.       STORE N+1 TO N
  59.     ENDDO 
  60.     @ 22,21 SAY [INVALID CHOICE. PLEASE TRY AGAIN.]
  61.     STORE ' ' TO Decision
  62.     @ 18,35 GET Decision
  63.     READ
  64.     RELEASE N
  65.   ENDDO
  66.   @ 22,0
  67.   IF !('&Decision') = 'C'
  68.     REPLACE CAN WITH T
  69.     CONTINUE
  70.   ELSE
  71.     CONTINUE
  72.   ENDIF
  73. ENDDO
  74. RELEASE Decision
  75. ERASE
  76. RETURN
  77.