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