* Last processed by NICE on 23-SEP-1991 14:17:24
* Customized for :  VAX         VMS          
      SUBROUTINE MESSIOS (PRIO,SEVE,NAME,IER)
C----------------------------------------------------------------------
C Output system message corresponding to IO error code IER, and
C using the MESSAGE routine
C----------------------------------------------------------------------
      CHARACTER*(*) NAME
      INTEGER IER,SEVE,PRIO
*
      CHARACTER*132 MSG
      INTEGER STATUS,N,MSGLEN,FORERR
      INCLUDE '($fordef)/list'
*
      IF (IER.EQ.0) RETURN
      CALL ERRSNS(,FORERR,,,STATUS)
      IF (STATUS.EQ.FOR$_OPEFAI) THEN
         STATUS = FORERR
      ELSEIF (STATUS.EQ.FOR$_ERRDURWRI) THEN
         STATUS = FORERR
      ELSEIF (STATUS.EQ.FOR$_ERRDURREA) THEN
         STATUS = FORERR
      ENDIF
      CALL SYS$GETMSG(%VAL(STATUS),MSGLEN,MSG,%VAL(1),)
      N = INDEX(MSG(1:MSGLEN),'!')-1
      IF (N.EQ.-1) N=MSGLEN
      IF (N.GT.0) CALL MESSAGE(PRIO,SEVE,NAME,MSG(1:N))
      END