Re: Converting Character Zoned Data to Numeric in SQL

Jerry,

Thanks for the info.

BTW, I also programmed on a Burroughs (a 7700, IIRC) many years ago
(also, don't ask), when I was helping a friend of mine at the
University. We coded in PL/1 and it really was a joy when someone
(mostly the system's operator) dropped our card stack just before
feeding it to the computer (no, no really...)

It has been many years since I have had to worry for zone and digits
portions of a field...

Regards,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries



On Mon, Oct 19, 2009 at 10:06 AM, Jerry Adams <Jerry@xxxxxxxxxxxxxxx> wrote:

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Luis Rodriguez

<snip>
BTW, in our system (V5R3) , a negative ZONED field registers as N.
</snip>

The displayed value (DSPPFM) of a signed field is a combination of the zone and digit portions of the byte.  The result, ergo, will depend upon the value of the digit portion since, for a negative value, the zone is always a 'D'.  On a display file panel, if one does not leave room for the sign on the right, the character value (J-R, }) will be displayed; otherwise, the numeric value will be displayed with the sign at the right.

I started out on a Burroughs system (don't ask) years ago.  The sign for numeric fields was LEFT justified (i.e., in the first byte whether packed or unpacked).  When we converted to a S/3, we had to write a program to convert the sign to the RIGHT most byte.


Jerry C. Adams
IBM System i Programmer/Analyst
--
B&W Wholesale
office: 615-995-7024
email:  jerry@xxxxxxxxxxxxxxx

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.