topic Re: run-time error messages in Software Archive

run-time error messages

Intel_C_Intel — Tue, 14 Aug 2001 23:03:43 GMT

I have just returned to using Visual Fortran after a gap of about 3 years. With the version at that time (version 5?) I was able to get at the text of system error messages (e.g. after using an ERR=) by :-

call errsns (, code) ! --- Fortran intrinsic
call FormatMessage (..., code, ..., message, ...) ! --- DFWIN

to give me message texts like "The system cannot find the file specified."

But if I use this now, then the call to errsns returns zero and not the system error code that I expected. Is this change in operation intentional, and if so then how can I get at the texts of system error messages.

geoff wright
computable functions

Re: run-time error messages

Steven_L_Intel1 — Tue, 14 Aug 2001 23:56:09 GMT

I suggest sending an example of the problem to vf-support@compaq.com. I am not aware of any changes in this area, but the experts for this don't read this forum.

Steve

Re: run-time error messages

Intel_C_Intel — Wed, 15 Aug 2001 04:43:27 GMT

BTW, what are the correct values for the first two parameters?
Here is what I'm using, but the message returned is always composed of junk characters:

LAST_ERROR = GETLASTERROR() ! is returning a system code

CALL FORMATMESSAGE(
+ FORMAT_MESSAGE_ALLOCATE_BUFFER .OR.
+ FORMAT_MESSAGE_FROM_SYSTEM,
+ NULL,
+ LAST_ERROR,
+ 0,
+ ERROR_MSG,
+ 0,
+ NULL )

WRITE(*,*) ERROR_MSG ! declared as CHARACTER*(80)
! value returned is composed of WingDings style characters

Re: run-time error messages

Intel_C_Intel — Wed, 15 Aug 2001 21:19:28 GMT

Thank, GetLastError seems to do the trick, but it doesn't explain why ERRSNS has stopped returning the system error code.

My code to get the message text is:-

character*256 message
integer*4 msg_len

msg_len = FormatMessage (
(FORMAT_MESSAGE_FROM_SYSTEM .OR.
FORMAT_MESSAGE_IGNORE_INSERTS .OR.
FORMAT_MESSAGE_MAX_WIDTH_MASK),
%val(0), code, 0, message, len(message), 0)
message(msg_len+1:msg_len+1) = ' '

But remember that this was written many years ago when I thought that I understood what I was doing. I do know that the last line was there to remove the null that terminated the C-style string.

geoff

Re: run-time error messages

Deleted_U_Intel — Thu, 07 Nov 2002 05:31:00 GMT

Under Visual FORTRAN 6.6A (OS Windows) I have gotten calls to the win32 functions GETLASTERROR and FORMATMESSAGE to work:

subroutine Report_Sys_Error()
! When a win32 routine has returned an error code
! call this subroutine.
! LpBuffer below is the win32 error message

USE DFWIN

integer(DWORD) dwFlags ! DWORD dwFlags
integer(LPCVOID) lpSource ! LPCVOID lpSource
integer(DWORD) dwMessageId ! DWORD dwMessageId
integer(DWORD) dwLanguageId ! DWORD dwLanguageId
character*256 lpBuffer ! LPSTR lpBuffer
! integer(DWORD) nSize ! DWORD nSize
TYPE(T_VA_LIST) Arguments ! va_list* Arguments

INTEGER FuncOut, IER

ier= GetLastError()

DWflags = IOR(FORMAT_MESSAGE_IGNORE_INSERTS,FORMAT_MESSAGE_FROM_SYSTEM)

dwLanguageId = MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT)

FuncOut = FormatMessage_G1( &
dwFlags, &
NULL, & ! lpSource,
ier, &
dwLanguageId, &
lpBuffer, &
len(lpBuffer), &
Arguments)

! Write to the error message to console if this a console application
! write(*,*) 'Error: ' // lpBuffer

end subroutine Report_Sys_Error