Question:
How can the total number of sysouts in a View database be determined?
Answer:
In View 12.2, you can use the SARGRW program to determine the total number of sysouts in a View database:
//XXXXXXXX JOB ...
//SARGRW EXEC PGM=SARGRW
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD
//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 'COUNTING OF SYSOUTS'
/DEFINE CNT BIN
/SET CNT = CNT+1
/ON ENDDATA
/ PRINT RID
/ PRINT 'TOTAL SYSOUTS = '||CNT COL(1)
/END
/*
//
Note: The above is a simple program, which should run quickly, doing only counting and only the necessary printing at the end.
If the View being used is earlier than 12.2, you can do the following:
. Run a SARDBASE IDXOUT to a small file ((TRKS,1,1)), with DISP=(,CATLG,KEEP).
Note: The job will end with a B37 condition, but the small file can be browsed.
. Go to the fourth record in the file.
. Find the 16-byte string x'000000000000000000000000000000010'
. In the third fullword following '10' will be the Total Sysouts value, stored in hex, which is shown in the online STATUS command.