It's quite easy to find out who modified your data outside of LX. And it
can be done without purchasing any additional software.

Many of you may already be journalling your data. Especially if you are
using High Availability software such as Mimix.
You can do a DSPFD and look for
File is currently journaled . . . . . . . . : Yes
Current or last journal . . . . . . . . . . : BPCS_ALL
Library . . . . . . . . . . . . . . . . . : #MXJRN


I was helping out someone on another list and designed this:

<snip>
"If" you have your journal configured right, and include program, and
program library data, like this:
CHGJRN JRN(#MXJRN/BPCS_ALL) JRNRCV(*GEN)
RCVSIZOPT(*RMVINTENT *MAXOPT3)
FIXLENDTA(*JOB *USR *PGM *PGMLIB)

Then it becomes extremely easy to find out who modified the data outside
of BPCS.

I used iACS and used their Run SQL Scripts

SELECT journal_code, journal_entry_type, object,
x.current_user, job_name, job_user, job_number,
program_name, program_library,
remote_port, remote_address, system_name,
X.*
FROM TABLE (QSYS2.Display_Journal(
OBJECT_NAME => '*ALLFILE',
OBJECT_MEMBER => '*ALL',
OBJECT_LIBRARY => 'ERPLXF',
OBJECT_OBJTYPE => '*FILE',
JOURNAL_LIBRARY => '#MXJRN',
JOURNAL_NAME => 'BPCS_ALL',
STARTING_TIMESTAMP => TIMESTAMP(current date - 1 days),
STARTING_RECEIVER_NAME => '*CURCHAIN'
) ) AS X
Where program_library not in('ERPLXUSRO', 'ERPLXEC', 'ERPLXPTFO',
'ERPLXO');


Helping you out let me know that we have three of these but not *PGMLIB. I

may consider adding that.

Disclaimer: One might consult with their HA vendor prior to making any
journal changes. Adding additional data to your journals may affect
bandwidth to remote journals (if your HA vendor does that sort of thing).
</snip>

See also:
http://ibm.biz/DB2foriServices
https://www-03.ibm.com/systems/power/software/i/access/solutions.html
http://www-01.ibm.com/support/docview.wss?uid=nas8N1010355


Rob Berendt

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2021 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.