The Below JCL would pull the latest 500 transactions from CA sysview for CICS and put in MYID.PRN(M1). You need to allocate the MYID.PRN PDS before running this job
//STEP1 EXEC PGM=GSVXBAT,PARM='LINECNT=66,SHOWINP=NO'
//SYSPRINT DD SYSOUT=*,DCB=(LRECL=81,BLKSIZE=8100,RECFM=FBA)
//SYSOUT DD SYSOUT=*,DCB=(LRECL=81,BLKSIZE=8100,RECFM=FBA)
//SYSIN DD *
COMMAND=(SET COPYDSNAME 'MYID.PRN')
COMMAND=(PRINT OPEN M1)
COMMAND=(CTRANLOG LINES 500 LIMIT 500)
COMMAND=(PRINT ALL)
COMMAND=(PRINT CLOSE)
//*
No comments:
Post a Comment
Note: Only a member of this blog may post a comment.