Thanks for the quick response. This is still driving me crazy.
I tried your suggestion and it is stlil not riight.
WS-DEPOSITAMT-E PIC 9(10)V9(2) VALUE 0.
WS-DEPOSITAMT-W PIC 9(10)V9(2) VALUE 0.
WS-DEPOSITAMT-D PIC 9(10)V9(2) VALUE 0.
AMTCHKESTU 12 2 40EDTCDE(3)
AMTCHKWACH 12 2 57EDTCDE(4)
AMTCHKDIFF 12 2 74EDTCDE(K)
FROM ESTUB FROM BANK
-- On Sat, 11/15/08, Jon Paris <Jon.Paris@xxxxxxxxxxxxxx> wrote:
From: Jon Paris <Jon.Paris@xxxxxxxxxxxxxx>
Subject: Re: [COBOL400-L] Cobole edtcde help
To: "COBOL Programming on the iSeries/AS400" <cobol400-l@xxxxxxxxxxxx>
Date: Saturday, November 15, 2008, 12:28 PM
On 15-Nov-08, at 11:36 AM, Mike Apice wrote:
WS-DEPOSITAMT-E DETAIL = 000000060000
DETA01-O A = 000010000200001000006000000
The ws field has 7 zeroes and then 60000, the output has 5 zeroes
and then 6000000
The Ws field is correct, The amount is 600.00
Both fields are correct. The WS field has no implied decimal point,
so to use the notation of the DETA field it is a 12 0 - not a 12 2 as
the DETA field is.
You have two options - either define the WS field correctly - in this
case it should be PIC 9(10)V9(2). If for some reason that is not
possible, then redefine the field i.e. WS-With-Decimals redefines WS-
DEPOSIT... Pic 9(10)V9(2).
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.