home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / golded / data / tools / hispeed / arexx / index.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-27  |  1KB  |  49 lines
  1. /* Print index. For those people who don't like the built-in index */
  2. /* function.                                                       */
  3.  
  4. options results
  5. shell
  6. address HISPEED.1
  7.  
  8. SET REQUESTER ON
  9.  
  10. SET ASK "Print index file ?"
  11.  
  12. if RESULT = 1 then 
  13.  
  14.  do
  15.     QUERY JOBS                  /* anything to print ?         */
  16.  
  17.     if RESULT = 0 then
  18.       REQUESTFILE               /* no, ask for files           */
  19.  
  20.     QUERY JOBS                  /* anything to print now ?     */
  21.  
  22.     if (RESULT ~= 0) then       /* let's go ...                */
  23.  
  24.      do
  25.  
  26.         SET COVER 'HiSpeed:ARexx/Index.PCL'
  27.  
  28.         SET HEADER INDEX        /* ask for index               */
  29.  
  30.         SET REQUESTER OFF       /* turn off statistics display */
  31.         SCAN                    /* create index file T:INDEX   */
  32.         SET REQUESTER ON        /* enable requesters           */
  33.  
  34.         shell                   /* address AmigaDOS            */
  35.  
  36.         do
  37.  
  38.           if OPEN('INIT', 'T:INIT', 'WRITE') then
  39.  
  40.             do
  41.                R = WRITECH('INIT', '"r&l6D&k2G&a15L&a8R')
  42.                R = CLOSE('INIT')
  43.  
  44.                'JOIN T:INIT T:INDEX AS PRT:'
  45.             end
  46.         end
  47.      end
  48.  end
  49.