× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Greg,

IMHO, you should not use get- or set-methods (procedures). You can retrieve the 
whole record passing an externally defined DS to the service programme.

Now you call the same procedure 6 times for one record, using the same key. I 
hope your procedure is not chaining to the record each time; that is another 
performance hit in this case (reading the same record 6 times, for what?).

Regards,
Carel teijgeler

*********** REPLY SEPARATOR  ***********

On 8-11-05 at 16:47 Fleming, Greg \(ED\) wrote:

>We're still relatively wet behind the ears with ILE here, but we're moving 
>forward with what we've been able to learn, and I think I may
>have run into an activation group issue.
>
>I have an RPG program which uses a procedure in a service program to populate 
>fields in the output file based on a key passed to >the procedure.
>
>I may use the same procedure several times in a row to populate different 
>flags based on various keys, like so:
>
>CallFlag  = S_MKIUFD_getVerticalFlag(K#Comp:HLJYNB:HLFQNQ:'CAL');
>EmailFlag = S_MKIUFD_getVerticalFlag(K#Comp:HLJYNB:HLFQNQ:'EML');
>FaxFlag = S_MKIUFD_getVerticalFlag(K#Comp:HLJYNB:HLFQNQ:'FAX');
>HTMLFlag = S_MKIUFD_getVerticalFlag(K#Comp:HLJYNB:HLFQNQ:'HTM');
>MailFlag = S_MKIUFD_getVerticalFlag(K#Comp:HLJYNB:HLFQNQ:'MAI');
>RentFlag = S_MKIUFD_getVerticalFlag(K#Comp:HLJYNB:HLFQNQ:'REN');
>
>The program seems to be running significantly longer than it used to before I 
>added this code.  
>
>My service program has the Activation group set to *Caller, and "Shared 
>Activation Group" = *No.
>
>I've done some reading on Activation groups in the ILE Reference, but it's 
>made my head go wobbly.  I'm guessing maybe I should >update my service 
>program and change the shared activation group attribute to *Yes.  
>
>Or am I totally barking up the wrong tree, and maybe I should scrap the 
>service programs altogether and bind the procedures at >compile time ? 
>




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.