*DECK,QTFPROC 
*CWEOR,00 
*WIDTH,80,0 
.PROC,QTF*I\, 
NAM" NAM OR RHF "=(RHF=NO,NAM=YES,YES,NO,*K=YES,*N=NO), 
I"INITIAL DIRECTIVES FILE"=(*F,*N=XXDEFI).
.IF,SYS.EQ.NOS,NOS. 
.IF,$NAM$.EQ.$NO$,RHF.
QTFI(IF=I)
REVERT. QTF (RHF).
.ELSE,RHF.
QTFIN(IF=I) 
REVERT. QTF (#NAM). 
.ENDIF,RHF. 
EXIT. 
IF,(EF.EQ.RRE).OR.(EF.EQ.DRE).OR.(EF.EQ.OKE).OR.(EF.EQ.SSE),DROP. 
DISPLAY,EF. 
* QTF, ENDED BY SYSTEM OR OPERATOR. 
REVERT. QTF.
ENDIF,DROP. 
.IF,(OT.EQ.SYO).AND.FILE(INPUT,AS),RERUN. 
IF,(EF.NE.ODE),RERUN. 
RETURN(ZZZZZJB) 
REWIND(INPUT) 
COPYBF(INPUT,ZZZZZJB) 
ROUTE(ZZZZZJB,DC=IN,OT=SYOT)
* QTF, ABORT - RESTART ATTEMPTED. 
ENDIF,RERUN.
.ENDIF,RERUN. 
REVERT(ABORT) QTFPROC 
.ELSE,NOS.
QTFI(IF=I)
REVERT. QTF.
EXIT(S) 
IF,(EF.EQ.RRE).OR.(EF.EQ.OKE),DROP. 
DISPLAY,EF. 
COMMENT. QTF, ENDED BY SYSTEM OR OPERATOR.
REVERT. QTF.
ENDIF,DROP. 
.IF,OT.EQ.BCO,RERUN.
IF,(EF.NE.ODE),RERUN. 
RETURN(ZZZZZJB) 
REQUEST(ZZZZZJB,*Q) 
REWIND(INPUT) 
COPYBF(INPUT,ZZZZZJB) 
ROUTE(ZZZZZJB,DC=IN)
COMMENT. QTF, ABORT - RESTART ATTEMPTED.
ENDIF,RERUN.
.ENDIF,RERUN. 
REVERT(ABORT) QTF.
.ENDIF,NOS. 
.DATA,XXDEFI
.IF,SYS.EQ.NOS,NOS. 
.IF,$NAM$.EQ.$NO$,L1. 
.*
.*  DEFAULT DIRECTIVES FOR NOS RHF VARIANT. 
.*
SCHED,MAXCONS=4.
CLASS,SC=A. 
.ELSE,L1. 
.*
.*  DEFAULT DIRECTIVES FOR NOS NAM VARIANT. 
.*
SCHED,MAXCONS=4.
CLASS,SC=A. 
.ENDIF,L1.
.ELSE,NOS.
.*
.*  DEFAULT DIRECTIVES FOR NOS/BE VARIANT.
.*
SCHED,MAXCONS=4.
CLASS,SC=A. 
.ENDIF,NOS. 
*WIDTH
