Hex Literals in CL

[Qile <Qile@xxxxxxx>]

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
+---