Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!
!			  COPYRIGHT (c) 1983 BY
!	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
! ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
! INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
! COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
! OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
! TRANSFERRED.
!
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
! AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
! CORPORATION.
!
! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
!
!

!++
!
! 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