/*******************************************************************/
/*     (c)  Copyright   Roger Lacroix  1992                         |
|                                                                   |
|  Designed, developed and programmed by Roger Lacroix              |
+------------------------------------------------------------------*/
/* Display only those lines which contain the input 'string'       */
ISREDIT MACRO (STRING1 STRING2 STRING3)
  ISREDIT EXCLUDE ALL
  ISREDIT FIND  &STRING1 ALL
  IF &STRING2 ª= &STR()  THEN -
    ISREDIT FIND  &STRING2 ALL
  IF &STRING3 ª= &STR()  THEN -
    ISREDIT FIND  &STRING3 ALL
  ISREDIT (ROW,COL) = CURSOR
  ISREDIT CURSOR = &ROW 0
EXIT CODE (0)