home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / ACASH_1.DMS / in.adf / Rexx / Report / PrintReport.acash
Encoding:
Text File  |  1994-09-05  |  282 b   |  22 lines
  1. /*ACash pro Print Entry normal*/
  2.  
  3. OPTIONS RESULTS
  4. address ACASH_REXX
  5.  
  6. getprtfile
  7. file=result
  8.  
  9. if Open('temp',file,'w') then do
  10.     setscrtitle '"Fetching data ..."'
  11.     getreport '"REP"'
  12.     i=0
  13.     do while i<rep.cnt
  14.         call writeln('temp',rep.i)
  15.         i=i+1
  16.         end
  17.     Call Close('temp')
  18. end
  19.  
  20. exit 0
  21.  
  22.