Re: Detecting that a submitted batch job is ending from w/in an RPG program. -- RPG400-L

Of course, the journal exit program could add an entry to a data queue which
the NEP could receive.... Having said that, unless there's a lot of
initialization to do each time, Alan's journal exit program might be the
best solution...

On Tue, May 19, 2009 at 1:21 PM, <rob@xxxxxxxxx> wrote:

That's still a NEP. Unless you discovered some sort of exit program to
fire off upon a journal entry creation.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

From:
Alan Campin <alan0307d@xxxxxxxxx>
To:
"RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
Date:
05/19/2009 04:03 PM
Subject:
Re: Detecting that a submitted batch job is ending from w/in an RPG
program.
Sent by:
rpg400-l-bounces@xxxxxxxxxxxx

You can also use journaling. That is way I set it up at last job. Each
time
that an IFS files was added to a folder it fired a journal entry. The
journal calls an exit program that processes the entry.

RCVJRNE JRN(IFS_AUDIT) EXITPGM(XV0015) JRNCDE((B))
ENTTYP(JT) ENTFMT(*TYPE1)

I have code that does this if you are interested.

On Tue, May 19, 2009 at 1:45 PM, <rob@xxxxxxxxx> wrote:

If you're checking for the existence of a stream file in a particular
directory I wonder if this could be used:
QIBM_QP0L_SCAN_CLOSE (Integrated File System Scan on Close exit program)
is called during close processing such as with the close() API. This

exit

program must be provided by the user.

http://publib.boulder.ibm.com/infocenter/iseries/v6r1m0/topic/apis/ifscloseexit.htm

Theory being, if someone drops in a stream file into a particular
directory (via ftp, netServer, etc) then execute your program.

This way you do not have your NEP checking on a periodic basis. As soon
as the file is closed this program would be called.

WRKREGINF QIBM_QP0L_SCAN_CLOSE

Haven't played with it myself.

Original intent is so that Bytware StandGuard anti-virus would scan

stream

files immediately upon close.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.