QuickWin App: Run Time Error

[ivomar]

Some days ago, I asked the Compaq Visual Fortran Support if they knew a way to control run
time error, rehabilitating the external callbacks of a program, and he told
me that not. I informed
that I made that by placing MODIFYMENUFLAGSQQ inside the infinite loop, but their
answer was:

"Putting MODIFYMENUFLAGSQQ in the loop doesn't help - if the application
exits,
your main program is terminated and all user menu items are disabled".

Then, I enclosed the source code with an example in an email, but I didn't
obtain any answer.
That?s why I ask: Is there a more efficient way of rehabilitating external
callbacks from run time error?

[james1]

Yes, you need to do some exception handling. In the case you provided, you could for example add the routine:

SUBROUTINE MATHERRQQ( name, length, info, retcode)
USE DFLIB
INTEGER(2) length, retcode
CHARACTER(length) name
RECORD /MTH$E_INFO/ info
retcode = 1
END

to the provided program which would prevent the thread from terminating. Just add whatever code is suitable to handle the error.

James