Google
 

Trailing-Edge - PDP-10 Archives - BB-D867D-BM - uetp/lib/rancbl.ver
There are 13 other files named rancbl.ver in the archive. Click here to see a list.
;<UETP.2>RANCBL.VER.2,  3-May-79 16:19:29, Edit by REILLY
;<UETP.LIB>RANCBL.VER.21,  2-Jun-78 10:03:59, Edit by ENGEL
;<UETP.LIB>RANCBL.VER.20,  4-May-78 11:19:22, Edit by ENGEL
!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.
!  THIS TEST WAS TAKEN FROM THE EXERCISER ON NOVEMBER 2, 1977
!
!	RANCBL.BAT
!	VERSION 3	6/14/77

!.R SETSRC
*CP [5,33,RANCBL]
*LIB:[5,33]
*

!.Set default prot <000>

@DEFINE UTP: <UETP.LIB>		!.none

!COBOL RANDOM ACCESS TESTS

!FILES NEEDED:
!	RANCBL.CBL

@DEF DSK: <UETP.RANCBL>,DSK:<UETP.LIB>	!.none
@TAKE SYS.CMD	!.none
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE START
*BLABEL BEGIN:
*TEST RANCBL
*SEND START OF RANDOM COBOL I/O TEST
*EXIT

@NOERROR	!.NOERROR
@DELETE <UETP.RANCBL>*.*	!.DELETE *.*
@EXPUNGE <UETP.RANCBL>	!.none
@ERROR	!.ERROR
@I DIS <UETP.RANCBL>	!.none
@INF LOG ALL	!.none

!TEST FOR EXISTENCE OF COBOL COMPILER ON THIS SYSTEM.
@GET SYS:COBOL.EXE	!.GET SYS:COBOL.EXE
@IF (NOERROR) @GOTO COB::	!.IF (NOERROR) .GOTO COB::

@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE MAJOR
*BLABEL BEGIN:
*TEST RANCBL
*SEND COBOL NOT AVAILABLE WILL USE .EXE FILES
*EXIT
@GOTO NOCOB::	!.GOTO NOCOB::

COB::
@GET SYS:COBOL	!.GET SYS:COBOL
@INF VER	!.VERSIO
LOAD RANCBL.CBL/COMP

@IF (NOERROR) @GOTO SAVE::	!.IF (NOERROR) .GOTO SAVE::

@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL COB:
*TEST RANCBL
*SEND ERROR during LOAD/COMPILE RANCBL
*EXIT

@GOTO NOCOB::	!.GOTO NOCOB::

SAVE::

@SAVE RANCBL.EXE	!.SAVE RANCBL.EXE

NOCOB::
@RUN RANCBL.EXE	!.RUN RANCBL.EXE
*O
*W1
*1
*W3
*3
*W5
*5
*C
*RA
*RS
*SW
*SR
@IF (NOERROR) @GOTO A::	!.IF (NOERROR) .GOTO A::

@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL NOCOB:
*TEST RANCBL
*SEND ERROR IN COBOL RANDOM TEST (PARM O)
*EXIT

! SECOND TRY WITH PARAMETER OI
@RUN RANCBL.EXE	!.RUN RANCBL.EXE

A::
*OI
*C
@IF (NOERROR) @GOTO B::	!.IF (NOERROR) .GOTO B::

@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL A::
*TEST RANCBL
*SEND ERROR IN COBOL RANDOM TEST (PARM OI)
*EXIT

!THIRD TRY WITH PARAMETER OO
@RUN RANCBL.EXE	!.RUN RANCBL.EXE

B::
*OO
*C
@IF (NOERROR) @GOTO C	!.IF (NOERROR) .GOTO C

@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL B:
*TEST RANCBL
*SEND ERROR IN COBOL RANDOM TEST (PARM OO)
*EXIT

!FOURTH TRY WITH PARAMETER R
@RUN RANCBL	!.RUN RANCBL

C::
*O
*R
*6
@IF (NOERROR) @GOTO D::	!.IF (NOERROR) .GOTO D::

@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL C:
*TEST RANCBL
*SEND ERROR IN COBOL RANDOM TEST (PARM R)
*EXIT


D::
@GOTO FIN::	!.GOTO FIN::

END::
%ERR::
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL END:
*TEST RANCBL
*SEND UNKNOWN ERROR IN COBOL RANDOM I/O TEST
*EXIT


FIN::
%FIN::

@NOERROR	!.NOERROR
@RESET	!.none
@DELETE RANCBL.REL
@DELETE RANCBL.EXE
@DELETE RAN1.DAT
@EXPUNGE <UETP.RANCBL>	!.none

@CHKPNT ADSF::	!.CHKPNT ADSF::

@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE END
*BLABEL END:
*TEST RANCBL
*SEND END OF COBOL RANDOM I/O TEST
*EXIT