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))
On Wed, 13 Jul 2005 23:20:26 +1000, ibm-main <[EMAIL PROTECTED]> wrote:
>From: "Mark Zelden"
>>
>> You left out a line of code (not sure why). x'FF' will also cause
>> problems.
>
>Straight cut-and-paste mate; maybe it's time I refreshed my copy of
IPLINFO.
>
>>
>> I think x'00' is valid also but I never change IPLINFO. If you
>> check the archives I think STK ..er SUN Paul (AKA gil) gave me
>> this alternative once:
>>
>> XLATE_NONDISP: /* translate non-display characters to a "." */
>> Return(translate( arg(1), left('',64,'.') xrange('40'x,'FF'x), ,
>> xrange('00'x,'FF'x) ) )
>
>I updated it after Eds post - figured I'd hold off and make sure no more
>PMRs came in.
>
>Shane ...
regards
Bruce Hewson
----------------------------------------------------------------------
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
