Jreport 009 user ID that performed a task

Products

• IDMS
• IDMS - Database
• IDMS - ADS

Issue/Introduction

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?

 

 

Resolution

 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. 

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

//jobname EXEC PGM=CULPRIT,REGION=1024K 
//STEPLIB DD DSN=<HLQ>.IDMS190.LOADLIB,DISP=SHR 
// DD DSN=<HLQ>.IDMS190.USER.LOADLIB,DISP=SHR 
// DD DSN=<HLQ>.IDMS190.TEST.TESTLIB,DISP=SHR 
// DD DSN=<HLQ>.IDMS190.DBA.LOADLIB,DISP=SHR 
// DD DSN=<HLQ>.IDMS190.CUSTOM.LOADLIB,DISP=SHR 
// DD DSN=<HLQ>.IDMS190.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=<HLQ>IDMS190.AJNL1  (input.journal.file)
//SYS020 DD DSN=IDMS190.NEWOUT2,DISP=(NEW,CATLG,DELETE), 
// UNIT=SYSDA,SPACE=(200,(100)), 
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=80) 
//SYSIDMS DD * 
ECHO=ON 
DMCL=<dmcl-name>
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 ('<userid>') 
/* 
======================================= 

 

The report is located in the DDR190.SYS004  file:

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

JREPORT 009                                 USER ID JOURNAL REPORT          

       USER              UTC         UTC       TRANSACT   PROGRAM    LOCAL  

<userid>                              08/05/15  16.39.31.03         665 RHDCSGEN
<userid>                              08/05/15  16.39.40.64         670 IDMSDDAM
<userid>                              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

IDMS™ 19.0 - JREPORT 009 - User ID