Robert Wright wrote:
PROC 0 EVALSYM X CLIST(POSITION(P) LENGTH(L) HEXADECIMAL) CBFORMAT X+&P POSITION(0) LENGTH(&L.) MODEL(<format-model-name>)
Of course the CLIST would work better if the CBFORMAT subcommand took into account that the length in variable L had been formatted using hexadecimal digits:
CBFORMAT X+&P POSITION(0) LENGTH(X'&L.') MODEL(<format-model-name>) Bob Wright - MVS Service Aids ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html