The Jreport 009 is supposed to give you the user ID of someone that performed a task. What is the selection transaction or cards to get the user ID?

Document ID : KB000057242
Last Modified Date : 14/02/2018
Show Technical Document Details

Question:

The Jreport 009 is supposed to give you the user ID of someone that performed a task. What is the selection transaction or cards to get the user ID?

 Answer:

 JREPORT 009 is the Journal USER ID report and it lists user ID from every transaction with the date, time, and program associated with that transaction. Information on the JREPORT 009 can be found in the CA IDMS is Reports Guide, Chapter 8, section, JREPORT 009 - User ID on page 293.

 Here’s an example of the JREPORT 009 JCL and syntax to locate users with specific userid.

//DDR160 EXEC PGM=CULPRIT,REGION=1024K 
//STEPLIB DD DSN=IDMS.IDMS185.LOADLIB,DISP=SHR 
// DD DSN=IDMS.IDMS185.USER.LOADLIB,DISP=SHR 
// DD DSN=IDMS.IDMS185TEST.TESTLIB,DISP=SHR 
// DD DSN=IDMS.IDMS185.DBA.LOADLIB,DISP=SHR 
// DD DSN=IDMS.IDMS185.CUSTOM.LOADLIB,DISP=SHR 
// DD DSN=IDMS.IDMS185.CAGJLOAD,DISP=SHR 
//SYSCTL DD DISP=SHR,DSN=IDMS.IDMCV185.SYSCTL 
//SYS004 DD SYSOUT=*,DCB=(RECFM=FA,LRECL=133,BLKSIZE=133) 
//SYS005 DD DSN=&&PARMS,UNIT=SYSDA,DISP=(NEW,PASS), 
// SPACE=(TRK,(19,2),RLSE), 
// DCB=(RECFM=FB,LRECL=320,BLKSIZE=2880,OPTCD=C) 
//SORTMSG DD SYSOUT=*,DCB=BLKSIZE=121 
//SYSPRINT DD SYSOUT=* 
//SORTPRNT DD SYSOUT=* 
//SYSOUT DD SYSOUT=* 
//*ORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR 
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1),,CONTIG) 
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(1),,CONTIG) 
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(1),,CONTIG) 
//SYS006 DD DSN=&&EXTRACT,DISP=(NEW,PASS), 
// UNIT=SYSDA,SPACE=(CYL,(2,2),RLSE), 
// DCB=(RECFM=VB,LRECL=1024,BLKSIZE=3156) 
//SYS008 DD DSN=&&ALTEXT,DISP=(NEW,PASS), 
// UNIT=SYSDA,SPACE=(CYL,(2,2),RLSE), 
// DCB=(RECFM=VB,LRECL=1024,BLKSIZE=3156) 
//SYS007 DD DSN=&&SORTCARD,DISP=(NEW,PASS), 
// UNIT=SYSDA,SPACE=(TRK,(1,1)), 
// DCB=(RECFM=F,BLKSIZE=80) 
//SYS010 DD DISP=SHR,DSN=IDMS.IDMS185.AJNL1  (input.journal.file)
//SYS020 DD DSN=IDMS185.NEWOUT2,DISP=(NEW,CATLG,DELETE), 
// UNIT=SYSDA,SPACE=(200,(100)), 
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=80) 
//SYSIDMS DD * 
ECHO=ON 
DMCL=DMCL1850 
DICTNAME=SYSDIRL 
/* 
//SYSIN DD * 
DATABASE DICTNAME=SYSDIRL 
PARAM=NOLIST 
INPUT 32000 32000 UM(CULLJRNL) 
JREPORT=9 
SELECT WHEN TYPE EQ ( 'BGIN' ) 
* AND USER-ID EQ ('BCB') 
/* 
======================================= 

The report is located in the DDR160.SYS004  file:

....+....1....+....2....+....3....+....4....+....5....+....6.....+....1....+

JREPORT 009                                 USER ID JOURNAL REPORT         

       USER              UTC         UTC       TRANSACT   PROGRAM    LOCAL 

BCB                              08/05/15  16.39.31.03         665 RHDCSGEN

BCB                              08/05/15  16.39.40.64         670 IDMSDDAM

BCB                         08/06/15  13.31.01.59         894  IDMSDDDL

C750009 RECORDS WRITTEN FOR REPORT 09 --      8                            

Another example of JREPORT 009 to find USERID that begin with either a “T” or an “U”.

JREPORT=009 
SELECT WHEN TYPE EQ ( 'BGIN' ) 
* AND (USER-ID GT 'T ' OR USER-ID LT 'U ') 

To list the User ID for every transaction on a journal; just specify the JREPORT=009 without any SELECT parameters.

Additional Information:

 

CA IDMS Reports Guide, Chapter 8, section, JREPORT 009 - User ID.