PDP-10 Archive: swskit-v21/certification/vms.ctl from BB-H348C-RM

Trailing-Edge - PDP-10 Archives - BB-H348C-RM_1982 - swskit-v21/certification/vms.ctl
There are no other files named vms.ctl in the archive.
@noerror
!	This control file tests NFT-20 against a remote VMS FAL.
!
!
@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:VMS
!
!	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 TAKVMS.CMD
*TAKE TAKVMS.CMD TAKE.LOG /DISPLAY
!
!	Check for good error analysis
!
*TAKE ABC.DEF
*TAKE STRMCR.ASC
!
!	Here test TYPE command with wildcards
!
*COPY TAKVMS.CMD REMOTE-NODE::TAKVMS.COM
*TYPE REMOTE-NODE::*.COM
!
!	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::SYS$LOGIN:
*DIRECTORY REMOTE-NODE::SYS$DISK:[REMOTE-USER]
*DIRECTORY REMOTE-NODE::SYS$DISK:[REMOTE-USER]ABCDEF
*DIRECTORY REMOTE-NODE::[REMOTE-USER]ABCDEF.GHI
*DIRECTORY REMOTE-NODE::SYS$DISK:[REMOTE-USER]ABCDEF.GHI.1
*DIRECTORY REMOTE-NODE::SYS$DISK:[REMOTE-USER]ABCDEF.GHI;1
!
!	Here test the use of remote logical names
!
*DIRECTORY REMOTE-NODE::SYS$SYSTEM:
!
!	Here test the use of wild cards and wild characters
!
*DIRECTORY REMOTE-NODE::SYS$DISK:[REMOTE-USER]*.*.*
*DIRECTORY REMOTE-NODE::<REMOTE-USER>A*D*.*
*DIRECTORY REMOTE-NODE::SYS$DISK:[REMOTE-USER]%%C%%%.GH%
*DIRECTORY REMOTE-NODE::[REMOTE-USER*]
*DIRECTORY REMOTE-NODE::SYS$DISK:[BA*]
!
!	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::SYS$DISK:[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::SYS$DISK:[REMOTE-USER]A.1
*DELETE REMOTE-NODE::A.*
*DIR REMOTE-NODE::A.*
!
!	Check for proper error analysis
!
*DELETE REMOTE-NODE::A.*
*DELETE
!
!	Here test the SUBMIT command
!
*COPY SUBVMS.CTL REMOTE-NODE::[REMOTE-USER]TEST.CTL
*SUBMIT REMOTE-NODE::SYS$DISK:[REMOTE-USER]TEST.CTL
*COPY SUBVMS.CTL REMOTE-NODE::SUB1.CTL
*COPY SUBVMS.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 command with 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::STRMCR.ASC ABC:<DEF>GHI
*COPY REMOTE-NODE::STRMCR.ASC A.B C.E
*COPY MACY11.BIN/BADSWITCH REMOTE-NODE::
*COPY
!
!	Here test the EXIT command
!
*EXIT
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Here do transfers in ASCII mode
!	 1. No switches, all formats to variable length ascii
!	 2. Use switches, all formats to variable length ascii
!	 3. Use switches, all formats to fixed length ascii
!	 4. Use switches, all formats to stream ascii (new)
!	 5. No switches, all VAX formats from VAX to 20
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Here are transfers with no switches. This defaults the 20
!	file to ascii stream and the VMS file to ascii variable.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
@NFT
*SET DEFAULT REMOTE-NODE::/USER:REMOTE-USER/PASSWORD:REMOTE-PASSWORD/ACCOUNT:REMOTE-ACCOUNT
*COPY NULL.BIN REMOTE-NODE::NULL.BIN
*COPY REMOTE-NODE::NULL.BIN NULL.CPY
!
*COPY PAGE.ASC REMOTE-NODE::PAGE.ASC
*COPY REMOTE-NODE::PAGE.ASC PAGE.CPY
!
*COPY 25PAG.ASC REMOTE-NODE::25PAG.ASC
*COPY REMOTE-NODE::25PAG.ASC 25PAG.CPY
!
*COPY STRMCR.ASC REMOTE-NODE::STRMCR.ASC
*COPY REMOTE-NODE::STRMCR.ASC STRMCR.CPY
!
*COPY STRM.ASC REMOTE-NODE::STRM.ASC
*COPY REMOTE-NODE::STRM.ASC STRM.CPY
!
*COPY STRMLN.ASC REMOTE-NODE::STRMLN.ASC
*COPY REMOTE-NODE::STRMLN.ASC STRMLN.CPY
!
*COPY 512BYT.ASC REMOTE-NODE::512BYT.ASC
*COPY REMOTE-NODE::512BYT.ASC 512BYT.CPY
!
*COPY FIX.ASC REMOTE-NODE::FIX.ASC
*COPY REMOTE-NODE::FIX.ASC FIX.CPY
!
*COPY VAR.ASC REMOTE-NODE::VAR.ASC
*COPY REMOTE-NODE::VAR.ASC VAR.CPY
*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
!
@VDIR 512BYT.ASC,512BYT.CPY
@FILCOM
*TTY:=512BYT.ASC,512BYT.CPY
!
@VDIR FIX.ASC,FIX.CPY
@FILCOM
*TTY:=FIX.ASC,FIX.CPY
!
@VDIR VAR.ASC,VAR.CPY
@FILCOM
*TTY:=VAR.ASC,VAR.CPY
*^C
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Here are transfers with explicit switches to force 20 files
!	to be stream and VMS files to be ascii variable
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
@NFT
*SET DEFAULT REMOTE-NODE::/USER:REMOTE-USER/PASSWORD:REMOTE-PASSWORD/ACCOUNT:REMOTE-ACCOUNT
*COPY NULL.BIN/ASCII REMOTE-NODE::NULL.BIN/ASCII/VARIABLE
*COPY REMOTE-NODE::NULL.BIN/ASCII/VARIABLE NULL.CPY/ASCII
!
*COPY PAGE.ASC/ASCII REMOTE-NODE::PAGE.ASC/ASCII/VARIABLE:512
*COPY REMOTE-NODE::PAGE.ASC/ASCII/VARIABLE PAGE.CPY/ASCII
!
*COPY 25PAG.ASC/ASCII REMOTE-NODE::25PAG.ASC/ASCII/VARIABLE
*COPY REMOTE-NODE::25PAG.ASC/ASCII/VARIABLE 25PAG.CPY/ASCII
!
*COPY STRMCR.ASC/ASCII REMOTE-NODE::STRMCR.ASC/ASCII/VARIABLE
*COPY REMOTE-NODE::STRMCR.ASC/ASCII/VARIABLE STRMCR.CPY/ASCII
!
*COPY STRM.ASC/ASCII REMOTE-NODE::STRM.ASC/ASCII/VARIABLE
*COPY REMOTE-NODE::STRM.ASC/ASCII/VARIABLE STRM.CPY/ASCII
!
*COPY STRMLN.ASC/ASCII REMOTE-NODE::STRMLN.ASC/ASCII/VARIABLE
*COPY REMOTE-NODE::STRMLN.ASC/ASCII/VARIABLE STRMLN.CPY/ASCII
!
*COPY 512BYT.ASC/ASCII REMOTE-NODE::512BYT.ASC/ASCII/VARIABLE
*COPY REMOTE-NODE::512BYT.ASC/ASCII/VARIABLE 512BYT.CPY/ASCII
!
*COPY FIX.ASC/ASCII REMOTE-NODE::FIX.ASC/ASCII/VARIABLE
*COPY REMOTE-NODE::FIX.ASC/ASCII/VARIABLE FIX.CPY/ASCII
!
*COPY VAR.ASC/ASCII REMOTE-NODE::VAR.ASC/ASCII/VARIABLE
*COPY REMOTE-NODE::VAR.ASC/ASCII/VARIABLE VAR.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
!
@VDIR 512BYT.ASC,512BYT.CPY
@FILCOM
*TTY:=512BYT.ASC,512BYT.CPY
!
@VDIR FIX.ASC,FIX.CPY
@FILCOM
*TTY:=FIX.ASC,FIX.CPY
!
@VDIR VAR.ASC,VAR.CPY
@FILCOM
*TTY:=VAR.ASC,VAR.CPY
*^C
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Here are copies with switches to force the 20 files to
!	be ascii stream and the VMS files to be ascii fixed.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
@NFT
*SET DEFAULT REMOTE-NODE::/USER:REMOTE-USER/PASSWORD:REMOTE-PASSWORD/ACCOUNT:REMOTE-ACCOUNT
*COPY NULL.BIN/ASCII/FIX:80 REMOTE-NODE::NULL.BIN/ASCII/FIX:80
*COPY REMOTE-NODE::NULL.BIN/ASCII/FIX:80 NULL.CPY/ASCII/FIX:80
!
*COPY FIX.ASC/ASCII/FIX:40 REMOTE-NODE::FIX.ASC/ASCII/FIX:40
*COPY REMOTE-NODE::FIX.ASC/ASCII/FIX FIX.CPY/ASCII/FIX
!
*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 FIX.ASC,FIX.CPY
@FILCOM
*TTY:=FIX.ASC,FIX.CPY
*^C
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Here are copies of stream files between tops-20 and vms
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
@NFT
*SET DEFAULTS 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 STRMCR.ASC/ASCII REMOTE-NODE::STRMCR.ASC/ASCII
*COPY REMOTE-NODE::STRMCR.ASC STRMCR.CPY
!
*COPY 512BYT.ASC/ASCII REMOTE-NODE::512BYT.ASC/ASCII
*COPY REMOTE-NODE::512BYT.ASC/ASCII 512BYT.CPY/ASCII
!
*COPY PAGE.ASC/ASCII REMOTE-NODE::PAGE.ASC/ASCII
*COPY REMOTE-NODE::PAGE.ASC PAGE.CPY
!
*COPY 25PAG.ASC/ASCII REMOTE-NODE::25PAG.ASC/ASCII
*COPY REMOTE-NODE::25PAG.ASC/ASCII 25PAG.CPY/ASCII
!
@VDIR NULL.BIN,NULL.CPY
@FILCOM
TTY:=NULL.BIN,NULL.CPY
!
@VDIR STRMCR.ASC,STRMCR.CPY
@FILCOM
TTY:=STRMCR.ASC,STRMCR.CPY
!
@VDIR 512BYT.ASC,512BYT.CPY
@FILCOM
*TTY:=512BYT.ASC,512BYT.CPY
!
@VDIR PAGE.ASC,PAGE.CPY
@FILCOM
*TTY:=PAGE.ASC,PAGE.CPY
!
@VDIR 25PAG.ASC,25PAG.CPY
@FILCOM
*TTY:=25PAG.ASC,25PAG.CPY
*^C
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Here are copies of files from a VMS node which can't be created
!	from the TOPS-20 system. The files are:
!	FIXFCC.DAT - Fixed length (80) ascii with fortran carriage control
!	VFCC.DAT - Variable length ascii with fortran cc
!	VFCFCC.DAT - VFC ascii with fortran cc
!	VNCC.DAT - Variable ascii records with no RAT and no imbedded cc
!	FIXNCC.DAT - Fixed ascii (80) with no RAT and no imbedded cc
!	VFCPRINT.DAT - VFC ascii with print format
!	VFCCCLN.DAT - VFC ascii with implied CRLF and line numbers (SOS EDITOR)
!	VNCCIM.DAT - Variable ascii with no RAT but with imbedded CRLF
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!
@NFT
*SET DEFAULTS REMOTE-NODE::/USER:REMOTE-USER/PASSWORD:REMOTE-PASSWORD/ACCOUNT:REMOTE-ACCOUNT
*COPY REMOTE-NODE::FIXFCC.DAT FIXFCC.DAT
*COPY REMOTE-NODE::VFCC.DAT VFCC.DAT
*COPY REMOTE-NODE::VFCFCC.DAT VFCFCC.DAT
*COPY REMOTE-NODE::VNCC.DAT VNCC.DAT
*COPY REMOTE-NODE::FIXNCC.DAT FIXNCC.DAT
*COPY REMOTE-NODE::VFCPRINT.DAT VFCPRINT.DAT
*COPY REMOTE-NODE::VFCCCLN.DAT VFCCCLN.DAT
*COPY REMOTE-NODE::VNCCIM.DAT VNCCIM.DAT
!
!	Here type out the files to insure that they were copied correctly
!
@TYPE FIXFCC.DAT
@TYPE VFCC.DAT
@TYPE VFCFCC.DAT
@TYPE VNCC.DAT
@TYPE FIXNCC.DAT
@TYPE VFCPRINT.DAT
@TYPE VFCCCLN.DAT
@TYPE VNCCIM.DAT
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	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/IMAGE/VARIABLE
*COPY REMOTE-NODE::MACY11.BIN/IMAGE/VARIABLE MACY11.CPY/MACY11
!
*COPY VAR.MCY/VARIABLE/MACY11 REMOTE-NODE::VAR.MCY/VARIABLE/IMAGE
*COPY REMOTE-NODE::VAR.MCY/IMAGE/VAR VAR.CPY/MACY11/VAR
!
*COPY FIX.MCY/MACY11/FIX:6 REMOTE-NODE::FIX.MCY/IMAGE/FIX:6
*COPY REMOTE-NODE::FIX.MCY/FIX:6/IMAGE FIX.CPY/FIX:6/MACY11
!
*COPY FIX.BIN/IMAGE/FIX:5 REMOTE-NODE::FIX.BIN/IMAGE/FIX:5
*COPY REMOTE-NODE::FIX.BIN/IMAGE/FIX:5 FIX.BCY/IMAGE/FIX:5
!
*COPY VAR.BIN/IMAGE/VAR REMOTE-NODE::VAR.BIN/IMAGE/VAR
*COPY REMOTE-NODE::VAR.BIN/IMAGE/VARIABLE VAR.BCY/IMAGE/VAR
*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
!
@VDIR FIX.BIN,FIX.BCY
@FILCOM
*TTY:=FIX.BIN,FIX.BCY/W
!
@VDIR VAR.BIN,VAR.BCY
@FILCOM
*TTY:=VAR.BIN,VAR.BCY
*^C
!
!	Some cleanup
!
@TYPE TAKE.LOG
@DELETE *.ZZZ
@DELETE TAKE.LOG.*
@DELETE *.CPY
@DELETE *.RCY
@DELETE *.ECY
@DELETE *.BCY
@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.