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

Replace $ with * using icetool


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

Active User


Joined: 01 Feb 2007
Posts: 123
Location: Hyderabad

PostPosted: Wed Oct 24, 2007 3:12 pm
Reply with quote

Hi,

I had PS file of LRECL=80, RECFM=F or RECFM=FB
In that file where ever i find '$' i should replace it with '*'.
How can i do this using ICETOOL.

I had seen the below post. But i am not clear about that. I didnt understan that.
[url]Replace 'ab' 'cd' using sort[/url]

How to do this.
Back to top
View user's profile Send private message
bhaskar_kanteti

Active User


Joined: 01 Feb 2007
Posts: 123
Location: Hyderabad

PostPosted: Wed Oct 24, 2007 4:25 pm
Reply with quote

Hi,

In my previous post i mentioned it as RECFM=FB. But it is not FB. It is VB format.

How to proceed in this regard.
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India

PostPosted: Wed Oct 24, 2007 4:27 pm
Reply with quote

Bhaskar,

I believe you're referring to this post -

www.ibmmainframes.com/viewtopic.php?t=25365&sid=0b2d81b2af4eeff354a8a889a12d2349

So let us know what you didn't understand ?
Back to top
View user's profile Send private message
bhaskar_kanteti

Active User


Joined: 01 Feb 2007
Posts: 123
Location: Hyderabad

PostPosted: Wed Oct 24, 2007 4:43 pm
Reply with quote

Hi,

What is the purpose of using CTL1 where REPEAT=79.
And how the condition is written in CTL2. The pupose of using SEQNUM.

and one more thing. how can i use this if my file is VB format.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Wed Oct 24, 2007 9:42 pm
Reply with quote

Bhaskar,

You don't need that complex solution to replace one character (e.g. '$') with another character (e.g. '*'). You can do that quite easily with DFSORT's TRAN=ALTSEQ function. 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)
//SORTOUT DD DSN=...  output file (VB)
//SYSIN    DD    *
  OPTION COPY
  ALTSEQ CODE=(5B5C)
  INREC BUILD=(1,4,5,TRAN=ALTSEQ)
/*
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 Replace each space in cobol string wi... COBOL Programming 3
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts Shift left VB record without x00 endi... DFSORT/ICETOOL 11
No new posts how to calculate SUM value for VB fil... DFSORT/ICETOOL 1
No new posts how to calculate SUM for VB file usin... JCL & VSAM 1
Search our Forums:

Back to Top