Amsar
New User
Joined: 26 Sep 2008 Posts: 84 Location: Chennai
|
|
|
|
Hi Revathi,
You can use below sort job, if you comment the DCB parameter of sortout file it will copy the DCB parameter of sortin file.
Code: |
//XXXXXXXX JOB (XXXX),'SORT JOB',CLASS=X,MSGCLASS=X,
// NOTIFY=&SYSUID,REGION=4096K
//STEP00 EXEC PGM=SORT
//*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//*
//SORTIN DD DSN=INPUT,DISP=SHR
//SORTOUT DD DSN=OUTPUT,
// UNIT=(TAPE,,DEFER),
//* DCB=(&GDGMODL,RECFM=FBA,LRECL=133,BLKSIZE=16625,
//* TRTCH=NOCOMP),
// LABEL=EXPDT=99000,
// VOL=(,RETAIN,,6),
// DISP=(NEW,CATLG,DELETE)
//*
//SYSIN DD *
SORT FIELDS=COPY
//* |
Regards,
Amsar |
|