Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 6968
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 Extend the decimal values in DIVISION Balaryan DFSORT/ICETOOL 3 Thu Oct 05, 2017 4:05 pm
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am
No new posts DB2 NULL Values display V S Amarendra Reddy DB2 3 Thu Sep 07, 2017 6:59 pm
No new posts Moving values to a variable of copybo... Vignesh Sid COBOL Programming 6 Wed Sep 06, 2017 1:04 pm
No new posts Command to find TMEMBER name for a TPIPE Siva NKK Kothamasu IMS DB/DC 0 Wed Aug 16, 2017 6:08 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us