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

How to change numeric to character after only a specific wrd


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ssprabhu

New User


Joined: 25 Apr 2005
Posts: 67
Location: pune

PostPosted: Thu Aug 21, 2008 3:08 pm
Reply with quote

Hi,

customer opted for e-account account no: 123456 cust-id : 22222 and
opted on 13/08/08 at 12:13.

customer opted for e-account opted on 13/08/08 at 12:13, Account no: 123456 cust-id : 22222 and


I want to change this above stmt as's below..

customer opted for e-account account no: XXXXXX cust-id : XXXXXX and
opted on 13/08/08 at 12:13.

customer opted for e-account opted on 13/08/08 at 12:13, Acc no: XXXXXX cusid : XXXXXX

But this text is nott constant the account no and cust-id details can appear at any place in the sentence ..so what all i need todo is i have to sweep all the text in the database and to find is there any accout details or cust-id details in the text then i have to replace the next 6 bytes as "X"

Is there any cobol statement available for this or any least and efficient method can u please suggest ??
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India

PostPosted: Thu Aug 21, 2008 3:19 pm
Reply with quote

ssprabhu,

Quote:
or any least and efficient method can u please suggest ??


I would probably go for REXX as the customer ID value is not a constant and is not in a specific position.

If you know rexx, read the file, check for account no: and cust id: Acc no: cusid : and then overlay the data XXXXXX.
Back to top
View user's profile Send private message
ssprabhu

New User


Joined: 25 Apr 2005
Posts: 67
Location: pune

PostPosted: Thu Aug 21, 2008 4:00 pm
Reply with quote

AAru yes but...u know we need to sweep millions of customers and their text ..we hae to keep restart both internal and external tahtz not possible in REXX so we heve to do it in cobol...
Back to top
View user's profile Send private message
ssprabhu

New User


Joined: 25 Apr 2005
Posts: 67
Location: pune

PostPosted: Thu Aug 21, 2008 6:46 pm
Reply with quote

Experts view please...
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: Thu Aug 21, 2008 9:12 pm
Reply with quote

ssprabhu,

Since you posted in the DFSORT Forum, I assume a DFSORT solution would be desirable. Right?

If you want to do this in COBOL, why did you post in the DFSORT Forum?

You can use DFSORT's new FINDREP function to do this kind of thing. FINDREP is available with z/OS DFSORT V1R5 PTF UK90013 (July, 2008).
If you clarify what you want, I can show you how to do it:

It isn't clear which keywords you are looking for. Your input and output records have all of these variations:

'account no:'
'cust-id :'
'Account no:'
'Acc no:'
'cusid :'

Please give a complete, accurate list of the keywords you are actually looking for.

Also, the customer ids you show are 5 bytes, but you say you want to replace them with 6 bytes. Are the customer ids really 6 bytes?

A better example of input and output would help.
Back to top
View user's profile Send private message
ssprabhu

New User


Joined: 25 Apr 2005
Posts: 67
Location: pune

PostPosted: Tue Aug 26, 2008 1:27 pm
Reply with quote

Iam sorry Frank Yaeger for postinf tis thread in DF SORT forum..
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Tue Aug 26, 2008 2:26 pm
Reply with quote

looks like You are trying to implement some form of data masking ( for sensitive info )

Your organization should define better the long term requirements,
if it is once in a while it might be ok to go for an in house solution,

for continuous use I feel that it would be wiser to go for a full solution product

if You google for "sensitive data masking sanitization" You will find lots of documents and pointers on different ways of doing it
( also some product pointers )
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 -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Issues Converting From ZD to Signed N... DFSORT/ICETOOL 4
No new posts 3270 personal communications. Can't c... TSO/ISPF 2
No new posts SELECT from data change table DB2 5
No new posts Trying to change copybook in online c... CICS 4
No new posts Change Default Scroll Setting TSO/ISPF 1
Search our Forums:

Back to Top