Re: Soc7 abend
> 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 -035.65 <-- this in wrong. The period doesn’t > belong here. It should be 03565 Thanks, Tom -Original Message- From: IBM Mainframe Discussion List 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 -035.65 > WS-VNDR-PACK-COST -0 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
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 -035.65 > WS-VNDR-PACK-COST -0 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
Re: Soc7 abend
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 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 -035.65 4CDD6EDCD6DCCD6CDEE46FFF4FF4 095705549071320362300035B650 --- WS-VNDR-PACK-COST -0 4EE6EDCD6DCCD6CDEE46F444 06205549071320362300 --- 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 4CCCE4E88489488A88A8848488A848A889A89944EAAA894C8A8994C9887F 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
Re: Soc7 abend
Looks like you included the whole record. Display numeric field seems to be: F...FFF4FF 0...035B65 > 05 INP-VNDR-PACK-COST PIC 9(9)V9(4). The x'4B' is a period character generated by a PIC 9(9).99. Can't have that in the data in order to perform math. Break it into 2 fields, dollars and cents then use the sum for math. Or modify the file to use implied decimal as your PIC 9(9)v99 instead of period character. On Thu, Jan 12, 2023 at 11:45 AM Ron Thomas wrote: > > 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 -035.65 > 4CDD6EDCD6DCCD6CDEE46FFF4FF4 > 095705549071320362300035B650 > --- > WS-VNDR-PACK-COST -0 > 4EE6EDCD6DCCD6CDEE46F444 > 06205549071320362300 > --- > > 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 > 4CCCE4E88489488A88A8848488A848A889A89944EAAA894C8A8994C9887F > 03553207203850282354045353354010413105735739650D2823540364735396503645E0 > > > Regards > Ron T > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Soc7 abend
ok Jay. so, what you say is if the definitions are as below then we should be good. The '-' sign is part of the variable name in spool display. 05 INP-VNDR-PACK-COST PIC 9(9)V9(2). 05 WS-VNDR-PACK-COST PIC S9(9)V9(2) COMP-3. Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Soc7 abend
Well, your declaration of the INP-VNDR-PACK-COST variable doesn't seem to match the actual data...the decimal point is in the wrong place (two characters to the right), and there's an undeclared minus sign... On Thu, Jan 12, 2023 at 11:45 AM Ron Thomas wrote: > 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 -035.65 > 4CDD6EDCD6DCCD6CDEE46FFF4FF4 > 095705549071320362300035B650 > --- > WS-VNDR-PACK-COST -0 > 4EE6EDCD6DCCD6CDEE46F444 > 06205549071320362300 > --- > > 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 > 4CCCE4E88489488A88A8848488A848A889A89944EAAA894C8A8994C9887F > 03553207203850282354045353354010413105735739650D2823540364735396503645E0 > > > Regards > Ron T > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Jay Maynard -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Soc7 abend
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 -035.65 4CDD6EDCD6DCCD6CDEE46FFF4FF4 095705549071320362300035B650 --- WS-VNDR-PACK-COST -0 4EE6EDCD6DCCD6CDEE46F444 06205549071320362300 --- 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 4CCCE4E88489488A88A8848488A848A889A89944EAAA894C8A8994C9887F 03553207203850282354045353354010413105735739650D2823540364735396503645E0 Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN