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 mailing list archive is Copyright 1997-2020 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact