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

[Gqcy <gmufasa01@xxxxxxxxx>]

sorry,
CVTHEX is a TAATOOL command...

I was afraid there was some method in one or two CHGVAR's to pull this 
off...



On 6/8/2012 4:49 PM, Scott Klement wrote:
> I've not heard of a CVTHEX CL command. That must be something unique to
> your shop?
>
> But, you say your code works, so I don't understand what else you'd like
> to discuss about it? I could offer the cvthc routine as an alternative,
> but I'm not sure that I'd call it "better."
>
> -SK
>
>
>
> On 6/8/2012 4:42 PM, 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).