Previous Topic: ExampleNext Topic: SUBS=DEST


Example

This example assumes SUBS=CLASS and SUBSCLAS=GH. Both SYSUT2 and SYSPRINT SYSOUT allocations are redirected into two separate CA Spool files, to printer DEPTPRT1 output class G and printer DEPTPRT2 output class H.

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