Apologies for an HTML reply to a plain-text message, but it was necessary. I converted your spool display lines to a fixed-pitch font to try to maintain alignment of the characters and the hex representation.
Note that your input value seems to have an actual period (X’4B’ character) and an actual minus sign (X’60) in it. In COBOL you have to define such an input as PIC -9(9).V9(4) (i.e., including the period and the minus sign) and I am not sure if current COBOL releases allow you to move a “numeric edited” variable (one that has the period and/or minus sigh and/or currency symbols, etc.) to a packed (or any other numeric-only) variable. If the input actually has periods and plus or minus signs you may have to use the UNSTRING verb to pick them apart or the COBOL intrinsic function NUMVAL to do the move, like: MOVE FUNCTION NUMVAL (INP-VNDR-PACK-COST) TO WS-VNDR-PACK-COST HTH Peter -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Ron Thomas Sent: Thursday, January 12, 2023 12:46 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Soc7 abend EXTERNAL EMAIL Hi Listers I was looking a Cobol code module developed and we ran in to a sco7 issue. I am not able to figure why this is abending. Any help to fix is much appreciated. Here is the spool display i have captured. 05 INP-VNDR-PACK-COST PIC 9(9)V9(4). 05 WS-VNDR-PACK-COST PIC S9(9)V9(4) COMP-3. INP-VNDR-PACK-COST -00000000035.65 4CDD6EDCD6DCCD6CDEE46FFFFFFFFFFF4FF4444444444444444444444444444444444444 09570554907132036230000000000035B650000000000000000000000000000000000000 ----------------------------------------------------------------------- WS-VNDR-PACK-COST -0000000000000 4EE6EDCD6DCCD6CDEE46FFFFFFFFFFFFF444444444444444444444444444444444444444 062055490713203623000000000000000000000000000000000000000000000000000000 ----------------------------------------------------------------------- MOVE INP-VNDR-PACK-COST TO WS-VNDR-PACK-COST ---------------------------------> Here it is failing CEE3207S The system detected a data exception (System Completion Code=0 4CCCFFFFE4E884AAAA89488A88A8848488A848A889A89944EAAA894C99998A8994C9887F 03553207203850282354045353354010413105735739650D2823540364735396503645E0 Regards Ron T -- This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
