How are you performing the 'end job' ?
-----Original Message-----
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.
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.
--
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,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at
http://archive.midrange.com/midrange-l.
midrange.com
