You might use a Compute Statement to force an abend if unsigned data, if you don't want to do a Numeric check. Not sure this will do what your asking but it might.
Compute Field-2 = Field-1. Darren -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Peter Ten Eyck Sent: Monday, October 15, 2007 11:34 AM To: [email protected] Subject: COBOL move statement issue 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? ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- 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
