Re: What counts as technically s

not slick, just dangerous. The way I put it, it is obvious that the answer
is 2 (unsigned). However the real life case that bit me had XX hidden
in a COPY book.

Here is another real case:
02 XXX PIC S9(9) COMP-4 VALUE 123456789.
02 ZZZ  PIC S9(6) COMP-4 REDEFINES XXX.
MOVE ZZZ TO ZZZ



----- Original Message -----
From: <D.BALE@handleman.com>
To: <MIDRANGE-L@midrange.com>
Sent: Friday, April 06, 2001 4:35 PM
Subject: Re: What counts as technically s


> O.k. Leif, I'll bite.  What's so slick about that?  I gather that you don't
> end up displaying '2'?  (5 - 7 = -2, but XX is unsigned, so it = 2?)
>
> Dan Bale
> IT - AS/400
> Handleman Company
> 248-362-4400  Ext. 4952
> D.Bale@Handleman.com
>   Quiquid latine dictum sit altum viditur.
>   (Whatever is said in Latin seems profound.)
>
> -------------------------- Original Message --------------------------
> From: Buck Calabro <Buck.Calabro@commsoft.net>
> > James Kilgore gave a great example of something that's too slick (the old
> > MDY-YMD date multiply trick.)  Are there any other contributions?
>
> in COBOL:
> 02 XX PIC 9(4).
> 02 YY  PIC S9(4) VALUE 7.
> 02 ZZ  PIC S9(4) VALUE 5.
> ...
> COMPUTE XX = ZZ - YY
> DISPLAY XX
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---