RE: Reading journal entries in an RPG pgm

["Phil" <sublime78ska@xxxxxxxxx>]

Carsten,

I got your sample, and have been able to get it to do what I need.  Thanks!

I have only one problem - receiver chains.  When I select *CURRENT, or any
receiver as long as the start receiver and the end receiver is the same, I
have no problems.  But if I select *CURCHAIN or when the start and end
receivers aren't the same, it processes the receivers over and over - until
a variable overflow.

Any ideas?

Thanks,

Phil

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of Carsten Flensburg
> Sent: Friday, May 03, 2002 2:51 PM
> To: rpg400-l@midrange.com
> Subject: Re: Reading journal entries in an RPG pgm
>
>
> Hello Phil,
>
> You can specify an (f.x. RPG) exit program on the RCVJRNE and retrieve the
> journal entries as they arrive - or you can use the
> QjoRetrieveJournalEntries to retrieve journal entries based on a
> variety of
> selection criteria.  I can email you an RPG/IV sample of the Qjo... API if
> you're interested.
>
> Best regards,
> Carsten Flensburg
>
> ----- Original Message -----
> From: <sublime78ska@attbi.com>
> To: <rpg400-l@midrange.com>
> Sent: Friday, May 03, 2002 8:34 PM
> Subject: Reading journal entries in an RPG pgm
>
>
> > I have a file which is journaled.  I want to read the
> > journal entries in an RPG pgm so I can see which fields
> > were changed, and by whom.
> >
> > Are there any examples available for this?  I've found
> > the IBM doc's '6.3.8 Using Journaling to Provide an
> > Audit Trail'.  This is what I want to do but there're no
> > examples other than CL.
> >
> > Thanks in advance for your help,
> >
> > Phil
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>