Isn't this 16 numbers and You are doing sum on 15

//Lasse

-----Ursprungligt meddelande-----
Från: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> För ITschak 
Mugzach
Skickat: den 24 oktober 2019 15:19
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: [External] dfsort SUM processing

Rex,

x'F5' is a valid sign for (positive) ZD field. I already read this section, and 
the number to sum (all are the same) is valid ZD number.

ITschak

On Thu, Oct 24, 2019 at 4:15 PM Pommier, Rex <rpomm...@sfgmembers.com>
wrote:

> Just a wild guess here, is the SUM statement looking for a signed field?
>
> From the DFSORT manual:
> An invalid PD or ZD sign or digit results in a data exception (0C7 
> ABEND); 0-9are invalid for the sign and A-F are invalid for the digit. 
> For example, a ZDvalue such as 3.5 (X'F34BF5') results in an 0C7 
> because "." (X'4B') is treated as an invalid digit. ICETOOL's DISPLAY 
> or VERIFY operator can be used to identify decimal values with invalid 
> digits. ICETOOL's VERIFY operator can be used to identify decimal values with 
> invalid signs.
>
> Rex
>
> -----Original Message-----
> From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On 
> Behalf Of ITschak Mugzach
> Sent: Thursday, October 24, 2019 8:09 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [External] dfsort SUM processing
>
> the following situation return abend0c7:
> 1. sort fields=(1,4,ch,a,9,5,ch,a)
>    sum  fields=(245,15,ZD)
>    sum statement caused the abend. without sum, no issue.
>
> 2. run icetool verify and print. bothe ended with rc=0. print show 
> x'f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f5'
> with seems to be ok.
>
> why am I getting abend0c7?
>
> --
> ITschak Mugzach
> *|** IronSphere Platform* *|* *Information Security Contiguous 
> Monitoring for Legacy **|  *
>
> ----------------------------------------------------------------------
> 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 confidential, protected 
> from disclosure and may be legally privileged.  If the reader of this 
> message is not the intended recipient or an employee or agent 
> responsible for delivering this message to the intended recipient, you 
> are hereby notified that any disclosure, distribution, copying, or any 
> action taken or action omitted in reliance on it, is strictly 
> prohibited and may be unlawful.  If you have received this 
> communication in error, please notify us immediately by replying to 
> this message and destroy the material in its entirety, whether in electronic 
> or hard copy format.  Thank you.
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


--
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for 
Legacy **|  *

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to