Trailing-Edge
-
PDP-10 Archives
-
DEC-20-OT20A-D-MC9
-
2-exercise-libary/rancbl.bat
There are no other files named rancbl.bat in the archive.
! RANCBL.BAT
! VERSION 2 5/31/76
!COBOL RANDOM ACCESS TESTS
!FILES NEEDED:
! RANTSC.CBL
!!BEGINNING OF RANCBL.BAT -- COBOL RANDOM ACCESS TESTS.
!CREATE ERROR MESSAGE FILE, TO BE APPENDED LATER TO ERRORS.LOG
@COPY TTY: RANCBL.ERR
@
@
@DEFINE (LOGICAL NAME) DSK (AS) DSK:,<EXERCISER-LIBRARY>
!TETST FOR EXISTENCE OF COBOL COMPILER ON THIS SYSTEM.
@COPY SYS:COBOL.EXE (TO) NUL:
@IF (ERROR) @GOTO NOCOB::
@EXECUTE RANTSC.CBL
*O
*W1
*1
*W3
*3
*W5
*5
*C
*RA
*RS
*SW
*SR
@IF (NOERROR) @GOTO A
@APPEND (SOURCE FILE) TTY: (TO) RANCBL.ERR
@++++ COBOL RANDOM ACCESS ERROR ++++
@++++ TEST NAME: RANTSC.CBL ++++
@++++ PARAMETER INPUT FROM TTY "O" ++++
@++++ [END OF RANCBL.BAT ERROR] ++++
@
@^Z
@EXECUTE RANTSC.CBL
!!FIRST RUN OF RANTSC.CBL COMPLETE
A::
*OI
*C
@IF (NOERROR) @GOTO B
@APPEND (SOURCE FILE) TTY: (TO) RANCBL.ERR
@++++ COBOL RANDOM ACCESS ERROR ++++
@++++ TEST NAME: RANTSC.CBL ++++
@++++ PARAMETER INPUT FROM TTY "OI" ++++
@++++ [END OF RANCBL.BAT ERROR] ++++
@++++ COBOL I/O TEST FAILURE TEST RANTSC.CBL ++++
@^Z
@EXECUTE RANTSC
!!SECOND RUN OF RANTSC.CBL COMPLETE.
B::
*OO
*C
@IF (NOERROR) @GOTO C
@APPEND (SOURCE FILE) TTY: (TO) RANCBL.ERR
@++++ COBOL RANDOM ACCESS ERROR ++++
@++++ TEST NAME: RANTSC.CBL ++++
@++++ PARAMETER INPUT FROM TTY "OO" ++++
@++++ [END OF RANCBL.BAT ERROR] ++++
@
@^Z
@EXECUTE RANTSC
!!THIRD RUN OF