Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
alluri12

New User

Joined: 15 Aug 2006
Posts: 44
Location: Virginia, USA

 Posted: Sat Feb 24, 2007 1:45 am    Post subject: Expecting Decimal point in COMPUTE verb Hi guys, In a program I am using 01 WS-VALUE1 PIC9(10) VALUE 2336440320 01 WS-COMPUTED-VALUE PIC9(02)V9(03) Compute WS-COMPUTED-VALUE ROUNDED = (WS-VALUE1/3999999999)*100 The result i am getting is 5841. I am expecting is 58.41 Could you please provide me some solution for this Thanks

superk

Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

 Posted: Sat Feb 24, 2007 2:06 am    Post subject: Re: Compute Verb My result using your code is 58.410.
dick scherrer

Site Director

Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

Posted: Sat Feb 24, 2007 2:12 am    Post subject:

Hello,

I'd recomend placing periods at the end of your statements.

In this
 Code: 01 WS-COMPUTED-VALUE PIC9(02)V9(03)

field, there is no decimal point defined - what you have is an implied decimal, not an explicit one. If you wan to see the '.', you must include it in the definition.
William Thompson

Global Moderator

Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

 Posted: Sat Feb 24, 2007 2:28 am    Post subject: How do you know you are getting 5841 rather than 58.41?
dick scherrer

Site Director

Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

Posted: Sat Feb 24, 2007 2:57 am    Post subject:

Hello again,

With the implied and then the explicit decimal point
 Code: 01  WS-VALUE1 PIC 9(10) VALUE 2336440320. 01  WS-COMPUTED-VALUE PIC 9(02)V9(03).    01  WS-DOT-VALUE      PIC 9(02).9(03).           COMPUTE WS-COMPUTED-VALUE ROUNDED =                       (WS-VALUE1/3999999999)*100.               DISPLAY WS-COMPUTED-VALUE.                         MOVE WS-COMPUTED-VALUE TO WS-DOT-VALUE.           DISPLAY WS-DOT-VALUE.

you get
 Code: 58410    58.410
alluri12

New User

Joined: 15 Aug 2006
Posts: 44
Location: Virginia, USA

 Posted: Sat Feb 24, 2007 3:13 am    Post subject: Re: Compute Verb Thanks guys for replying so fast. It helps. Dick, you explaination was crystal clear... thankyou
dick scherrer

Site Director

Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

 Posted: Sat Feb 24, 2007 3:23 am    Post subject: You're welcome
William Thompson

Global Moderator

Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

Posted: Sat Feb 24, 2007 4:53 am    Post subject:

 dick scherrer wrote: With the implied and then the explicit decimal point
Dang, ya beat me to it...I was heading there, I was just fishing for confirmation.....

Good call!
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Extend the decimal values in DIVISION Balaryan DFSORT/ICETOOL 3 Thu Oct 05, 2017 4:05 pm Joinkeys with decimal scdinesh DFSORT/ICETOOL 3 Fri Feb 10, 2017 4:46 am ROUNDED Problem with COMPUTE statement shalem COBOL Programming 11 Thu Feb 09, 2017 8:16 pm Converting decimal to numeric using I... Balaryan DFSORT/ICETOOL 4 Thu Feb 02, 2017 11:27 pm Comparing Decimal and CHAR columns rakesh17684 DB2 7 Thu Oct 20, 2016 2:33 am

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us