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) 1977,1978,1979 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
!	DECnet-20 2020 Software Verification Procedure
!
!
BEGIN::
!
!***** message: Start of verification procedure
!
@DEFINE DSK: DSK:,<UETP.LIB>,SYS:
@TAKE SYS.CMD
@ENABLE
@RUN  <UETP.LIB>SENDER
*TYPE START
*BLABEL BEGIN:
*TEST VF2020
*SEND Start of verification procedure
*EXIT
!
!	DEFINE THE DIRECTORIES IN WHICH THE DECNET FILES ARE
!	TO BE FOUND. ALTER THE FOLLOWING DEFINE COMMAND IF
!	YOU HAVE CHANGED ANY DIRECTORY NAMES
!
@DEFINE DECNET: PS:<DECNET>,PS:<UETP.LIB>,PS:<UETP.DECNET>,SYS:
!
@INFORMATION LOGICAL-NAMES ALL
!
!TEST FOR EXISTENCE OF VERIFY ON THIS SYSTEM.
!
@GET VERIFY.EXE
@IF (NOERROR) @GOTO VERIFY::
!
!***** message: VERIFY program not available
!
@RUN  <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL BEGIN:
*TEST VF2020
*SEND VERIFY program not available
*EXIT
!
@GOTO END::
!
VERIFY::
!
@ERROR %
@DIRECTORY VF2020.VFY
@IF (NOERROR) GOTO VERIF1::
!
!***** message: VF2020.VFY file (input to the VERIFY program) is not available
!
@RUN  <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL VERIFY:
*TEST VF2020
*SEND VF2020.VFY file (input to the VERIFY program) is not available
*EXIT
!
@GOTO END::
!
VERIF1::
!
@ERROR
!
@GET VERIFY
@INFORMATION VERSION
@START
*CONNECT VF2020
*VERIFY VF2020.VFY
@IF (NOERROR) @GOTO END::
!
!***** message: Errors running VERIFY program
!
@RUN  <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL VERIF1:
*TEST VF2020
*SEND Errors running VERIFY program
*EXIT
!
@GOTO END::
!
%TERR::
!
!***** message: Verification procedure exceeded CPU time limit
!
@RUN  <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST VF2020
*SEND Verification procedure exceeded CPU time limit
*EXIT
!
@GOTO END::
!
%ERR::
!
!***** message: Unknown error in VERIFY test
!
@RUN  <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST VF2020
*SEND Unknown error in VERIFY test
*EXIT
!
@GOTO END::
!
END::
!
%FIN::
!
@CHKPNT ADSF::
!
!***** message: End of verification procedure
!
@RUN  <UETP.LIB>SENDER
*TYPE END
*BLABEL END:
*TEST VF2020
*SEND End of verification procedure
*EXIT
@RESET