IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Mark all records after certain record using icetool


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
knobi

New User


Joined: 16 Aug 2005
Posts: 54

PostPosted: Wed Feb 24, 2010 11:38 pm
Reply with quote

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
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Wed Feb 24, 2010 11:48 pm
Reply with quote

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
View user's profile Send private message
knobi

New User


Joined: 16 Aug 2005
Posts: 54

PostPosted: Thu Feb 25, 2010 12:36 am
Reply with quote

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
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Thu Feb 25, 2010 5:07 am
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Feb 25, 2010 6:42 am
Reply with quote

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
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Thu Feb 25, 2010 11:43 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Fri Feb 26, 2010 12:30 am
Reply with quote

Perhaps knobi will clarify. . . icon_confused.gif

d
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 8
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Pulling a fixed number of records fro... DB2 2
Search our Forums:

Back to Top