cvthc in CLLE under OS V5R2 -- MIDRANGE-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Dear all,

I run folowing pgm and get dump, the OutHEXChar always return only first
char 1==>X'F1'. But if I use the other RPGLE cvthc version will get
normal result"F1F2F3F4F5F6F7F8F9F0".
Could someone help me to get the function work. Thanks a lot.

PGM                                                      
      Dcl &OutHexChar *CHAR 20                           
      Dcl &InChar *CHAR 10 '1234567890'                  
      Dcl &LenC   *CHAR 4                                
      Dcl &Len    *DEC  (10 0) 20                        
                                                         
      chgvar (%BIN(&LENC)) &Len                          
                                                         
      callPRC ('cvthc') Parm(&OutHexChar &InChar &LenC)  
      dmpclpgm                                           
                                                         
ENDPGM                                                                          
                  

                                                            Variables         
Variable           Type        Length             Value                       
                                                   *...+....1....+....2....+  
&INCHAR            *CHAR                10        '1234567890'                
&LEN               *DEC               10 0         20                         
&LENC              *CHAR                 4        '    '                      
&OUTHEXCHAR        *CHAR                20        'F1                  '      
                                         * * * * *   E N D   O F   D U M P    

Best regards

Vengoal

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.