Therm-O-Link <[log in to unmask]> wrote:

>I have been having a problem with this program for a number of months
>now and have addressed various parts of it under the PAUSE thread and
>FILE LOCKING thread, but it still keeps happening.  What we are doing
>is opening a file, locking the file, checking status results and then
>waiting (via PAUSE) a short period of time before attempting the lock
>again.  This is all done via COBOL.  What happens is the program
>goes into a "loop forever" condition whenever the lock fails.  We replaced
>the CALL INTRINSIC "PAUSE" with a call to HPCICOMMAND to execute the
>PAUSE command (which did nothing) and finally removed the pausing
>all together, so now the code looks like this:

<program snipped>........

>The following is what is printed in the DEBUG-FILE:
>
> STARTING VALIDATE-QUEUE
> BEGIN ATTEMPT TO OPEN JOB-CTL-FILE, #    0
> JOB-CTL-FILE OPENED OKAY
> COULD NOT LOCK JOB-CTL-FILE
> PERFORMING CALL-PAUSE-4
> CALLING PAUSE VIA HPCICOMMAND
> BACK FROM PAUSE VIA HPCICOMMAND
> BACK FROM PERFORM OF CALL-PAUSE-4
> ADD +1 TO COND-WORD
> END ATTEMPT TO OPEN JOB-CTL-FILE, #    0
>
>
>Looking at the session that ran this (using SOS/3000) shows that the
>session is consuming 70-80% of the CPU while waiting for "Quantum
>Expiration" (whatever that is).   All the user sees is a locked-up
>terminal/session.
>
>Any ideas?  Either on what's wrong, or how to further debug this
>problem?  Thanks in advance.

If the program is in a loop the debug file should repeat ad nauseam - I
presume you edited out one repeat - if not, I would want to know why it
didn't.

Add a statement to save the value of COND-WORD to the debug file so you can
see it increasing and whether it ever gets to 100.

Add statements to output the value of JOB-CTL-STATUS at approriate places.

Is it possible that you are using COND-WORD for something else - like the
condition code?

If you've already solved the problem, please excuse this message - I get
the list in digest form.

John D. Alleyn-Day
Alleyn-Day International
408-286-6421   408-286-6474 (Fax)
[log in to unmask]       http://www.Alleyn-Day.com
"The man that never made a mistake never made anything"