View - XCODE Selection in SARGRW

Products

• View

Issue/Introduction

The client wanted to have a SARGRW report that interrogates the data reports for the existence of a non-blank XCODE, for the purpose of selecting only the exceptions. 

Resolution

Provided the client with the following SARGRW program for the XCODE Selection:

//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 XCODE'
/IF XCODE NE '        '
/ PRINT ID 'ID'
/ PRINT JOBNAME 'JOBNAME'
/ PRINT JOBID 'JOBID'
/ PRINT GEN 'GEN '
/ PRINT SEQ 'SEQ '
/ PRINT ARCHDATE 'ARC DATE'
/ PRINT ARCHTIME 'ARC TIME'
/ PRINT LOC 'LOC'
/ PRINT LINES 'LINES '
/ PRINT PAGES 'PAGES '
/ PRINT DISKBLKS 'BLOCKS'
/ PRINT XCODE 'XCODE'
/ PRINT TAPESEQ 'TSEQ '
/ PRINT DRSEQ 'DRSEQ'
/END
/*
//