Silverfrost Logo About Us | Contact Us
 

DOSERR@

Platform

Win32

Purpose

To print a DOS error message and exit when an error occurs.

Syntax

SUBROUTINE DOSERR@(ERROR_CODE)
INTEGER (KIND=2) 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)
CALL DOSERR@(ERROR_CODE)

 

 

Copyright © 1999-2017 Silverfrost Limited