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
 

 

C2D cannot handle large values

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
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

new2cobol

New User


Joined: 04 Jan 2006
Posts: 77
Location: Bangalore

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.
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Sort Large record length cmsmoon DFSORT/ICETOOL 14 Tue Apr 11, 2017 5:49 pm
No new posts Edit large number of datasets (QSAM) zh_lad TSO/ISPF 3 Tue Apr 04, 2017 6:08 pm
No new posts Compare two files and subtract values ameetmund DFSORT/ICETOOL 7 Fri Mar 31, 2017 3:35 pm
No new posts Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am


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