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