lckw

[Truffle]

Hi

I am not a programmer, but can cobble simple cl programs together. I have a
couple of batch jobs that sometimes go into a lckw status, which holds
everything else up (its unavoidable). Is there some simple program I can
write in CL to monitor for this, and in the event of, send a message to
qsysopr msgq (i could then pick this up and use an application we have to
send me a text message)? I'm running v4r4.

Many thanks in advance

[Ken]

Hi -

Post by Truffle
I am not a programmer, but can cobble simple cl programs together. I have a
couple of batch jobs that sometimes go into a lckw status, which holds
everything else up (its unavoidable). Is there some simple program I can
write in CL to monitor for this, and in the event of, send a message to
qsysopr msgq (i could then pick this up and use an application we have to
send me a text message)? I'm running v4r4.

You could use the QUSLJOB API to get a list of jobs that you want to
monitor. Use format JOBL0200 and request key 0101 (active job
status). Loop through the user space looking for jobs with an active
job status of LCKW. SNDPGMMSG your message to QSYSOPR for each one
found (or collect a count and send one message to QSYSOPR or whatever
suits your need).

Repeat this process using a DLYJOB to wait between checks.

[QMAGIC]

Post by Ken
Hi -

Post by Truffle
I am not a programmer, but can cobble simple cl programs together. I have a
couple of batch jobs that sometimes go into a lckw status, which holds
everything else up (its unavoidable). Is there some simple program I can
write in CL to monitor for this, and in the event of, send a message to
qsysopr msgq (i could then pick this up and use an application we have to
send me a text message)? I'm running v4r4.

You could use the QUSLJOB API to get a list of jobs that you want to
monitor. Use format JOBL0200 and request key 0101 (active job
status). Loop through the user space looking for jobs with an active
job status of LCKW. SNDPGMMSG your message to QSYSOPR for each one
found (or collect a count and send one message to QSYSOPR or whatever
suits your need).
Repeat this process using a DLYJOB to wait between checks.

I suggest you do a little research on monitoring a message queue. The
CLP could watch for the record lock message and then call a program to
send the message on.

Try seraching www.seach400.com in addition to this group.

Hope it helps.
Dan

[Ken]

Hi Dan -

Post by QMAGIC
I suggest you do a little research on monitoring a message queue. The
CLP could watch for the record lock message and then call a program to
send the message on.

Two problems with your suggestion:

1. You replied to me rather than to the original poster.

2. There will be no message to a message queue until the LCKW ends,
which could be seconds, minutes, hours, or even never [a record lock
with WAITRCD(*NOMAX)].

[Truffle]

Thanks Dan, I'll read up on API's, though search400 seems to be down at the
moment.

Post by QMAGIC

Post by Ken
Hi -

Post by Truffle
I am not a programmer, but can cobble simple cl programs together. I have a
couple of batch jobs that sometimes go into a lckw status, which holds
everything else up (its unavoidable). Is there some simple program I can
write in CL to monitor for this, and in the event of, send a message to
qsysopr msgq (i could then pick this up and use an application we have to
send me a text message)? I'm running v4r4.

You could use the QUSLJOB API to get a list of jobs that you want to
monitor. Use format JOBL0200 and request key 0101 (active job
status). Loop through the user space looking for jobs with an active
job status of LCKW. SNDPGMMSG your message to QSYSOPR for each one
found (or collect a count and send one message to QSYSOPR or whatever
suits your need).
Repeat this process using a DLYJOB to wait between checks.

I suggest you do a little research on monitoring a message queue. The
CLP could watch for the record lock message and then call a program to
send the message on.
Try seraching www.seach400.com in addition to this group.
Hope it helps.
Dan

[Brian]

First, find out which object is locked, the object your job is waiting for.
Then you can allocated it with ALCOBJ command. Specify a reasonable value
for the WAIT parameter. Monitor for message CPF1002, and if received, send
your notification message to QSYSOPR. If ALCOBJ is successful, release your
lock on the object with DLCOBJ command.

Post by Truffle
Thanks Dan, I'll read up on API's, though search400 seems to be down at the
moment.

Post by QMAGIC

Post by Ken
Hi -

Post by Truffle
I am not a programmer, but can cobble simple cl programs together. I

have a

Post by QMAGIC

Post by Ken

Post by Truffle
couple of batch jobs that sometimes go into a lckw status, which holds
everything else up (its unavoidable). Is there some simple program I

can

Post by QMAGIC

Post by Ken

Post by Truffle
write in CL to monitor for this, and in the event of, send a message to
qsysopr msgq (i could then pick this up and use an application we

have

Post by Truffle
to

Post by QMAGIC

Post by Ken

Post by Truffle
send me a text message)? I'm running v4r4.

You could use the QUSLJOB API to get a list of jobs that you want to
monitor. Use format JOBL0200 and request key 0101 (active job
status). Loop through the user space looking for jobs with an active
job status of LCKW. SNDPGMMSG your message to QSYSOPR for each one
found (or collect a count and send one message to QSYSOPR or whatever
suits your need).
Repeat this process using a DLYJOB to wait between checks.

I suggest you do a little research on monitoring a message queue. The
CLP could watch for the record lock message and then call a program to
send the message on.
Try seraching www.seach400.com in addition to this group.
Hope it helps.
Dan