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 / PRNTSUM.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  7KB  |  263 lines
  1. ***** PRNTSUM.CMD *****
  2. ERASE
  3. @ 11,32 SAY [BKKKKKKKKKKKKKKKC]
  4. @ 12,32 SAY [J               J]
  5. @ 13,32 SAY [AKKKKKKKKKKKKKKKD]
  6. SET INTENSITY ON
  7. @ 12,34 SAY [CALCULATING]
  8. GO TOP
  9. RESTORE FROM &UseBase
  10. STORE StateBal TO BegBal
  11.  
  12. **SUMS FOR CANCELLED ITEMS**
  13. **Sum Cancelled Checks**
  14. SUM DEBIT TO CanCheck FOR ((ENTRYCAT = 'C' .OR. ENTRYCAT = 'c') .AND. CAN)
  15. **Sum Cancelled Deposits**
  16. SUM CREDIT TO CanDep FOR ((ENTRYCAT = 'D' .OR. ENTRYCAT = 'd') .AND. CAN)
  17. **Sum Cancelled Miscellaneous Debits and Credits**
  18. SUM DEBIT,CREDIT TO CanMscDeb,CanMscCrd FOR ((ENTRYCAT <> 'D' .AND. ENTRYCAT <> 'd' .AND. ENTRYCAT <> 'C' .AND. ENTRYCAT <> 'c') .AND. CAN)
  19. **Sum Total Cancelled Credits**
  20. STORE (CanDep + CanMscCrd) TO TotCanCrd
  21. **Sum Total Cancelled Debits**
  22. STORE (CanCheck + CanMscDeb) TO TotCanDeb
  23. STORE (BegBal + TotCanCrd - TotCanDeb) TO EndBal
  24.  
  25. **SUMS FOR OUTSTANDING ITEMS**
  26. **Sum Outstanding Checks**
  27. SUM DEBIT TO OutCheck FOR ((ENTRYCAT = 'C' .OR. ENTRYCAT = 'c') .AND. (.NOT. CAN))
  28. **Sum Outstanding Deposits**
  29. SUM CREDIT TO OutDep FOR ((ENTRYCAT = 'D' .OR. ENTRYCAT = 'd') .AND. (.NOT. CAN))
  30. **Sum Outstanding Miscellaneous Debits and Credits**
  31. SUM DEBIT,CREDIT  TO OutMscDeb,OutMscCrd FOR ((ENTRYCAT <> 'D' .AND. ENTRYCAT <> 'd' .AND. ENTRYCAT <> 'C' .AND. ENTRYCAT <> 'c') .AND. (.NOT. CAN))
  32. **Sum Total Outstanding Credits**
  33. STORE (OutDep + OutMscCrd) TO TotOutCrd
  34. **Sum TOTAL Outstanding Debits**
  35. STORE (OutCheck + OutMscDeb) TO TotOutDeb
  36. STORE (EndBal + TotOutCrd - TotOutDeb) TO CheckBal
  37.  
  38. ERASE
  39. GO TOP
  40. STORE ' ' TO Decision
  41. SET INTENSITY OFF
  42. @ 12,17 SAY [-P-                     -S-]
  43. SET INTENSITY ON
  44. @ 12,21 SAY [PRINT HARD COPY]
  45. @ 12,45 SAY [SCREEN DISPLAY]
  46. @ 12,37 GET Decision
  47. READ
  48. ERASE
  49. IF !('&Decision') = 'P'
  50.   SET INTENSITY OFF
  51.   @ 12,17 SAY [-I-                    -E-]
  52.   SET INTENSITY ON
  53.   @ 12,21 SAY [ITOH FORMAT]
  54.   @ 12,45 SAY [EPSON FORMAT]
  55.   STORE ' ' TO DecisionB
  56.   @ 12,35 GET DecisionB
  57.   READ
  58.   ERASE
  59.   STORE 57 TO L
  60.   SET FORMAT TO PRINT
  61.   SET PRINT ON
  62.   SET CONSOLE OFF
  63.   SET MARGIN TO 11
  64.   IF !('&DecisionB') = 'E'
  65.     ? CHR(15)  
  66.     ERASE
  67.   ENDIF
  68. ELSE
  69.   STORE 24 TO L
  70. ENDIF
  71. RELEASE P
  72. STORE 1 TO P
  73. ?
  74. ? 
  75. ? [DATABASE: &UseBase                                               PAGE ]+STR(P,1,0)
  76. ?
  77. ? [                     CHECKING ACCOUNT TRANSACTIONS]
  78. ?
  79. ? [**CHECKS**]
  80. ?
  81. ? [  DATE   CHECK                    TO:                       AMOUNT  OUT]
  82. ? [          NO.]
  83. ?
  84. STORE 1 TO C
  85. LOCATE FOR (ENTRYCAT = 'C' .OR. ENTRYCAT = 'c')
  86. DO WHILE ((C<(L-10)).AND. (.NOT. EOF))
  87.   IF (.NOT. CAN)
  88.     STORE [*] TO OUT
  89.   ELSE
  90.     STORE [ ] TO OUT
  91.   ENDIF
  92.   ? DATE,NO,' ',TO,DEBIT,' ',OUT
  93.   CONTINUE
  94.   STORE (C+1) TO C
  95. ENDDO
  96. IF !('&Decision')<>'P'
  97.   WAIT
  98.   ERASE
  99.   SET INTENSITY OFF
  100. ENDIF
  101. DO WHILE .NOT. EOF
  102.   EJECT
  103.   STORE P+1 TO P
  104.   STORE 1 TO C
  105.   ?
  106.   ? [DATABASE: &UseBase            (**CONTINUED**)                    PAGE ]+STR(P,1,0)
  107.   ?
  108.   ?
  109.   ? [  DATE   CHECK                    TO:                       AMOUNT  OUT]
  110.   ? [          NO.]
  111.   ?
  112.   DO WHILE ((C<(L-6)).AND. (.NOT. EOF))
  113.     IF (.NOT. CAN)
  114.       STORE [*] TO OUT
  115.     ELSE
  116.       STORE [ ] TO OUT
  117.     ENDIF
  118.     ? DATE,NO,' ',TO,DEBIT,' ',OUT
  119.     CONTINUE
  120.     STORE (C+1) TO C
  121.   ENDDO
  122. IF !('&Decision')<>'P'
  123.   WAIT
  124.   ERASE
  125. ENDIF
  126. ENDDO
  127. GO TOP
  128. EJECT
  129. STORE P+1 TO P
  130. @  2, 0 SAY [DATABASE: &UseBase]
  131. @  2,65 SAY [PAGE ]+STR(P,1,0)
  132. @  4, 0 SAY [**DEPOSITS**]
  133. @ 07, 2 SAY [DATE           AMOUNT                                             OUT]
  134. STORE 1 TO C
  135. LOCATE FOR (ENTRYCAT = 'D' .OR. ENTRYCAT = 'd')
  136. DO WHILE ((.NOT. EOF) .AND. (C<L-11))
  137.   IF (.NOT. CAN)
  138.     STORE [*] TO OUT
  139.   ELSE
  140.     STORE [ ] TO OUT
  141.   ENDIF
  142.   ? DATE,'    ',CREDIT,'                                            ',OUT
  143.   CONTINUE
  144.   STORE C+1 TO C
  145. ENDDO
  146. GO TOP
  147.  
  148. ?
  149. ?
  150. ? [**ELECTRONIC FUNDS TRANSFERS AND DESCRIPTIVE TRANSACTIONS**]
  151. ?
  152. ?
  153. ? [  DATE           DESCRIPTION                     CREDIT     DEBIT   OUT]
  154. ?
  155. LOCATE FOR ((ENTRYCAT <> 'C' .AND. ENTRYCAT <> 'c') .AND. (ENTRYCAT <> 'D' .AND. ENTRYCAT <> 'd'))
  156. DO WHILE ((C<L-11) .AND. (.NOT. EOF))
  157.   IF CAN
  158.     STORE ' ' TO OUT
  159.   ELSE
  160.     STORE '*' TO OUT
  161.   ENDIF
  162.   DO CASE
  163.     CASE (ENTRYCAT = 'W' .OR. ENTRYCAT = 'w')
  164.       STORE 'Withdrawal                  ' TO Descrip 
  165.     CASE (ENTRYCAT = 'T' .OR. ENTRYCAT = 't')
  166.       STORE 'Account Transfer            ' TO Descrip
  167.     CASE (ENTRYCAT = 'E' .OR. ENTRYCAT = 'e')
  168.       STORE 'Elec. Funds Transfer        ' TO Descrip
  169.     CASE (ENTRYCAT = 'B' .OR. ENTRYCAT = 'b')
  170.       STORE 'Bank Service Charge         ' TO Descrip
  171.     ENDCASE
  172.   ? DATE,'       ',DESCRIP,CREDIT,DEBIT,'  ',OUT 
  173.   STORE C+1 TO C
  174.   CONTINUE
  175. ENDDO
  176. IF !('&Decision')<> 'P'
  177.   WAIT
  178.   ERASE
  179. ENDIF
  180. DO WHILE .NOT. EOF
  181.   EJECT
  182.   STORE P+1 TO P
  183.   STORE 1 TO C
  184.   ?
  185.   ? [DATABASE: &UseBase            (**CONTINUED**)                    PAGE ]+STR(P,1,0)
  186.   ?
  187.   ? [  DATE           DESCRIPTION                     CREDIT     DEBIT   OUT]
  188.   ?
  189.   DO WHILE ((C<(L-5)) .AND. (.NOT. EOF))
  190.     IF CAN
  191.       STORE ' ' TO OUT
  192.     ELSE
  193.       STORE '*' TO OUT
  194.     ENDIF
  195.     DO CASE
  196.       CASE (ENTRYCAT = 'W' .OR. ENTRYCAT = 'w')
  197.         STORE 'Withdrawal                  ' TO Descrip 
  198.       CASE (ENTRYCAT = 'T' .OR. ENTRYCAT = 't')
  199.         STORE 'Account Transfer            ' TO Descrip
  200.       CASE (ENTRYCAT = 'E' .OR. ENTRYCAT = 'e')
  201.         STORE 'Elec. Funds Transfer        ' TO Descrip
  202.       CASE (ENTRYCAT = 'B' .OR. ENTRYCAT = 'b')
  203.         STORE 'Bank Service Charge         ' TO Descrip
  204.       ENDCASE
  205.     ? DATE,'       ',DESCRIP,CREDIT,DEBIT,'  ',OUT 
  206.     STORE C+1 TO C
  207.     CONTINUE
  208.   ENDDO
  209. IF !('&Decision')<> 'P'
  210.   WAIT
  211.   ERASE
  212. ENDIF
  213. ENDDO
  214. EJECT
  215. SET PRINT OFF
  216. SET CONSOLE ON
  217. STORE P+1 TO P
  218. IF !('&Decision')<> 'P'
  219.   ERASE
  220. ENDIF
  221. @  2,0  SAY [DATABASE: &UseBase]
  222. @  2,65 SAY [PAGE ]+STR(P,1,0)
  223. @  4,20 SAY [********************************]
  224. @  5,20 SAY [*      STATEMENT SUMMARY       *]
  225. @  6,20 SAY [********************************]
  226. @  8, 3 SAY [**STATEMENT**                         **OUTSTANDING**]
  227. @ 10, 7 SAY [Deposits:]
  228. @ 10,24 SAY CanDep
  229. @ 10,45 SAY [Deposits:]
  230. @ 10,62 SAY OutDep
  231. @ 11, 7 SAY [Misc. Credits:]
  232. @ 11,24 SAY CanMscCrd
  233. @ 11,45 SAY [Misc. Credits:]
  234. @ 11,62 SAY OutMscCrd
  235. @ 13, 7 SAY [Checks:]
  236. @ 13,24 SAY CanCheck
  237. @ 13,45 SAY [Checks:]
  238. @ 13,62 SAY OutCheck
  239. @ 14, 7 SAY [Misc. Debits:]
  240. @ 14,24 SAY CanMscDeb
  241. @ 14,45 SAY [Misc. Debits:]
  242. @ 14,62 SAY OutMscDeb
  243. @ 16,20 SAY [BEGINNING BALANCE:]
  244. @ 16,44 SAY BegBal
  245. @ 17,20 SAY [TOTAL DEPOSITS/CREDITS:]
  246. @ 17,44 SAY TotCanCrd
  247. @ 18,20 SAY [TOTAL CHECKS/DEBITS:]
  248. @ 18,44 SAY TotCanDeb
  249. @ 20,20 SAY [ENDING BALANCE:]
  250. @ 20,44 SAY EndBal
  251. @ 22,20 SAY [CHECKBOOK BALANCE:]
  252. @ 22,44 SAY CheckBal
  253. IF !('&Decision')<> 'P'
  254.   WAIT
  255. ENDIF
  256. EJECT
  257. SET FORMAT TO SCREEN
  258. SET INTENSITY ON
  259. RELEASE Decision, DecisionB
  260. RELEASE L
  261. ERASE
  262. RETURN
  263.