RE: Compiling Errors - Record Contains

[Dave Boettcher <DBoettch@xxxxxxxxxxxxxxxx>]

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
I think this is also reflected in the dump you posted earlier
CT-TRANSACTION-AMOUNT       000043  PACKED(9,2)
                                  **INVALID DATA  '0045678F40'X

I have never seen a hex 40 after the F in a packed field.  this would lead
me to believe that a definition is wrong or that there is **INVALID DATA in
the field.

Dave Boettcher

-----Original Message-----
From: Leif Svalgaard [mailto:leif@leif.org]
Sent: Monday, July 29, 2002 2:11 PM
To: cobol400-l@midrange.com
Subject: Re: Compiling Errors - Record Contains


From: Eric Tubbs <eatubbs@email.com>
> 0012.00   A    TRANSAMT     7P 2  ALIAS (CT_TRANSACTION_AMOUNT)
> 0038.00            05  CT-TRANSACTION-AMOUNT       PIC 9(7)V99
PACKED-DECIMAL.
> 0051.00            05  DL-TRANSACTION-AMOUNT       PIC 9(07).99.
and from the pritner chart: $ZZ,ZZ$.99

===> I have been trying to point out several times (unsuccessfully it seems)
that your
DDS (7P 2) is not compatiblel with your pictures (9(7)V99 and 9(07).99).
Go back and read my postings on this. But here is one more try:
Working backwards from the $ZZ,ZZ$.99 (which I think should be $ZZ,ZZ9.99),
it
seems that you have 5 positions before the point and 2 after the point. That
would
make the DDS 7P 2 and the COBOL pictures 9(5)V99 and 9(07).99.




_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
or email: COBOL400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.