The do-loop at the beginning of your code is unnecessary. The z/OS TSO/E
REXX Reference says this about the "tablei" parameter (your "from"
variable):
tablei defaults to XRANGE('00'x,'FF'x)
So you could eliminate the "from" variable entirely and use only
"translate(Arg(1),to)".
HTH
Peter
-----Original Message-----
From: Bruce Hewson [mailto:[EMAIL PROTECTED]
Sent: Thursday, July 14, 2005 1:12 AM
To: [email protected]
Subject: Re: CSRCTABL pointed by ECVTCTBL
Maybe not so small, But I use this procedure:-
/*===================================================================*/
Readable: Procedure
from = ""
Do i = 0 to 255
from = from || X2c(D2x(i))
End
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,from)
/*===================================================================*/
Example:
Say " TCBuser..."tcbuser Readable(Storage(tcbuser,32))
_
This message and any attachments are intended only for the use of the addressee
and
may contain information that is privileged and confidential. If the reader of
the
message is not the intended recipient or an authorized representative of the
intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication in
error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
----------------------------------------------------------------------
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
