topic Re: Clear error after call to GETLASTERRORQQ in Intel® Fortran Compiler

Clear error after call to GETLASTERRORQQ

DavidWhite — Thu, 22 Jan 2009 04:41:15 GMT

I am trying to detect when a file on a network drive is accessible. I can detect when there is a problem using GETFILEINFOQQ and GETLASTERRORQQ. I then get the app to wait for a period and then retry. If the resource is available, then GETFILEINFOQQ is successful, but the last error is still reported.

Is there any way to clear the last error once the error has been handled (by waiting in my example)?

Thanks,

David

Re: Clear error after call to GETLASTERRORQQ

onkelhotte — Thu, 22 Jan 2009 08:18:00 GMT

Quoting - David White

Why dont you use the handle that GETFILEINFOQQ returns? It has the value FILE$ERROR if the file dont exist...

When debug, in the first run it steps into i=1, then I copy the file, debug further and then I geti=2.

Markus

[cpp]handle = FILE$FIRST
result = GETFILEINFOQQ (files, info, handle)
if(handle==file$error) then
    i = 1
else
    i = 2
end if

! copying file to the right dir

handle = FILE$FIRST
result = GETFILEINFOQQ (files, info, handle)
if(handle==file$error) then
    i = 1
else
    i = 2
end if[/cpp]

Re: Clear error after call to GETLASTERRORQQ

DavidWhite — Fri, 23 Jan 2009 00:36:11 GMT

Quoting - onkelhotte

Why dont you use the handle that GETFILEINFOQQ returns? It has the value FILE$ERROR if the file dont exist...

I wanted more specific information about the cause of the error, so I was using GETLASTERRORQQ. However my logic in checking for FILE$ERROR was incorrect, which meant I was checking the last error even when the last call had not flaggedan error.

Thanks,

David

Re: Clear error after call to GETLASTERRORQQ

onkelhotte — Fri, 23 Jan 2009 06:15:24 GMT

Quoting - David White

Youre right, this doesnt solve the GETLASTERRORQQ problem... But finding your file problem ;-)

So, when you use a function or subroutine, that can produce an error that is recognised by GETLASTERRORQQ you cannot say if it is the same error (and the result has the same value) or if there was no error at all and the value doesnt change because of that. Doesnt the doctor have a cure or suggestion?

Markus

Re: Clear error after call to GETLASTERRORQQ

Steven_L_Intel1 — Fri, 23 Jan 2009 14:33:33 GMT

I don't know of a way to clear the error code, but you might consider the Win32 API GetLastError() to see if it better meets your needs. However, I generally don't ask for the "last error" unless an operation has returned to me with a status saying it failed. Calling GETLASTERRORQQ repeatedly does not seem to me to fit in with its design.

Re: Clear error after call to GETLASTERRORQQ

g_f_thomas — Fri, 30 Jan 2009 02:40:07 GMT

Quoting - David White

Use the Win API. IIRC do something like

errres=GetLastError()
Call SetLastError(errres)

Gerry

Re: Clear error after call to GETLASTERRORQQ

DavidWhite — Fri, 30 Jan 2009 05:15:24 GMT

Quoting - g.f.thomas

Use the Win API. IIRC do something like

errres=GetLastError()
Call SetLastError(errres)

Gerry

Gerry,

I think it will actually need
Call SetLastError(0)
to clear the error.

David

Re: Clear error after call to GETLASTERRORQQ

g_f_thomas — Fri, 30 Jan 2009 15:00:13 GMT

Quoting - David White

Quoting - g.f.thomas

Use the Win API. IIRC do something like

errres=GetLastError()
Call SetLastError(errres)

Gerry

Gerry,

I think it will actually need
Call SetLastError(0)
to clear the error.

David

I more or less agree. The last time I used this I did

USE IFWINTY
USE KERNEL32
IF(GETLASTERROR() /= ERROR_SUCCESS) CALL SETLASTERROR(ERROR_SUCCESS)

Gerry