Can someone help?
I'm trying to read a money field into a db2 record and DB2 IS not accepting the format.
I'm writing a cobol program to load the data from a file to populate db2 tables.
The data coming in is on a fixed-length file.
When I do a DISPLAY before I move the field to the record,
It looks like this: 000500.00
After moving this to the record, it loses the decimal point and inserts a blank space instead,
It looks like this: 000005000 000
The incoming field is declared as pic x(9) and I've tried moving it to working-storage first separating the decimal parts but db2 still won't accept the format.
The db2 field to accept the input is defined as pic s9(11)v9(2) comp-3.
Here are my moves:
MOVE GIVE-GIVE-AMT TO WS-GIVE-AMT.
/* MOVE TO WORKING STORAGE
MOVE WS-GIVE-AMT TO GG01-GIVE-AMT.
/* MOVE TO THE DB2 RECORD
Thanks in advance.