> 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 <-- this in wrong. The period doesn’t > belong here. It should be 0000000003565 Thanks, Tom -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of John Pratt Sent: Thursday, January 12, 2023 9:12 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Soc7 abend Hi Ron, > 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 > WS-VNDR-PACK-COST -0000000000000 Something looks amiss to me as your displays(?) of the two fields do not match their PICtures. Also, I'm guessing you set hex on in SDSF though cannot imagine why you'd think this would help solve the data exception abend. Perhaps consider showing details from a dump or possibly using Abend-Aid or Fault Analyzer or some other abend analysis tool that you may have available. John. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information contained in this message is proprietary and/or confidential. If you are not the intended recipient, please: (i) delete the message and all copies; (ii) do not disclose, distribute or use the message in any manner; and (iii) notify the sender immediately. In addition, please be aware that any message addressed to our domain is subject to archiving and review by persons other than the intended recipient. Thank you. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN