[CMS-PIPELINES] Locate Words

[John P. Hartmann]

 RE: Locate Words

 Take a copy of the stream, translate what is not a word character to
 blanks, split to words, and use PICK to find the word you're looking
 for.  Then use JUXTAPOSE to get the original record that was matched.

 pipe (end ?)
    ? cms listfile ...
    | rexx getfiles ID
    | locate 31-* /WORD/                           Just to pare it down
    | o: fanout
    | j: juxtapose
    ... whatever
    ? o:
    | xlate *-* 00-ff blank A-I A-I J-R J-R S-Z S-Z
    | split
    | pick w1 == /WORD/
    | chop 0
    | j:

     j.                                          [EMAIL PROTECTED]