Exit from trap and subprogram1 simaltaneously?

In your Trap you need to RAISE an ERROR, add ERROR handler to the calling routine in which you should TRYNEXT. Maybe LongJump.

I agree with Lemster, that's probably your best bet.

Quote from knowledgesharing

Hi,

I am having a main program of 10lines.

VAR errnum MyError := -1;

BookerrNo MyError;

in line no4. Iwatch interrupt1
in line no5. i am calling a subprogram1
in line no6. Isleep interrupt1

in line no7. I am calling subprogram2

MAIN error handler:

ERROR
TEST ERRNO
CASE MyError:
Trynext;
Default:
Stop:
! look at system variable ERRNO to see what happened, this is an unexpected error.
ENDTEST
TRap reaction
Raise MyError;
.
.
ENDTRAP

Lets say for example: Subprogram1 has 100lines. during the 50th. my interrupt is triggered and my trap program reaction is activated.

ADD the same error handler to subprogram1

ERROR
TEST ERRNO
CASE MyError:
Trynext;
Default:
Stop:
! look at system variable ERRNO to see whar happened, this is an unexpected error.
ENDTEST

After the Trap program I need the PP(program pointer) in line no.6

in the trap program. I tried to use
Return: It's coming back to 50th line in subprogram1
Exitcycle: goes to first line of main program
Exit: Exit the program

After the Trap program I need the PP(program pointer) in line no.6

Thank in advance.

Display More

Try this.