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
 

 

Find Replace HEXA Values

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

New User


Joined: 15 Jun 2009
Posts: 28
Location: bangalore

PostPosted: Thu Feb 03, 2011 2:13 pm    Post subject: Find Replace HEXA Values
Reply with quote

Hi All,

I have a dataset Record format . . . : VB
Record length . . . : 27994.

I have a hex value of 02
DA5

I would need to delete the values form above ddatasetwhere ever the values comes with 02
DA5

Please advice how to proceed further..
Back to top
View user's profile Send private message

brahmanandarm

New User


Joined: 15 Jun 2009
Posts: 28
Location: bangalore

PostPosted: Thu Feb 03, 2011 2:21 pm    Post subject: Reply to: Find Replace HEXA Values
Reply with quote

Sory the hexavalue is
Code:
02
D5

"Code'd"
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6967
Location: porcelain throne

PostPosted: Thu Feb 03, 2011 5:34 pm    Post subject:
Reply with quote

is it X'02' or X'D5' or X'02' and X'D5' or is it X'02D5' ?
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 03, 2011 9:14 pm    Post subject:
Reply with quote

Hello,

What should be used to "replace" these?
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 Feb 04, 2011 12:10 am    Post subject:
Reply with quote

brahmanandarm,

If you want to remove X'02' values anywhere in your records, you can use DFSORT statements like this:

Code:

    OPTION COPY
    INREC FINDREP=(IN=X'02',OUT=C'')


If you want to do something else, you need to explain more clearly what exactly it is you want to do.
Back to top
View user's profile Send private message
brahmanandarm

New User


Joined: 15 Jun 2009
Posts: 28
Location: bangalore

PostPosted: Fri Feb 04, 2011 12:52 pm    Post subject:
Reply with quote

Thanks to all,
Now I ahve a new query..

I would need to remove the last characters
Record format . . . : VB
Record length . . . : 4092

Example of the record
Brahma emp1234 salary1234 insurance123412
sunil emp32121 salary2312 insurance12111
kumarswami emp32121 salary2312 insurance9123211

From the above records
I need to remove the value i.e. insurance*******

I want the output to be as
Brahma emp1234 salary1234
sunil emp32121 salary2312
kumarswami emp32121 salary2312

Please advice.
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Fri Feb 04, 2011 10:34 pm    Post subject:
Reply with quote

brahmanandarm,

Use the following DFSORT JCL.

Code:

//STEP0100 EXEC PGM=SORT                                             
//SYSOUT   DD SYSOUT=*                                               
//SORTIN   DD DSN=Your Input VB 4092 file,DISP=SHR                                       
//SORTOUT  DD SYSOUT=*                                               
//SYSIN    DD *                                                       
  SORT FIELDS=COPY                                                   
  INREC PARSE=(%01=(ENDBEFR=C'INSURANCE',FIXLEN=4088)),BUILD=(1,4,%01)
  OUTFIL VLTRIM=C' '                                                 
//*
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 Sorting of hex values Saurabh_mi DFSORT/ICETOOL 11 Thu May 25, 2017 3:49 pm
No new posts Fileaid Update Replace with null string descann Compuware & Other Tools 4 Mon May 15, 2017 3:00 pm
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts find RACF group for access to spooled... jzhardy JCL & VSAM 1 Mon May 08, 2017 11:46 am
No new posts To find out size allocated to a seque... ashek15 JCL & VSAM 15 Thu Apr 27, 2017 9:42 am


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