Steely Mark,
You can schedule a job that runs SDSF in batch and then extracts the contents.
I assumed that your systems have SYSSYM=ALLOW so that you can save the results
using the date and time.
Something like this
// EXPORT SYMLIST=*
// SET CDATE=Y&LYR4..M&LMON..D&LDAY
// SET CTIME=H&LHR..M&LMIN..S&LSEC
/*
//**************************************************************
//* Run SDSF in batch to capture the output of jobs sorted on *
//* cpu% in DA queue. *
//* This will capture a max da list of 9999 jobs. *
//**************************************************************
//RUNSDSF EXEC PGM=SDSF,PARM='++9999,133'
//ISFOUT DD DSN=&&O,DISP=(,PASS),SPACE=(CYL,(25,25),RLSE),
// LRECL=134,RECFM=FBA,BLKSIZE=0,DSORG=PS
//SYSPRINT DD SYSOUT=*
//ISFIN DD *
PRE **
OWNER *
DA
SORT CPU% D
END
/*
//**************************************************************
//* Extract the jobs list after the sort is done on CPU % *
//**************************************************************
//EXTRJOBS EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=(OLD,PASS),DSN=&&O
//SORTOUT DD DSN=&SYSUID..CPU.&CDATE..&CTIME,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,1),RLSE)
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(83,4,CH,EQ,C'CPU%'),
END=(08,8,CH,EQ,C' '),
PUSH=(135:ID=8))
OUTFIL BUILD=(001,134),
INCLUDE=(135,8,ZD,GT,1,AND,
008,8,CH,GT,C' ')
/*
Thanks,
Kolusu
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
