Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
mukunthg,
The following DFSORT JCL will give you the desired results
| Code: |
//STEP0100 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=your input vb file1,DISP=SHR
// DD DSN=your input vb file2,DISP=SHR
// DD DSN=your input vb file3,DISP=SHR
/*
//SORTOUT DD DSN=Your output file with 1 header,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(X,Y),RLSE)
/*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,8X,5)),
IFTHEN=(WHEN=(116,1,CH,EQ,C'D'),OVERLAY=(5:SEQNUM,8,ZD))
OUTFIL OMIT=(5,8,ZD,GT,1),
BUILD=(1,4,13)
/* |
Hope this helps...
Cheers |
|
