home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / databases / telebase2.6.lha / TBase_rexx.lha / tb.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-04-14  |  300 b   |  17 lines
  1. /* Test Telebase */
  2.  
  3. call addlib 'rexxsupport.library', 0, -30, 0
  4.  
  5. /*  getargs Make this work... eh? */
  6.  
  7. do forever
  8.    compress(FNAME)
  9.    len = length(argument)
  10.    res = compare(left(FNAME,len), left(argument, len) )
  11.  
  12.    if res = 0 then TAG
  13.    NEXT
  14.    GetVar
  15.    if recordnum=numrecords then exit
  16. END
  17.