Re: Receive journal exit program

["Chris Beck" <CBeck@xxxxxxxxxxxx>]

Thanks for the examples Charlie and Bruce.


Chris Beck 


>>> rbruceh@attglobal.net 08/13/01 04:42PM >>>
-----Original Message-----
From: Chris Beck <CBeck@good-sam.com>
To: MIDRANGE-L@midrange.com <MIDRANGE-L@midrange.com>
Date: Monday, August 13, 2001 2:47 PM
Subject: Receive journal exit program


>Has anyone got any examples of using the exit program on the RCVJRNE
command
>that they are willing to share, or know where I can find some.


you did not say that it could not be in MI... <vbg>

two parms, just like triggers. First is the journal entry record, second is
the control flag. '0' is no entry available (timeout, like a data queue) '1'
is entry is available, set it to '9' and you terminate the processing.

this particular example looks at the audit journal and records object
changes to a data queue where they can be further processed by another set
of programs.


===========================================================
R. Bruce Hoffman, Jr.
 -- IBM Certified Specialist - AS/400 Administrator
 -- IBM Certified Specialist - RPG IV Developer

"America is the land that fought for freedom and then
  began passing laws to get rid of it."

     - Alfred E. Neuman