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
 

 

To replace low values by spaces using ICETOOL

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

New User


Joined: 16 Nov 2006
Posts: 10

PostPosted: Fri Nov 24, 2006 4:40 pm    Post subject: To replace low values by spaces using ICETOOL
Reply with quote

Is there a way to take a large file and replace all low values from the file with spaces instead ( using icetool/dfsort plz)
Back to top
View user's profile Send private message

subhasis_50

Moderator


Joined: 09 Mar 2005
Posts: 363
Location: Earth

PostPosted: Fri Nov 24, 2006 5:22 pm    Post subject: Re: to replace low values by spaces using icetool
Reply with quote

Hi,
Yes you can do this by using ALTSEQ in sort.

Code:

//STEP1   EXEC  PGM=SORT             
//SYSOUT   DD SYSOUT=*               
//SORTIN   DD DSN=INPUTFILE, 
//            DISP=SHR               
//SORTOUT  DD DSN=OUTPUTFILE, 
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,
//            SPACE=(TRK,(1,1),RLSE) 
//SYSIN DD *                         
  OPTION COPY                         
  ALTSEQ CODE=(0040)                 
  OUTREC FIELDS=(1,RECORDLENGTH,TRAN=ALTSEQ)   
/*                 


change the recordlength based on your file. For details
see
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA10/3.4?DT=20050222160456

Hope it helps!
Back to top
View user's profile Send private message
fuadk84

New User


Joined: 16 Nov 2006
Posts: 10

PostPosted: Fri Nov 24, 2006 6:16 pm    Post subject: Re: to replace low values by spaces using icetool
Reply with quote

Thnk you.... i tried de same but stil
am left with one or two low values in the ps...
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Fri Nov 24, 2006 6:39 pm    Post subject:
Reply with quote

Maybe Frank might have an answer, but it's 5am for him now.... icon_eek.gif
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


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

PostPosted: Fri Nov 24, 2006 9:56 pm    Post subject:
Reply with quote

fuadk84,

The technique shown above will do what you want for an FB file. If the input file has RECFM=FB and all of the X'00' values were not changed to X'40' values, then I can only guess that you did not set the recordlength in the OUTREC statement correctly. If the input file has RECFM=VB, then you need this OUTREC statement:

Code:

  OUTREC FIELDS=(1,4,5,TRAN=ALTSEQ)


For more details, see the "Change all zeros in your records to spaces" Smart DFSORT Trick at:

http://www.ibm.com/servers/storage/support/software/sort/mvs/tricks/

If that doesn't help, then you need to tell me the RECFM and LRECL of your input file, show me the job you used, and give me an example of an input record and output record where all of the X'00' values were not changed to X'40' values.
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 Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm
No new posts Replacing same string with different ... vickey_dw DFSORT/ICETOOL 6 Wed Feb 22, 2017 10:44 pm
No new posts setting new limit Key values for inde... srilata83 DB2 1 Fri Feb 10, 2017 9:24 pm
No new posts Converting decimal to numeric using I... Balaryan DFSORT/ICETOOL 4 Thu Feb 02, 2017 11:27 pm


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