book
Article ID: 127884
calendar_today
Updated On:
Issue/Introduction
Is there a CA View utility that will generate a report of all reports with class J?
Resolution
The following SARGRW program will show the database's reports that are in class J:
//XXXXXXXX JOB ...
//SARGRW01 EXEC PGM=SARGRW
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== Modify, if used
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(5),,CONTIG)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(5),,CONTIG)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(5),,CONTIG)
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PRTFILE DD SYSOUT=*
//SYSIN DD *
/CONTROL SEQ=RID DATABASE=view_hlq <=== Modify DB name
/TITLE 'LISTING OF SYSOUTS WITH CLASS J'
/IF CLASS = 'J'
/ PRINT ID 'ID'
/ PRINT JOBNAME 'JOBNAME'
/ PRINT JOBID 'JOBID'
/ PRINT GEN 'GEN '
/ PRINT SEQ 'SEQ '
/ PRINT CLASS 'CLASS'
/END
/*
//