RE: How do I reclaim service program activation group and reuse

["Jerry Jewel" <jerryjewel@xxxxxxxxx>]

Scott,

No, I'm fairly certain the interactive Maintenace program and the demo/test 
program are running out of named AG 'QILE'.  I've checked this while in debug 
via WRKJOB option 11, watching the stack change as each procedure is executed.

I've also tried using 'CEETREC', instead of running 'RCLACTGRP ACTGRP(XREF)', 
to force the reclaim activation group from inside the service program.

To try it this way, I created an exported procedure (called XRefCache_DoExit) 
in service program MyXrefCache (runs in 'XREF' named AG).  This is what it 
looks like...

P XRefCache_DoExit...
P                 B                   EXPORT

D XRefCache_DoExit...
D                 PI


C                   CALLB     'CEETREC'
C                   RETURN

P XRefCache_DoExit...
P                 E


I then run this from my interactive try/demo program (running out of 'QILE' 
named AG, via...

C                   CALLP     XRefCache_DoExit()

I then try to execute a procedure in the MyXRefCache sevice program from my 
interactive try/demo program (running out of 'QILE' named AG)... I get the MCH 
referece error.

I must be missing something or maybe I'm making it much harder than it hast to 
be???  Help.

Regards,
Jerry

Better living through fine code and hot coffee!



--

[please excuse the following garbage - my email vendors junk ]







This certainly seems to clean out the named AG but I still get the MCH error 
when I go to use the myXRefCache service program again.

I agree, as you said, apparently the OS needs to fire up the service program 
(and activation group again) but it appears to be clinging to the prior 
reference thats gone.  I'm confused.





--
__________________________________________________________
Sign-up for your own FREE Personalized E-mail at Mail.com
http://www.mail.com/?sr=signup

Get 4 DVDs for $.49 cents! plus shipping & processing. Click to join.
http://adfarm.mediaplex.com/ad/ck/990-1736-3566-59

"Free price comparison tool gives you the best prices and cash back!"
http://www.bestbuyfinder.com/download.htm