Shane Ginnane wrote:
If Substr(XLATEPRM,J,1) < '40'x then , /* and replace each char */
FYI. This test is incomplete/erroneous. The valid characters for modern 3270 devices are x'00' and x'40' through x'FE' inclusive. x'01' through x'3F' and x'FF' will cause PROGxxx failures.
-- ----------------------------------------------------------------- | Edward E. Jaffe | | | Mgr, Research & Development | [EMAIL PROTECTED] | | Phoenix Software International | Tel: (310) 338-0400 x318 | | 5200 W Century Blvd, Suite 800 | Fax: (310) 338-0801 | | Los Angeles, CA 90045 | http://www.phoenixsoftware.com | ----------------------------------------------------------------- ---------------------------------------------------------------------- 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