Subject: Re: Cobole edtcde help From: Mike Apice Date: Sat, 15 Nov 2008 10:31:50 -0800 (PST) List-archive: List-help: List-id: COBOL Programming on the iSeries/AS400 List-post: List-subscribe: , List-unsubscribe: ,

Jon

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)

Results:
AMT/BATCH                 AMT/BATCH
FROM ESTUB              FROM BANK
==============       ===============
60000.00                      60000.00
110000.00                    110000.00
152525.00                    152525.00
50000.00                      50000.00
50000.00                      50000.00
50000.00                      50000.00

-- 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).

Jon Paris

www.Partner400.com
www.SystemiDeveloper.com

As an Amazon Associate we earn from qualifying purchases.