HP3000-L Archives

May 2008, Week 3

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Cobol Question
From:
Duane Percox <[log in to unmask]>
Reply To:
Duane Percox <[log in to unmask]>
Date:
Fri, 16 May 2008 11:26:50 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (23 lines) 
Michael writes:

>Here's the question: In the following example an IF statement
>
>"IF MYTEST <> 0" (IT IS TRUE),
>then when MYTEST is moved to Disp-Total it displays 0.0000
>What am I missing here?
>
> 01 MYTEST PIC S9(14)V9(4) COMP-3 VALUE 0.
> 01 CREDIT PIC S9(14)V9(4) COMP-3 VALUE 0.
> 01 DEBIT  PIC S9(14)V9(4) COMP-3 VALUE 0.
> 01 Disp-Total         Pic ---------9.9999.
> 01 TRANST-AMOUNT PIC S9(9)V99.
[snip]

Your 'disp-total' variable doesn't have enough '-' to display
the total size of your possible out-of-balance value...

duane

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2