Google
 

Trailing-Edge - PDP-10 Archives - KS10_APT_INSTALL_TAPE - uetp/lib/rancbl.ver
There are 13 other files named rancbl.ver in the archive. Click here to see a list.
;<UETP.LIB>RANCBL.VER.3,  9-May-79 13:40:07, EDIT BY EIBEN
!FILES NEEDED:
!	RANCBL.CBL
@inf str user:
@if (error) @goto begin:

@run <uetp.lib>sender
*type START
*blabel user:
*test rancbl
*send RANCBL=>USER:
*exit

mount structure user:
@def dsk: user:<uetp.rancbl>,ps:<uetp.lib>
@def out: user:<uetp.rancbl>
@goto begin1:

begin::
@RUN <uetp.lib>sender
*TYPE START
*BLABEL BEGIN:
*TEST RANCBL
*SEND
*EXIT
@def dsk: <uetp.rancbl>,ps:<uetp.lib>
@def out: ps:<uetp.rancbl>

begin1::
@TAKE SYS.CMD
@goto begin2:

%ERR::
@RUN  <uetp.lib>sender
*TYPE error
*BLABEL BEGIN1:
*TEST rancbl
*SEND ERROR on TAKE SYS.CMD
*EXIT
@revive
@goto ENDERR:

begin2::
@NOERROR
@delete out:*.*
@EXPUNGE out:
@error
@inf dis out:
@inf log all
@goto rancbl:

%ERR::
@run <uetp.lib>sender
*type error
*blabel begin2
*test rancbl
*send No directory uetp.rancbl on structure USER:?
*exit
@go to enderr:

RANCBL::
@RUN ps:<uetp.lib>RANCBL.EXE
*O
*W1
*1
*W3
*3
*W5
*5
*C
*RA
*RS
*SW
*SR
@GOTO RANCB1:

%ERR::
@silence		!***** message: ERROR IN COBOL RANDOM TEST (PARM O)
@RUN ps:<uetp.lib>sender
*TYPE ERROR
*BLABEL RANCBL:
*TEST RANCBL
*SEND ERROR IN COBOL RANDOM TEST (PARM O)
*EXIT
@revive

! SECOND TRY WITH PARAMETER OI
@RUN ps:<uetp.lib>RANCBL.EXE
RANCB1:::
*OI
*C
@GOTO RANCB2:

%ERR::
@silence		!***** message: ERROR IN COBOL RANDOM TEST (PARM OI)
@RUN ps:<uetp.lib>sender
*TYPE ERROR
*BLABEL RANCB1:
*TEST RANCBL
*SEND ERROR IN COBOL RANDOM TEST (PARM OI)
*EXIT
@revive

!THIRD TRY WITH PARAMETER OO
@RUN ps:<uetp.lib>RANCBL.EXE

RANCB2::
*OO
*C
@GOTO RANCB3:

%ERR::
@silence		!***** message: ERROR IN COBOL RANDOM TEST (PARM OO)
@RUN ps:<uetp.lib>sender
*TYPE ERROR
*BLABEL RANCB2:
*TEST RANCBL
*SEND ERROR IN COBOL RANDOM TEST (PARM OO)
*EXIT
@revive

!FOURTH TRY WITH PARAMETER R
@RUN ps:<uetp.lib>RANCBL

RANCB3::
*O
*R
*6
@GOTO END:

%ERR::
@silence		!***** message: ERROR IN COBOL RANDOM TEST (PARM R)
@RUN ps:<uetp.lib>sender
*TYPE ERROR
*BLABEL RANCB3:
*TEST RANCBL
*SEND ERROR IN COBOL RANDOM TEST (PARM R)
*EXIT
@revive
@GOTO ENDERR:

%TERR::
@SILENCE	! ***** MESSAGE: TIME-OUT ERROR RANCBL
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST RANCBL
*SEND TIME-OUT ERROR RANCBL
*EXIT
@REVIVE
@GOTO ENDERR:

%ERR::
@SILENCE	! ***** MESSAGE: UNKNOWN ERROR IN RANCBL.SUP
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST RANCBL
*SEND UNKNOWN ERROR IN RANCBL.SUP
*EXIT
@REVIVE
@GOTO ENDERR:

ENDERR::
@INF DIS out:<UETP.RANCBL>
@VDIR out:
@I LOG ALL
@SY ALL F-S
@INF FI
@INF MEM

END::
%FIN::
@silence		!***** message: END OF RANCBL TEST
@RUN  ps:<uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST RANCBL
*SEND
*EXIT
@revive