home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug106.arc / CHECKS.LBR / $BALANCE.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  74 lines
  1. * * * * *   $BALANCE.CMD    * * * * *    6/30/84
  2. *
  3. *  This program is used to balance your checkbook.
  4. *
  5. ERASE
  6. STORE 'Y' TO again
  7. DO WHILE again = 'Y' .OR. again = 'y'
  8.    DO $get-bal
  9.       *   This program gets the memory variable MBALANCE for the
  10.       *   specified account.  When called, $DEPOSIT.DBF is left in
  11.       *   use and MBALANCE, ACCOUNT, ACTIVE and ACCTNAME memory
  12.       *   variables are available.
  13.    IF account = 'X'
  14.      RELEASE account, again
  15.      RETURN
  16.    ENDIF
  17.    ERASE
  18.    ?
  19.    ? '         RECONCILLIATION OF', acctname
  20.    ? '         ================================='
  21.    ?
  22.    ?
  23.    SUM amt TO dp:out FOR acct = '&account' .AND. .NOT. can
  24.    USE $checks
  25.    SUM amt TO ck:out FOR acct = '&account' .AND. .NOT. can
  26.    ?
  27.    ? '    ACTUAL ACCOUNT BALANCE  = $', mbalance
  28.    ?
  29.    *  - display total of outstanding deposits
  30.    ? 'TOTAL OUTSTANDING DEPOSITS  = $', dp:out
  31.    ?
  32.    *  - display total of outstanding checks
  33.    ? 'TOTAL OUTSTANDING CHECKS    = $', ck:out
  34.    ?
  35.    ? '     BANK STATEMENT BALANCE = $', mbalance + ck:out - dp:out
  36.    ?
  37.    ?
  38.    ?
  39.    ?
  40.    ? '            Reconcile ANOTHER account (Y/any)?'
  41.    SET CONSOLE OFF
  42.    WAIT TO again
  43.    SET CONSOLE ON
  44. ENDDO  ===>  again = 'y' or 'Y'
  45. RELEASE mbalance, account, active, acctname, again, dp:out,;
  46.         ck:out  
  47. RETURN
  48.  
  49.  
  50. 
  51.     WAIT TO right
  52.     STORE !(right) TO right
  53.     SET CONSOLE ON
  54.     IF right <> 'Y'
  55.         LOOP
  56.     ENDIF ==>  right
  57.  ag  $BALANCE.CMD    * * * * *    6/30/84
  58. *
  59. *  This program is used to balance your checkbook.
  60. *
  61. ERASE
  62. STORE 'Y' TO again
  63. DO WHILE again = 'Y' .OR. again = 'y'
  64.    DO $get-bal
  65.       *   This program gets the memory variable MBALANCE for the
  66.       *   specified account.  When called, $DEPOSIT.DBF is left in
  67.       *   use and MBALANCE, ACCOUNT, ACTIVE and ACCTNAME memory
  68.       *   variables are available.
  69.    IF account = 'X'
  70.      RELEASE account, again
  71.      RETURN
  72.    ENDIF
  73.    ERASE
  74.    ?