/*******************************************************************/ /* (c) Copyright Roger Lacroix 1992 | | | | Designed, developed and programmed by Roger Lacroix | +------------------------------------------------------------------*/ /* Find a character string (label) in columns 1 thru 10. */ ISREDIT MACRO (STRING1) ISREDIT FIND &STRING1 ALL 1 10 ISREDIT UP 5 EXIT CODE (0)