.'<ERROR(?)>PA=BASE: .DIR DONE.CTL=/INDIRECT/NOPRDIR/NOPRDEV *.MAC''OR''*.P11 .LET F=$DATE.[1,2]+$DATE.[4,3]+"."+$DATE.[8,2] .R TECO =ERDONE.TEC^[Y<-1-^N;A>HXYHK^[I'F^[MY^[^[ .SU DONE.CTL