Re: can't kill a dataq program

On a process that has a never ending wait time, I have always code in my
process to shut down the queue gracefully.

The code would say if queue entry = *SHUTDOWN* it will exit and end the
program.


Jeff Davis






from: "Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx>
subject: can't kill a dataq program

This might be more appropriate in the rpg list, but since I can't seem to
kill my job I'll start here.

I'm trying to test some rpg programs that send and receive from a dataq.


The premise of the program(Program_A) is that when the dataq receives an
entry it calls another program(Program_B).
This program(Program_B) checks to see if the order has printed. If it
has, then return to Program_A.
If it hasn't printed then check elapsed time. If it hasn't met the
threshold, then wait 15 seconds and put the order back in the dataq and
return to Program_A
If it has reached the threshold, then send emails to appropriate
people and return to Program_A.

Program_A is submitted to QBATCH and has a wait time of -1 on the QRCVDTAQ
API.

I have a interactive program that sends entries to the dataq.



So testing,

I submit the receiving program. I perform a end job and the program
ends. ( I have not sent anything to the dataq at this point)

I submit the receiving program again. Then I execute the interactive
program to send data to the dataq.

It seems to being doing what I want so far(in limited testing).

Now I perform a end job but the program won't end.
I have repeated this scenario a couple of times and have to perform an IPL
to get rid of this job.
NOTICE: This message, including any attachment, is intended as a
confidential and privileged communication. If you have received this
message in error, or are not the named recipient(s), please immediately
notify the sender and delete this message.


------------------------------





HCSC Company Disclaimer

The information contained in this communication is confidential, private,
proprietary, or otherwise privileged and is intended only for the use of
the addressee. Unauthorized use, disclosure, distribution or copying is
strictly prohibited and may be unlawful. If you have received this
communication in error, please notify the sender immediately at (312)
653-6000 in Illinois; (800)835-8699 in New Mexico; (918)560-3500 in
Oklahoma; or (972)766-6900 in Texas.