home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / golded / data / tools / hispeed / arexx / fast.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-27  |  724b  |  52 lines
  1. /* copy all jobs to T: (usually placed in RAM:) to speed up operation */
  2.  
  3. options results
  4. shell
  5.  
  6. address HISPEED.1
  7.  
  8. SET REQUESTER ON
  9.  
  10. QUERY JOBS
  11.  
  12. if RESULT = 0 then
  13.   REQUESTFILE
  14.  
  15. QUERY JOBS
  16. JOBS = RESULT
  17.  
  18. if JOBS > 0 then
  19.  
  20.   do
  21.  
  22.     /* generate temporary copies in directory T: */
  23.  
  24.     if ~Exists("T:FAST") then do
  25.       shell
  26.       MAKEDIR 'T:FAST'
  27.       address HISPEED.1
  28.     end
  29.  
  30.     do N = 0 to JOBS - 1
  31.  
  32.       QUERY JOBNAME N
  33.       parse var RESULT PATH NAME REST
  34.       JOB.N  = NAME
  35.       PATH.N = PATH || NAME
  36.       TEMP.N = "T:FAST/" || NAME
  37.       shell
  38.       COPY PATH.N TEMP.N
  39.       address HISPEED.1
  40.  
  41.     end
  42.  
  43.     /* redirect list entries */
  44.  
  45.     CLR
  46.  
  47.     do N = 0 to JOBS-1
  48.       SET FILE TEMP.N
  49.     end
  50.  
  51.   end
  52.