RCVJRNE usage

User requirement:
When EDI data is written to the IFS using a 3rd party package (that I do
not have the source code to), I need to forward this data to a PC based
system.

Solution:
I submitted the RCVJRNE command using the QAUDJRN to call an exitpgm
that I wrote to FTP the data to the PC based system.
RCVJRNE JRN(QAUDJRN) EXITPGM(CAGPL/CAPTURE) JRNCDE((T)) ENTTYP(CO)
ENTFMT(*TYPE4) DELAY(*NEXTENT 60)
Works great, but....

Issue:
When the journal receiver changes, my job ends normally. This is a
major problem.

Questions:

1. Is there a better solution?
2. I've done a lot of trial and errors with the parameters of
RCVJRNE, is there any combination that will make it continue running
when the receiver changes?
3. Should I code the exit pgm to resubmit the RCVJRNE command if
the first byte of the second parameter is a '3' or the second byte is a
'N'.

TIA
________________________________________

Ron Hudson
International Automotive Components
Flooring & Acoustics Group
P. O. Box 580
313 Bethany Road
Albemarle, NC 28001



**********************
** LEGAL DISCLAIMER **
**********************

This E-mail message and any attachments may contain
legally privileged, confidential or proprietary
information. If you are not the intended recipient(s),
or the employee or agent responsible for delivery of
this message to the intended recipient(s), you are
hereby notified that any dissemination, distribution
or copying of this E-mail message is strictly
prohibited. If you have received this message in
error, please immediately notify the sender and
delete this E-mail message from your computer.