ajithajt
New User
Joined: 21 Mar 2016
Posts: 10
|
|
|
|
Hi,
This is my sample jcl.
| Code: |
//SETP001 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//REPORT1 DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=USERID.ABC.INPFILE
//SORTOF01 DD DSN=USERID.ABC.OUTFIL1,
// DISP=(,CATLG),
// SPACE=(TRK,(30,10),RLSE),
// UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)
//SORTOF02 DD DSN=USERID.ABC.OUTFIL2,
// DISP=(,CATLG),
// SPACE=(TRK,(30,10),RLSE),
// UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FILES=01,
INCLUDE=(266,2,CH,EQ,C'AB')
OUTFIL FILES=02,
INCLUDE=(266,2,CH,EQ,C'AC')
/*
//* |
In the above JCL i need to include all the SORTOFxx files in a PDS and include that PDS here. My jcl will be having lots of outfil files. So need to give all those files inside a PDS and then refer those files thru that PDS.
For eg, the below lines alone should be stored in a PDS called Test.Pds
| Code: |
//SORTOF01 DD DSN=USERID.ABC.OUTFIL1,
// DISP=(,CATLG),
// SPACE=(TRK,(30,10),RLSE),
// UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)
//SORTOF02 DD DSN=USERID.ABC.OUTFIL2,
// DISP=(,CATLG),
// SPACE=(TRK,(30,10),RLSE),
// UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)
|
Now how can i use Test.Pds in my jcl to refer to the Sortof1 and Sortof2 files.?
Could someone please help me to achieve this.
Thanks
CODE'd |
|
