Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
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