easiest to tell from the generated code but I suspect the cause is the lack
of sign for pic 999. COBOL seems to force the sign to x'Fx' before it adds
or subtracts anything.
77 COUNTERX PIC 999 VALUE 0.
01 BAD-NUMBER PIC 999.
01 BAD-SPACE REDEFINES BAD-NUMBER PIC XXX.
--
Mike
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
