@DEF DSK: PS:,PS: @Take Sys.Cmd @ENA @SILENCE BEGIN:: ! ! Message: Start of DN20N3 test ! @Run Sender *Type START *Blabel BEGIN: *Test DN20N3 *Send Start of DN20N3 test *Exit @ @REVIVE START:: @noerror @DEL DN20N3.DAT @DEL DN20N3.NIP @ERROR @ENABLE @DAY @RESET ! ! NIPLCL.CTL ! OPR:: @DAY ! @OPR * *DISABLE OUT ALL * *WAIT 5 * *DISABLE OUT ALL * *WAIT 10 * NCP:: * *ENTER NCP * *WAIT 10 * *SHOW Q * *WAIT 5 * *WAIT 5 * ! ! "DNZERO" USED AS SYNC TAG FOR TV(IN DNCHK) ! DNZERO:: ! *WAIT 5 * *TELL DN20N3:: ZERO KNOWN CIRCUIT COUNTERS * *WAIT 10 * *WAIT 10 * *WAIT 5 * DNHOST:: *WAIT 5 * *SHOW EXECUTOR CHARACTERISTICS * *WAIT 10 * *LOOP EXECUTOR COUNT 25 LENGTH 100 * *WAIT 10 * *WAIT 5 * *LOOP NODE DN20N3 COUNT 25 LENGTH 100 * *WAIT 10 * DNNODE:: *WAIT 5 * *SET EXECUTOR NODE DN20N3 * *WAIT 10 * *SHOW EXECUTOR CHARACTERISTICS * *WAIT 10 * *WAIT 5 * *LOOP EXECUTOR COUNT 25 LENGTH 100 * *WAIT 10 * *WAIT 5 * *LOOP NODE TOPS20 COUNT 25 LENGTH 100 * *WAIT 10 * *WAIT 10 * *WAIT 5 * DNSHOW:: *SHOW KNOWN CIRCUIT COUNT * *WAIT 10 * *WAIT 10 * *WAIT 5 * *SHOW Q * *WAIT 10 * *WAIT 5 * *EXIT @ ! @silence @CHKPNT BLOG:: @APPEND DN20N3.LOG DN20N3.DAT @RESET @REVIVE ! DNCHKS:: @TV DN20N3.DAT ! LIMIT FOR RETRIES *5SBLABL OPR:: @IF (NOERROR) @GOTO ABORT ! *ZJ-SDNZERO:: @IF (ERROR) @GOTO CONFUS *I.<>.-SOPR::-ZKS.<>.-100XA @IF (ERROR) @GOTO CONFUS ! DNCHK:: *SCOMPLETED @IF (ERROR) @GOTO NORESP ! *0J *SNode unreachable @IF (NOERROR) @GOTO DNOFF *SNo path to destination node @IF (NOERROR) @GOTO DNOFF ! *0J *SFAILED @IF (NOERROR) @GOTO RQFAIL ! !*0J !*SFAILED2LS !@IF (NOERROR) @GOTO RQFAIL ! *0J *SCircuits Counters Completed @IF (ERROR) @GOTO NOCNT ! *0J *s 0 Bytes  @IF (NOERROR) @GOTO NOXFER *SNAKs @IF (NOERROR) @GOTO NAKERR ! DNAOK:: @NOERROR @DEL DN20N3.NIP @GOTO END ! NOCNT:: *0JGA;XDN20N3.NIP @APPEND DN20N3.NIP DN20N3.SFT @Run Sender *Type MAJOR *Blabel NOCNT: *Test DN20N3 *Send REQUEST FOR CIRCUIT COUNTERS NOT COMPLETED!! *SEND RESTARTING CURRENT PASS FOR DN20N3!!!!!!!!!! *Exit @BACKTO START ! NORESP:: *0JGA;XDN20N3.NIP @APPEND DN20N3.NIP DN20N3.SFT ! Message: NO REQUESTS COMPLETED @Run Sender *Type MAJOR *Blabel NORESP: *Test DN20N3 *SEND *** *Send NO DECNET REQUESTS COMPLETED FOR DN20N3!!!!! *SEND ATTEMPTING AUTO RESTART OF NMLT20!!!!!!!!!!! *SEND RESTARTING CURRENT PASS FOR DN20N3!!!!!!!!!! *Exit @goto RSTNML ! RQFAIL:: *0JGA;XDN20N3.NIP @APPEND DN20N3.NIP DN20N3.SFT ! Message: REQUESTS FAILED @Run Sender *Type MAJOR *Blabel RQFAIL: *Test DN20N3 *Send DECNET REQUESTS FAILED!!!!!!!!!!!!!!!!!!!!!! *SEND RESTARTING CURRENT PASS FOR DN20N3!!!!!!!!!! *Exit @BACKTO START ! DNOFF:: ! Message: DN20N3 OFF LINE @Run Sender *Type ERROR *Blabel DNOFF: *Test DN20N3 *Send NODE DN20N3 IS OFF LINE *Exit @goto end ! NOXFER:: ! Message: NO BYTES TRANSFERRED @Run Sender *Type ERROR *Blabel NOXFER: *Test DN20N3 *Send NO BYTES TRANSFERED ON A SYNC LINE *Exit @goto end ! NAKERR:: ! Message: NAKERR'S @Run Sender *Type ERROR *Blabel NAKERR: *Test DN20N3 *Send NAK's IN SUMMARY *Exit @goto end ! RSTNML:: ! Here when no Decnet requests completed. Assume NMLT20 is hung. ! @ENA @ERROR ? @^ESEND 205 ATTEMPTING AUTO RESTART NMLT20 FOR DN20N3  @PAUSE @^ESEND 205 PLEASE DO NOT TYPE ON CTY FOR NEXT 3 MINS. @PAUSE ! CTYTST:: ! TTY 232 if CTY not attached. ! TTY 205 if CTY attached to PTYCON job (hopefully) @ERROR N @SPY 232 @IF (ERROR) @GOTO CTY205 @BREAK ! CTY232:: @NOERROR @ADVISE OPERATOR @232 @ @^X @^E @ @ADVISE OPERATOR @232 @ @GET NML-RESTART.ATO @^E @GOTO RSTMES ! CTY205:: @ERROR N @SPY 205 @IF (ERROR) @GOTO NOTERM @BREAK @NOERROR ! @ADVISE OPERATOR @205 @^U^U @ @^X @^E @ @ADVISE OPERATOR @205 @ @GET NML-RESTART.ATO @^E @ @GOTO RSTMES ! NOTERM:: ! Message: FATAL DECNET HANG ! @Run Sender *Type ERROR *Blabel NOTERM: *Test DN20N3 *Send DECNET REQUESTS HUNG AND CAN'T RESTART NMLT20! *Exit @Goto End ! RSTMES:: @ERROR ? @PAUSE @^ESEND 205 *** INITIALIZING NMLT20 AND RESTARTING DN20N3 CURRENT PASS  ! DNCMD:: @OPR * *DISABLE OUT ALL * *WAIT 5 * *DISABLE OUT ALL * *WAIT 10 * *TAKE SYSTEM:DN20N3.CMD * *NCP SET CIRCUIT DTE-0-1 SERVICE ENABLED * *WAIT 5 * *NCP CLEAR LOGGING FILE EVENT 0.* * *WAIT 5 * @BACKTO NCP ! ! CONFUS:: ! Message: SCRIPT ERROR ! @Run Sender *Type ERROR *Blabel CONFUS: *Test DN20N3 *Send CONFUSION ANALYSING DN20N3 LOG FILE!!!!!!!!! *Exit @Goto End ! ABORT:: ! Message: EXCEEDED ALLOWABLE RETRIES ! @Run Sender *Type ERROR *Blabel ABORT: *Test DN20N3 *Send EXCEEDED ALLOWABLE RETRIES FOR DECNET REQUESTS *Exit @Goto End ! %TERR:: %ERR:: ! Message: DN20N3 UNEXPECTED ERROR ! @Run Sender *Type ERROR *Blabel ERROR: *Test DN20N3 *Send ERROR UNKNOWN ERROR IN DN20N3 *Exit @Goto End ! END:: ! MESSAGE END OF TEST @SILENCE @Run Sender *Type END *Blabel END: *Test DN20N3 *Send End of DN20N3 test *Exit @REVIVE @DAY @RESET %FIN::