Re: Program never ending

[Vernon Hamberg <vhamberg@xxxxxxxxxxx>]

Some CL program somewhere is running RCLACTGRP at statement 6000 - when you 
have the joblog on the scree, put the cursor on it, press F1, then press 
F9. This will tell you which program is running the command.

HTH
Vern

At 11:55 AM 5/19/2005, you wrote:


> Charles,
>
> I have nt written any ACTIVATION GROUP either in my CLLE /RPGLE...
>
> Why is it taking RCLACTGRP(*ELIGIBLE),where should I change?
>
> Charles Wilt wrote:
>
> >Well first thing...
>
> >you should _never_, _ever_, use RCLACTGRP ACTGRP(*ELIGIBLE) particularly 
> in >production.  (per recommendations from Barbara Morris w/IBM)
>
> >Second, if the program is never ending, you probably shouldn't be trying 
> to >do a RCLACTGRP anyway.
>
> >Your best performance you be with the CLLE and RPGLE program using the 
> same >activation group and having the RPGLE program return with *INLR = *OFF.
>
>
> Muralidhar Narayana <Muralidhar_Narayana@xxxxxxxxxxx> wrote:
> Iam calling CLLE program which inturn calls an RPGLE program
>
> The program is never ending, Can some one show pointers whats the problem.
>
> >From the log, the below is happening
> 2800 - OVRDBF FILE(YIPXMNYF1) TOFILE(QTEMP/ACMNYF1)
> 2900 - OVRDBF FILE(YIPXMYLF1) TOFILE(QS36XMUR/GFEMYLF1)
> 3000 - CALL PGM(YACTBAR)
> 4900 - OVRDBF FILE(YIPXPAM) TOFILE(YIPX.PAM)
> 5400 - DLTOVR FILE(YIPXPAM)
> 5500 - CVTDAT DATE('20041129') TOVAR(&DATE) FROMFMT(*YYMD) TOFMT(*YYMD)
> TOSEP(*NONE)
> 6000 - RCLACTGRP ACTGRP(*ELIGIBLE)
> Activation group QLGLOCAL deleted.
> 1 activation groups deleted.
> - RETURN /* RETURN due to end of CL program */
> Session stopped by a request from device QPADEV000Q.
> Input or Output request failed. See message CPF5140.
>
> How can I prevent this and make my program run smooth.
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
>
>
> ---------------------------------
> Yahoo! Mail Mobile
>  Take Yahoo! Mail with you! Check email on your mobile phone.
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.