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

COBOL - extract values after Decimal point


IBM Mainframe Forums -> Mainframe Interview Questions
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Gousiya Mulla

New User


Joined: 02 Jun 2008
Posts: 87
Location: Bangalore

PostPosted: Wed May 19, 2010 9:16 pm
Reply with quote

Given : 63.020003

How can we extract values after decimal point using COBOL logic .

Form my end , if it is alphanumeric we can use the String Functions (like substr) to extract . But not sure how it is for numeric ones ......

Please any idea ??
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Wed May 19, 2010 9:29 pm
Reply with quote

how about:

given PIC 9(5)v9(10) value 63.020003.

gt-decimal pic 9(10).
lt-one PIC v9(10).


move given to gt-decimal, lt-one.

after move:
gt-decimal contains 0000000063
lt-one contains 0200030000
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Wed May 19, 2010 10:53 pm
Reply with quote

Gousiya Mulla wrote:
if it is alphanumeric we can use the String Functions (like substr) to extract
almost...
STRING is used to concatenate values, UNSTRING is used to split them.
and STRING / UNSTRING are not functions.
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 -> Mainframe Interview Questions

 


Similar Topics
Topic Forum Replies
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
Search our Forums:

Back to Top