Re: IFACTIVE OCL glitch ?

[ken shields <kjs@xxxxxxxxxxx>]

Here's an interesting scenario, hope it helps
IF ACTIVE-'procname', sually checks the first level procedure running in a 36
environment.
I'm not certain if WRKACTJOB, in this situation, drills down and shows all 
active
jobs, even one's running in this environment
I once had a problem, similar in nature, and I narrowed it down to the 'FREE' 
verb
in subroutine usuage. If the subroutine is not released, the first level 
procedure
was deemed to be still active.
Check to see if this situation exists.

Schmuel wrote:

> Hi Midrange,
>
>     Running OCL (of course :-) we use the IFACTIVE command in some procedures,
> in the S36E environment type of situation..
>
>     Last night, in a program that runs every day and has never been a 
>problem..
> the IFACTIVE-'ARINQB'  (A/R Inquiry Program) answered yes to a user, despite
> our operations people making triply sure that WRKACTJOB did not show any
> thing even remotely close to that running, as well as checking all the
> users in
> the shop visually, and I checked the jobs also when I came in to take the
> running procedure out of its loop/wait state by cancelling it and jumping
> over..
> somewhere in the midst of all of this, the system stopped thinking the job
> was running, tho clearly no such job was ended.....  (I was testing)
>
>     Is there any possible known glitch that could hold that information in
> the system
> area even tho the job is de facto ended..  (perhaps related to running through
> Client Access and an NT server to the workstations) ...
>
>     It was quite strange, a tad disconcerting, not a big problem but
> something I
> could use a little idea on ..  Thanks most excellent AS/400 list...
>
> Steven in newyawk
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

--
Best Regards
Ken Shields
Home phone: 905 404-2062
Bus  phone  905 725-1144 (326)


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---