Saturday, June 21, 2008

JCL for MERGE

//SZ04MR1 EXEC PGM=SORT
//SORTIN01 DD DSN=SZ.SZ04SR1.GOOD.ITEM3,DISP=(OLD,DELETE)
//SORTIN02 DD DSN=SZ.SZ04SR1.GOOD.ITEM5,DISP=(OLD,DELETE)
//SORTIN03 DD DSN=SZ.SZ04SR1.GOOD.ITEM2,DISP=(OLD,DELETE)
//SORTOUT DD DSN=SZ.SZ04SR1.GOOD.ITEM6,DISP=(,CATLG),
// UNIT=%%SYSWRK,SPACE=(CYL,(5,5),RLSE)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
MERGE FIELDS=(1,5,A,8,5,A),FORMAT=BI
OPTION EQUALS
//*

No comments:

'


Ads By CbproAds