Hi
Thank you very much , I'm using the routine bellow, to display MQ
messages as text, and with "c2x" as hexa string
Perfect , thank you again .
On 1/19/2011 2:41 PM, Paul Gilmartin wrote:
On Wed, 19 Jan 2011 04:15:39 -0600, Bruce Hewson wrote:
Actually, this can be shortened to:
Readable: Procedure
to = "................"
to = to || "................"
to = to || "................"
to = to || "................"
to = to || " ...........<(+|"
to = to || "&.........!$*);¬"
to = to || "-.........\,%_>?"
to = to || "..........:#@'="""
to = to || ".abcdefghi......"
to = to || ".jklmnopqr......"
to = to || "..stuvwxyz......"
to = to || "................"
to = to || ".ABCDEFGHI......"
to = to || ".JKLMNOPQR......"
to = to || "./STUVWXYZ......"
to = to || "0123456789......"
Return Translate(Arg(1),to)
FSVO "printable". Brackets? Braces? Caret? Tilde?
I couldn't live without most of those; I use them daily.
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html