CTJVER Example 9

In the following example, CTJVER verifies the control statements in SORT.

Sort has several aliases that can be used in JCL.

Figure JV22 SORT - Example 9

//K68TALL   JOB ,K68,MSGCLASS=X,CLASS=A,

//             NOTIFY=N18

//*

//SORT     EXEC  PGM=SORT PARM='MSGDDN=MSGDD'

//*

//SORTIN   DD DISP=SHR,DSN=CTJP.SORT.CTMDAILY.SYSOUT

//SORTOUT  DD SYSOUT=*

//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(5,1))

//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(5,1))

//SYSOUT   DD SYSOUT=*

//MSGDD    DD SYSOUT=*

//DFSPARM  DD *

 OPTION MSGDDN=MSGDD

//SYSIN    DD *

 SORT FIELDS=COPY

 INCLUDE COND=(11,7,CH,EQ,C'JOB501I',AND,19,1,CH,NE,C'*')

 RECORD TYPE=F

 OPTION DYNALLOC=SYSDA

 OUTFIL OUTREC=(18,97)

 OPTION NOOPTIONS