Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
C2D cannot handle large values

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
Author Message
rexxy

New User


Joined: 19 Apr 2006
Posts: 1

PostPosted: Wed Apr 19, 2006 8:13 pm    Post subject: C2D cannot handle large values
Reply with quote

Hi,
I am trying to convert a comp value to decimal value. when the value in the file is small i am able to convert it, but when its big (more than 9 digits) i am getting error saying incorrect call to routine. Below is my code where i do the core processing. Can someone help me out.
Does C2D have any limitation.

LEN = COL2 - COL1 + 1
"(DATA1) = LINE "CURRLN /* DATA1 = CURRENT LINE */
DATA3 = SUBSTR(DATA1, COL1, LEN)
B2D:
DATA2 = C2D(DATA3,LEN)
DATA2 = LEFT(HEX,LENGTH(HEX)) */
DATA1 = INSERT(DATA2, DATA1, COL1)
"LINE" CURRLN " = (DATA1)"

OR-BINARY2
4/BI
(63-66)
10---------
***********
0
-32768
-2147483648 - not correctly showing
858993452
32767
Back to top
View user's profile Send private message
References
new2cobol

Active User


Joined: 04 Jan 2006
Posts: 70

PostPosted: Thu Apr 20, 2006 2:29 am    Post subject: Re: C2D cannot handle large values
Reply with quote

I think you need to set the NUMERIC DIGITS or NUMERIC FUZZ before your code.

use this link [url] for more info...
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1