Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
!COPYRIGHT (C) 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
!	DECNET-2020.VER		Superficial DECnet-20 Test
!				for the DECsystem-2020.
!
!				Version 3A(1)
!
!
!	This batch control file is intended to exercise the DECnet-20
!	software on a DECsystem-2020.  It runs under the control of
!	the User Environment Test Package, UETP.
!
!
@DEFINE DSK:  DSK:,<UETP.RUN>,<UETP.LIB>
@ENABLE
@RUN <UETP.LIB>SENDER
*TYPE START
*BLABEL COM00:
*TEST DN2020
*SEND Start of DECNET-20 Test
*EXIT
COM00::
!
T1::
!
!	Set the specified line in loopback
!
!
@R OPR
*TAKE TRNOFF.CMD
@PLEASE Reply by entering GO when the line has been placed in loopback
@R OPR
*TAKE TRNON.CMD
@GOTO T2::
%ERR::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL T2:
*TEST DN2020
*SEND Problems placing line to be tested in loopback
*EXIT
@GOTO COM100:
!
T2::
!	Now run DYNETS.  The data received will
!	be written to the file -TASK-TEST72.LOG, 
!	to be compared against a control file.
!
@RUN <UETP.LIB>DYNETS.EXE
*ESTABLISH (LOGICAL LINK TO) DCN:-TASK-TEST72.DECNET /BYTE:7 /RECL:132 /WAIT:30
*RECEIVE (FROM) DCN:-TASK-TEST72.DECNET
*SEND (TO) DCN:-TASK-TEST72.DECNET (FROM MESSAGE FILE) DECNET.DAT
*EXIT
!
@GOTO T3::
%ERR::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL T3:
*TEST DN2020
*SEND Errors executing DYNETS commands
*EXIT
@GOTO COM100:
T3::
!
!	Now run a program which will compare the received data in DN2020.DAT
!
@RENAME -TASK-TEST72.LOG (TO BE) DN2020.DAT
@RUN <UETP.LIB>UETCMP
*COMPARE
*DN2020.DAT
*DECNET.DAT
*EXIT
@IF (NOERROR) @GOTO COM100::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL COM100:
*TEST DN2020
*SEND Discrepancies in the sent and received files
*EXIT
%ERR::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL COM100:
*TEST DN2020
*SEND Unknown error in DECNET test
*EXIT
COM100::
@DELETE DN2020.DAT
@DELETE DECNET.DAT
%FIN::
@CHKPNT ADSF::
@RUN <UETP.LIB>SENDER
*TYPE END
*BLABEL COM100:
*TEST DN2020
*SEND End of DECNET-20 Test
*EXIT