COBOL - LawsonGuru.com - LawsonGuru.com Forums

Name	Points
Greg Moeller	4184
David Williams	3349
JonA	3291
Kat V	2984
Woozy	1973
Jimmy Chiu	1883
Kwane McNeal	1437
Ragu Raghavan	1377
Roger French	1315
mark.cook	1244

Roger French

Veteran Member

Posts: 549

4/22/2020 6:49 PM

It's been a long while since I have posted anything to lawsonguru.

I'm doing a little bit of COBOL development within Lawson v10.

I'm writing a custom program. I have a sort file and a csv file. In the sort file I have defined it in workdef with some fields are of type "Signed" with length 11.2 (for example.

In my custom program data is correctly being written to with the "+" or "-" sign on the fields in the sort file.

If I try to define the CSV file with a signed field, the field actually comes out with something like "303030303.03" for any value in that field. If I define it numeric type, positive numbers are written correctly but negative numbers are missing the "-" sign in the field.

What will actually work in terms of getting a signed field in a CSV file? I've gone through some reviewing COBOL manuals and such but it doesn't seem to work.

Any tips or advise would be greatly appreciated. I am looking on how to actually get a signed number value correctly defined and working with a CSV work file. I am trying to write a signed numberic value to a CSV work file.

Thanks in advance,

Roger

Ragu Raghavan

Veteran Member

Posts: 477

4/22/2020 8:25 PM

I use CSV files all the time. The field is just declared as type = Signed and Size = 11.2 as in any other file. Here is the data in a file created by a dummy custom program:

"Text","Amt"
"LINE1",100.00
"LINE2",-201.98

Roger French

Veteran Member

Posts: 549

4/22/2020 9:38 PM

Yep, I agree, but the CSV values for the negative numbers are still coming out as:

303032323.93

For any number that is moved there, negative or not.

Example:

MOVE -13.55 TO WS-EXAMPLE.

MOVE WS-EXAMPLE TO WS-TEMP-EXAMPLE.

...

MOVE WS-TEMP-CSV-REC TO CSV-ZZ165CSV-REC.

PERFORM 800-WRITECSV-ZZ165CSV.

...

OPEN CSV FILE

DISPLAY CSV-EXAMPLE ---> 303032323.93

---------

Working Storage

02 WS-TEMP-CSV-REC

05 WS-EXAMPLE PIC S9(09)V99 VALUE ZEROES.

In the CSV work file definition I've got:

EXAMPLE SIGNED 11.2

Ragu Raghavan

Veteran Member

Posts: 477

4/22/2020 10:30 PM

The group move of WS-TEMP-CSV-REC to CSV-ZZ165CSV-REC may be the issue. When the COBOL shell is built, the numeric fields in the CSV file are built as COMP-3. In my example

000098 01 CSV-CSVFILE-REC.
000099 02 CSV-TEXT PIC X(70).
000100 02 CSV-AMT PIC S9(9)V9(2) COMP-3.

When you move S9(9)v99) to a field that is S9(9)v99 COMP-3, bits get moved in ways you do not expect.

Try moving values to the individual fields in the CSV file, for example, -13.65 to CSV-EXAMPLE .
Or try doing a bldsh, look at the Cobol code generated and match your WS layout to the CSV file layout you see in the .cbl file

Rajashanmugam

Basic Member

Posts: 18

6/18/2020 7:59 PM

I was in sam situation. All I did was initialize the fields to zeroes before moving/adding the values to CSV file fields and it worked.

Rajashanmugam

Basic Member

Posts: 18

6/29/2020 10:21 PM

I have another issue. I am working on a interface file. CSV file. I have to sort the data before I can write it to CSV file. I do it and when I move the sorted dollar amount to CSV file I get the similar numbers as described in the first post.

Number 2020681795023.67 is supposed to be -121500.00

I tried everything, initialization of variables, fields just before moving the numbers.

I tried moving the number -121500.00 directly to the field and they look fine in CSV file. But when I move the data from sort file, I get those gibberish numbers.

I have corrected those error s before by initializing the variables. But the program did not use any sort file in that.