How are you performing the 'end job' ?
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Smith, Mike
Sent: Wednesday, March 07, 2012 8: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.
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.
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l