Re: RCVJRNE usage

["Martin Rowe" <dbg400.net@xxxxxxxxx>]

2008/8/13 Hudson, Ron <rhudson@xxxxxxxxx>:
> 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'.

Hi Ron

I haven't used RCVJRNE but I do use RTVJRNE in a similar situation[1].
I'm guessing you need to add RCVRNG(*CURCHAIN) to your command, as the
default is *CURRENT. I load our program at the beginning of the week
and it keeps going until the box is IPLed

Regards, Martin
[1] Looking for streamfiles put onto the IFS by an external FTP
session so the authorities can be set correctly. I can send the source
if it's of use.