home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / programme / GoldED / tools / hispeed / arexx / Join.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-10-06  |  1.9 KB  |  84 lines
  1. /* Join jobs together. Useful to save some paper */
  2.  
  3. options results
  4. shell
  5. address HISPEED.1
  6.  
  7. SET REQUESTER ON
  8.  
  9. QUERY JOBS
  10. JOBS = RESULT
  11.  
  12. if JOBS < 2 then
  13.  
  14.  SET WARN "At least two jobs (files) required !"
  15.  
  16. else
  17.  
  18.   do
  19.  
  20.     SET ASK "This macro will join your files together, creating|a file T:DOCUMENT. The files will be separated by|form feed codes. Proceed ?"
  21.  
  22.     if RESULT = 1 then 
  23.  
  24.       do
  25.  
  26.         COMMAND = 'JOIN '
  27.  
  28.         do N = 0 to JOBS-1
  29.  
  30.           QUERY JOBNAME N
  31.           parse var RESULT PATH NAME REST
  32.  
  33.           TEMP    = 'T:' || NAME
  34.  
  35.           if OPEN('HEAD', 'T:HEADER', 'WRITE') = FALSE then
  36.  
  37.              SET WARN "Couldn't open temporary header file !"
  38.  
  39.           else
  40.  
  41.             if OPEN('HEAD', 'T:HEADER', 'WRITE') = FALSE then
  42.  
  43.               SET WARN "Couldn't open temporary header file !"
  44.  
  45.             else do
  46.  
  47.               if (N ~= 0) then 
  48.                 do
  49.                   
  50.                   R = WRITELN('HEAD', '' )
  51.                   R = WRITELN('HEAD', '' )
  52.                   R = WRITECH('HEAD', ' ')  /* form feed */
  53.                 end
  54.               
  55.               R = WRITELN('HEAD', CENTER(COPIES('*', 60), 70))
  56.               R = WRITELN('HEAD', CENTER(('*' || COPIES(' ', 58) || '*'), 70))
  57.               R = WRITELN('HEAD', CENTER(('*' || CENTER('File: ' || PATH || NAME, 58) || '*'), 70))
  58.               R = WRITELN('HEAD', CENTER(('*' || COPIES(' ', 58) || '*'), 70))
  59.               R = WRITELN('HEAD', CENTER(COPIES('*', 60), 70))
  60.               R = WRITELN('HEAD', '')
  61.               R = WRITELN('HEAD', '')
  62.               R = WRITELN('HEAD', '')
  63.               R = CLOSE('HEAD')
  64.  
  65.               shell
  66.               JOIN '>NIL: T:HEADER "' || PATH || NAME || '" AS ' || TEMP
  67.               address HISPEED.1
  68.  
  69.               COMMAND = COMMAND || TEMP || ' '
  70.             end
  71.         end
  72.  
  73.         shell
  74.         COMMAND || 'AS T:DOCUMENT'
  75.  
  76.         address HISPEED.1
  77.  
  78.         SET PERFORMFF
  79.         CLR
  80.         SET FILE 'T:DOCUMENT'
  81.  
  82.       end
  83.   end
  84.