Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Mark all records after certain record using icetool

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
knobi

New User


Joined: 16 Aug 2005
Posts: 46

PostPosted: Wed Feb 24, 2010 11:38 pm    Post subject: Mark all records after certain record using icetool
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    Post subject: Reply to: marking records
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: 46

PostPosted: Thu Feb 25, 2010 12:36 am    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Thu Feb 25, 2010 6:42 am    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Fri Feb 26, 2010 12:30 am    Post subject: Reply to: Mark all records after certain record using icetoo
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    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Need to write record of PS File in ex... Chandan1993 JCL & VSAM 1 Wed Jun 07, 2017 1:35 am
No new posts Using ICETOOL, how we can seperate th... bshkris SYNCSORT 5 Tue May 09, 2017 8:33 pm
No new posts Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us