That's the trick!
It's not my EXEC (and the author has retired), so I was reluctant to mess
with it, but I ran a 'trace c' and
found:
>>> "CP SET PF12 IMMED QUIT"
>>> "CP SET PF24 IMMED QUIT"
/* clear pfkeys 1 - 22 */
do I = 1 to 22
"CP SET PF"I
end
/* set pf23 to retrieve */
"CP SET PF23 RETRIEVE"
>>> "CP SET PF1 IMMED 1 "
etc. for up to 22 PF keys.
(This part is table-driven)
do I = 1 to QM.PF.0
if QM.PF.I <> "UNDEFINED" then
"CP SET PF"I QM.PF.I
end
All I have to do is SET PF23 RETRIEVE before blanking out PF 1-22, and SE
T
PF24 RETRIEVE before restoring PF 1-24.
Thanks!
On Wed, 7 Jun 2006 12:35:51 -0400, Stracka, James (GTI)
<[EMAIL PROTECTED]> wrote:
>Alan,
>
>I know of no approved way of doing this. We do have a QC EXEC written
>by M. Friedman, UC Berkeley around 08/17/85. You might be able to
>reverse engineer this to set the buffers. You would do this at your own
>risk.
>
>Note: As long as any one of the PF keys is set to RETRIEVE, the buffers
>will not be destroyed. Does your exec really need to destroy all 24 PF
>keys?
>
>Jim
