by pradeep007 » Wed May 19, 2010 12:34 pm
ok, here is code snippet
//STEP04 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&TEMP1,DISP=(OLD,DELETE,DELETE)
// DD DSN=&&TEMP2,DISP=(OLD,DELETE,DELETE)
// DD DSN=&&TEMP3,DISP=(OLD,DELETE,DELETE)
//SORTOF1 DD DSN=P8768.T3.STATE.FILE,DISP=SHR
//* DISP=(NEW,CATLG),
//* SPACE=(TRK,(1,5),RLSE),UNIT=DISK,
//* DCB=(RECFM=FB,BLKSIZE=27920,LRECL=80)
//SORTOF2 DD DUMMY
//SYSIN DD *
OPTION COPY
OUTFIL FILES=1,
HEADER1=(1:' ',/,
22:'Heading here followed by (here I want current year minus one)',/,
1:' '),
REMOVECC
/*
Temp dataset attributes are same as of SORTOF1