Re: Receive journal exit program

["R. Bruce Hoffman, Jr." <rbruceh@xxxxxxxxxxxxx>]

-----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

ot0100pl.clp

ot0101pm.mi