/* Test Telebase */

call addlib 'rexxsupport.library', 0, -30, 0

/*  getargs Make this work... eh? */

do forever
   compress(FNAME)
   len = length(argument)
   res = compare(left(FNAME,len), left(argument, len) )

   if res = 0 then TAG
   NEXT
   GetVar
   if recordnum=numrecords then exit
END