!*** MODULE $RMSDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:32:46.28
 ! 
 ! 	.TITLE	RMSMSG -RMS COMPLETION CODES
 !  *************************************************************************
 !  *                                                                       *
 !  * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1976, 1977, 1978, 1979,  *
 !  * 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990,     *
 !  * 1991,1992-1999                                                        *
 !  * COMPAQ COMPUTER CORPORATION, 2000-2002                                *
 !  * HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P., 2003-2005                  *
 !  * ALL RIGHTS RESERVED.                                                  *
 !  * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS  OF  THE  UNITED *
 !  * STATES.                                                               *
 !  *                                                                       *
 !  * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO  AND  EMBODIES *
 !  * THE   CONFIDENTIAL   TECHNOLOGY  OF  DIGITAL  EQUIPMENT  CORPORATION. *
 !  * POSSESSION, USE, DUPLICATION OR DISSEMINATION  OF  THE  SOFTWARE  AND *
 !  * MEDIA  IS  AUTHORIZED  ONLY  PURSUANT TO A VALID WRITTEN LICENSE FROM *
 !  * DIGITAL EQUIPMENT CORPORATION.                                        *
 !  *                                                                       *
 !  * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE  U.S. *
 !  * GOVERNMENT  IS  SUBJECT  TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *
 !  * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. *
 !  *                                                                       *
 !  *************************************************************************
 ! ++
 !  FACILITY: RMS
 ! 
 !  ABSTRACT:
 ! 
 ! 	THIS MODULE DEFINES ALL RMS COMPLETION CODES.
 ! 
 !  ENVIRONMENT:
 ! 
 ! 	THE MESSAGE TRANSLATOR MUST BE USED TO CONVERT RMSMSG.MSG INTO
 ! 	RMSMSG.SDL.  THE SDL TRANSLATOR MUST THEN BE USED TO CONVERT
 ! 	RMSMSG.SDL INTO RMSMSG.MAR (AND RMSMSG.B32).
 ! 
 !  AUTHOR: LEO F. LAVERDURE,	CREATION DATE:  10-DEC-1976
 ! 
 !  MODIFIED BY:
 ! 
 ! 	X-17	EMW0362		ELINOR M. WOODS		02-MAY-2005
 ! 		ADD 2 NEW FATAL STATUSES RMS$_FOPEXTMBZ AND 
 ! 		RMS$_INVOP_SSIO (WITHOUT STV) FOR SSIO SUPPORT.  
 ! 
 ! 	X-16	SAD		STUART A. DAVIDSON	 5-OCT-2004
 ! 		ADD RMS$_ELOOP FOR SYMBOLIC LINK SUPPORT. ELOOP IS
 ! 		RETURNED IF MORE THAN A CERTAIN NUMBER OF SYMBOLIC LINKS
 ! 		ARE TRAVERSED IN A SINGLE FILE LOOKUP.
 ! 
 ! 	X-15	EMW0300		ELINOR M. WOODS		03-JAN-2003
 ! 		KP THREADING CHANGE:  ADD ONE NEW FATAL ERROR STATUS
 ! 		(RSESTK_ALLOC) WITH AN ASSOCIATED STV THAT WILL CONTAIN
 ! 		THE ACTUAL STATUS RETURNED BY EXE$KP_ALLOC_RSE_STACK_P2.
 ! 
 ! 	X-14	EMW0196		ELINOR M. WOODS		08-SEP-1999
 ! 		BKT-LOCK ENHANCEMENTS:  ADD ONE NEW FATAL ERROR
 ! 		STATUS (CRBUFOBJ) WITH AN ASSOCIATED STV.
 ! 
 ! 	X-13	EMW0195		ELINOR M. WOODS		25-AUG-1999
 ! 		BKT-LOCK ENHANCEMENTS:  ADD TWO NEW FATAL ERROR
 ! 		STATUSES (BADGBD AND BADGBH).
 ! 
 ! 	X-12	WBF	    BURNS FISHER		18-SEP-1997
 ! 		CHANGE NAMLESS AND NAMLRSS TO FATAL.  ADD NAMLFSINV AND
 ! 		NAMLFSSIZ.
 ! 
 ! 	X-11	WBF	    BURNS FISHER		18-JULY-1997
 ! 		INTEGRATE THE ONE HFS CHANGE INTO MAINSTREAM, AND ADD NAML
 ! 		MESSAGE
 ! 
 ! 			TAM0015	    TERI A. MANSEAU		18-APR-1997
 ! 			ADDED TWO NAML WARNING MESSAGES RMS$_NAMLESS
 ! 			AND RMS$NAMLRSS.
 ! 
 ! 	X-10	EMW0132	    ELINOR M. WOODS		11-APR-1997
 ! 		ADD NEW RMS-INTERNAL ERROR STATUS RMS$_EOFASY_SYNCH.
 ! 		FOR INTERNAL USE ONLY; NEVER RETURNED TO USER.
 ! 
 ! 	X-9	EMW0084	    ELINOR M. WOODS		08-FEB-1996
 ! 		PW INTEGRATION:  REMOVE NEW ALTERNATE SUCCESS STATUS:
 ! 		RMS$_OK_URECEOF.  ENDED UP NOT NEEDED.
 ! 
 ! 	X-8	WDBPI1	    WALTER D. BLASCHUK, JR.	19-DEC-1995
 ! 		PATHWORKS INTEGRATION: ADD NEW ALTERNATE SUCCESS 
 ! 		STATUS: RMS$_OK_URECEOF <UNTERMINATED STREAM RECORD AT
 ! 		EOF SUCCESSFULLY READ>.  THIS SYMBOL SIGNIFIES THAT AN 
 ! 		END-OF-FILE MARKER WAS ENCOUNTERED AND THERE WAS DATA 
 ! 		IN THE BUFFER.  THIS OCCURS WHEN THE LAST RECORD OF A 
 ! 		SEQUENTIAL STREAM FILE DOES NOT HAVE A TERMINATING 
 ! 		CHARACTER.  THIS IS A SUCCESS STATUS AND DOES NOT HAVE 
 ! 		A STV STATUS ASSOCIATED WITH IT. 
 ! 
 ! 
 ! 	X-7	EMW	    ELINOR M. WOODS	       10-AUG-1994
 ! 		MERGE IN OPENVMS VAX DRAGON CHANGE:
 ! 
 ! 		X-13  EMW0023	ELINOR M. WOODS		04-AUG-1994
 ! 		RMS$_KRF CAN BE RETURNED BY $CONNECT OR $REWIND, AS
 ! 		WELL AS $GET/$FIND.  MAKE TEXT ASSOCIATED WITH KRF
 ! 		STATUS MORE GENERIC BY REMOVING "for $GET/$FIND."
 ! 
 !        X-6     EMW		ELINOR M. WOODS		30-JUN-1994
 ! 		MERGE IN OPENVMS VAX DRAGON CHANGE:
 ! 
 ! 		X-12   EMW0026   ELINOR M. WOODS	15-JUN-1994
 ! 		ADD ONE NEW USER-REPORTABLE STATUS:  NXR 
 ! 		<nonexistent record>.  THIS STATUS VALUE IS USED 
 ! 		AS AN STV ASSOCIATED WITH RNF STATUS (STS), AND IS
 ! 		REPORTED FOR AN EXACT KEY MATCH OF A SECONDARY KEY
 ! 		IF THE SECONDARY KEY ENTRY POINTS TO A NONEXISTENT
 ! 		PRIMARY DATA RECORD IN DISK FILE.  NOTE:  RNF ERROR 
 ! 		STATUS PRE-EXISTED AS ERROR CODE WITHOUT STV.
 ! 
 !                DEE RYAN                                30-SEP-1993
 !                CORRECTED USE OF DIGITAL PRODUCT NAMES.
 ! 
 ! 	X-5	EMW		ELINOR M. WOODS		28-SEP-1993
 ! 		MERGE IN OPENVMS VAX CORAL FIX:
 ! 
 ! 		X-10	EMW0019  ELINOR M. WOODS  	21-SEP-1993
 ! 		ADD ONE NEW USER-REPORTABLE ERROR STATUS (WITH AN
 ! 		ASSOCIATED STV): NETBTS.  RELOCATE NEW IDXSEARCH STATUS
 ! 		(SEE X-9) FROM "ERROR with STV" SECTION TO "ERROR WITHOUT 
 ! 		STV" section.  Expand "WITH STV' AND "without STV"
 ! 		COMMENTS TO CLARIFY DIFFERENCE BETWEEN TWO.
 ! 
 ! 	X-4	EMW0016		ELINOR M. WOODS		10-AUG-1993
 ! 		MERGE IN CORAL FIX:
 ! 
 ! 		MODIFY SEVERITY OF TWO DTF ERROR CODES (DTFACC AND
 ! 		DTFCRE) FROM FATAL TO ERROR, AS REQUESTED BY SNA/DTF
 ! 		FACILITY.		
 ! 
 ! 		ALSO MOVE NEW IDXSEARCH STATUS FROM ERROR WITH NO 
 ! 		STV GROUPING TO ERROR WITH STV GROUPING.
 ! 
 ! 	X-3	EMW0010		ELINOR M. WOODS		02-JUL-1993
 ! 		TO SUPPORT NEW KEY-LESS-THAN FUNCTIONALITY, ADDITION 
 ! 		OF ONE USER-REPORTABLE ERROR STATUS:  IDXSEARCH, AND
 ! 		TWO NEW RMS-INTERNAL ERROR STATUSES:  LSCAN AND 
 ! 		ROOTSRCH.		
 ! 
 ! 	X-2	CW0019		CHRIS WHITAKER		11-NOV-1992
 ! 		MERGE IN OPENVMS VAX V6.0 CHANGES
 ! 
 ! 		X-8	JM0012	JOHN MUNZER		11-NOV-1992
 ! 		CHANGE TEXT FOR RMS$_LNE.
 ! 
 ! 		X-7	JM0006	JOHN MUNZER		17-APR-1992
 ! 		ADD !XL PARAMETER TO RMS$_BUG TO REPORT R2.
 ! 
 ! 	X-1	RAB		RICHARD A. BISHOP	24-JUN-1991
 ! 		MOVED TO [STARLET] FACILITY
 ! 
 ! 	==================================
 ! 	OLD AUDIT TRAIL FOLLOWS:
 ! 
 ! 	X-33	LSS0154		LEONARD S. SZUBOWICZ	 4-APR-1990
 ! 		ALTER TEXT AND FAO PARAMETERS OF RMS$_RUH AND RMS$_BUG
 ! 		CONDITION VALUES FOR RMS/DDTM SUPPORT.
 ! 
 ! 	X-32	PJH		PAUL J. HOULIHAN	17-JAN-1990
 ! 		CHANGE TEXT FOR RMS$_INCOMPSHR ERROR MESSAGE.
 ! 
 ! 	X-31	LSS0130		LEONARD S. SZUBOWICZ	12-OCT-1989
 ! 		MERGE OF RMS/DDTM GENERATION X-30D2.
 ! 		ADD GENERAL DDTM_ERR ERROR MESSAGE FOR DDTM SERVICE FAILURES;
 ! 		STV WILL CONTAIN THE FAILING SYSTEM SERVICE CONDITION VALUE.
 ! 
 ! 	X-30	LSS0080		LEONARD S. SZUBOWICZ	06-OCT-1988
 ! 		ADD RMS$_OK_ACT MESSAGE FOR USE BY FUTURE WORK TO $DISPLAY.
 ! 		THIS IS PART OF LATENT SUPPORT FOR RMS/DDTM.
 ! 
 ! 	X-29	GJA0080		GARY J. ALLISON		06-JUN-1988
 ! 		CHANGE TEXT OF SEMANTICS MESSAGE.
 ! 
 ! 	X-28	GJA0072		GARY J. ALLISON		02-MAR-1988
 ! 		ADD EXT_ERR, OPNOTSUP, EXTNOTFOU, AND SEMANTICS MESSAGES.
 ! 
 ! 	X-27	PMV0072		PETER M. VATNE		08-OCT-1987
 ! 		CHANGE RMS$_NOJNLLIC TO RMS$_JNLNOTAUTH.
 ! 
 !  	X-26	LSS0057		LEONARD S. SZUBOWICZ	15-SEP-1987
 ! 		CHANGE TEXT FOR THE RMS$_OK_DUP STATUS SUCH THAT THE MESSAGE
 ! 		IS APPLICABLE TO $GET AS WELL AS $PUT.
 ! 
 ! 	X-25	PMV0068		PETER M. VATNE		11-SEP-1987
 ! 		ADD RMS$_NOJNLLIC, NO RMS JOURNALING LICENSE, FOR LMF.
 ! 
 ! 	X-24	RNM0026		RUSSELL N. MURRAY	15-AUG-1987
 ! 		ADD RMS$_SYNCH MESSAGE FOR NOTIFICATION OF SYNCHRONOUS
 ! 		COMPLETION.
 ! 
 ! 	X-23	JEJ0479		JAMES E JOHNSON		13-AUG-1987
 ! 		ADD RMS$_IVATRACE MESSAGE.
 ! 
 ! 	X-22	PMV0061		PETER M. VATNE		03-AUG-1987
 ! 		CHANGE RESERVED MESSAGE RMS$_BUG_XX5 TO RMS$_BUG_RU_COMMIT_FAIL
 ! 		TO CORRESPOND TO POSITIVE RMS BUGCHECK FTL$_RU_COMMIT_FAIL.
 ! 
 !  	X-21	LSS0042		LEONARD S. SZUBOWICZ	13-MAY-1987
 ! 		CHANGE RESERVED MESSAGE RMS$_BUG_XX4 TO RMS$_BUG_RU_ABORT_FAIL
 ! 		TO CORRESPOND TO POSITIVE RMS BUGCHECK FTL$_RU_ABORT_FAIL
 ! 	
 ! 	X-20	SAD0034		STUART A. DAVIDSON	12-MAR-1987 
 ! 		DROP QUOTES FROM SNADTF MESSAGE TEXT.
 ! 
 ! 	X-19	PJH		PAUL J. HOULIHAN	19-JAN-1987
 ! 		MERGE IN 17J1.
 ! 
 ! 		X-17J1	PJH		PAUL J. HOULIHAN	15-JAN-1987
 ! 			FIX SEVERAL SMALL JNL PROBLEMS.
 ! 			ADD RMS$_BUG_FLUSH_JNL_FAILED CODE.
 ! 
 ! 	X-18	KPS0148		KENNETH P. SIEGEL	04-DEC-1986
 ! 		ADDED SNPPF (STATISTICS MONITORING NOT SUPPORTED FOR
 ! 		PROCESS PERMANENT FILES) ERROR MESSAGE.
 ! 
 ! 	X-17	PMV0025		PETER M. VATNE		24-NOV-1986
 ! 		ADD NEW MESSAGE, RMS$_NOTSAMEJNL.  THIS STATUS IS
 ! 		USED TO RESTRICT AI/BI WITH RU JOURNALING TO A
 ! 		SINGLE LONG-TERM JOURNAL FILE.
 ! 
 ! 	X-16	DAS		DAVID A. SOLOMON	18-NOV-1986
 ! 		ADD NEW MESSAGE, RMS$_DELJNS. REMOVE RMS$_XCR (BY REPLACING IT
 ! 		WITH A PLACEHOLDER), AS JOURNALING BITS ARE NO LONGER
 ! 		SPECIFIED IN THE $XABJNL. SLIGHT WORDING CHANGE ON DETACHED
 ! 		RU RECOVERY ERROR MESSAGES.
 ! 
 ! 	X-15	DAS		DAVID A. SOLOMON	12-NOV-1986
 ! 		FIX ERROR IN X-5/X-6: JOURNALING VARIANT NOT MERGED
 ! 		CORRECTLY, RESULTING IN SEVERAL JOURNALING MESSAGES NUMBERS
 ! 		BEING DIFFERENT IN THE MAININE THAN WHAT THEY WERE ON THE
 ! 		JOURNALING VARIANT. ALSO, MOVE NEW SNADTF MESSAGES TO RE-USE
 ! 		AVAILABLE UNUSED MESSAGE NUMBERS, INSTEAD OF GENERATING NEW
 ! 		ONES. FINALLY, CHANGE RMS$_BUG_ABORT TO RMS$_BUG_RU_ACTIVE.
 ! 
 ! 	X-14	SAD0014		STUART A. DAVIDSON	 4-NOV-1986
 ! 		SNADTF - FIX TYPO IN DTFACC, DTFCRE
 ! 
 ! 	X-13	SAD0014		STUART A. DAVIDSON	 3-NOV-1986
 ! 		SNADTF - FIX TYPO, ADD 2 ADDITIONAL MESSAGES.
 ! 
 ! 	X-12	JEJ0377		JAMES E JOHNSON		29-OCT-1986
 ! 		ADD NOEXTEND ERROR CODE TO FLAG FAILED RELATIVE FILE
 ! 		EXTENDS DUE TO PREVIOUS FAILURES.
 ! 
 ! 	X-11	KPS0131		KENNETH P. SIEGEL	25-OCT-1986
 ! 		ADDED SNS ERROR CODE FOR STATISTICS NOT SUPPORT ON
 ! 		NON-DISK DEVICES.
 ! 
 ! 	X-10	SAD009		STUART A. DAVIDSON	06-OCT-1986
 ! 		ADD COMPLETION CODES FOR SNADTF (IBM DATA XFER)
 ! 
 ! 	X-9	GJA0003		GARY J. ALLISON		29-SEP-1986
 ! 		ADD DETACHED RECOVERY ERROR MESSAGES
 ! 
 ! 	X-8	PMV0008		PETER M. VATNE		24-SEP-1986
 ! 		MODIFY RMS$_ACC_AIJ, RMS$_ACC_BIJ, AND RMS$_ACC_ATJ
 ! 		TO ALSO OUTPUT THE STV.
 ! 
 ! 	X-7	JWT0243		JIM TEAGUE		 2-SEP-1986
 ! 		ADD NEW ERRORS FOR COLLATED KEYS.
 ! 
 ! 	X-6	GJA		GARY J. ALLISON		29-JUL-1986
 ! 		REMOVE DUPS FROM JNL MERGE.
 ! 
 ! 	X-5	GJA		GARY J. ALLISON		29-JUL-1986
 ! 		MERGE JOURNALING INTO MAINLINE
 ! 
 ! 		X-3J6	DAS		DAVID A. SOLOMON	14-APR-1986
 ! 			REMOVE RMS$_RUH_FILE (USING A GENERAL RUF MESSAGE INSTEAD).
 ! 			CHANGE RMS$_RUH TEXT TO NOT HAVE FAO PARAMETERS. ADD
 ! 			RMS$_BUG_RURECERR.
 ! 	
 ! 		X-3J5	JEJ0302		JAMES E JOHNSON		 4-APR-1986
 ! 			ADD RMS$_RRF (ERROR DURING RU RECOVERY) AND
 ! 			RMS$_RUH/RMS$_RUH_FILE (USED TO FORM TEXT OF RU HANDLER ERRORS
 ! 			SENT TO OPCOM).
 ! 	
 ! 		X-3J4	JEJ0272		JAMES E JOHNSON		11-FEB-1986
 ! 			ADD RMS$_RUF, RMS$_BUG_ABORT CODES.
 ! 	
 ! 		X-3J3	JEJ0237		JAMES E JOHNSON		16-DEC-1985
 ! 			ADD RMS$_RUNDOWN CODE
 ! 	
 ! 		X-3J2	JEJ0205		JAMES E JOHNSON		25-OCT-1985
 ! 			ADD JOURNAL SPECIFIC WRTJNL_XXJ ERROR CODES TO REPLACE
 ! 			THE GENERIC ERRWRTJNL CODE.
 ! 
 ! 	X-4	JEJ0216		JAMES E JOHNSON		18-NOV-1985
 ! 		MERGE X-3J2 INTO MAIN LINE FOR V4.4.
 ! 
 ! 		X-3J2	JEJ0205		JAMES E JOHNSON		25-OCT-1985
 ! 			ADD JOURNAL SPECIFIC WRTJNL_XXJ ERROR CODES TO REPLACE
 ! 			THE GENERIC ERRWRTJNL CODE.
 ! 
 ! 	X-3	JEJ0161		JAMES E JOHNSON		 9-SEP-1985
 ! 		UPDATE RMS JOURNALING MESSAGES.
 ! 
 ! 	X-2	JWT0212		JIM TEAGUE		 4-SEP-1985
 ! 		ADD (WHAT IS FOR NOW) AN INTERNAL STATUS CODE TO 
 ! 		DIFFERENTIATE BETWEEN FINDING A DELETED RECORD (DEL)
 ! 		AND FINDING IT BUT WITH A DIFFERENT KEY (KEY_MISMATCH).
 ! 		
 ! 	V03-024	RAS0314		RON SCHAEFER		21-JUN-1984
 ! 		WORK OVER THE MESSAGES ONE MORE TIME:  FIX TYPO IN OK_RNF,
 ! 		DELETE ACPEOF ERROR, DELETE WSF ERROR.
 ! 
 ! 	V03-023	RAS0282		RON SCHAEFER		28-MAR-1984
 ! 		MINOR TEXT CHANGES AND COMMENTS ADDED.
 ! 		DELETE RMS$_COP ERROR.
 ! 
 ! 	V03-022	DAS0005		DAVID SOLOMON		19-MAR-1984
 ! 		REMOVE RMS$_ECHO (NO LONGER NEEDED AS A RESULT OF NEW
 ! 		IMPLEMENTATION FOR ECHO SYS$INPUT -> SYS$OUTPUT).
 ! 
 ! 	V03-021	JWT0150		JIM TEAGUE		01-FEB-1984
 ! 		ADD RMS$_IFF FOR TRYING TO WRITE-ACCESS A FILE ON 
 ! 		MAGTAPE THAT HAS NON-0 VALUE FOR ANSI BUFFER OFFSET.
 ! 
 ! 	V03-020	RAS0233		RON SCHAEFER		 9-JAN-1984
 ! 		ADD RMS$_NOVALPRS ERROR FOR $SEARCH NOT PRECEDED BY
 ! 		VALID $PARSE.
 ! 
 ! 	V03-019	JWT0148		JIM TEAGUE		20-DEC-1983
 ! 		ADD A JNL XAB ERROR FOR CONFLICTING RU ATTRIBUTES
 ! 		ON $CREATE: RMS$_XCR.
 ! 
 ! 	V03-018	RAS0171		RON SCHAEFER		28-JUL-1983
 ! 		ADD RMS$_BUSY; A STRUCTURE-LESS ERROR (R0-ONLY STATUS)
 ! 		REPLACING TEMP3.
 ! 
 ! 	V03-017	DAS0004		DAVID SOLOMON		28-JUN-1983
 ! 		ADD RMS$_FILEPURGED; ADD RMS$_ACPEOF FOR ZALEWSKI.
 ! 
 ! 	V03-016	KPL0007		PETER LIEBERWIRTH	 8-JUN-1983
 ! 		FIX SPELLING IN JNL ERROR MESSAGES, ADD CJF ERROR WHICH
 ! 		WILL SOON SUBSUME COP AND CQE.
 ! 
 ! 	V03-015	DAS0003		DAVID SOLOMON		18-FEB-1983
 ! 		ADD XNF (REPLACING TEMP9), TMR (NEW), LWC (NEW).
 ! 
 ! 	V03-014	KBT0497		KEITH B. THOMPSON	18-FEB-1983
 ! 		ADD INCOMPSHR ERROR (REUSE OF TEMP1 SLOT)
 ! 
 ! 	V03-013	RAS0120		RON SCHAEFER		 2-FEB-1983
 ! 		ADD ECHO PSEUDO-STATUS TO SUPPORT ECHO OF SYS$INPUT
 ! 		TO SYS$OUTPUT.
 ! 
 ! 	V03-012	JWH0174		JEFFRY W. HORN		24-JAN-1983
 ! 		ADD CQE AND COP ERRORS.
 ! 
 ! 	V03-011	KPL0006		PETER LIEBERWIRTH	 7-JAN-1983
 ! 		ADD OK_RULK FOR RECOVERY UNIT SUPPORT.
 ! 
 ! 		ADD REENT ERROR FOR $RENAME.
 ! 		
 ! 	V03-009	JWH0153		JEFFREY W. HORN		 8-DEC-1982
 ! 		ADD NRU ERROR.
 ! 
 ! 	V03-008	JWH0152		JEFFREY W. HORN		 8-DEC-1982
 ! 		ADD JNS ERROR.
 ! 
 ! 	V03-007 MCN0002		MARIA DEL C. NASR	15-NOV-1982
 ! 		REPLACE ORD ERROR CODE ELIMINATED BY MCN0001, SINCE
 ! 		THE NETWORK CODE REFERENCES IT.
 ! 
 ! 	V03-006 MCN0001		MARIA DEL C. NASR	26-OCT-1982
 ! 		PRINT KEY OF REFERENCE OR AREA IDENTIFICATION NUMBER
 ! 		INSTEAD OF XAB ADDRESS FOR ERRORS RETURNED DURING
 ! 		INDEXED FILE CREATION.  ALSO RENAME ALL UNUSED ERROR
 ! 		CODES TO TEMP.
 ! 
 ! 	V03-005	JWH0102		JEFFREY W. HORN		24-SEP-1982
 ! 		ADD RUP ERROR.
 ! 
 ! 	V03-004	RAS0095		RON SCHAEFER		 7-SEP-1982
 ! 		ADD OVRDSKQUOTA ERROR.
 ! 
 ! 	V03-002	JWH0002		JEFFREY W. HORN		26-JUL-1982
 ! 		CONVERT TO .MSG FORMAT.   ADD RUM ERROR.
 ! 
 ! 	V03-001	JWH0001		JEFFREY W. HORN		20-JUL-1982
 ! 		ADD JNF, JOP, AND NOJ ERRORS.
 ! 
 ! 	V02-042	KPL0005		PETER LIEBERWIRTH	 4-FEB-1982
 ! 		ADD ERROR MESSAGES RMS$_EXENQLM AND RMS$_DEADLOCK
 ! 		CORRECTLY.
 ! 
 ! 	V02-041	CDS0001		C D SAETHER	24-JAN-1982
 ! 		ADD GBC AND CRMP ERRORS.
 ! 
 ! 	V02-040	JAK0069		J A KRYCKA	15-JAN-1982
 ! 		ADD SUPPORT AND NETFAIL ERROR CODES.
 ! 
 ! 	V02-039	JAK0068		J A KRYCKA	31-DEC-1981
 ! 		MODIFY TEXT FOR SUP, NET, BUG_DAP, AND ENV ERROR MESSAGES.
 ! 
 ! 	V02-038 LJA0001		LAURIE ANDERSON 20-DEC-1981
 ! 		MODIFIED SOME MESSAGES TO READ BETTER.
 ! 
 ! 	V02-037	JAK0063		J A KRYCKA	31-AUG-1981
 ! 		ADD CRE_STM SUCCESS CODE.
 ! 
 ! 	V02-036	KPL0004		PETER LIEBERWIRTH	13-JAN-1981
 ! 		ADD ENQ SEVERE ERROR MESSAGE, TO INDICATE $ENQ/$DEQ FAILURE.
 ! 		ALSO ADD SUCCESS CODES OK_RRL, AND OK_WAT.
 ! 
 ! 	V02-035	REFORMAT	J A KRYCKA	30-JUL-1980
 ! 
 ! --
	PARAMETER RMS$_FACILITY = '00000001'X
	PARAMETER RMS$V_STVSTATUS = '0000000E'X	 !  MOVE TO BIT 14 OF THE
 !  STATUS CODE IT INDICATES
 !  THAT STV CONTAINS A SECONDARY
 !  STATUS CODE.
	PARAMETER RMS$_SUC = '00010001'X
	PARAMETER RMS$_NORMAL = '00010001'X
 ! +
 ! 
 ! 	SUCCESS CODES
 ! 
 ! -
 !  BIT 16 = BIT 15 = 1
	PARAMETER RMS$_STALL = '00018001'X
 !  (NOTE: USER NEVER RECEIVES THIS CODE)
	PARAMETER RMS$_PENDING = '00018009'X
	PARAMETER RMS$_OK_DUP = '00018011'X
	PARAMETER RMS$_OK_IDX = '00018019'X
 !   (RECORD HAS BEEN INSERTED, BUT INDEX STRUCTURE IS NO LONGER
 !   OPTIMAL.)
	PARAMETER RMS$_OK_RLK = '00018021'X
 !  (BECAUSE LOCKER SET RLK IN ROP FIELD WHEN RECORD WAS LOCKED.)
	PARAMETER RMS$_OK_RRL = '00018029'X
 !  (BECAUSE READER SET RRL IN ROP FIELD WHEN ACCESSING RECORD.)
 !  (THIS CODE USED TO BE OK_RRV)
 ! OK_RRV	;MSG <record was inserted successfully in primary>
 !   (BUT IT MAY NOT BE ACCESSIBLE VIA ONE-OR-MORE SECONDARY KEYS,
 !   AND NOT BY RFA ADDRESSING. FILE RE-ORGANIZATION RECOMMENDED!)
	PARAMETER RMS$_KFF = '00018031'X
	PARAMETER RMS$_OK_ALK = '00018039'X
	PARAMETER RMS$_OK_DEL = '00018041'X
	PARAMETER RMS$_OK_RNF = '00018049'X
	PARAMETER RMS$_OK_LIM = '00018051'X
	PARAMETER RMS$_OK_NOP = '00018059'X
	PARAMETER RMS$_OK_WAT = '00018061'X
 !  (BECAUSE WAT BIT IN ROP WAS SET AND RECORD WAS ALREADY
 !  LOCKED.)
	PARAMETER RMS$_CRE_STM = '00018069'X
	PARAMETER RMS$_OK_RULK = '00018071'X
	PARAMETER RMS$_SYNCH = '00018079'X
	PARAMETER RMS$_OK_ACT = '00018081'X
	PARAMETER RMS$_OK_NOCURTID = '00018089'X
 ! +
 ! 
 ! 	SUCCESS CODES PASSED THRU FROM DRIVERS AND ACP -	BIT 15 = 0
 ! 
 ! -
	PARAMETER RMS$_CONTROLC = '00010651'X	 !  TERMINAL I/O ABORTED DUE TO CTRL/C
	PARAMETER RMS$_CONTROLO = '00010609'X
 !  TERMINAL I/O ABORTED DUE TO CTRL/O
	PARAMETER RMS$_CONTROLY = '00010611'X
 !  TERMINAL I/O ABORTED DUE TO CTRL/Y
	PARAMETER RMS$_CREATED = '00010619'X
 !  FILE WAS CREATED, NOT OPENED
	PARAMETER RMS$_SUPERSEDE = '00010631'X
 !  CREATED FILE SUPERSEDED EXISTING VERSION
	PARAMETER RMS$_OVRDSKQUOTA = '00010669'X
 !  DISK USAGE EXCEEDS DISK QUOTA
	PARAMETER RMS$_FILEPURGED = '00010679'X
 !  CREATE FILE CAUSED OLDEST FILE
 !  VERSION TO BE PURGED
 ! +
 ! 
 ! 	WARNING CODES
 ! 
 ! -
 !  BIT 16 = BIT 15 = 1, BIT 14 = 0
	PARAMETER RMS$_BOF = '00018198'X
	PARAMETER RMS$_RNL = '000181A0'X
	PARAMETER RMS$_RTB = '000181A8'X
	PARAMETER RMS$_TMO = '000181B0'X
	PARAMETER RMS$_TNS = '000181B8'X
	PARAMETER RMS$_BES = '000181C0'X
	PARAMETER RMS$_PES = '000181C8'X
 ! +
 ! 
 ! 	ERROR CODES - WITHOUT STV (THAT IS, STV MAY BE USED BUT NO ASSOCIATED
 ! 		      CONDITION CODE IS IN STV)
 ! 
 ! -
 !  BIT 16 = BIT 15 = 1, BIT 14 = 0
	PARAMETER RMS$_ACT = '0001825A'X
	PARAMETER RMS$_DEL = '00018262'X
	PARAMETER RMS$_INCOMPSHR = '0001826A'X
	PARAMETER RMS$_DNR = '00018272'X
	PARAMETER RMS$_EOF = '0001827A'X
	PARAMETER RMS$_FEX = '00018282'X
	PARAMETER RMS$_FLK = '0001828A'X
	PARAMETER RMS$_FNF = '00018292'X
	PARAMETER RMS$_PRV = '0001829A'X
	PARAMETER RMS$_REX = '000182A2'X
	PARAMETER RMS$_RLK = '000182AA'X
	PARAMETER RMS$_RNF = '000182B2'X
 !   (RECORD NEVER WAS IN FILE, OR HAS BEEN DELETED.)
	PARAMETER RMS$_WLK = '000182BA'X
	PARAMETER RMS$_EXP = '000182C2'X
	PARAMETER RMS$_NMF = '000182CA'X
	PARAMETER RMS$_SUP = '000182D2'X
 !  (NOTE THAT SUPPORT HAS REPLACED SUP EXCEPT WHEN RMS CANNOT
 !  MAP THE DAP STATUS CODE INTO A FAL STATUS CODE.)
 !  (NOTE ALSO THAT SUP SHOULD HAVE BEEN DEFINED AS A SEVERE
 !  ERROR CODE. HOWEVER, SUPPORT IS A SEVERE ERROR CODE.)
	PARAMETER RMS$_RSA = '000182DA'X
	PARAMETER RMS$_CRC = '000182E2'X
	PARAMETER RMS$_WCC = '000182EA'X
	PARAMETER RMS$_IDR = '000182F2'X
	PARAMETER RMS$_LWC = '000182FA'X
	PARAMETER RMS$_UNUSED1 = '00018302'X
	PARAMETER RMS$_NOVALPRS = '0001830A'X
	PARAMETER RMS$_KEY_MISMATCH = '00018312'X
	PARAMETER RMS$_RUH = '0001831A'X
	PARAMETER RMS$_JND = '00018322'X
	PARAMETER RMS$_BADPHASE = '0001832A'X
	PARAMETER RMS$_TOWDR = '00018332'X
	PARAMETER RMS$_NEXDR = '0001833A'X
	PARAMETER RMS$_INVDRMSG = '00018342'X
	PARAMETER RMS$_RU_ACTIVE = '0001834A'X
	PARAMETER RMS$_UNKRUFAC = '00018352'X
	PARAMETER RMS$_LIMBO = '0001835A'X
	PARAMETER RMS$_IVATRACE = '00018362'X
	PARAMETER RMS$_OPNOTSUP = '0001836A'X
	PARAMETER RMS$_EXTNOTFOU = '00018372'X
	PARAMETER RMS$_EXT_ERR = '0001837A'X
	PARAMETER RMS$_SEMANTICS = '00018382'X
	PARAMETER RMS$_LSCAN = '0001838A'X
	PARAMETER RMS$_ROOTSRCH = '00018392'X
	PARAMETER RMS$_IDXSEARCH = '0001839A'X
	PARAMETER RMS$_NETBTS = '000183A2'X
	PARAMETER RMS$_NXR = '000183AA'X
 !  IF EXACT KEY MATCH ON SECONDARY KEY AND SECONDARY KEY
 !  ENTRY POINTS TO NONEXISTENT PRIMARY DATA RECORD IN
 !  DISK FILE.
	PARAMETER RMS$_EOFASY_SYNCH = '000183B2'X
	PARAMETER RMS$_ELOOP = '000183BA'X
 ! +
 ! 
 ! 	ERROR CODES - WITH STV ERROR CODE (THAT IS, STV CONTAINS AN ASSOCIATED CONDITION CODE)
 ! 
 ! -
 !  BIT 16 = BIT 15 = BIT 14 = 1
	PARAMETER RMS$_ACC = '0001C002'X
	PARAMETER RMS$_CRE = '0001C00A'X
	PARAMETER RMS$_DAC = '0001C012'X
	PARAMETER RMS$_ENT = '0001C01A'X
	PARAMETER RMS$_EXT = '0001C022'X
	PARAMETER RMS$_FND = '0001C02A'X
	PARAMETER RMS$_MKD = '0001C032'X
	PARAMETER RMS$_DPE = '0001C03A'X
	PARAMETER RMS$_SPL = '0001C042'X
	PARAMETER RMS$_DNF = '0001C04A'X
	PARAMETER RMS$_RUF = '0001C052'X
	PARAMETER RMS$_WRTJNL_AIJ = '0001C05A'X
	PARAMETER RMS$_WRTJNL_BIJ = '0001C062'X
	PARAMETER RMS$_WRTJNL_ATJ = '0001C06A'X
	PARAMETER RMS$_WRTJNL_RUJ = '0001C072'X
	PARAMETER RMS$_RRF = '0001C07A'X
	PARAMETER RMS$_DDTM_ERR = '0001C082'X
 ! +
 ! 
 ! 	SEVERE ERROR CODES - WITHOUT STV (THAT IS, STV MAY BE USED BUT NO ASSOCIATED
 ! 			     CONDITION CODE IS IN STV)
 ! 
 ! -
 !  BIT 16 = BIT 15 = 1, BIT 14 = 0
	PARAMETER RMS$_DTFCDDREC = '000183EC'X
	PARAMETER RMS$_AID = '000183F4'X
	PARAMETER RMS$_ALN = '000183FC'X
	PARAMETER RMS$_ALQ = '00018404'X
	PARAMETER RMS$_ANI = '0001840C'X
	PARAMETER RMS$_AOP = '00018414'X
	PARAMETER RMS$_BKS = '0001841C'X
	PARAMETER RMS$_BKZ = '00018424'X
	PARAMETER RMS$_BLN = '0001842C'X
	PARAMETER RMS$_BUG = '00018434'X
	PARAMETER RMS$_BUG_DDI = '0001843C'X
	PARAMETER RMS$_BUG_DAP = '00018444'X
	PARAMETER RMS$_BUG_RU_ACTIVE = '0001844C'X
	PARAMETER RMS$_BUG_RURECERR = '00018454'X
	PARAMETER RMS$_BUG_FLUSH_JNL_FAILED = '0001845C'X
	PARAMETER RMS$_BUG_RU_ABORT_FAIL = '00018464'X
	PARAMETER RMS$_BUG_RU_COMMIT_FAIL = '0001846C'X
	PARAMETER RMS$_BUG_XX6 = '00018474'X
	PARAMETER RMS$_BUG_XX7 = '0001847C'X
	PARAMETER RMS$_BUG_XX8 = '00018484'X
	PARAMETER RMS$_BUSY = '0001848C'X
	PARAMETER RMS$_CCR = '00018494'X
	PARAMETER RMS$_CHG = '0001849C'X
	PARAMETER RMS$_CHK = '000184A4'X
	PARAMETER RMS$_COD = '000184AC'X
	PARAMETER RMS$_CUR = '000184B4'X
	PARAMETER RMS$_DAN = '000184BC'X
	PARAMETER RMS$_DEV = '000184C4'X
	PARAMETER RMS$_DIR = '000184CC'X
	PARAMETER RMS$_DME = '000184D4'X
	PARAMETER RMS$_DNA = '000184DC'X
	PARAMETER RMS$_DTP = '000184E4'X
	PARAMETER RMS$_DUP = '000184EC'X
	PARAMETER RMS$_DVI = '000184F4'X
	PARAMETER RMS$_ESA = '000184FC'X
	PARAMETER RMS$_ESS = '00018504'X
	PARAMETER RMS$_FAB = '0001850C'X
	PARAMETER RMS$_FAC = '00018514'X
	PARAMETER RMS$_FLG = '0001851C'X
	PARAMETER RMS$_FNA = '00018524'X
	PARAMETER RMS$_FNM = '0001852C'X
	PARAMETER RMS$_FSZ = '00018534'X
	PARAMETER RMS$_FOP = '0001853C'X
	PARAMETER RMS$_FUL = '00018544'X
	PARAMETER RMS$_IAL = '0001854C'X
	PARAMETER RMS$_IAN = '00018554'X
	PARAMETER RMS$_IDX = '0001855C'X
	PARAMETER RMS$_IFI = '00018564'X
	PARAMETER RMS$_IMX = '0001856C'X
	PARAMETER RMS$_IOP = '00018574'X
	PARAMETER RMS$_IRC = '0001857C'X
	PARAMETER RMS$_ISI = '00018584'X
	PARAMETER RMS$_KBF = '0001858C'X
	PARAMETER RMS$_KEY = '00018594'X
	PARAMETER RMS$_KRF = '0001859C'X
	PARAMETER RMS$_KSZ = '000185A4'X
	PARAMETER RMS$_LAN = '000185AC'X
	PARAMETER RMS$_RUNDOWN = '000185B4'X
	PARAMETER RMS$_LNE = '000185BC'X
	PARAMETER RMS$_DTFCVT = '000185C4'X
	PARAMETER RMS$_MRN = '000185CC'X
	PARAMETER RMS$_MRS = '000185D4'X
	PARAMETER RMS$_NAM = '000185DC'X
	PARAMETER RMS$_NEF = '000185E4'X
	PARAMETER RMS$_DTFQUASYN = '000185EC'X
	PARAMETER RMS$_NOD = '000185F4'X
	PARAMETER RMS$_NPK = '000185FC'X
	PARAMETER RMS$_ORD = '00018604'X	 ! ! NOT USED AS OF V4
	PARAMETER RMS$_ORG = '0001860C'X
	PARAMETER RMS$_PBF = '00018614'X
	PARAMETER RMS$_PLG = '0001861C'X
	PARAMETER RMS$_POS = '00018624'X
	PARAMETER RMS$_DTFQUAVAL = '0001862C'X
	PARAMETER RMS$_QUO = '00018634'X
	PARAMETER RMS$_RAB = '0001863C'X
	PARAMETER RMS$_RAC = '00018644'X
	PARAMETER RMS$_RAT = '0001864C'X
	PARAMETER RMS$_RBF = '00018654'X
	PARAMETER RMS$_RFA = '0001865C'X
	PARAMETER RMS$_RFM = '00018664'X
	PARAMETER RMS$_RHB = '0001866C'X
	PARAMETER RMS$_RLF = '00018674'X
	PARAMETER RMS$_ROP = '0001867C'X
	PARAMETER RMS$_RRV = '00018684'X
	PARAMETER RMS$_RVU = '0001868C'X
	PARAMETER RMS$_RSS = '00018694'X
	PARAMETER RMS$_RST = '0001869C'X
	PARAMETER RMS$_RSZ = '000186A4'X
	PARAMETER RMS$_SEQ = '000186AC'X
	PARAMETER RMS$_SHR = '000186B4'X
	PARAMETER RMS$_SIZ = '000186BC'X
	PARAMETER RMS$_SQO = '000186C4'X
	PARAMETER RMS$_DTFSESEST = '000186CC'X
	PARAMETER RMS$_SYN = '000186D4'X
	PARAMETER RMS$_TRE = '000186DC'X
	PARAMETER RMS$_TYP = '000186E4'X
	PARAMETER RMS$_UBF = '000186EC'X
	PARAMETER RMS$_USZ = '000186F4'X
	PARAMETER RMS$_VER = '000186FC'X
	PARAMETER RMS$_XNF = '00018704'X
	PARAMETER RMS$_XAB = '0001870C'X
	PARAMETER RMS$_ESL = '00018714'X
	PARAMETER RMS$_DTFSESTER = '0001871C'X
	PARAMETER RMS$_ENV = '00018724'X
	PARAMETER RMS$_PLV = '0001872C'X
	PARAMETER RMS$_MBC = '00018734'X
	PARAMETER RMS$_RSL = '0001873C'X
	PARAMETER RMS$_WLD = '00018744'X
	PARAMETER RMS$_NET = '0001874C'X	 !  (NOTE THAT NETFAIL HAS REPLACED NET EXCEPT WHEN RMS CANNOT
 !  MAP THE DAP STATUS CODE INTO A FAL STATUS CODE.)
	PARAMETER RMS$_IBF = '00018754'X
	PARAMETER RMS$_REF = '0001875C'X
	PARAMETER RMS$_IFL = '00018764'X
	PARAMETER RMS$_DFL = '0001876C'X
	PARAMETER RMS$_KNM = '00018774'X
	PARAMETER RMS$_IBK = '0001877C'X
	PARAMETER RMS$_KSI = '00018784'X
	PARAMETER RMS$_LEX = '0001878C'X
	PARAMETER RMS$_SEG = '00018794'X
	PARAMETER RMS$_SNE = '0001879C'X	 ! ! NOT USED AS OF V4
	PARAMETER RMS$_SPE = '000187A4'X	 ! ! NOT USED AS OF V4
	PARAMETER RMS$_UPI = '000187AC'X
	PARAMETER RMS$_ACS = '000187B4'X
	PARAMETER RMS$_STR = '000187BC'X
	PARAMETER RMS$_FTM = '000187C4'X
	PARAMETER RMS$_GBC = '000187CC'X
	PARAMETER RMS$_DEADLOCK = '000187D4'X
	PARAMETER RMS$_EXENQLM = '000187DC'X
	PARAMETER RMS$_JOP = '000187E4'X
	PARAMETER RMS$_RUM = '000187EC'X
	PARAMETER RMS$_JNS = '000187F4'X
	PARAMETER RMS$_NRU = '000187FC'X
	PARAMETER RMS$_IFF = '00018804'X
	PARAMETER RMS$_DTFTRATBL = '0001880C'X
	PARAMETER RMS$_DTFUNSTYP = '00018814'X
	PARAMETER RMS$_DTFVERMIS = '0001881C'X
 ! +
 ! 
 ! 	ERROR CODES - WITHOUT STV
 ! 
 ! 	  DTFACC AND DTFCRE WERE ORIGINALLY INCLUDED IN THIS FATAL SEVERITY 
 ! 	  (NO STV) GROUPING.  IN ORDER TO CHANGE THEIR SEVERITY TO ERROR 
 ! 	  (NO STV) AND RETAIN THE SAME MESSAGE CODE VALUE, THE FOLLOWING 
 ! 	  SHIFTS IN SEVERITY FROM FATAL TO ERROR AND THEN BACK AGAIN ARE
 ! 	  DONE, WHILE RETAINING THE SAME ORIGINAL BASE ASSOCIATED WITH EACH.
 ! 
 ! -
 !  BIT 16 = BIT 15 = 1, BIT 14 = 0
	PARAMETER RMS$_DTFACC = '00018822'X
 ! +
 ! 
 ! 	SEVERE ERROR CODES - WITHOUT STV
 ! 
 ! -
 !  BIT 16 = BIT 15 = 1, BIT 14 = 0
	PARAMETER RMS$_BOGUSCOL = '0001882C'X
	PARAMETER RMS$_ERRREADCOL = '00018834'X
	PARAMETER RMS$_ERRWRITECOL = '0001883C'X
	PARAMETER RMS$_SNS = '00018844'X
	PARAMETER RMS$_NOEXTEND = '0001884C'X	 ! +
 ! 
 ! 	ERROR CODES - WITHOUT STV
 ! 
 ! -
 !  BIT 16 = BIT 15 = 1, BIT 14 = 0
	PARAMETER RMS$_DTFCRE = '00018852'X
 ! +
 ! 
 ! 	SEVERE ERROR CODES - WITHOUT STV
 ! 
 ! -
 !  BIT 16 = BIT 15 = 1, BIT 14 = 0
	PARAMETER RMS$_DELJNS = '0001885C'X
	PARAMETER RMS$_NOTSAMEJNL = '00018864'X
	PARAMETER RMS$_SNPPF = '0001886C'X
	PARAMETER RMS$_NAML = '00018874'X
	PARAMETER RMS$_NAMLESS = '0001887C'X
	PARAMETER RMS$_NAMLRSS = '00018884'X
	PARAMETER RMS$_NAMLFSSIZ = '0001888C'X
	PARAMETER RMS$_NAMLFSINV = '00018894'X
	PARAMETER RMS$_BADGBH = '0001889C'X
	PARAMETER RMS$_BADGBD = '000188A4'X
	PARAMETER RMS$_FOPEXTMBZ = '000188AC'X
	PARAMETER RMS$_INVOP_SSIO = '000188B4'X
 ! +
 ! 
 ! 	SEVERE ERRORS - WITH STV ERROR CODE (THAT IS, STV CONTAINS AN ASSOCIATED CONDITION CODE)
 ! 
 ! -
 !  BIT 16 = BIT 15 = BIT 14 = 1
	PARAMETER RMS$_ATR = '0001C0CC'X
	PARAMETER RMS$_ATW = '0001C0D4'X
	PARAMETER RMS$_CCF = '0001C0DC'X
	PARAMETER RMS$_CDA = '0001C0E4'X
	PARAMETER RMS$_CHN = '0001C0EC'X
	PARAMETER RMS$_RER = '0001C0F4'X
	PARAMETER RMS$_RMV = '0001C0FC'X
	PARAMETER RMS$_RPL = '0001C104'X
	PARAMETER RMS$_SYS = '0001C10C'X
	PARAMETER RMS$_WER = '0001C114'X
	PARAMETER RMS$_WPL = '0001C11C'X
	PARAMETER RMS$_IFA = '0001C124'X
	PARAMETER RMS$_WBE = '0001C12C'X
	PARAMETER RMS$_ENQ = '0001C134'X
	PARAMETER RMS$_NETFAIL = '0001C13C'X
	PARAMETER RMS$_SUPPORT = '0001C144'X
	PARAMETER RMS$_CRMP = '0001C14C'X
	PARAMETER RMS$_DTFCFGFIL = '0001C154'X
	PARAMETER RMS$_REENT = '0001C15C'X
	PARAMETER RMS$_ACC_RUJ = '0001C164'X
	PARAMETER RMS$_TMR = '0001C16C'X
	PARAMETER RMS$_ACC_AIJ = '0001C174'X
	PARAMETER RMS$_ACC_BIJ = '0001C17C'X
	PARAMETER RMS$_ACC_ATJ = '0001C184'X
	PARAMETER RMS$_DTFDEFFIL = '0001C18C'X
	PARAMETER RMS$_DTFREGFIL = '0001C194'X
	PARAMETER RMS$_JNLNOTAUTH = '0001C19C'X
	PARAMETER RMS$_CRBUFOBJ = '0001C1A4'X
	PARAMETER RMS$_RSESTK_ALLOC = '0001C1AC'X
!DEC$ END OPTIONS