SYSOUT Allocation Intercept › Operation › Selection Criteria › SUBS=SUBID › Example

Example

The following example assumes that SUBS=SUBID and SUBID=ESF are specified.

//SAMPLE1 JOB (ACCT#),'PGMRNAME',
// CLASS=A,MSGCLASS=C
//OUT1 OUTPUT DEST=ESF,WRITER=DEPTPRT2
//STEP1 EXEC PGM=IEBPTPCH
//SYSUT2 DD SYSOUT=(A,DEPTPRT1),DEST=ESF
//SYSUT1 DD DSN=SYS2.ESF.JCLLIB,DISP=SHR
//SYSPRINT DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD *
PRINT TYPORG=PO,MAXFLDS=10,MAXNAME=10
MEMBER NAME=ESFPARM
RECORD FIELD=(80)
/*

The SYSUT2 and SYSPRINT SYSOUT allocations will be redirected into two separate CA Spool files to printer DEPTPRT1 and printer DEPTPRT2.