Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.tafprc +++|.PROC,TAFPRC.
00002 M00S00002.tafprc +++|* ENTER USER CONTROL STATEMENT HERE.
00003 M00S00003.tafprc +++|OFFSW(3)
00004 M00S00004.tafprc +++|ONSW(4)
00005 M00S00005.tafprc +++|ONSW(5)
00006 M00S00006.tafprc +++|ONSW(6)
00007 M00S00007.tafprc +++|SET,EF=0.
00008 M00S00008.tafprc +++|WHILE,EF.NE.ODE.AND.EF.NE.ORE.AND.SW4.EQ.TRUE,ENDTAF.
00009 M00S00009.tafprc +++|OFFSW(4)
00010 M00S00010.tafprc +++|RFL(210000)
00011 M00S00011.tafprc +++|TAFREC.
00012 M00S00012.tafprc +++|OFFSW(3)
00013 M00S00013.tafprc +++|IFE,EF.NE.0,TAFRECABT.
00014 M00S00014.tafprc +++|CLASS(NS)
00015 M00S00015.tafprc +++|EXIT.
00016 M00S00016.tafprc +++|DMD.
00017 M00S00017.tafprc +++|DMD,0,377777.
00018 M00S00018.tafprc +++|IFE,SW5.EQ.FALSE,ENDSW51.
00019 M00S00019.tafprc +++|RETURN,OUTPUT.
00020 M00S00020.tafprc +++|ENDIF,ENDSW51.
00021 M00S00021.tafprc +++|*
00022 M00S00022.tafprc +++|* TAFREC ABORT.
00023 M00S00023.tafprc +++|*
00024 M00S00024.tafprc +++|REWIND,ZZIRRF,TCF,ZZTIF.
00025 M00S00025.tafprc +++|* LIST TAF RECOVERY REPORT.
00026 M00S00026.tafprc +++|COPYEI,ZZIRRF,OUTPUT.
00027 M00S00027.tafprc +++|* LIST TAF CONFIGURATION FILE.
00028 M00S00028.tafprc +++|COPYSBF,TCF,OUTPUT.
00029 M00S00029.tafprc +++|* LIST TAF INITIALIZATION FILE.
00030 M00S00030.tafprc +++|TDUMP,I=ZZTIF,L=OUTPUT.
00031 M00S00031.tafprc +++|CLASS(NS)
00032 M00S00032.tafprc +++|EXIT.
00033 M00S00033.tafprc +++|ENDIF,TAFRECABT.
00034 M00S00034.tafprc +++|TAF1.
00035 M00S00035.tafprc +++|TAF2.
00036 M00S00036.tafprc +++|CLASS(NS)
00037 M00S00037.tafprc +++|EXIT.
00038 M00S00038.tafprc +++|DMD.
00039 M00S00039.tafprc +++|DMD,0,377777.
00040 M00S00040.tafprc +++|*
00041 M00S00041.tafprc +++|* TAF ABORT.
00042 M00S00042.tafprc +++|*
00043 M00S00043.tafprc +++|TAF2.
00044 M00S00044.tafprc +++|IFE,SW5.EQ.FALSE,ENDSW52.
00045 M00S00045.tafprc +++|RETURN,OUTPUT.
00046 M00S00046.tafprc +++|ENDIF,ENDSW52.
00047 M00S00047.tafprc +++|DLFP.
00048 M00S00048.tafprc +++|REWIND,ZZIRRF,TCF.
00049 M00S00049.tafprc +++|* LIST TAF INITIALIZATION OR RECOVERY REPORT.
00050 M00S00050.tafprc +++|COPYEI,ZZIRRF,OUTPUT.
00051 M00S00051.tafprc +++|* LIST TCF.
00052 M00S00052.tafprc +++|COPYSBF,TCF,OUTPUT.
00053 M00S00053.tafprc +++|IFE,SW6.EQ.TRUE,ENDSW61.
00054 M00S00054.tafprc +++|DAYFILE.
00055 M00S00055.tafprc +++|ENDIF,ENDSW61.
00056 M00S00056.tafprc +++|ROUTE,OUTPUT,DC=PR.
00057 M00S00057.tafprc +++|ONSW(3)
00058 M00S00058.tafprc +++|SET,EF=0.
00059 M00S00059.tafprc +++|IFE,EF.NE.0,TAF2ABT.
00060 M00S00060.tafprc +++|CLASS(NS)
00061 M00S00061.tafprc +++|EXIT.
00062 M00S00062.tafprc +++|DMD.
00063 M00S00063.tafprc +++|DMD,0,377777.
00064 M00S00064.tafprc +++|IFE,SW5.EQ.FALSE,ENDSW53.
00065 M00S00065.tafprc +++|RETURN,OUTPUT.
00066 M00S00066.tafprc +++|ENDIF,ENDSW53.
00067 M00S00067.tafprc +++|DLFP.
00068 M00S00068.tafprc +++|REWIND,ZZIRRF,TCF.
00069 M00S00069.tafprc +++|* LIST TAF INITIALIZATION OR RECOVERY REPORT.
00070 M00S00070.tafprc +++|COPYEI,ZZIRRF,OUTPUT.
00071 M00S00071.tafprc +++|* LIST TCF.
00072 M00S00072.tafprc +++|COPYSBF,TCF,OUTPUT.
00073 M00S00073.tafprc +++|IFE,SW6.EQ.TRUE,ENDSW62.
00074 M00S00074.tafprc +++|DAYFILE.
00075 M00S00075.tafprc +++|ENDIF,ENDSW62.
00076 M00S00076.tafprc +++|ROUTE,OUTPUT,DC=PR.
00077 M00S00077.tafprc +++|ONSW(3)
00078 M00S00078.tafprc +++|SET,EF=0.
00079 M00S00079.tafprc +++|CLASS(NS)
00080 M00S00080.tafprc +++|EXIT.
00081 M00S00081.tafprc +++|ENDIF,TAF2ABT.
00082 M00S00082.tafprc +++|ENDW,ENDTAF.
00083 M00S00083.tafprc +++|CLASS(NS)