Re: CLLE program turn a number into a HEX character value...

[CRPence <CRPbottle@xxxxxxxxx>]

  No mention made of release, for possible restrictions in declarations 
in CL, but since v5r4 the following should be possible; may or may not 
be considered "better", but is IMO more concise [though the original 
&valuein for dcl, init, and an assignment to &int2, which instead could 
be initialized in &int2]:

  /* Convert low-order byte of *int2 to hex digits */
  /* cvthc is documented in QSYSINC/MIH.CVTHC      */
  dcl &valuein    *dec   ( 3  0) value(201)
  dcl &int2       *int   ( 2   )
  dcl &lowordbyte *char  (    1) stg(*defined) defvar(&int2 2)
  dcl &hexdigits  *char  (    2)
  chgvar &int2 &valuein /* no sanity check to ensure *LT 256 */
  callprc prc('cvthc' ) +
    parm((&hexdigits) (&lowordbyte) (x'00000002' *byval))

Regards, Chuck

On 08 Jun 2012 14:42, Gqcy wrote:
> I want the number 201 to wind up as "C9"
>
> This "works":
>
> DCL VAR(&VALUEIN) TYPE(*DEC) LEN(3 0) VALUE(201)
> DCL VAR(&HEXVALUE) TYPE(*CHAR) LEN(2)
> DCL VAR(&HEXVALUE2) TYPE(*CHAR) LEN(256)
> DCL VAR(&HEXVALUE3) TYPE(*CHAR) LEN(2)
> DCL VAR(&HEXPOS) TYPE(*dec) LEN(3 0)
>
> CHGVAR VAR(%bin(&HEXVALUE)) VALUE(&VALUEIN)
> CVTHEX VALUE(&HEXVALUE) LEN(2) TYPE(B) +
> EX(&HEXVALUE2) HEXPOS(&HEXPOS)
> CHGVAR VAR(&HEXVALUE3) VALUE(%sst(&HEXVALUE2 3 2))
>
> But I am sure there is a better way (Late Friday afternoon brain
> lock).