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
 

 

Inspect field to remove special characters or spaces

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
newbie

New User


Joined: 05 Nov 2005
Posts: 12

PostPosted: Sat Jul 12, 2008 4:23 am    Post subject: Inspect field to remove special characters or spaces
Reply with quote

Is there a way to inspect a field for special characters and remove them:

examples:

from to
A45678-12 A4567812
AB* C42-A ABC42A

Thank you.
Back to top
View user's profile Send private message

newbie

New User


Joined: 05 Nov 2005
Posts: 12

PostPosted: Sat Jul 12, 2008 4:28 am    Post subject: Reply to: Inspect field to remove special characters or spac
Reply with quote

Oops, I meant:

from:

A45678-12

to:

A4567812

or

from:

AB* C42-A

to:

ABC42A


Thank you.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8117
Location: East Dubuque, Illinois, USA

PostPosted: Sat Jul 12, 2008 4:58 am    Post subject:
Reply with quote

INSPECT can replace characters but I don't believe it'll remove them. Your best bet is to write a loop using reference modification to look at each character and move it to an output string if it's not a special character.
Back to top
View user's profile Send private message
rag swain

New User


Joined: 17 Dec 2007
Posts: 33
Location: pune,INDIA

PostPosted: Sun Jul 13, 2008 9:16 pm    Post subject: Reply to: Inspect field to remove special characters or spac
Reply with quote

Declare a WS variable with various 88 level item as special characters which you want to omit from the string. And then traverse through the string comparing with the WS variable, if does NOT match, put each one into an output field and if matches, read the next one. you can do the traversing by a looping.
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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Alter &DATENS field in HEADER1 Angad DFSORT/ICETOOL 4 Mon Apr 24, 2017 11:49 am
No new posts Format record to remove Leading zeroes Learncoholic DFSORT/ICETOOL 14 Wed Apr 05, 2017 2:43 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts IMS DB-How to update a record (a sing... Nic Clouston IMS DB/DC 9 Thu Mar 09, 2017 4:38 pm


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