RE: can't kill a dataq program

Mike,

Have you considered using a special value on the data queue to end the job? When Program_A receives from the data queue it checks if it's this special value. If it is it ends the job instead of calling Program_B. When you want to end the job just send this entry to the data queue instead of performing an end job.

Paul Morgan

Principal Programmer Analyst
IT Supply Chain/Replenishment

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Smith, Mike
Sent: Wednesday, March 07, 2012 10:51 AM
To: 'Midrange Systems Technical Discussion'
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.