|
View previous topic :: View next topic
|
| Author |
Message |
aedesy
New User
Joined: 11 Feb 2022
Posts: 6
Location: ITALY
|
|
|
|
Hi,
I have a CSV input file. I read it with UNSTRING. I am trying to move some alphanumeric fields to numeric fields by using FUNCTION NUMVAL.
Here is an example:
Input record:
| Code: |
| ...12/01/2020;300.000;... |
'300.000' is stored into WK-IMPORTO.
COBOL code:
| Code: |
...
05 INCC-IMPORTO PIC 9(13)V999.
...
01 WK-IMPORTO PIC X(16).
...
COMPUTE INCC-IMPORTO = FUNCTION NUMVAL(WK-IMPORTO) |
I get this error:
'IGZ0152S Invalid character . was found in column 4 in argument-1 for function NUMVAL...'.
I also tried with INSPECT, replacing '.' with ',' but same error. But it works with OpenCOBOL. I really did not understand. Could someone explain? Thanks in advance. |
|
| Back to top |
|
 |
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8661
Location: Dubuque, Iowa, USA
|
|
|
|
With what you've posted, it looks like it should work. However, some questions do come up:
- What release of the compiler are you using?
- What does a DISPLAY of WK-IMPORTO just before the COMPUTE statement show?
Broadly speaking, the computer is telling you that the fourth character of your WK-IMPORTO variable is not valid for NUMVAL. So you need to take a very close look at that variable's value to determine why the computer made that determination.
Oh, and it doesn't matter what OPENCOBOL did with the statement -- unless you don't want to use Enterprise COBOL for this program. |
|
| Back to top |
|
|
aedesy
New User
Joined: 11 Feb 2022
Posts: 6
Location: ITALY
|
|
|
|
Hi, thanks for your answer. The DISPLAY of the field is showing '300.000' and the release of compiler is '5655-EC6'. I tried to use HEX ON for help:
| Code: |
24/05/2019;300.000;
FF6FF6FFFF5FFF4FFF5
2410512019E300B000E |
I don't see any particular issue. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10838
Location: italy
|
|
|
|
IMO there is a misunderstanding about the meaning of 300.000
for non english speaking countries dealing with national number representation needs a
| Quote: |
DECIMAL-POINT IS COMMA clause
DECIMAL-POINT IS COMMA
Exchanges the functions of the period and the comma in PICTURE character-strings and in numeric literals. |
|
|
| Back to top |
|
|
aedesy
New User
Joined: 11 Feb 2022
Posts: 6
Location: ITALY
|
|
|
|
Hi. I did try again with
| Code: |
| INSPECT WK-IMPORTO REPLACING ALL '.' BY ',' |
and it seems to work until it finds numbers like that: '4.826.100'
Here is the output:
| Code: |
IMPORTO : 300,000
IMPORTO : 264,000
IMPORTO : 837,000
IMPORTO : 131,450
IMPORTO : 4,826,100
IGZ0152S Invalid character , was found in column 6 in argument-1 |
I think I should try with different INSPECT options. |
|
| Back to top |
|
|
aedesy
New User
Joined: 11 Feb 2022
Posts: 6
Location: ITALY
|
|
|
|
| Seems to work using by NUMVAL-C function. Thanks. |
|
| Back to top |
|
|
AlanW2
New User
Joined: 14 Sep 2022
Posts: 1
Location: United States
|
|
|
|
| I don't have access to the code anymore but at one site we wrapped the NUMVAL function in its own small cobol routine and it trapped any NUMVAL exceptions and instead returned a status. The nice thing there is that NUMVAL was the ONLY editing performed against numbers from outside sources. No inspects, no other checking of content. If NUMVAL was happy, the number was considered good. It was done in a way where other exceptions for unrelated reasons could still be raised. I do recall that the proper CEE3 routine and a code sample was found during a google search. It all worked very well. |
|
| Back to top |
|
|
|
|
