SUBROUTINE DIFMT(ICODE,EBASE,SOURCE,ISUPP,ETEXT,IEINT,EMESS,IUNIT)

C

C D I F M T

C =========

C

C ******************************************************************

C * *

C * DATABASE INTERFACE ROUTINE :- *

C * *

C * PURPOSE :- BUFFER MESSAGE ROUTINE TO ENABLE THE PROGRAM *

C * DEVELOPER TO CUSTOMIZE THE ERROR MESSAGE STYLE. *

C * THIS ROUTINE AS INITIALLY SUPPLIED CHANNELS THE DEFAULT ERROR*

C * MESSAGE STRAIGHT THROUGH WITH NO MODIFICATIONS. *

C * *

C * IN :- ICODE :- ERROR CODE (INTEGER) *

C * : 0 : WARNING/INFORMATION MESSAGE *

C * : 1 - 99 : ERROR OF SEVERITY 0 *

C * : 100 - 199 : ERROR OF SEVERITY 1 *

C * : 200 - 299 : ERROR OF SEVERITY 2 *

C * EBASE :- BASIC ERROR MESSAGE (CHARACTER*(*)) *

C * SOURCE :- ROUTINE DETECTING ERROR (CHARACTER*6) *

C * ISUPP :- SUPPLEMENTARY INFORMATION FLAG (INTEGER) *

C * : 0 :- THERE IS NO SUPPLEMENTARY INFORMATION *

C * : 1 :- THERE IS A SUPPLEMENTARY STRING *

C * : 2 :- THERE IS A SUPPLEMENTARY INTEGER *

C * : 3 :- THERE IS A SUPPLEMENTARY STRING LONGER *

C * THAN 8 CHARACTERS (E.G. DATABASE NAME) *

C * WHICH IS SIMPLY PLACED IN EMESS *

C * ETEXT :- SUPPLEMENTARY STRING (CHARACTER*(*)) *

C * IEINT :- SUPPLEMENTARY INTEGER (INTEGER) *

C * EMESS :- STANDARD DI ERROR MESSAGE (CHARACTER*80) *

C * IUNIT :- DESTINATION CHANNEL NUMBER (INTEGER) *

C * *

C * OUT:- THERE ARE NO OUTPUT PARAMETERS *

C * *

C * COPYRIGHT FEMSYS LIMITED 09/10/89 *

C * AUTHOR D.J. HUGHES. *

C * *

C ******************************************************************

C

C --- DECLARATIONS

C ============

C

CHARACTER EBASE*(*), SOURCE*6, ETEXT*(*), EMESS*80

INTEGER ICODE, ISUPP, IEINT, IUNIT

C

C ******************************************************************

C * *

C * CODE STARTS *

C * *

C ******************************************************************

C

WRITE(IUNIT,10,ERR=20) EMESS(1:80)

10 FORMAT(A80)

GOTO 9999

C

20 WRITE(*,*,ERR=9999) ' *** DI MESSAGE CHANNEL NOT CONNECTED *** '

C

9999 CONTINUE

RETURN

END

C

C ******************************************************************

C * *

C * END OF CODE *

C * *