Re: Hex Literals in CL

[Richard Baird <rbbaird@xxxxxxxxxxx>]

I don't believe can do it in an IF statement, but if you are trying to
avoid declaring a variable for every different hex value, you can do the
same thing with a CHGVAR command.  It's still the same number of lines,
but only one variable.

ie:     DCL  &HEXVAL *CHAR  2
  
        CHGVAR VAR(&HEXVAL) VALUE(X'F021')
        IF  (&FIELD = &HEXVAL) THEN(DO)

.......

        CHGVAR VAR(&HEXVAL) VALUE(X'F022')
        IF  (&FIELD = &HEXVAL) THEN(DO)

hth,

rick

Qile wrote:
> 
> Does anyone else know of a way to specify hexadecimal literals in CL for
> example I would like to do the following:
> 
> IF   (&FIELD = X'F021') THEN(DO)
> 
> But I can find no way of doing this directly, I have to specify a field
> initialized to the hex value and then compare against the field:
> 
> DCL  &XF021  *CHAR  2  VALUE(X'F021')
> 
> IF  (&FIELD = &XF021) THEN(DO)
> 
> Does anyone know of an easier workaround or if this omission will ever be
> enabled in CL?
> 
> Thanks!
> -Paul Jackson
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---