This directory contains a MACRO and a FORTRAN interface for formatting
nice QIO-, Directive, FCS-Errormessages. You only need file 
LB:[1,2]QIOSYM.MSG and the two libraries ERRORS.OLB and ERRORS.MLB
on your system disk.

MACRO-Interface:

There are 8 macros provided for your support. Macros ending on 'ERR'
will output the error message and then gracefully exit your program.
If you decide to continue, use the macros ending on 'WRN'.

Every macro has a condition list parameter (cndlst). If you want some
special errors to be treated as no error, specify them here and there
will be no error message then.

Example:	DIRERR	<377,356>
Any errors in $DSW except 377 and 356 will be reported.

Also there's a parameter called 'contin' for the WARNING type macros. If
you specify a label here your program will continue at this label when
an error is detected.

DIRERR cndlst
DIRWRN cndlst,contin
    Output a Directive error from $DSW. 

FCSERR cndlst
FCSWRN cndlst,contine
    Output a FCS error in F.ERR(R0). R0 must contain the FDB address on
    entry.

PRGERR msgadr
PRGWRN msgadr,contin
    Generate your own error message. MSGADR is the address of an '.ASCIZ'-
    error text.

QIOERR ios,lun,cndlst
QIOERR ios,lun,cndlst,contin
    Output a QIO-error form iostat and display LUN information.


FORTRAN interface:
------------------

We assume Fortran does a good enough job on FCS errors. The routines
check for errors and call the fatal version if an error detected.

Call with:	CALL ERDIRF([err1,err2,...errn])
		CALL ERQIOF(ios,lun[,err1,err2,...errn])
		errn = expected error code (any number allowed)
		ios  = QIO I/O status
		lun  = QIO logical unit
Exit with:	Returns immediately if no error or match with expected
		errdir list. Otherwise, outputs message and exits task.


Volker Huck, 25-Aug-1989