Platform | Win32 |
|
Purpose |
To print a DOS error message and exit when an error occurs. |
|
Syntax |
SUBROUTINE DOSERR@(ERROR_CODE)
|
|
Description |
This routine does nothing if ERROR_CODE is zero, otherwise it prints the DOS error message corresponding to ERROR_CODE and exits from the program. It is typically used after system calls that use DOS and are normally expected to succeed. |
|
Example |
CALL OPENR@('DATA',IH,ERROR_CODE) |