Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
sri_mf,
If Plan code is 5 bytes, I assume you want '00002' rather than '0002' and '00009' rather than '0009'.
You can use a DFSORT job like the following to do what you asked for:
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
0000199999
0000299999
0002399999
0000100035
0002388888
0000288888
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(1,5,CH,EQ,C'00001'),OVERLAY=(6:C'00002')),
IFTHEN=(WHEN=(1,5,CH,EQ,C'00023'),OVERLAY=(6:C'00009'))
/*
|
For the example, SORTOUT will have:
| Code: |
0000100002
0000299999
0002300009
0000100002
0002300009
0000288888
|
If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:
Use [URL] BBCode for External Links |
|
