/*%NOCOMMENT rexx */
address TSO "CLEAR"
MBRLIST = "**FOO  AGOSTHYT BRTYUSDF IGZBARK IGZNEXT IKJEFT01 ZAMBONI"
tags  = " ** IGZ IKJ"
do while mbrlist <> ""
   parse var mbrlist mbr mbrlist
   do zz = 1 to Words(tags)
      if Abbrev(mbr,Word(tags,zz)) then leave zz
   end /* zz */
   if zz <= Words(tags) then,
      say mbr "matched tag" Word(tags,zz)
   else say mbr "mismatched"
end