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 <[email protected]> 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 -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 > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] 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 [email protected] with the message: INFO IBM-MAIN
