CONST
{ Error values returned in status word 1 and word 2 with each PRM call.

  All errors set Status[1] to a negative value.

  ALL PRM CALLS SHOULD CHECK FOR A STATUS[1] RETURN VALUE OF < 1.

  All DEC Rms errors are between -1 and -2000 decimal.

  All PRM errors are between -5000 and -5100 decimal.  

Symbolic  Status[1]  Status[2]  Description      
									}

{Erxxx      STS        STV      Rms error sts and stv error values are 
 				returned for all rms errors.  The same 
 				symbolic values used by DEC (without $)
				are used to describe the errors.  Not all
				rms error codes are provided but may be
 				added.  Refer to index of Rms User Ref.  
				}
 
PrINI	= -5001 ;    { NA       A record operation was attempted on a file
 				that was not properly opened by PrmOpe or
				PrmKey.  Check proper open or create of
 				a file before continuing with record ops. 
				}
PrRNE	= -5002 ;  { Lch  	An existing file was opened successfully 
				and the user program did not specify the 
				correct file max. record size.  The logical 
				channel no. of the file attempting to open 
				is in word 2.
				All record operations will be inhibited.
				Use rms utility RMSDSP to determine actual
				record size and correct user recordsize.
				}
PrRsz	= -5003 ;  { RecSz	During a PrmRet call a record size must be
				specified so Prm knows the size of the 
				record to be returned.  The record size
				field is an input and output field therefore
				is must be loaded before EACH PrmRet.  A	
				PrmRet rms failure will set the record size
				field to 0.  
				The record size specified by the user is
				returned in word 2.
				}
PrKY0	= -5004 ;   { NA	During a PrmKey call the primary key must
				be specified first.  
				}
PrKNS	= -5005 ;   { NA	During a PrmCre call a indexed file 
				organization was specified and no primary key
				defined.  You must use PrmKey to define at
				least a primary key for indexed files.
				}
PrAsc	= -5006 ;   { NA	Keys defined to PrmKey were defined in a
				non-ascending key order.  
				}
   
