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

@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