JOBPASS 
.PROC,JOBPASS*I,
JOB1    ' 1 TO 6 CHARACTERS OF JOB NAME        '=(*N=,*F),
JOB2    ' SEVENTH CHARACTER OF JOB NAME        '=(*N=,*F),
LIST    ' LIST FILE NAME                       '=(*N=0,*F), 
*CALL COMTOB
*CALL COMTOL
. 
.*
.* SAVE BUILD LISTING IN 'TO' QUEUE WITH UJN=JOB_B. 
.*
.*  NOTE - THE JOB'S OUTPUT FILE MAY BE RETRIEVED BY: 
.*               QGET,UJN=JOB1_B,FN=LFN.
.*
IFE,$JOB1$.NE.$$.AND.$TOBLD$.EQ.$WAIT$,L00001.
.IF, ( R1G .EQ. 0 ) ,TT1. 
  SETJOB,DC=TO,UJN=JOB1_B.
.ELSE(TT1)
  SETJOB(DC=TO) 
.ENDIF(TT1) 
ENDIF,L00001. 
  
.*
.* ROUTE COMPILATION LISTINGS TO THE 'TO' QUEUE 
.* UJN = JOB_L
.*
.*  NOTE - THE LIST FILE MAY BE RETRIEVED BY: 
.*               QGET,UJN=JOB1_L,FN=LFN.
.*
IFE,$LIST$.EQ.$0$.OR.$JOB1$.EQ.$$.OR.$TOLIST$.EQ.$NONE$,L00002. 
  REVERT.        JOBPASS.  NO JOB1_L FILE ROUTED. 
ENDIF,L00002.      JOBPASS
REWIND,OUTPUT.
COPYEI,OUTPUT,LIST. 
DAYFILE,LIST. 
ROUTE,LIST,DEF,FM,DC=WT,UJN=JOB1_L. 
REVERT.        JOBPASS
EXIT. 
REVERT,ABORT. JOBPASS 
*WEOR 
