1
2C*GRGMSG -- print system message (MS-DOS)
3C+
4      SUBROUTINE GRGMSG (ISTAT)
5      INTEGER   ISTAT
6C
7C This routine obtains the text of the VMS system message corresponding
8C to code ISTAT, and displays it using routine GRWARN. On non-VMS
9C systems, it just displays the error number.
10C
11C Argument:
12C  ISTAT (input): 32-bit system message code.
13C--
14C 1989-Mar-29
15C-----------------------------------------------------------------------
16      CHARACTER CBUF*10
17C
18      WRITE (CBUF, 101) ISTAT
19  101 FORMAT(I10)
20      CALL GRWARN('system message number: '//CBUF)
21      END
22