RE: Retrieve Submitted library list of a job in Jobq

Thanks a lot Gary !!! I will try this option. Am I correct in assuming that this solution will work if all the users on the system are audited. The purpose of my exercise is to replicate jobs waiting to be run in jobq to HA system in case of failover and DR situation. The process that I have written works fine in all cases except when user submits jobs with specific INLLIBL (not that this is often occurance) but I want to code for this as well.
Thanks a Lot once again and your suggestions and are verymuch appreciated.

Reddy

Today's Topics:

1. RE: Retrieve Submitted library list of a job in Jobq
(Monnier, Gary)
message: 1
date: Tue, 10 May 2011 19:22:01 -0400
from: "Monnier, Gary" <Gary.Monnier@xxxxxxxxx>
subject: RE: Retrieve Submitted library list of a job in Jobq

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