Re: how to create unsigned hexadecimal initial value

["Leif Svalgaard" <leif@xxxxxxxx>]

From: <rjd@us.ibm.com>
> In my opinion, the PRM is working as designed. 
> it may not be clear that H literals describe signed values

it may not be clear to the PRM/translator either.

If H literals were signed then the value of H'FF' should be -1.
The following little program (signed FLAG):

DCL DD FLAG AUTO BIN(4) INIT(H'FF');  
         DCL DD XXXX CHAR(4) DEF(FLAG);        
CVTHC MSG-TEXT(1:8), XXXX;   
CALLI SHOW-MESSAGE, *, .SHOW-MESSAGE;

should then show FFFFFFFF, but here is the result:
 
 Type reply (if required), press Enter.                                   
   From  . . . :   LSVALGAARD     08/25/00   05:41:48                     
   000000FF

So, clearly H'FF' has the value 255 instead of -1
hence is unsigned.



+---
| 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
+---