Gnucobol read number with decimal point with

Question

0.00/5 (No votes)

See more:

I'm learning COBOL. I have a text file with a numeric field that has a decimal point in it. I have defined the field as PIC 9(5)V99. When a record is read and the field as a decimal point it I get this error not numeric: '.00 '. But if I remove the decimal point from the field in that record, there is not an error. I don't have the option to request a file without the decimal point in that field.

What I have tried:

I tried using PIC 9(5).99. But then I get the compiler error

field is not a numeric value

This is not a problem using Microfocus cobol.

Posted 2-Jun-17 16:43pm

JohnnyG62

Updated 3-Jun-17 1:24am

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

RAMASWAMY EKAMBARAM · Answer 1 · 2017-06-03T01:24:00

Declaring your variable type as PIC 9(5).99 seems perfectly legal - why should the compiler flag an error!

But if you had
myvar pic 9(5)V99
the 'V' is only an implied decimal point - variable myvar can hold only digits.
Coding: move 147.25 to myvar - this will set myvar to 0014725 and if you wrote this to a text file the contents would be 0014725 and not 147.25.

I can suggest a VERY UGLY solution but it may (mostly will) work.

in
data division.
working-storage section.
01 file-buffer pic x(8) justified right.
01 r-file-buffer redefines file-buffer.
10 f-int-part pic 9(5).
10 filler pic x
10 f-fract-part pic 99.

01 numvar pic 9(5)V99.
01 r-numvar redefines numvar.
10 numvar-int pic 9(5).
10 numvar-fract pic 99.

procedure division.
read myfile into file-buffer.
move f-int-part to numvar-int.
move f-fract-part to numvar-fract.

It's 20+ years since I did anything in COBOL.