Functionality for converting exponential to Numerix format

pavanchandana · New User Joined: 05 Sep 2008 Posts: 15 Location: Hyderabad

Hi All,

Could some one help me with any functionality for converting exponential to Numerix format.

I am getting the input like -1.302e+06. If I handle it throw numeric data types, the job is failing with S0C-7 error.

could you please let me know the COBOL equivalent declartion for the above exponential values.

Thanks in advance
Pavan

Pandora-Box · Posted: Tue Jun 25, 2013 3:09 pm

Can you show input and output datatype and move statement with code tags on?

pavanchandana · New User Joined: 05 Sep 2008 Posts: 15 Location: Hyderabad

I have coded the logic to handle -1.30200 but today I got the value as -1.302e+06 in my input. I want to handle these exceptional cases as well. I did some research on this and found that we can declare the data type with E but I feel it wont work with the actual numeric values which are not having e+ in it.

These values are passed thru XML

Please help me

Akatsukami · Posted: Tue Jun 25, 2013 3:46 pm

Robert Sample · Posted: Tue Jun 25, 2013 4:47 pm

From what you have posted so far, your question cannot be answered. COBOL has two external floating point data types, COMP-1 and COMP-2, and which one you use depends upon the input data.

However, I suspect your problem is not with external floating point values, but with input data coming in as USAGE DISPLAY but having the exponent in the display format. What is the difference? -1.3206e+06 is in display format; the COMP-1 equivalent would be X'C613E048'. If this is the case, you will need to write your own code to determine how to computer the value including the exponent. Or, if you do not need the numeric value, just treat the data as alphanumeric text (PIC X).

Akatsukami · Posted: Tue Jun 25, 2013 6:51 pm

Pandora-Box · Posted: Tue Jun 25, 2013 7:04 pm

It is sad but true that inconsistencies are always been imposed to be fixed in MF

Robert Sample · Posted: Tue Jun 25, 2013 7:04 pm

Yes, I got internal and external mixed up. Trying too much multitasking, I suspect.

pavanchandana, you need to review the incoming data. If it is all one format (-1.3206e+06 for example) then you can handle the data via a PIC clause in COBOL. If there are multiple formats (1.27e+03 as well as -1.3206e+06 for example -- where the data values are not byte-for-byte aligned) then you will need to either (a) get the source to send you data in only one format, or (b) write your own code to determine the numeric value of the data you are getting. Oh, and your title is very misleading -- exponential data is numeric, just not numeric in an easily used format.