home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / golded / data / tools / hispeed / arexx / addhead.rexx next >
OS/2 REXX Batch file  |  1995-02-27  |  2KB  |  98 lines
  1. /*
  2.     This script will add a header to your files.
  3.     The original files won't be changed (we use
  4.     temporary copies)
  5. */
  6.  
  7. options results
  8. shell
  9.  
  10. address HISPEED.1
  11.  
  12. SET REQUESTER ON
  13.  
  14. set ASK "This script will add a simple header to your|files (the originals won't be changed). Proceed ?"
  15.  
  16. if RESULT = 1 then
  17.  
  18.   do
  19.  
  20.     QUERY JOBS
  21.     if RESULT = 0 then
  22.       REQUESTFILE
  23.  
  24.     QUERY JOBS
  25.     JOBS = RESULT
  26.     IF JOBS = 0 then
  27.       exit
  28.  
  29.     /* generate temporary copies in directory T:NEW */
  30.  
  31.     if ~exists('T:NEW') then do
  32.       shell
  33.       MAKEDIR 'T:NEW'
  34.       address HISPEED.1
  35.     end
  36.  
  37.     do N = 0 to JOBS-1
  38.  
  39.       QUERY JOBNAME N
  40.       parse var RESULT PATH NAME REST
  41.       JOB.N  = NAME
  42.       PATH.N = PATH || NAME
  43.       TEMP.N = "T:NEW/" || NAME
  44.       shell
  45.       COPY PATH.N TEMP.N
  46.       address HISPEED.1
  47.       end
  48.  
  49.     /* add headers to temporary copies */
  50.  
  51.     do N = 0 to JOBS-1
  52.  
  53.       if OPEN('HEAD', 'T:HEADER', 'WRITE') = FALSE then
  54.  
  55.          SET WARN "Couldn't open temporary header file !"
  56.  
  57.       else
  58.  
  59.         do
  60.  
  61.           R = WRITELN('HEAD', CENTER(COPIES('*', 60), 70))
  62.           R = WRITELN('HEAD', CENTER(('*' || COPIES(' ', 58) || '*'), 70))
  63.           R = WRITELN('HEAD', CENTER(('*' || COPIES(' ', 58) || '*'), 70))
  64.           R = WRITELN('HEAD', CENTER(('*' || COPIES(' ', 58) || '*'), 70))
  65.           R = WRITELN('HEAD', CENTER(('*' || CENTER('File: ' || PATH.N, 58) || '*'), 70))
  66.           R = WRITELN('HEAD', CENTER(('*' || CENTER('Date: ' || date(), 58) || '*'), 70))
  67.           R = WRITELN('HEAD', CENTER(('*' || COPIES(' ', 58) || '*'), 70))
  68.           R = WRITELN('HEAD', CENTER(('*' || COPIES(' ', 58) || '*'), 70))
  69.           R = WRITELN('HEAD', CENTER(('*' || COPIES(' ', 58) || '*'), 70))
  70.           R = WRITELN('HEAD', CENTER(COPIES('*', 60), 70))
  71.           R = WRITELN('HEAD', '')
  72.           R = WRITELN('HEAD', '')
  73.           R = WRITELN('HEAD', '')
  74.           R = CLOSE('HEAD')
  75.  
  76.           shell
  77.           JOIN '>NIL: T:HEADER "' || PATH.N || '" AS ' || TEMP.N
  78.           DELETE ">NIL:" "T:HEADER"
  79.  
  80.           address HISPEED.1
  81.         end
  82.       end
  83.  
  84.     /* redirect list entries to T:HEADER & print files */
  85.  
  86.     CLR
  87.     do N = 0 to JOBS-1
  88.       SET FILE TEMP.N
  89.       end
  90.  
  91.     SET ASK "Proceed with printing ?"
  92.  
  93.     if RESULT = 1 then
  94.       PRINT
  95.  
  96.   end
  97.  
  98.