home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / REXXIT.ZIP / SIZEUSED.CMD < prev   
OS/2 REXX Batch file  |  1992-12-06  |  268b  |  15 lines
  1. /* sizeused.cmd - looping and the rxqueue filter */
  2. parse arg filespec
  3. total = 0
  4. '@dir' filespec '/n | rxqueue'
  5. do 5
  6.   pull
  7. end
  8. do queued() - 2
  9.   pull . . size easize .
  10.   total = total + size + easize
  11. end
  12. pull
  13. pull
  14. say filespec 'occupies' total 'bytes'
  15.