[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [open-cobol-list] About the Overflow(Underflow)
|
From: |
Peg |
|
Subject: |
Re: [open-cobol-list] About the Overflow(Underflow) |
|
Date: |
Wed Jun 1 04:10:46 2005 |
|
User-agent: |
Mozilla Thunderbird 1.0.2 (Windows/20050317) |
Hello Alain Lucari,
Thank you for the reply.
Try something like :
WORKING-STORAGE SECTION.
77 wz1 pic 99 value 97.
PROCEDURE DIVISION.
DEBUT.
add 1 to wz1 on size error display "too much " wz1 "+1" go to finpro.
go to debut.
finpro.
stop run.
this works perfectly as expected.
Yes, this works perfectly.
One of the problems that I say
The result is different because of
"COMPUTE" and "SUBTRACT" why.
WORKING-STORAGE SECTION.
01 DATA1 PIC 9(2) VALUE 5.
01 DATA2 PIC 9(2) VALUE 5.
PROCEDURE DIVISION.
COMPUTE DATA1 = DATA1 - 1.
SUBTRACT 1 FROM DATA2.
DISPLAY DATA1 DATA2.
$ cobc TESTFLOW.COB -free -std=mf
--
Peg, PegStyle mailto:address@hidden
http://members8.tsukaeru.net/pegstyle/
(OpenCOBOL Cygwin/MinGW Binary Download Site.
But Japanese Page Only)