From:         Glenn Knickerbocker <[EMAIL PROTECTED]>
Organization: Strange Kin, Cent Luck Broker

'CALLPIPE (endchar ?)',
  '| *:',
  '| fo: fanout',
  '| p: predselect',
  '| *.output.0:',
  '? fo:',
  '| c: chop before string x'c2x(word),
  '| verify -1 x'c2x(xtable),
  '| p2: predselect',
  '| p:',
  '| *.output.1:',
  '? c:',
  '| locate',
  '| verify' length(word)+1 'x'c2x(xtable),
  '| p2:',
  '| fo:',
  '| p:'

Minor typo. The last
  '| fo:',
Should be:
  '? fo:',

The code below, I think, handles A(I)B(I). My rule is that if the
first (or last) character of the "word" is a word-separator, then
you do not need another word-separator before (or after) it.

-----------------------------------------------------------

if pos(left(word,1),xtable) > 0
then test_first = ''
else test_first =,
  '| verify -1 x'c2x(xtable)

if pos(right(word,1),xtable) > 0
then test_last = ''
else test_last = ,
  '| verify' length(word)+1 'x'c2x(xtable)

'CALLPIPE (endchar ?)',
  '| *:',
  '| fo: fanout',
  '| p: predselect',
  '| *.output.0:',
  '? fo:',
  '| c: chop before string x'c2x(word),
 test_first,
  '| p2: predselect',
  '| p:',
  '| *.output.1:',
  '? c:',
  '| locate',
 test_last,
  '| p2:',
  '? fo:',
  '| p:'

P.S. Is your middle name Stuart?

Alan Ackerman
Alan (dot) Ackerman (at) Bank of America (dot) com

Reply via email to