home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbbooks.zip / COA.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  512b  |  18 lines
  1. SELE PRIM
  2. USE COA INDEX COA
  3. SELE SECO
  4. USE TRANS2 INDEX ACCOUNTS
  5.  
  6. SELE PRIM
  7. DO WHILE .NOT. EOF
  8.    SELE PRIM
  9.    STORE STR(ACCT,6,2) TO SEARCH
  10.    SELE SECO
  11.    FIND &SEARCH
  12.    SUM AMOUNT WHILE ACCT=&SEARCH TO TOT
  13.    SELE PRIM
  14.    ? ACCT,TITLE,TOT
  15.    SKIP
  16. ENDDO
  17.  
  18. ng Income        5000.000   0                    12/12/84   100.00Consulting Income        5000.000   0                    12/12/84   300.00House Payment             500.001 100B of A              12/12/84   300.00House Payment