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

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).