On Feb 5, 2008 3:43 PM, Bob Cronin <[EMAIL PROTECTED]> wrote:
> Yes I was looking for the inverse operation. My first inclination was the
> fblock 1, lookup solution, but thought I'd troll here to see if there was
> some built-in I was unaware of. The change cascade is interesting, although
> somewhat less elegant than I'd hoped for.
It would probably be less than a page of PL/j to code this, and would
be very fast... but when there's a will, there's a pipeline...
unsafe = '% <>"#{}|\^~[]`;/?:@=&'
xxsafe = 'x'c2x(unsafe)
'callpipe (end \ name BC2.REXX:7)',
'\ *: ',
'| insert x15 after',
'| split before anyof' xxsafe,
'| split after anyof' xxsafe,
'| x: if not verify' xxsafe,
'| spec ,%, 1 1 c2x n',
'| x:',
'| deblock linend terminate',
'| *:'
Rob
