Google
 

Trailing-Edge - PDP-10 Archives - BB-F494Z-DD_1986 - 10,7/rms.ver
There are 19 other files named rms.ver in the archive. Click here to see a list.
! INPUT FILES:	RMTMKI.CBL	RMTNAM.UTL	RMTOK.UTL	RMTOK.MST
!
! OUTPUT FILES:	RMTF1.RMS	RMTF2.RMS	RMTMKI.REL	RMTOK.REP

.R SETSRC		;[5,33] IS UTP:
*LIB[5,33]
*SYS
.ASSIGN DSK: SYS:

.R SENDER
*TYPE START
*BLABEL BEGIN:
*TEST RMS
*SEND START OF RMS TEST
*EXIT

.GET SYS:RMS.EXE
.IF (ERROR) .GOTO FNDERR::
.VERSION

.GET SYS:RMSCOB.EXE
.IF (ERROR) .GOTO FNDERR::
.VERSION

.GET SYS:RMSUTL.EXE
.IF (ERROR) .GOTO FNDERR::
.VERSION
.GOTO RMSDEF::

FNDERR::
.R SENDER
*TYPE ERROR
*BLABEL BEGIN:
*TEST RMS
*SEND RMS SYSTEM FILES NOT ALL FOUND
*EXIT
.GOTO END::


RMSDEF::
.R RMSUTL
*TAKE RMTNAM.UTL/DISP
*DEFINE FILE RMTF1.RMS INDEX R1K1,KR1AK1,KR1AK2/REC:25
.IF (NOERROR) .GOTO RMSCOM::

.R SENDER
*TYPE ERROR
*BLABEL RMSDEF:
*TEST RMS
*SEND COULD NOT DEFINE RMS FILE
*EXIT
.GOTO END::

RMSCOM::
.R CBL74
*RMTMKI,-=RMTMKI
.IF (NOERROR) .GOTO RMSCEX::

.R SENDER
*TYPE ERROR
*BLABEL RMSCOM:
*TEST RMS
*SEND ERROR COMPILING MULTI-KEY ISAM PROGRAM
*EXIT
.GOTO END::

RMSCEX::
.EXECUTE RMTMKI.REL
.IF (NOERROR) .GOTO RMSUTL::

.R SENDER
*TYPE ERROR
*BLABEL RMSCEX:
*TEST RMS
*SEND ERROR RUNNING MULTI-KEY ISAM PROGRAM
*EXIT
.GOTO END::


RMSUTL::
.R RMSUTL
*TAKE RMTNAM.UTL/DISP
*TAKE RMTOK.UTL/DISP
.IF (ERROR) .GOTO RUTERR:

.ERROR %
.R FILCOM
*=RMTOK.MST,RMTOK.REP
.IF (NOERROR) .GOTO END::

RUTERR::
.R SENDER
*TYPE ERROR
*BLABEL RMSUTL:
*TEST RMS
*SEND RMSUTL TEST FAILED
*EXIT
.GOTO END::


%ERR::
.R SENDER
*TYPE ERROR
*BLABEL END:
*TEST RMS
*SEND UNKNOWN ERROR IN RMS TEST
*EXIT

CHKPNT END::
END::
%FIN::
.NOERROR
.DELETE RMTF1.RMS,RMTF2.RMS,RMTMKI.REL,RMTOK.REP

.R SENDER
*TYPE END
*BLABEL END:
*TEST RMS
*SEND END OF RMS TEST
*EXIT