Google
 

Trailing-Edge - PDP-10 Archives - KS10_APT_INSTALL_TAPE - uetp/lib/netvfy.ver
There are 2 other files named netvfy.ver in the archive. Click here to see a list.
!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 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

!	DECnet-20 Software Verification Procedure


@DEFINE DSK: DSK:,<UETP.LIB>,SYS:
@RUN  <UETP.LIB>SENDER
*TYPE START
*BLABEL BEGIN:
*TEST NETVFY
*SEND Start of verification procedure
*EXIT

@INFORMATION LOGICAL-NAMES ALL



!TEST FOR EXISTENCE OF VERIFY ON THIS SYSTEM.

@GET VERIFY.EXE
@IF (NOERROR) @GOTO VERIFY::

!***** message: VERIFY NOT AVAILABLE

@RUN  <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL BEGIN:
*TEST NETVFY
*SEND VERIFY program not available
*EXIT

@GOTO END::

VERIFY::
!
!
@ERROR %
@DIRECTORY DECNET.VFY
@IF (NOERROR) GOTO VERIF1::


!***** message: DECNET.VFY NOT AVAILABLE

@RUN  <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL BEGIN:
*TEST NETVFY
*SEND DECNET.VFY file (input to the VERIFY program) is not available
*EXIT

@GOTO END::

VERIF1::

@ERROR
!
@GET VERIFY
@INFORMATION VERSION
@START
*CONNECT NETVFY
*VERIFY DECNET.VFY
@IF (NOERROR) @GOTO END::

!***** message: ERRORS RUNNING VERIFY PROGRAMS

@RUN  <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL VERIFY:
*TEST NETVFY
*SEND Errors running VERIFY program
*EXIT

@GOTO END::


%TERR::

!***** message: TIMER ERROR IN VERIFY TEST

@RUN  <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL END:
*TEST NETVFY
*SEND Verification procedure exceeded CPU time limit
*EXIT

@GO TO END


%ERR::

!***** message: UNKNOWN ERROR IN VERIFY TEST

@RUN  <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL END:
*TEST NETVFY
*SEND Unknown error in VERIFY test
*EXIT

@GO TO END


END::

%FIN::
@CHKPNT ADSF::

!***** message: END OF VERIFY TEST

@RUN  <UETP.LIB>SENDER
*TYPE END
*BLABEL END:
*TEST NETVFY
*SEND End of verification procedure
*EXIT