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 

an even simpler example:

DCL DD XX CHAR(2) INIT(X'0000');              
CPYBLA XX,H'0003';  /* GIVES 0300, WRONG */   
CVTHC MSG-TEXT(1:4), XX;                      
CALLI SHOW-MESSAGE, *, .SHOW-MESSAGE;         
                                              
CPYBLA XX,X'0003';  /* GIVES 0003, OK */      
CVTHC MSG-TEXT(1:4), XX;                      
CALLI SHOW-MESSAGE, *, .SHOW-MESSAGE;         
                                              
RTX *;                                        
%INCLUDE SHOWMSG                              

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