Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
santosh,
Here's a DFSORT job that will do what you asked for:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (VB)
//OUT1 DD DSN=... output file1 (VB)
//OUT2 DD DSN=... output file2 (VB)
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=OUT1,INCLUDE=(5,5,CH,EQ,C'ABCDE'),
OUTREC=(1,4,10)
OUTFIL FNAMES=OUT2,INCLUDE=(5,5,CH,EQ,C'PQRST'),
OUTREC=(1,4,10)
/*
|
|
|