Google
 

Trailing-Edge - PDP-10 Archives - BB-H348C-RM_1982 - swskit-v21/certification/20.ctl
There are no other files named 20.ctl in the archive.
@noerror
!	This control file tests NFT-20 against a local or remote
!	FAL-20.
!
!
@GET SYS:FAL
@INFORMATION VERSION
@GET SYS:NFT
@INFORMATION VERSION
@NFT
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Test non COPY commands
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Here test the SET command and set defaults for all later commands
!
*SET DEFAULTS REMOTE-NODE::/USER:REMOTE-USER/PASS:REMOTE-PASSWORD/ACCOUNT:REMOTE-ACCOUNT/OSTYPE:TOPS20
!
!	Check for good error analysis
!
*SET DEFAULTS ABC::/BADSWITCH:DEF
*SET BADARG DEF
!
!	Here test the HELP command
!
*HELP
!
!	Here check for proper error analysis
!
*HELP SUBMIT
!
!	Here test the INFORMATION command
!
*INFORMATION DEFAULTS
*INFORMATION DECNET
!
!	Check for good error analysis
!
*INFORMATION ABC
!
!	Here test the TAKE command and the TYPE command
!	(Note that the remote node name must be correct in
!	the file TAKE.CMD.)
!
*TAKE TAK20.CMD
*TAKE TAK20.CMD TAKE.LOG /DISPLAY
!
!	Check for good error analysis
!
*TAKE ABC.DEF
*TAKE STRMCR.ASC
!
!	Here test TYPE command with wildcards
!
*TYPE REMOTE-NODE::HLP:B*.*
!
!	Check for good error analysis
!
*TYPE &^!&#%^#!@#%!^#!#
*TYPE REMOTE-NODE::<NOSUCHNAME>A.B
*TYPE REMOTE-NODE::HLP:NFT.HLP/NOSWITCH
!
!	Here test the DIRECTORY command
!
*COPY STRMCR.ASC REMOTE-NODE::ABCDEF.GHI
*DIRECTORY REMOTE-NODE::
*DIRECTORY REMOTE-NODE::PS:
*DIRECTORY REMOTE-NODE::PS:<REMOTE-USER>
*DIRECTORY REMOTE-NODE::PS:<REMOTE-USER>ABCDEF
*DIRECTORY REMOTE-NODE::PS:<REMOTE-USER>ABCDEF.GHI
*DIRECTORY REMOTE-NODE::PS:<REMOTE-USER>ABCDEF.GHI.1
!
!	Here test the use of remote logical names
!
*DIRECTORY REMOTE-NODE::HLP:
!
!	Here test the use of wild cards and wild characters
!
*DIRECTORY REMOTE-NODE::PS:<REMOTE-USER>*.*.*
*DIRECTORY REMOTE-NODE::PS:<REMOTE-USER>A*D*.*
*DIRECTORY REMOTE-NODE::PS:<REMOTE-USER>%%C%%%.GH%
*DIRECTORY REMOTE-NODE::PS:<REMOTE-USER*>
*DIRECTORY REMOTE-NODE::PS:<A*>
!
!	Check for good error analysis
!
*DIRECTORY REMOTE-NODE::ABC.DEF
*DIRECTORY REMOTE-NODE::<ABC>ABC.DEF
*DIRECTORY REMOTE-NODE::[123,456]ABC.DEF;3
*DIRECTORY ABCDEFG::A.B/USER:A/ACC:B/PASS:C
*DIRECTORY REMOTE-NODE::^%!$@$#@^%!$@&^!%*@&!@*!&@!^$%!
!
!	Here test the PRINT command
!
*COPY STRMCR.ASC REMOTE-NODE::
*PRINT REMOTE-NODE::PS:<REMOTE-USER>STRMCR.ASC
!
!	Here test the print command with wildcards
!
*COPY STRMCR.ASC REMOTE-NODE::TEST.ASC
*PRINT REMOTE-NODE::*.ASC
!
!	Check for good error analysis
!
*PRINT ABC
*PRINT REMOTE-NODE::NOSUCHFILE
*PRINT REMOTE-NODE::<%$^%$>A.B
!
!	Here test the DELETE command
!
*COPY STRMCR.ASC REMOTE-NODE::A.1
*COPY STRMCR.ASC REMOTE-NODE::A.2
*COPY STRMCR.ASC REMOTE-NODE::A.3
*COPY STRMCR.ASC REMOTE-NODE::A.4
*COPY STRMCR.ASC REMOTE-NODE::A.5
*DIR REMOTE-NODE::A.*
*DELETE REMOTE-NODE::PS:<REMOTE-USER>A.1
*DELETE REMOTE-NODE::A.*
*DIR REMOTE-NODE::A.*
!
!	Check for proper error analysis
!
*DELETE REMOTE-NODE::A.*
*DELETE
*DELETE REMOTE-NODE::SYS:NFT.EXE
!
!	Here test the SUBMIT command
!
*COPY SUB20.CTL REMOTE-NODE::<REMOTE-USER>TEST.CTL
*SUBMIT REMOTE-NODE::PS:<REMOTE-USER>TEST.CTL
*COPY SUB20.CTL REMOTE-NODE::SUB1.CTL
*COPY SUB20.CTL REMOTE-NODE::SUB2.CTL
*SUBMIT REMOTE-NODE::SUB*.CTL
!
!	Check for proper error analysis
!
*SUBMIT
*SUBMIT ABCDEFGHI::SUB1.CTL
*SUBMIT REMOTE-NODE::TEST.ABC
*SUBMIT REMOTE-NODE::TEST.CTL/TIME:0:10:0
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Test COPY commands in BLOCK IO mode
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Here test the copy command in BLOCK I/O mode. BLOCK I/O
!	mode copies any file and its FDB exactly as they are.
!	No translations of any sort are done.
!
*COPY NULL.BIN REMOTE-NODE::
*COPY REMOTE-NODE::NULL.BIN NULL.CPY
!
*COPY STRMCR.ASC REMOTE-NODE::
*COPY REMOTE-NODE::STRMCR.ASC STRMCR.CPY
!
*COPY STRMLN.ASC REMOTE-NODE::*.*
*COPY REMOTE-NODE::STRMLN.ASC STRMLN.CPY
!
*COPY HOLE.BIN REMOTE-NODE::HOLE.BIN
*COPY REMOTE-NODE::HOLE.BIN HOLE.CPY
!
*COPY PROG1.REL REMOTE-NODE::PROG1.REL
*COPY REMOTE-NODE::PROG1.REL PROG1.RCY
!
*COPY PROG1.EXE REMOTE-NODE::
*COPY REMOTE-NODE::PROG1.EXE PROG1.ECY
!
*COPY PAGE.ASC REMOTE-NODE::
*COPY REMOTE-NODE::PAGE.ASC PAGE.CPY
!
*COPY 25PAG.ASC REMOTE-NODE::
*COPY REMOTE-NODE::25PAG.ASC 25PAG.CPY
!
*COPY FIX.MCY REMOTE-NODE::FIX.MCY
*COPY REMOTE-NODE::FIX.MCY FIX.CPY
!
*COPY MACY11.BIN REMOTE-NODE::MACY11.BIN
*COPY REMOTE-NODE::MACY11.BIN MACY11.CPY
!
!	Test wildcards
!
*COPY STRM*.ASC REMOTE-NODE::<REMOTE-USER>*.RSC
*COPY REMOTE-NODE::*.RSC *.ZZZ
!
!	Test error handling
!
*COPY ABCDEFG::A.B C.E
*COPY REMOTE-NODE::<NOSUCH>A.B C.D
*COPY REMOTE-NODE::<REMOTE-USER>A.B C.D
*COPY REMOTE-NODE::MACY11.BIN ABC:<DEF>GHI
*COPY REMOTE-NODE::MACY11.BIN A.B C.E
*COPY MACY11.BIN/BADSWITCH REMOTE-NODE::
*COPY
!
!	Here test the EXIT command
!
*EXIT
!
!	Here compare the local files that were copied in BLOCK I/O
!	mode. Be sure to check these files on the remote system.
!
@VDIR NULL.BIN,NULL.CPY
@FILCOM
*TTY:=NULL.BIN,NULL.CPY/W
!
@VDIR STRMCR.ASC,STRMCR.CPY
@FILCOM
*TTY:=STRMCR.ASC,STRMCR.CPY
!
@VDIR STRMLN.ASC,STRMLN.CPY
@FILCOM
*TTY:=STRMLN.ASC,STRMLN.CPY
@VDIR HOLE.BIN,HOLE.CPY
@TYPE HOLE.BIN,HOLE.CPY
@FILCOM
*TTY:=HOLE.BIN,HOLE.CPY/W
!
@VDIR PROG1.REL,PROG1.RCY
@LOAD PROG1.RCY/REL
@START
@FILCOM
*TTY:=PROG1.REL,PROG1.RCY/W
!
@VDIR PROG1.EXE,PROG1.ECY
@RUN PROG1.EXE
@RUN PROG1.ECY
@FILCOM
*TTY:=PROG1.EXE,PROG1.ECY/W
!
@VDIR PAGE.ASC,PAGE.CPY
@FILCOM
*TTY:=PAGE.ASC,PAGE.CPY
!
@VDIR 25PAG.ASC,25PAG.CPY
@FILCOM
*TTY:=25PAG.ASC,25PAG.CPY
!
@VDIR FIX.MCY,FIX.CPY
@FILCOM
*TTY:=FIX.MCY,FIX.CPY/W
!
@VDIR MACY11.BIN,MACY11.CPY
@FILCOM
*TTY:=MACY11.BIN,MACY11.CPY/W
*^C
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Here do transfers in ASCII mode
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
@NFT
*SET DEFAULT REMOTE-NODE::/USER:REMOTE-USER/PASSWORD:REMOTE-PASSWORD/ACCOUNT:REMOTE-ACCOUNT
*COPY NULL.BIN/ASCII REMOTE-NODE::NULL.BIN/ASCII
*COPY REMOTE-NODE::NULL.BIN/ASCII NULL.CPY/ASCII
!
*COPY PAGE.ASC/ASCII REMOTE-NODE::PAGE.ASC/ASCII
*COPY REMOTE-NODE::PAGE.ASC/ASCII PAGE.CPY/ASCII
!
*COPY 25PAG.ASC/ASCII REMOTE-NODE::25PAG.ASC/ASCII
*COPY REMOTE-NODE::25PAG.ASC/ASCII 25PAG.CPY/ASCII
!
*COPY STRMCR.ASC/ASCII REMOTE-NODE::STRMCR.ASC/ASCII
*COPY REMOTE-NODE::STRMCR.ASC/ASCII STRMCR.CPY/ASCII
!
*COPY STRM.ASC/ASCII REMOTE-NODE::STRM.ASC/ASCII
*COPY REMOTE-NODE::STRM.ASC/ASCII STRM.CPY/ASCII
!
*COPY STRMLN.ASC/ASCII REMOTE-NODE::STRMLN.ASC/ASCII
*COPY REMOTE-NODE::STRMLN.ASC/ASCII STRMLN.CPY/ASCII
*EXIT
!
!	Here compare the returned files. Be sure to check the
!	files on the remote system.
!
@VDIR NULL.BIN,NULL.CPY
@FILCOM
*TTY:=NULL.BIN,NULL.CPY
!
@VDIR PAGE.ASC,PAGE.CPY
@FILCOM
*TTY:=PAGE.ASC,PAGE.CPY
!
@VDIR 25PAG.ASC,25PAG.CPY
@FILCOM
*TTY:=25PAG.ASC,25PAG.CPY
!
@VDIR STRMCR.ASC,STRMCR.CPY
@FILCOM
*TTY:=STRMCR.ASC,STRMCR.CPY
!
@VDIR STRM.ASC,STRM.CPY
@FILCOM
*TTY:=STRM.ASC,STRM.CPY
!
@VDIR STRMLN.ASC,STRMLN.CPY
@FILCOM
*TTY:=STRMLN.ASC,STRMLN.CPY
*^C
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Test copies in the image modes
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
@NFT
*SET DEFAULT REMOTE-NODE::/USER:REMOTE-USER/PASSWORD:REMOTE-PASSWORD/ACCOUNT:REMOTE-ACCOUNT
!
*COPY MACY11.BIN/MACY11 REMOTE-NODE::MACY11.BIN/MACY11
*COPY REMOTE-NODE::MACY11.BIN/MACY11 MACY11.CPY/MACY11
!
*COPY VAR.MCY/VARIABLE/MACY11 REMOTE-NODE::VAR.MCY/VARIABLE/MACY11
*COPY REMOTE-NODE::VAR.MCY/MACY11/VAR VAR.CPY/MACY11/VAR
!
*COPY FIX.MCY/MACY11/FIX:6 REMOTE-NODE::FIX.MCY/MACY11/FIX:6
*COPY REMOTE-NODE::FIX.MCY/FIX:6/MACY11 FIX.CPY/FIX:6/MACY11
*EXIT
!
!	Now check the returned files
!
@VDIR MACY11.BIN,MACY11.CPY
@FILCOM
*TTY:=MACY11.BIN,MACY11.CPY/W
!
@VDIR VAR.MCY,VAR.CPY
@FILCOM
*TTY:=VAR.MCY,VAR.CPY/W
!
@VDIR FIX.MCY,FIX.CPY
@FILCOM
*TTY:=FIX.MCY,FIX.CPY/W
*^C
!
!	Now test straight image mode
!
@NFT
*SET DEFAULT REMOTE-NODE::/USER:REMOTE-USER/PASSWORD:REMOTE-PASSWORD/ACCOUNT:REMOTE-ACCOUNT
*COPY NULL.BIN/IMAGE REMOTE-NODE::NULL.BIN/IMAGE
*COPY REMOTE-NODE::NULL.BIN/IMAGE NULL.CPY/IMAGE
!
*COPY STRMCR.ASC/IMAGE REMOTE-NODE::STRMCR.ASC/IMAGE
*COPY REMOTE-NODE::STRMCR.ASC/IMAGE STRMCR.CPY/IMAGE
!
*COPY STRMLN.ASC/IMAGE REMOTE-NODE::*.*/IMAGE
*COPY REMOTE-NODE::STRMLN.ASC/IMAGE STRMLN.CPY/IMAGE
!
*COPY PROG1.REL/IMAGE REMOTE-NODE::PROG1.REL/IMAGE
*COPY REMOTE-NODE::PROG1.REL/IMAGE PROG1.RCY/IMAGE
!
*COPY PROG1.EXE/IMAGE REMOTE-NODE::PROG1.EXE/IMAGE
*COPY REMOTE-NODE::PROG1.EXE/IMAGE PROG1.ECY/IMAGE
!
*COPY PAGE.ASC/IMAGE REMOTE-NODE::PAGE.ASC/IMAGE
*COPY REMOTE-NODE::PAGE.ASC/IMAGE PAGE.CPY/IMAGE
!
*COPY 25PAG.ASC/IMAGE REMOTE-NODE::25PAGE.ASC/IMAGE
*COPY REMOTE-NODE::25PAG.ASC/IMAGE 25PAG.CPY/IMAGE
!
*COPY STRM.ASC/IMAGE REMOTE-NODE::STRM.ASC/IMAGE
*COPY REMOTE-NODE::STRM.ASC/IMAGE STRM.CPY/IMAGE
!
*COPY FIX.MCY/IMAGE REMOTE-NODE::FIX.MCY/IMAGE
*COPY REMOTE-NODE::FIX.MCY/IMAGE FIX.CPY/IMAGE
!
*COPY MACY11.BIN/IMAGE REMOTE-NODE::MACY11.BIN/IMAGE
*COPY REMOTE-NODE::MACY11.BIN/IMAGE MACY11.CPY/IMAGE
!
*COPY VAR.MCY/IMAGE REMOTE-NODE::VAR.MCY/IMAGE
*COPY REMOTE-NODE::VAR.MCY/IMAGE VAR.CPY/IMAGE
!
*COPY FIX.BIN/IMAGE REMOTE-NODE::FIX.BIN/IMAGE
*COPY REMOTE-NODE::FIX.BIN/IMAGE FIX.BCY/IMAGE
!
*COPY VAR.BIN/IMAGE REMOTE-NODE::VAR.BIN/IMAGE
*COPY REMOTE-NODE::VAR.BIN/IMAGE VAR.BCY/IMAGE
*EXIT
!
!	Here compare the local files that were copied in image
!	mode. Be sure to check these files on the remote system.
!
@VDIR NULL.BIN,NULL.CPY
@FILCOM
*TTY:=NULL.BIN,NULL.CPY/W
!
@VDIR STRMCR.ASC,STRMCR.CPY
@FILCOM
*TTY:=STRMCR.ASC,STRMCR.CPY
!
@VDIR STRM.ASC,STRM.CPY
@FILCOM
*TTY:=STRM.ASC,STRM.CPY
!
@VDIR STRMLN.ASC,STRMLN.CPY
@FILCOM
*TTY:=STRMLN.ASC,STRMLN.CPY
!
@VDIR PROG1.REL,PROG1.RCY
@LOAD PROG1.RCY/REL
@START
@FILCOM
*TTY:=PROG1.REL,PROG1.RCY/W
!
@VDIR PROG1.EXE,PROG1.ECY
@RUN PROG1.EXE
@RUN PROG1.ECY
@FILCOM
*TTY:=PROG1.EXE,PROG1.ECY/W
!
@VDIR PAGE.ASC,PAGE.CPY
@FILCOM
*TTY:=PAGE.ASC,PAGE.CPY
!
@VDIR 25PAG.ASC,25PAG.CPY
@FILCOM
*TTY:=25PAG.ASC,25PAG.CPY
!
@VDIR FIX.MCY,FIX.CPY
@FILCOM
*TTY:=FIX.MCY,FIX.CPY/W
!
@VDIR MACY11.BIN,MACY11.CPY
@FILCOM
*TTY:=MACY11.BIN,MACY11.CPY/W
!
@VDIR FIX.BIN,FIX.BCY
@FILCOM
*TTY:=FIX.BIN,FIX.BCY/W
!
@VDIR VAR.BIN,VAR.BCY
@FILCOM
*TTY:=VAR.BIN,VAR.BCY/W
*^C
!
!	Some cleanup
!
@TYPE TAKE.LOG
@DELETE *.ZZZ
@DELETE TAKE.LOG.*
@DELETE *.CPY
@DELETE *.RCY
@DELETE *.ECY
@EXPUNGE
!
!	After this test has completed, check the remote system to
!	insure the the correct files have been printed, that the
!	batch jobs have run, that the copied files are in usable
!	formats, then delete the test files if desired.