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

Unstring - Cobol


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

New User


Joined: 29 Jun 2005
Posts: 13
Location: USA

PostPosted: Tue Oct 06, 2009 11:42 am
Reply with quote

Can you tell me UNSTRING command for the below requirement?

Input: 5,00,000
Output: 500000

Requirement: remove the commas.

I have used the below code. my output is showing as 5 00 000. i am getting spaces. I have to delete this as well.

UNSTRING WS-STRING-INT-1
DELIMITED BY ','
INTO WS-STRING-INT-2
END-UNSTRING

please help me.
Back to top
View user's profile Send private message
Raghu navaikulam

Active User


Joined: 27 Sep 2008
Posts: 193
Location: chennai

PostPosted: Tue Oct 06, 2009 1:06 pm
Reply with quote

Hi rmaruri

Please provide the picture clause of the 2 variables
WS-STRING-INT-1
WS-STRING-INT-2.

Regards
Raghunath
Back to top
View user's profile Send private message
donevin

New User


Joined: 07 Jun 2005
Posts: 70
Location: South Africa

PostPosted: Tue Oct 06, 2009 1:54 pm
Reply with quote

If you want the numeric value of the string, 'cause it seems to me that's what you want, you can get it this way :

Code:
COMPUTE WS-STRING-INT-2 =                           
                FUNCTION NUMVAL-C (WS-STRING-INT-1).


but keep in mind that WS-STRING-INT-2 must be numeric. If you want the string value, move the numeric value to the string field again.
Back to top
View user's profile Send private message
rmaruri

New User


Joined: 29 Jun 2005
Posts: 13
Location: USA

PostPosted: Wed Oct 07, 2009 3:01 pm
Reply with quote

It worked. Thanks a lot donevin.
Back to top
View user's profile Send private message
donevin

New User


Joined: 07 Jun 2005
Posts: 70
Location: South Africa

PostPosted: Wed Oct 07, 2009 3:49 pm
Reply with quote

You're welcome. I have received lotsa help on the forums so I'm very glad I can give some back.
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 Replace each space in cobol string wi... COBOL Programming 3
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
No new posts Generate random number from range of ... COBOL Programming 3
Search our Forums:

Back to Top