Reddy,
So write up a journal entry monitoring program that uses the RCVJRNE
command and write T-CMD and/or T-JS entries to a file. Below is a
skeleton exit program you can work from.
Input parms for the RCVJRNE exit program are:
D RCVINVJRNE PR extpgm('RCVINVJRNE')
D inJrnString 32767A
D inJrnCntrl 3A
D RCVINVJRNE PI
D inJrnString 32767A
D inJrnCntrl 3A
D jrnControlDS DS
D jePassedIn 1A
D jeProcessCtl 1A
D jeFixedName 1A
D journalEntryDS DS
D jeEntryLength 5A
D jeSeqNumber 10A
D jeJournalCode 1A
D jeEntryType 2A
D jeDate 6A
D jeTime 6A
D jeJobName 10A
D jeUserName 10A
D jeJobNumber 6A
D jeProgramName 10A
D jeObjectName 10A
D jeObjectLib 10A
D jeMemberName 10A
D jeCountRRN 10A
D jeFlag 1A
D jeCommitCycle 10A
D jeIncompdata 1A
D jeMinEntry 1A
D jeReserved 6A
D jeESData 32767A
/FREE
//---------------------
// Initialize variables
//---------------------
jrnControlDS = inJrnCntrl;
select;
when (jePassedIn = '1');
if (jeProcessCtl = 'N');
jePassedIn = '9';
endif;
exsr checkJournalEntry;
other;
jePassedIn = '9';
endsl;
inJrnCntrl = jrnControlDS;
//------------------------------------------
// End processing if no more journal entries
//------------------------------------------
if (jePassedIn = '9');
exsr normalEnd;
endif;
return;
//*******************************************************************
//* Subroutine - normalEnd
//*
//* Purpose: To gracefully end thid program.
//*
//* Procedures: 1. End program.
//*
//*******************************************************************
BegSR normalEnd;
*INLR = *On;
return;
endSR;
//*******************************************************************
//* Subroutine - checkJournalEntry
//*
//* Purpose: To interrogate each journal entry for requested data.
//*
//* Procedures: 1. Check JOESD for what you are ;ooking for.
//* 2. Perform the actions you deem necessary.
//*
//*******************************************************************
BegSR checkJournalEntry;
journalEntryDS = %trimr(inJrnString);
if (jeEntryType = 'CD'); // T-CD entry
if (%subst(jeESData:2:10 = 'SBMJOB');
// Write to your file
endif;
endif;
if (jeEntryType = 'JS'); // T-JS
if (%subst(jeESData:1:1 = 'B'); // Job submitted
// Write to your file
Endif;
endif;
EndSR;
/end-FREE
Hope this helps.
Gary
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Reddy
Sent: Tuesday, May 10, 2011 3:49 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Retrieve Submitted library list of a job in Jobq
Monnier, Gary <Gary.Monnier@...> writes:
Reddy,
If you are auditing the user you can try interrogating QAUDJRN for the
JS or CD journal entry types for the submitting job. T-CD entries
will
show you the command that was submitted. T-JS will provide you a
wealth
of information. The layouts for both are in the Security Reference
manual.
Gary
Thanks Gary !!!. Appreciate your reply. Not all users are audited on our
system. Another thing is the job mnight still be in the jobq on the
system,
but the audit entry might have been purged from the journal.
Reddy
midrange.com
