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 / VERIFY.CMD < prev   
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  70 lines
  1. ***** VERIFY.CMD *****
  2. USE &UseBase
  3. RESTORE FROM &UseBase
  4. RELEASE CmChoice
  5. ERASE
  6. *@ 11,20 SAY "BKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKC"
  7. *@ 12,20 SAY "J                                J"
  8. *@ 13,20 SAY "AKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKD"
  9. SET INTENSITY ON
  10. @ 12,24 SAY "VERIFICATION IN PROGRESS"
  11. SUM CREDIT TO VCredit
  12. SUM DEBIT TO VDebit
  13. STORE (StateBal + VCredit - VDebit) TO VBal
  14. ERASE
  15. DO CASE
  16. CASE VBal <> Balance
  17.   STORE VBal - Balance to Error
  18.   SET INTENSITY OFF
  19.   @ 11,26 SAY "VBalance =" + STR(VBal,8,2)
  20.   @ 12,26 SAY "Balance  =" + STR(Balance,8,2)
  21.   @ 14,26 SAY "Error    =" + STR(Error,8,2)
  22.   @ 16,16 SAY "-U-                    -X-"
  23.   SET INTENSITY ON
  24.   @ 16,20 SAY "UPDATE BALANCE"
  25.   @ 16,43 SAY "EXIT TO MENU"
  26.   STORE ' ' TO Decision
  27.   @ 16,35 GET Decision
  28.   READ
  29.   RELEASE VCredit
  30.   RELEASE VDebit
  31.   RELEASE Error
  32.   IF !('&Decision') = 'U'
  33.     RELEASE Decision
  34.     STORE VBal TO Balance
  35.     RELEASE VBal
  36.     SAVE TO &UseBase
  37.     RELEASE Balance
  38.     RELEASE MNo
  39.     RELEASE CkChoice
  40.     RETURN
  41.   ELSE
  42.     RELEASE StateBal
  43.     RELEASE Decision
  44.     RELEASE VBal
  45.     RELEASE Balance
  46.     RELEASE MNo
  47.     RELEASE CkChoice
  48.     RETURN
  49.   ENDIF
  50. CASE VBal = Balance
  51.   SET INTENSITY OFF
  52.   @ 12,24 SAY "BALANCE OF "+STR(VBal,8,2)+" VERIFIED"
  53.   @ 16,26 SAY "HIT          TO CONTINUE"
  54.   SET INTENSITY ON
  55.   @ 16,30 SAY "<RETURN>"
  56.   SET CONSOLE OFF
  57.   WAIT
  58.   SET CONSOLE ON
  59.     RELEASE StateBal
  60.     RELEASE Decision
  61.     RELEASE VBal
  62.     RELEASE VCredit
  63.     RELEASE VDebit
  64.     RELEASE Balance
  65.     RELEASE MNo
  66.     RELEASE CkChoice
  67.     RETURN
  68. ENDCASE
  69. RETURN
  70.