Trailing-Edge
-
PDP-10 Archives
-
KS10_APT_INSTALL_TAPE
-
uetp/lib/snder1.ver
There is 1 other file named snder1.ver in the archive. Click here to see a list.
@silence
@inf str user1:
@if (error) @goto begin:
@run <uetp.lib>sender
*type START
*blabel user1:
*test snder1
*send SNDER1=>USER1:
*exit
@MOUNT STRUCTURE USER1:
@def dsk: user1:<uetp.decnet>,ps:<uetp.lib>
@def out: user1:<uetp.decnet>
@goto begin1:
begin::
@RUN <UETP.LIB>SENDER
*TYPE START
*BLABEL BEGIN:
*TEST SNDER1
*SEND
*EXIT
@def dsk: <uetp.decnet>,ps:<uetp.lib>
@def out: ps:<uetp.decnet>
begin1::
@take sys.cmd
@if (noerror) @goto begin2:
%ERR::
@RUN <uetp.lib>sender
*TYPE error
*BLABEL BEGIN1:
*TEST snder1
*SEND ERROR on TAKE SYS.CMD
*EXIT
@revive
@goto ENDERR:
begin2::
@noerror
@delete out:*.*
@expunge out:
@error
@inf dis out:
@inf log all
goto snder1:
%ERR::
@run <uetp.lib>sender
*type error
*blabel begin2
*test snder1
*send No directory uetp.snder1 on structure USER1:?
*exit
@go to enderr:
@ENABLE
SNDER1::
! Set the specified line in loopback
@OPR
*TAKE TRNOFF.CMD
*TAKE TRNON.CMD
@GOTO SNDER2:
%ERR::
@silence !MESSAGE Problems placing line to be tested in loopback
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL SNDER1:
*TEST SNDER1
*SEND Problems placing line to be tested in loopback
*EXIT
@revive
@GOTO ENDERR:
SNDER2::
! Now run DYNETS. The data received will
! be written to the file -TASK-TEST72.LOG,
! to be compared against a control file.
@RUN ps:<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 SNDER3:
%ERR::
@silence MESSAGE Error executing DYNETS commands
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL SNDER2:
*TEST SNDER1
*SEND Error executing DYNETS commands
*EXIT
@revive
@GOTO ENDERR:
SNDER3::
! Now run a program which will compare the received data in DN2020.DAT
@RENAME -TASK-TEST72.LOG (TO BE) DN2020.DAT
@FILCOM
*TTY:=DECNET.DAT,DN2020.DAT
@GOTO END:
%ERR::
@silence !MESSAGE Discrepancies in the sent and received files
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL SNDER3:
*TEST SNDER1
*SEND Discrepancies in the sent and received files
*EXIT
@revive
@GOTO ENDERR:
%TERR::
@SILENCE ! ***** MESSAGE: TIME-OUT ERROR SNDER1
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST SNDER1
*SEND TIME-OUT ERROR SNDER1
*EXIT
@REVIVE
@GOTO ENDERR:
%ERR::
@SILENCE ! ***** MESSAGE: UNKNOWN ERROR IN SNDER1.SUP
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST SNDER1
*SEND UNKNOWN ERROR IN SNDER1.SUP
*EXIT
@REVIVE
@GOTO ENDERR:
ENDERR::
@INF DIS out:<UETP.decnet>
@VDIR OUT:
@I LOG ALL
@SY ALL F-S
@INF FI
@INF MEM
END::
%FIN::
@silence !***** message: END OF SNDER1 TEST
@RUN ps:<uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST SNDER1
*SEND
*EXIT
@revive