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

Trailing-Edge - PDP-10 Archives - BB-H348C-RM_1982 - swskit-v21/certification/ark.ctl
There are no other files named ark.ctl in the archive.
@enable
@noerror
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Here do transfers in ASCII mode
!	 1. No switches, all formats to stream 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
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Here are transfers with no switches. This defaults the 20
!	file to ascii stream and the RSTS file to stream ascii.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
@NFT
*SET DEFAULT ark::/USER:2,220/PASSWORD:cert/ACCOUNT:
*COPY NULL.BIN ark::NULL.BIN
*COPY ark::NULL.BIN NULL.CPY
!
*COPY PAGE.ASC ark::PAGE.ASC
*COPY ark::PAGE.ASC PAGE.CPY
!
*COPY 25PAG.ASC ark::25PAG.ASC
*COPY ark::25PAG.ASC 25PAG.CPY
!
*COPY STRMCR.ASC ark::STRMCR.ASC
*COPY ark::STRMCR.ASC STRMCR.CPY
!
*COPY STRM.ASC ark::STRM.ASC
*COPY ark::STRM.ASC STRM.CPY
!
*COPY STRMLN.ASC ark::STRMLN.ASC
*COPY ark::STRMLN.ASC STRMLN.CPY
!
*COPY 512BYT.ASC ark::512BYT.ASC
*COPY ark::512BYT.ASC 512BYT.CPY
!
*COPY FIX.ASC ark::FIX.ASC
*COPY ark::FIX.ASC FIX.CPY
!
*COPY VAR.ASC ark::VAR.ASC
*COPY ark::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 RSTS files to be ascii variable
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
@NFT
*SET DEFAULT ark::/USER:2,220/PASSWORD:cert/ACCOUNT:
*DELETE ark::NULL.BIN
*DELETE ark::*.ASC
*COPY NULL.BIN/ASCII ark::NULL.BIN/ASCII/VARIABLE
*COPY ark::NULL.BIN/ASCII/VARIABLE NULL.CPY/ASCII
!
*COPY PAGE.ASC/ASCII ark::PAGE.ASC/ASCII/VARIABLE:512
*COPY ark::PAGE.ASC/ASCII/VARIABLE PAGE.CPY/ASCII
!
*COPY 25PAG.ASC/ASCII ark::25PAG.ASC/ASCII/VARIABLE
*COPY ark::25PAG.ASC/ASCII/VARIABLE 25PAG.CPY/ASCII
!
*COPY STRMCR.ASC/ASCII ark::STRMCR.ASC/ASCII/VARIABLE
*COPY ark::STRMCR.ASC/ASCII/VARIABLE STRMCR.CPY/ASCII
!
*COPY STRM.ASC/ASCII ark::STRM.ASC/ASCII/VARIABLE
*COPY ark::STRM.ASC/ASCII/VARIABLE STRM.CPY/ASCII
!
*COPY STRMLN.ASC/ASCII ark::STRMLN.ASC/ASCII/VARIABLE
*COPY ark::STRMLN.ASC/ASCII/VARIABLE STRMLN.CPY/ASCII
!
*COPY 512BYT.ASC/ASCII ark::512BYT.ASC/ASCII/VARIABLE
*COPY ark::512BYT.ASC/ASCII/VARIABLE 512BYT.CPY/ASCII
!
*COPY FIX.ASC/ASCII ark::FIX.ASC/ASCII/VARIABLE
*COPY ark::FIX.ASC/ASCII/VARIABLE FIX.CPY/ASCII
!
*COPY VAR.ASC/ASCII ark::VAR.ASC/ASCII/VARIABLE
*COPY ark::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 RSTS files to be ascii fixed.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
@NFT
*SET DEFAULT ark::/USER:2,220/PASSWORD:cert/ACCOUNT:
*DELETE ark::NULL.BIN
*DELETE ark::*.ASC
*COPY NULL.BIN/ASCII/FIX:80 ark::NULL.BIN/ASCII/FIX:80
*COPY ark::NULL.BIN/ASCII/FIX:80 NULL.CPY/ASCII/FIX:80
!
*COPY FIX.ASC/ASCII/FIX:40 ark::FIX.ASC/ASCII/FIX:40
*COPY ark::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 test stream ascii with switches
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
@NFT
*SET DEFAULT ark::/USER:2,220/PASSWORD:cert/ACCOUNT:
*DELETE ark::NULL.BIN
*DELETE ark::FIX.ASC
*COPY PAGE.ASC/ASCII ark::PAGE.ASC/ASCII
*COPY ark::PAGE.ASC/ASCII PAGE.CPY/ASCII
!
*COPY 512BYT.ASC/ASCII ark::512BYT.ASC/ASCII
*COPY ark::512BYT.ASC/ASCII 512BYT.CPY/ASCII
!
*COPY STRMCR.ASC/ASCII ark::STRMCR.ASC/ASCII
*COPY ark::STRMCR.ASC/ASCII STRMCR.CPY/ASCII
!
!	Now compare the returned files
!
@VDIR PAGE.ASC,PAGE.CPY
@FILCOM
*TTY:=PAGE.ASC,PAGE.CPY
!
@VDIR 512BYT.ASC,512BYT.CPY
@FILCOM
*TTY:=512BYT.ASC,512BYT.CPY
!
@VDIR STRMCR.ASC,STRMCR.CPY
@FILCOM
*TTY:=STRMCR.ASC,STRMCR.CPY
*^C
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!	Test copies in the image modes
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
@NFT
*SET DEFAULT ark::/USER:2,220/PASSWORD:cert/ACCOUNT:
*DELETE ark::*.ASC
!
*COPY MACY11.BIN/MACY11 ark::MACY11.BIN/IMAGE/VARIABLE
*COPY ark::MACY11.BIN/IMAGE/VARIABLE MACY11.CPY/MACY11
!
*COPY VAR.MCY/VARIABLE/MACY11 ark::VAR.MCY/VARIABLE/IMAGE
*COPY ark::VAR.MCY/IMAGE/VAR VAR.CPY/MACY11/VAR
!
*COPY FIX.MCY/MACY11/FIX:6 ark::FIX.MCY/IMAGE/FIX:6
*COPY ark::FIX.MCY/FIX:6/IMAGE FIX.CPY/FIX:6/MACY11
!
*COPY FIX.BIN/IMAGE/FIX:5 ark::FIX.BIN/IMAGE/FIX:5
*COPY ark::FIX.BIN/IMAGE/FIX:5 FIX.BCY/IMAGE/FIX:5
!
*COPY VAR.BIN/IMAGE/VAR ark::VAR.BIN/IMAGE/VAR
*COPY ark::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.