Path: utzoo!mnetor!uunet!lll-winken!lll-tis!ames!pasteur!agate!violet.berkeley.edu!steve
From: steve@violet.berkeley.edu (Steve Goldfield)
Newsgroups: comp.databases
Subject: Re: dBaseIII+
Message-ID: <8895@agate.BERKELEY.EDU>
Date: 18 Apr 88 21:40:54 GMT
References: <2413@mandrill.CWRU.Edu> <640@naucse.UUCP>
Sender: usenet@agate.BERKELEY.EDU
Reply-To: steve@violet.berkeley.edu.UUCP (Steve Goldfield)
Organization: University of California, Berkeley
Lines: 47
Keywords: dBaseIII+, Existential Quantifiers

In article <640@naucse.UUCP> wew@naucse.UUCP (Bill Wilson) writes:
#
#After setting your relations up, try the following:
#
#select 1
#accept 'Enter ID: ' to ID
#seek ID
#select 2
#if eof()
#  ? 'That ID is not in the second database.'
#endif
#
#This assumes that ID is a character field and that the files
#are indexed on ID for both.

I suspect that the above isn't what the questioner wanted.
Instead try (I'm assuming that dBASE III+ syntax is
similar to that of McMax).

select 1
Do while .not. eof()
  store id to idvar
  select 2
  find &idvar
  if .not. found()
    set print on
    ? idvar,' not in second database'
    set print off
  endif
  select 1
  skip
enddo
select 2
do while .not. eof()
  store id to idvar
  select 1
  find &idvar
  if .not. found()
    set print on
    ? idvar, ' not in first database'
    set print off
  endif
  select 2
  skip
enddo
set print on
  eject
set print off