Google
 

Trailing-Edge - PDP-10 Archives - BB-4171H-BM - uetp/lib/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

@DEFINE DSK: DSK:,PS:<UETP.LIB>
@DEFINE SYS: DSK:,SYS:

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

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

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

@GET SYS:RMSUTL.EXE
@IF (ERROR) @GOTO FNDERR::
@INFO 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::
@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