Re: how to create unsigned hexadecimal initial value

This works too :

 DCL DD FLAG AUTO BIN(4) UNSGND INIT(X'80000000');


Jean Michel  Penasse
EXPERIA Europe
jmpenasse@experia.com
www.experia.com
________________________________
----- Original Message -----
From: "Leif Svalgaard" <leif@leif.org>
To: <MI400@midrange.com>
Sent: Wednesday, August 23, 2000 9:36 PM
Subject: Re: how to create unsigned hexadecimal initial value


> > The following won't compile giving error CPD6416, "Number was either too
> > large or negative."
> >
> > DCL DD FLAG AUTO BIN(4) UNSGND INIT(H"80000000");
> >
> > The following compiles okay but run-time fails with MCH1210, "Receiver
> > value too small to hold result."
> >
> > DCL DD FLAG AUTO BIN(4) UNSGND;
> > CPYNV FLAG, H"80000000";
>
> DCL DD FLAG AUTO BIN(4) UNSGND;
> CPYBRA FLAG, X'80000000';
>
> +---
> | This is the MI Programmers Mailing List!
> | To submit a new message, send your mail to MI400@midrange.com.
> | To subscribe to this list send email to MI400-SUB@midrange.com.
> | To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
dr2@cssas400.com
> +---

+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---