SUBROUTINE ERRMSG (ERROR, MESSAGE) C C Get the ASCII error message describing the error code C from the RSX I/O error message file: [1,2]QIOSYM.MSG C C >>> CAUTION <<< This routine uses logical unit 1 for file access. C C IMPLICIT INTEGER*2 (A-Z) C DIMENSION MESSAGE(32) C C------------------------------------------------------------------------------ C IF (ERROR .GT. 0 .OR. ERROR .LT. -99) RETURN C OPEN ( 1 UNIT = 1, 1 NAME = 'LB1:[1,2]QIOSYM.MSG', 1 TYPE = 'OLD', 1 ACCESS = 'DIRECT', 1 READONLY, 1 SHARED, 1 RECORDSIZE = 16 1 ) C READ (1'(-ERROR)) MESSAGE CLOSE (UNIT = 1) RETURN END