home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / mpm1_28.zip / outdate.cmd < prev    next >
OS/2 REXX Batch file  |  1995-10-05  |  319b  |  19 lines
  1. /* MPM_OutDated() example */
  2.  
  3. flist = 'allfiles.cfg'
  4.  
  5. Call MPM_DeselectArea
  6.  
  7. do until lines(flist)=0
  8.   area = linein(flist)
  9.   Call MPM_SelectArea area
  10. end
  11. call stream flist, 'c', 'close'
  12.  
  13. Say 'Moving outdated files. . .'
  14.  
  15. Call MPM_OutDated 365*2, 'MOVE', '0'
  16.  
  17. Say 'Click SEND to continue. . .'
  18. Pull .
  19.