| midrange.com code scratchpad |
|
Name:
Recieve Journal Entry for IFS Object
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
08/10/2012 01:36:54 pm
|
IP:
Logged
|
|
|
Description:
Exit program called by operating system when journal
entries are added to a journal. This occurs because
an IFS folder is journaled and each time files are
added to a folder. Command RCVJRNE runs in a submitted
job and sets up what needs to captured and the exit
program.
RCVJRNE JRN(EPINS) EXITPGM(XBGETJRNE) JRNCDE((B))
ENTTYP(JT) ENTFMT(*TYPE1)
This was originaly written by Alan Campin
|
|
Code:
|
|
|