UIM List Panels

I have two related UIM List Panels from which I would like to be
able to transfer to the other panel and back again via an option on one of
the listed detail lines.

:listact option=10
enter='CMD WRKJBCTLDF JOBID(&job.)'
prompt='CMD ?WRKJBCTLDF ?*JOBID(&job.)'
help='JLIST/OPT10'.
10=Defaults

I have this working just fine going one way from either panel.
However, once I've transferred one way it will not let me go back the
other way because the CPP for the previous panel is still in the call
stack and recursion occurs. Is there a way to transfer to the new panel
such that it automatically ends the current panel before starting on the
new panel?

If this was all controlled from inside an RPG program then I know
I could check the call stack to see if the CPP was present in the stack,
or not. But these are invoked via a command (as shown above). But even
in the situation of being able to check the call stack, how would I be
able to send the key value from the selected panel line back to the
previous program in the stack? On the other hand, I could write the CPP
so that no recursion would occur but then there is the potential for the
call stack getting quite deep -- not to mention what happens when backing
out of that mess.

Thoughts?


Sincerely,

Dave Clark