TAFPRC
.PROC,TAFPRC. 
* ENTER USER CONTROL STATEMENT HERE.
OFFSW(3)
ONSW(4) 
ONSW(5) 
ONSW(6) 
SET,EF=0. 
WHILE,EF.NE.ODE.AND.EF.NE.ORE.AND.SW4.EQ.TRUE,ENDTAF. 
OFFSW(4)
RFL(210000) 
TAFREC. 
OFFSW(3)
IFE,EF.NE.0,TAFRECABT.
CLASS(NS) 
EXIT. 
DMD.
DMD,0,377777. 
IFE,SW5.EQ.FALSE,ENDSW51. 
RETURN,OUTPUT.
ENDIF,ENDSW51.
* 
* TAFREC ABORT. 
* 
REWIND,ZZIRRF,TCF,ZZTIF.
* LIST TAF RECOVERY REPORT. 
COPYEI,ZZIRRF,OUTPUT. 
* LIST TAF CONFIGURATION FILE.
COPYSBF,TCF,OUTPUT. 
* LIST TAF INITIALIZATION FILE. 
TDUMP,I=ZZTIF,L=OUTPUT. 
CLASS(NS) 
EXIT. 
ENDIF,TAFRECABT.
TAF1. 
TAF2. 
CLASS(NS) 
EXIT. 
DMD.
DMD,0,377777. 
* 
* TAF ABORT.
* 
TAF2. 
IFE,SW5.EQ.FALSE,ENDSW52. 
RETURN,OUTPUT.
ENDIF,ENDSW52.
DLFP. 
REWIND,ZZIRRF,TCF.
* LIST TAF INITIALIZATION OR RECOVERY REPORT. 
COPYEI,ZZIRRF,OUTPUT. 
* LIST TCF. 
COPYSBF,TCF,OUTPUT. 
IFE,SW6.EQ.TRUE,ENDSW61.
DAYFILE.
ENDIF,ENDSW61.
ROUTE,OUTPUT,DC=PR. 
ONSW(3) 
SET,EF=0. 
IFE,EF.NE.0,TAF2ABT.
CLASS(NS) 
EXIT. 
DMD.
DMD,0,377777. 
IFE,SW5.EQ.FALSE,ENDSW53. 
RETURN,OUTPUT.
ENDIF,ENDSW53.
DLFP. 
REWIND,ZZIRRF,TCF.
* LIST TAF INITIALIZATION OR RECOVERY REPORT. 
COPYEI,ZZIRRF,OUTPUT. 
* LIST TCF. 
COPYSBF,TCF,OUTPUT. 
IFE,SW6.EQ.TRUE,ENDSW62.
DAYFILE.
ENDIF,ENDSW62.
ROUTE,OUTPUT,DC=PR. 
ONSW(3) 
SET,EF=0. 
CLASS(NS) 
EXIT. 
ENDIF,TAF2ABT.
ENDW,ENDTAF.
CLASS(NS) 
