Re: Cobole edtcde help -- COBOL400-L

Subject: Re: Cobole edtcde help
From: Jon Paris <Jon.Paris@xxxxxxxxxxxxxx>
Date: Sat, 15 Nov 2008 12:28:24 -0500
List-archive: <http://archive.midrange.com/cobol400-l>
List-help: <mailto:cobol400-l-request@midrange.com?subject=help>
List-id: COBOL Programming on the iSeries/AS400 <cobol400-l.midrange.com>
List-post: <mailto:cobol400-l@midrange.com>
List-subscribe: <http://lists.midrange.com/mailman/listinfo/cobol400-l>, <mailto:cobol400-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/mailman/listinfo/cobol400-l>, <mailto:cobol400-l-request@midrange.com?subject=unsubscribe>

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.

Follow-Ups:

Re: Cobole edtcde help , Mike Apice

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.