/*
  BBSIPRT  EXEC -
  This will print a image file on any SPS laser printer(not xerox).
  That means Postscript and AFP.
  Convert the FN image file to psegs, then spsbatch it.
 */

arg fn ft '(' prtr orient .
 if orient = '' ] orient <> 'LAND' then orient = 'PORT'
      /* need to get printer before submit to batch */
 address command 'ERASE $DEV$ SPS A'
      /* disallow 4045's and 3700's, undependable */
 address command 'PIPE < $DEV$ SPS G ] NLOCATE /4045/ ] NLOCATE /3700/',
      '] > $DEV$ SPS A'
         /* is it a valid prechosen printer */
 if prtr <> '' then do
    address command 'EXECIO * DISKR $DEV$ SPS A (FINIS' ,
                 'LO /']]left(prtr,8)]]'/ ZONE 1 8 STEM XXX.'
    if rc = 0 then skip = 1 /* yes it is ok */
    else home = prtr
    end
 else do  /* bad choice */
        /* use their location from database table as preselect */
    address command 'EXECIO * DISKR DATABASE TABLE * (FINIS' ,
                    'LO /']]left(userid(),8)]]'/ ZONE 1 8 STEM DBT.'
    if rc = 0 then
       parse upper var DBT.1 . . . . . . Home .
    else home = 'NoLocation'
    end
 if skip <> 1 then do
    prc = ScrolWin('Select a Graphic Printer with Cursor and Press Enter|',
                   'PF3/12 Cancel  PF7 Up  PF8 Down|TUR|WHITE|||',
                   '$DEV$ SPS A |12|||'home'|PRTSEL2 HELP *')
    pull prtr .
    address command 'ERASE $DEV$ SPS A'
    if prc <> 0 ] prtr = '' then do
       say "You cancelled or didn't choose a printer"
       exit
       end
    end

 z.1 = '/* Batch image printer */"LINKER MJS-ADIS 191"'
 z.2 = 'address command "COPYFILE' fn 'IMAGE A $$PICT$$ = A"'
 z.3 = '"EXEC SCALE $$PICT$$ (HSIZE 7.5"'
 if ft = 'TIFF' then z.4 = '"EXEC TIF2PSEG $$PICT$$"'
 else                z.4 = '"EXEC IMG2PSEG $$PICT$$"'
 z.5 = 'address command "COPYFILE IMGPRINT SCRIPT *' fn '= A"'
   /* this is so when I make change from SCRIPT to PSEGPS it works */
 z.6 = 'address command "COPYFILE $$PICT$$ PSEGPS * = SCRIPT A"'
 z.7 = ''
   /* this gets run directly on batch machine */
 z.8 = 'address command "EXEC SPSBATCH' fn 'SCRIPT MSG(MJS-ADIS) PLC('PRTR')',
       'TOID('userid()') FROMID('userid()')' orient ' "'
 address command 'EXECIO 8 DISKW $J_O_B$ EXEC A3 (STEM Z. FINIS'
 address command 'EXEC SETSAVE'
'CP SET IMSG OFF'
    /* get the filemode */
 qd = queued()
 address command 'LISTFILE' fn 'IMAGE * (LIFO'
 do queued() - qd
    pull apfn
    end
 address command 'EXEC DGRBATCH SUBMIT $J_O_B$ EXEC',
                 '(CLA C ERROR NODUMP APPEND('apfn')'
 address command 'EXEC SETREST'
return