SRDTRP.MAC;2/AU:80.=SRDTRP.MAC;1
\
-/.IDENT/,.
	.IDENT	-6.2-		; 13-Jul-82
	.ENABL	LC
;+
;	SRDTRP - Error handler routine
;
; Broken out as subroutine by ??? on ???
;
; Modifications:
;
;	V6.2 Bob Denny  13-Jul-82	Lower case error messages, minor
;			;RBD001		message changes.
;					Exit with status on '11M
;-
%
-/R2,R2SAV/,,/;RBD001/
	.IF DF R$$11M
	MOV	#EX$ERR,X$STAT		; ASSUME "ERROR" STATUS
	.ENDC
-/BCS...10$/
	.IF DF R$$11M
	MOV	#EX$SEV,X$STAT		; ERROR IS SEVERE, FATAL
	.ENDC
-/999$:/,/30$:/,/;RBD001/
999$:	MESG$	<Directory too big. Doing in pieces. (Rerun with larger INC)>
1$:	MESG$	<Command read error>
2$:	MESG$	<Command syntax error>
3$:	MESG$	<Error in input spec>
4$:	MESG$	<Error in output spec>
5$:	MESG$	<Directory privilege violation>
6$:	MESG$	<Directory open error>
7$:	MESG$	<Error reading MFD>
10$:	MESG$	<Parse error>
11$:	MESG$	<Open error>
12$:	MESG$	<Open error on input>
13$:	MESG$	<Open error on output>
14$:	MESG$	<Directory find error>
15$:	MESG$	<No such file(s)>
16$:	MESG$	<Invalid date format. Enter DD-MMM-YY HH:MM (1-JUN-76 10:30)>
17$:	MESG$	<Error reading file header for:>
20$:	MESG$	<Put error>
21$:	MESG$	<Get error>
22$:	MESG$	<Write error>
23$:	MESG$	<Read error>
24$:	MESG$	<Error deleting file>
25$:	MESG$	<Directory write-back error>
26$:	MESG$	<File ID-Sequence number mis-match for:>
27$:	MESG$	<Write-back cancelled. Can't fit entire directory in core>
30$:	MESG$	<Header-read privilege violation for:>
/