priyesh.agrawal
Senior Member
Joined: 28 Mar 2005 Posts: 1448 Location: Chicago, IL
|
|
|
|
Hi sonasheetal,
Try this Code....
Code: |
//STEP1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=RECORDS.INPUT,DISP=SHR
//SORTOUT DD DSN=RECORDS.OUTPUT,DISP=....
//SYSIN DD *
SORT FIELDS=(1,1,CH,A)
OUTFIL REMOVECC,NODETAIL,
SECTIONS=(1,1,
TRAILER3=(1,2,
3:TOT=(3,3,SFF)))
/* |
For more information on this utility....visit this link........
[url]http://www-1.ibm.com/servers/storage/support/software/sort/mvs/tricks/srtmst02.html#t07 [/url]
Regards,
Priyesh. |
|