Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
shrivatsa,
Here's a DFSORT job that will do what I think you're asking for:
| Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (VSAM)
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY,VLSCMP
RECORD TYPE=V
INCLUDE COND=(21,4,CH,EQ,C'AB11',OR,21,8,FS,EQ,NUM)
INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,21:5)),
IFTHEN=(WHEN=GROUP,BEGIN=(37,8,FS,EQ,NUM),
PUSH=(5:41,4,9:37,4,13:ID=8))
OUTFIL REMOVECC,NODETAIL,
INCLUDE=(5,8,CH,GE,C'20100801'),
SECTIONS=(13,8,
TRAILER3=(21,8,X,COUNT-1=(EDIT=(IIIIIIIT))))
/*
|
|
|
