Google
 

Trailing-Edge - PDP-10 Archives - BB-AE97C-BM - uetp/lib/rms.ver
There are 19 other files named rms.ver in the archive. Click here to see a list.
! Input files:	RMTBLS.B36	RMTCBB.CBL	RMTCBI.CBL	RMTCBR.CBL
!		RMTCBS.CBL	RMTMAC.MAC
!
! Output files:	IDXIDX.RMS	RELREL.RMS	RMS.LOG		RMSRMS.IDX
!		RMSRMS.REL	RMSRMS.SEQ	RMTBLS.EXE	RMTBLS.LOG
!		RMTBLS.REL	RMTCBB.REL	RMTCBI.REL	RMTCBR.REL
!		RMTCBS.REL	RMTF1.RBL	RMTF1.RMI	RMTF1.RMS
!		RMTF2.RBL	RMTF2.RMI	RMTF2.RMS	RMTF3.RMS
!		RMTMAC.REL	SEQSEQ.RMS
!

!
! These definitions may be changed as needed
!
@DEFINE DSK: DSK:,PS:<UETP.LIB>
@DEFINE SYS: DSK:,SYS:
@DEFINE UNV: DSK:,SYS:
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
@R SENDER
*TEST RMS
*BLABEL BEGIN:
*TYPE START
*SEND START OF RMS TEST
*EXIT
@GET SYS:RMS.EXE
@IF (ERROR) @GOTO NORMS::
@INFO VERSION
@GOTO CHKXRMS::
@R SENDER
*TEST RMS
*BLABEL BEGIN:
*TYPE ERROR
*SEND SYS:RMS.EXE NOT FOUND - ABORTING TESTS
*EXIT
@GOTO ENDTST::
CHKXRMS::
@GET SYS:XRMS.EXE
@IF (ERROR) @GOTO NOXRMS::
@INFO VERSION
@GOTO ENDCHK::
@R SENDER
*TEST RMS
*BLABEL BEGIN:
*TYPE ERROR
*SEND SYS:XRMS.EXE NOT FOUND - ABORTING TESTS
*EXIT
@GOTO ENDTST::
ENDCHK::
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
BLSTST::					! BLISS test begins
@GET SYS:BLISS.EXE				! Check for SYS:BLISS.EXE
@IF (ERROR) @GOTO NOBLSS::			! Not here - skip these tests
@INFO VERSION
!
!   Tell user we're starting the BLISS tests
!
@R SENDER
*TEST RMS
*BLABEL BLSTST::
*TYPE LOG
*SEND BEGINNING BLISS/RMS TESTS
*EXIT
!
!   Compile the BLISS test program
!
BLSCOM::
@ERROR %
@BLISS RMTBLS
@IF (NOERROR) @GOTO BLSRUN::
@R SENDER
*TEST RMS
*BLABEL BLSCOM::
*TYPE ERROR
*SEND ERROR IN BLISS/RMS TEST COMPILATION - ABORTING BLISS TESTING
*EXIT
@GOTO BLSEND::
!
!   Link and run the program
!
BLSRUN::
@ERROR
@LINK
*RMTBLS.REL,SYS:RMS.REL/INCLUDE:(RMSM2,RMSCNV,RMSFLO)/GO
@SAVE RMTBLS.EXE
@RUN RMTBLS
@R SENDER
*TEST RMS
*BLABEL BLSRUN::
*TAKE RMTBLS.LOG
*EXIT
@GOTO BLSEND::
!
!   Couldn't find SYS:BLISS.EXE
!
NOBLSS::
@R SENDER
*TYPE LOG
*BLABEL NOBLSS::
*TEST RMS
*SEND SYS:BLISS.EXE NOT FOUND - NO BLISS TESTING DONE
*EXIT
@GOTO MACTST::
!
!   Say we're done with BLISS
!
BLSEND::
@R SENDER
*TEST RMS
*BLABEL BLSEND::
*TYPE MAJOR
*SEND BLISS/RMS TESTS COMPLETED
*EXIT
!
! Handle unexpected BLISS test errors
!
%ERR::
BLSERR::
@R SENDER
*TEST RMS
*BLABEL BLSERR::
*TYPE ERROR
*SEND UNEXPECTED ERROR IN BLISS/RMS TESTS
*EXIT
%FIN::
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
MACTST::					! MACRO test begins
@GET SYS:MACRO.EXE				! Check for SYS:MACRO.EXE
@IF (ERROR) @GOTO NOMAC::			! Not here - skip these tests
@INFO VERSION
!
!   Tell user we're starting the MACRO tests
!
@R SENDER
*TEST RMS
*BLABEL MACTST::
*TYPE LOG
*SEND BEGINNING MACRO/RMS TESTS
*EXIT
!
!   Assemble the MACRO test program
!
MACCOM::
@MACRO
*RMTMAC=RMTMAC
*^Z
@IF (NOERROR) @GOTO MACRUN::
@R SENDER
*TEST RMS
*BLABEL MACCOM::
*TYPE ERROR
*SEND ERROR IN MACRO/RMS TEST ASSEMBLY - ABORTING MACRO TESTING
*EXIT
@GOTO MACEND::
!
!   Link and run the program
!
MACRUN::
@LINK
*RMTMAC.REL/GO
@SAVE RMTMAC.EXE
@RUN RMTMAC
@IF (NOERROR) @GOTO MACOK::
@R SENDER
*TEST RMS
*BLABEL MACRUN::
*TYPE ERROR
*SEND ERROR IN MACRO/RMS TESTS
*EXIT
@GOTO MACEND::
MACOK::
@R SENDER
*TEST RMS
*BLABEL MACRUN::
*TYPE LOG
*SEND MACRO/RMS TESTS SUCCESSFUL
*EXIT
@GOTO MACEND::
!
!   Couldn't find SYS:MACRO.EXE
!
NOMAC::
@R SENDER
*TYPE LOG
*BLABEL NOMAC::
*TEST RMS
*SEND SYS:MACRO.EXE NOT FOUND - NO MACRO TESTING DONE
*EXIT
@GOTO CBLTST::
!
!   Say we're done with MACRO
!
MACEND::
@R SENDER
*TEST RMS
*BLABEL MACEND::
*TYPE MAJOR
*SEND MACRO/RMS TESTS COMPLETED
*EXIT
!
! Handle unexpected MACRO test errors
!
%ERR::
MACERR::
@R SENDER
*TEST RMS
*BLABEL MACERR::
*TYPE ERROR
*SEND UNEXPECTED ERROR IN MACRO/RMS TESTS
*EXIT
%FIN::
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
CBLTST::					! COBOL test begins
@GET SYS:COBOL.EXE				! Check for SYS:COBOL.EXE
@IF (ERROR) @GOTO NOCBL::			! Not here - skip these tests
@INFO VERSION
!
!   Tell user we're starting the COBOL tests
!
@R SENDER
*TEST RMS
*BLABEL CBLTST::
*TYPE LOG
*SEND BEGINNING COBOL/RMS TESTS
*EXIT
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!   Test COBOL BASIC-style locking
!
CBLCM1::
@COBOL
*COMPILE RMTCBB.CBL
*EXIT
@IF (NOERROR) @GOTO CBLRN1::
@R SENDER
*TEST RMS
*BLABEL CBLCM1::
*TYPE ERROR
*SEND ERROR COMPILING RMTCBB
*EXIT
@GOTO CBLCM2::
CBLRN1::
@EXECUTE RMTCBB
@IF (NOERROR) @GOTO CBLOK1::
@R SENDER
*TEST RMS
*BLABEL CBLRN1::
*TYPE ERROR
*SEND ERROR IN COBOL BASIC-STYLE LOCKING TESTS
*EXIT
@GOTO CBLCM2::
CBLOK1::
@R SENDER
*TEST RMS
*BLABEL CBLRN1::
*TYPE MINOR
*SEND COBOL BASIC-STYLE LOCKING TESTS SUCCESSFUL
*EXIT
@GOTO CBLCM2::
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!   Test COBOL RMS Sequential files
!
CBLCM2::
@COBOL
*COMPILE RMTCBS.CBL
*EXIT
@IF (NOERROR) @GOTO CBLRN2::
@R SENDER
*TEST RMS
*BLABEL CBLCM2::
*TYPE ERROR
*SEND ERROR COMPILING RMTCBS
*EXIT
@GOTO CBLCM3::
CBLRN2::
@EXECUTE RMTCBS.CBL
@IF (NOERROR) @GOTO CBLOK2::
@R SENDER
*TEST RMS
*BLABEL CBLRN2::
*TYPE ERROR
*SEND ERROR IN COBOL RMS SEQUENTIAL FILE TESTS
*EXIT
@GOTO CBLCM3::
CBLOK2::
@R SENDER
*TEST RMS
*BLABEL CBLRN2::
*TYPE MINOR
*SEND COBOL RMS SEQUENTIAL FILE TESTS SUCCESSFUL
*EXIT
@GOTO CBLCM3::
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!   Test COBOL RMS Relative files
!
CBLCM3::
@COBOL
*COMPILE RMTCBR.CBL
*EXIT
@IF (NOERROR) @GOTO CBLRN3::
@R SENDER
*TEST RMS
*BLABEL CBLCM3::
*TYPE ERROR
*SEND ERROR COMPILING RMTCBR
*EXIT
@GOTO CBLCM4::
CBLRN3::
@EXECUTE RMTCBR
@IF (NOERROR) @GOTO CBLOK3::
@R SENDER
*TEST RMS
*BLABEL CBLRN3::
*TYPE ERROR
*SEND ERROR IN COBOL RMS RELATIVE FILE TESTS
*EXIT
@GOTO CBLCM4::
CBLOK3::
@R SENDER
*TEST RMS
*BLABEL CBLRN3::
*TYPE MINOR
*SEND COBOL RMS RELATIVE FILE TESTS SUCCESSFUL
*EXIT
@GOTO CBLCM4::
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!   Test COBOL RMS Indexed files
!
CBLCM4::
@COBOL
*COMPILE RMTCBI.CBL
*EXIT
@IF (NOERROR) @GOTO CBLRN4::
@R SENDER
*TEST RMS
*BLABEL CBLCM4::
*TYPE ERROR
*SEND ERROR COMPILING RMTCBI
*EXIT
@GOTO CBLEND::
CBLRN4::
@EXECUTE RMTCBI.CBL
@IF (NOERROR) @GOTO CBLOK4::
@R SENDER
*TEST RMS
*BLABEL CBLRN4::
*TYPE ERROR
*SEND ERROR IN COBOL RMS INDEXED FILE TESTS
*EXIT
@GOTO CBLEND::
CBLOK4::
@R SENDER
*TEST RMS
*BLABEL CBLRN4::
*TYPE MINOR
*SEND COBOL RMS INDEXED FILE TESTS SUCCESSFUL
*EXIT
@GOTO CBLEND::
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!   Couldn't find SYS:COBOL.EXE
!
NOCBL::
@R SENDER
*TYPE LOG
*BLABEL NOCBL::
*TEST RMS
*SEND SYS:COBOL.EXE NOT FOUND - NO COBOL TESTING DONE
*EXIT
@GOTO ENDTST::
!
!   Say we're done with COBOL
!
CBLEND::
@R SENDER
*TEST RMS
*BLABEL CBLEND::
*TYPE MAJOR
*SEND COBOL/RMS TESTS COMPLETED
*EXIT
!
! Handle unexpected COBOL test errors
!
%ERR::
CBLERR::
@R SENDER
*TEST RMS
*BLABEL CBLERR::
*TYPE ERROR
*SEND UNEXPECTED ERROR IN COBOL/RMS TESTS
*EXIT
%FIN::
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ENDTST::
CHKPNT END::
END::
@NOERROR
@R SENDER
*TEST RMS
*BLABEL END::
*TYPE END
*SEND END OF RMS TEST
*EXIT