JOBFAIL 
.PROC,JOBFAIL*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
. 
.*
.* JOB ABORTED.  PRINT BUILD LISTING. 
.*               RETURN #LIST FILE. 
.*
IFE,$JOB1$.NE.$$.AND.$TOBLD$.EQ.$WAIT$,L00001.
.IF, ( R1G .EQ. 0 ) ,TT1. 
  SETJOB,DC=TO,UJN=JOB1_F.
.ELSE(TT1)
  SETJOB(DC=TO) 
.ENDIF(TT1) 
ELSE(L00001)
  SETJOB,DC=DF. 
ENDIF,L00001. 
IFE,$LIST$.NE.$0$.AND.$TOLIST$.EQ.$WAIT$,QUEUE. 
  REWIND,OUTPUT.
  COPYEI,OUTPUT,LIST. 
  DAYFILE,LIST. 
  ROUTE,LIST,DC=WT,UJN=JOB1_L.
ENDIF,QUEUE.
REVERT.       JOBFAIL 
EXIT. 
REVERT,ABORT. JOBFAIL 
*WEOR 
