home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG061.ARC / ENTERMSC.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  5KB  |  168 lines
  1. ***** ENTERMSC.CMD *****
  2. RESTORE FROM &UseBase
  3. STORE DATE() TO MDate
  4. USE &UseBase
  5. DO WHILE T
  6. ERASE
  7. SET INTENSITY ON
  8. @  1, 6 SAY "********************************************************************"
  9. @  2, 6 SAY "*                                                                  *"
  10. @  3, 6 SAY "********************************************************************"
  11. SET INTENSITY OFF
  12. @  2,29 SAY "MISCELLANEOUS ENTRIES"
  13. @  9,30 SAY "1  Withdrawal"
  14. @ 10,30 SAY "2  Transfer of Funds"
  15. @ 11,30 SAY "3  Bank Service Charge"
  16. @ 12,30 SAY "4  Electronic Funds Transfer"
  17. SET INTENSITY ON
  18. @ 14,30 SAY "X  Exit to Menu"
  19. SET INTENSITY OFF
  20. STORE ' ' TO MiscChoice
  21. @ 16,34 SAY "Choice?"
  22. SET INTENSITY ON
  23. @ 16,42 GET MiscChoice
  24. READ
  25. DO WHILE (MiscChoice < '1' .OR. MiscChoice > '4') .AND.(!('&MiscChoice') <> 'M')
  26.   IF !('&MiscChoice') = 'X'
  27.     RELEASE MiscChoice, MDate
  28.     SAVE TO &UseBase
  29.     RELEASE Balance, MNo, StateBal
  30.     SAVE TO CkMem
  31.     RETURN
  32.   ELSE
  33.   @ 18,0
  34.   STORE 1 TO N
  35.   DO WHILE N < 10
  36.     STORE N+1 TO N
  37.   ENDDO
  38.   RELEASE N
  39.   @ 18,24 SAY "INVALID CHOICE. PLEASE TRY AGAIN."
  40.   @ 16,42 GET MiscChoice
  41.   READ
  42.   ENDIF
  43. ENDDO
  44. SET COLON OFF
  45. DO CASE
  46.   CASE (MiscChoice='M'.OR. MiscChoice = 'm')
  47.     ERASE
  48.     DISPLAY MEMORY
  49.     WAIT
  50.   CASE MiscChoice = '1'
  51.     APPEND BLANK
  52.     REPLACE DATE WITH MDate, ENTRYCAT WITH 'W'
  53.     ERASE
  54.     @  6,22 SAY "*****************************"
  55.     @  7,22 SAY "*                           *" 
  56.     @  8,22 SAY "*****************************"
  57.     SET INTENSITY OFF
  58.     @  7,27 SAY "WITHDRAWAL OF FUNDS"
  59.     SET INTENSITY ON
  60.     @ 11,37 SAY "DATE:"
  61.     @ 11,43 GET DATE PICTURE '99/99/99'
  62.     @ 12,28 SAY "PRIOR BALANCE:"
  63.     @ 12,43 SAY STR(Balance,8,2)
  64.     @ 13,21 SAY "AMOUNT OF WITHDRAWAL:"
  65.     @ 13,43 GET DEBIT
  66.     READ
  67.     STORE DATE TO MDate
  68.     IF DEBIT = 0
  69.       DELETE
  70.       PACK
  71.       RELEASE MiscChoice, MDate
  72.       SAVE TO &UseBase
  73.       RELEASE Balance, MNo, StateBal
  74.       SAVE TO CkMem
  75.       SET COLON ON
  76.       RETURN
  77.     ENDIF  
  78.     @ 14,30 SAY "NEW BALANCE:"
  79.     STORE (Balance - DEBIT) TO Balance
  80.     @ 14,42 SAY STR(Balance,8,2)
  81.     @ 19,23 SAY "HIT            TO CONTINUE"
  82.     SET INTENSITY OFF
  83.     @ 19,28 SAY "<RETURN>"
  84.     SET CONSOLE OFF
  85.     WAIT
  86.     SET CONSOLE ON
  87.   CASE MiscChoice = '2'
  88.     APPEND BLANK
  89.     REPLACE DATE WITH MDate, ENTRYCAT WITH 'T'
  90.     ERASE
  91.     @  6,22 SAY "*****************************"
  92.     @  7,22 SAY "*                           *" 
  93.     @  8,22 SAY "*****************************"
  94.     SET INTENSITY OFF
  95.     @  7,28 SAY "TRANSFER OF FUNDS"
  96.     SET INTENSITY ON
  97.     @ 11,37 SAY "DATE:"
  98.     @ 11,43 GET Date PICTURE '99/99/99'
  99.     @ 12,28 SAY "PRIOR BALANCE:"
  100.     @ 12,43 SAY STR(Balance,8,2)
  101.     @ 13,35 SAY "CREDIT:"
  102.     @ 13,43 GET CREDIT
  103.     @ 14,36 SAY "DEBIT:"
  104.     @ 14,43 GET DEBIT
  105.     READ
  106.     STORE DATE TO MDate
  107.     IF (DEBIT = 0 .AND. CREDIT = 0)
  108.       DELETE
  109.       PACK
  110.       RELEASE MiscChoice, MDate
  111.       SAVE TO &UseBase
  112.       RELEASE Balance, MNo, StateBal
  113.       SAVE TO CkMem
  114.       SET COLON ON
  115.       RETURN
  116.     ENDIF  
  117.     STORE (Balance + CREDIT - DEBIT) TO Balance
  118.     @ 15,30 SAY "NEW BALANCE:"
  119.     @ 15,42 SAY STR(Balance,8,2)
  120.     @ 19,23 SAY "HIT            TO CONTINUE"
  121.     SET INTENSITY OFF
  122.     @ 19,28 SAY "<RETURN>"
  123.     SET CONSOLE OFF
  124.     WAIT
  125.     SET CONSOLE ON
  126.   CASE MiscChoice = '3'
  127.     APPEND BLANK
  128.     REPLACE DATE WITH MDate, ENTRYCAT WITH 'B'
  129.     ERASE
  130.     @  6,22 SAY "*****************************"
  131.     @  7,22 SAY "*                           *" 
  132.     @  8,22 SAY "*****************************"
  133.     SET INTENSITY OFF
  134.     @  7,27 SAY "BANK SERVICE CHARGE"
  135.     SET INTENSITY ON
  136.     @ 11,37 SAY "DATE:"
  137.     @ 11,43 GET Date PICTURE '99/99/99'
  138.     @ 12,28 SAY "PRIOR BALANCE:"
  139.     @ 12,43 SAY STR(Balance,8,2)
  140.     @ 13,25 SAY "AMOUNT OF CHARGE:"
  141.     @ 13,43 GET DEBIT
  142.     READ
  143.     STORE DATE TO MDate
  144.     IF DEBIT = 0
  145.       DELETE
  146.       PACK
  147.       RELEASE MiscChoice, MDate
  148.       SAVE TO &UseBase
  149.       RELEASE Balance, MNo, StateBal
  150.       SAVE TO CkMem
  151.       SET COLON ON
  152.       RETURN
  153.     ENDIF  
  154.     @ 14,30 SAY "NEW BALANCE:"
  155.     STORE (Balance - DEBIT) TO Balance
  156.     @ 14,42 SAY STR(Balance,8,2)
  157.     @ 19,23 SAY "HIT            TO CONTINUE"
  158.     SET INTENSITY OFF
  159.     @ 19,28 SAY "<RETURN>"
  160.     SET CONSOLE OFF
  161.     WAIT
  162.     SET CONSOLE ON
  163.   CASE MiscChoice = '4'
  164.     DO EFT
  165.   ENDCASE
  166.   SET COLON ON
  167. ENDDO
  168.