kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12370
Topics: 75
Location: San Jose
|
 Posted: Tue Apr 18, 2006 12:51 pm Post subject: |
 |
|
mainframemouli,
The following JCL will give you the desired results. upon completion check the output from step0200. If the generated JCL looks good then change the following statement
| Code: |
//SORTOUT DD SYSOUT=*
|
to
| Code: |
//SORTOUT DD SYSOUT=(*,INTRDR)
|
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
your.pds.name1
your.pds.name2
your.pds.name3
//DDLIST DD DSN=&T1,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)
//CTLLIST DD DSN=&T2,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=DDLIST,
OUTREC=(C'//IDD',SEQNUM,5,ZD,C' DD DISP=SHR,DSN=',1,44,/,
C'//ODD',SEQNUM,5,ZD,C' DD DISP=SHR,DSN=',1,44,/,
C'//*',80:X)
OUTFIL FNAMES=CTLLIST,
OUTREC=(3X,C'COPY OUTDD=ODD',SEQNUM,5,ZD,C',INDD=IDD',
SEQNUM,5,ZD,80:X)
/*
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
//SORTOUT DD SYSOUT=*
//SORTIN DD DATA,DLM=$$
//TIDXXXXA JOB 'COMPRESS',
// CLASS=A,
// MSGCLASS=Y,
// MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//*
//STEP0100 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
$$
// DD DSN=&T2,DISP=(OLD,PASS)
// DD DSN=&T1,DISP=(OLD,PASS)
/*
|
Hope this helps...
Cheers
Kolusu
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
www.linkedin.com/in/kolusu |
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
