View previous topic :: View next topic
|
Author |
Message |
knobi
New User
Joined: 16 Aug 2005 Posts: 54
|
|
|
|
hello, is it possible to mark all records after certain record using icetool ? for example :
input :
aaadsds
bbsdskjdskj
####
asdcccaskjd
adddaskdj
output:
aaadsds
bbsdskjdskj
####
asdcccaskjd x
adddaskdj x
the only pattern in the file is an unique record ####
thanks.. |
|
Back to top |
|
|
Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
knobi,
Assuming that the input file is FB recfm and 80 byte lrecl ,the following DFSORT JCL will give you the desired results
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
AAADSDS
BBSDSKJDSKJ
####
ASDCCCASKJD
ADDDASKDJ
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFOUTLEN=80,
IFTHEN=(WHEN=GROUP,BEGIN=(1,4,CH,EQ,C'####'),PUSH=(81:ID=1)),
IFTHEN=(WHEN=(81,1,CH,GT,C' ',AND,1,4,CH,NE,C'####'),
OVERLAY=(1:1,13,SQZ=(SHIFT=LEFT,TRAIL=C' X')))
//* |
|
|
Back to top |
|
|
knobi
New User
Joined: 16 Aug 2005 Posts: 54
|
|
|
|
thanks Skolusu... it worked perfectly ! but any idea when the pft UK90007 wasn't applied yet ? (there is a plan to apply it only on middle of year during zos upgrade with all recent others .) |
|
Back to top |
|
|
Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
knobi wrote: |
thanks Skolusu... it worked perfectly ! but any idea when the pft UK90007 wasn't applied yet ? (there is a plan to apply it only on middle of year during zos upgrade with all recent others .) |
we DFSORT developers have no idea/control as to when YOUR shop decides to apply the PTF. It is available on the day it was announced and it is totally upto your systems programmer to apply it. We have NO say on it.
Thanks |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hi Kolusu,
I believe the intended question was "do you have any idea how this might be done with the earlier version/release of the sort?". |
|
Back to top |
|
|
Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
dick scherrer wrote: |
Hi Kolusu,
I believe the intended question was "do you have any idea how this might be done with the earlier version/release of the sort?". |
Hmm OP mentions that the proposed solution WORKS.
knobi wrote: |
thanks Skolusu... it worked perfectly ! |
|
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Perhaps knobi will clarify. . .
d |
|
Back to top |
|
|
|