Platform

Win32

Purpose

To get a DOS error message.

Syntax

SUBROUTINE DOS_ERROR_MESSAGE@(ERROR_CODE,MESSAGE)
INTEGER (KIND=2) ERROR_CODE
CHARACTER (LEN=*) MESSAGE

Description

Returns the DOS error string corresponding to the error number ERROR_CODE. The error numbers are augmented in the same way as for DOSERR@.

Example

CHARACTER (LEN=80)::MESSAGE
CALL OPENR@('DATA',IH,ERROR_CODE)
CALL DOS_ERROR_MESSAGE@(ERROR_CODE,MESSAGE)
PRINT *,MESSAGE