Peter Ten Eyck wrote:
Enterprise COBOL 3.4.1 on z/OS 1.7
The following does not abend:
..
..
..
01 FIELD-1 PIC 9(3).
01 FIELD-2 PIC 9(3) COMP-3.
..
..
..
MOVE FIELD-1 TO FIELD-2.
..
..
..
Note: Prior to the move FIELD-1 contains "86 " thats F8F640
What COBOL or LE option(s) do I need to change to make this code abend?
I don't think you'll be able to get that to abend. You
might try using IF FIELD-1 NUMERIC ...
or
define FIELD-1 with JUSTIFY RIGHT
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-393-8716
http://www.trainersfriend.com
z/OS Application development made easier
* Our classes include
+ How things work
+ Programming examples with realistic applications
+ Starter / skeleton code
+ Complete working programs
+ Useful utilities and subroutines
+ Tips and techniques
----------------------------------------------------------------------
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
