A little word of warning... Mark, I ass/u/me that your change is for IPLINFO. You're using I as the loop control variable - which Shane is using for his outer loop in his ECVTCTBL REXX.
So, if you do something stupid like I did, and paste the code below into Shane's REXX, you'll wind up with a wonderful, almost IEFBR15-like, effect. (Shane's using J for his loop variable.) Later, Ray -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Mark Zelden Sent: Wednesday July 13 2005 06:38 To: [email protected] Subject: Re: CSRCTABL pointed by ECVTCTBL On Tue, 12 Jul 2005 17:45:00 -0700, Edward E. Jaffe <[EMAIL PROTECTED]> wrote: > >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. > Ed, thanks for the clarification (x'00'). What about on real 3270 terminals. Will x'00' cause a program check? At any rate... here is the slight modification to the REXX code so it is not erroneous: XLATE_NONDISP: /* translate non-display characters to a "." */ Arg XLATEPRM XLATELEN = Length(XLATEPRM) /* length of parm passed to routine */ Do I = 1 to XLATELEN /* check each byte for */ If (Substr(XLATEPRM,I,1) > '00'x & , /* non-display characters */ Substr(XLATEPRM,I,1) < '40'x ) | , /* and replace each */ Substr(XLATEPRM,I,1) = 'FF'x then , /* character that */ XLATEPRM = OVERLAY('.',XLATEPRM,I) /* is non-displayable */ End /* with a period (.) */ Return XLATEPRM Mark -- Mark Zelden Sr. Software and Systems Architect Zurich North America and Farmers Insurance Group mailto: [EMAIL PROTECTED] Systems Programming expert at http://Search390.com/ateExperts/ Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- 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
