home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / PMCARD.ZIP / DETECT1.PRG < prev    next >
Text File  |  1990-09-24  |  987b  |  18 lines
  1. ? "Duplicate Record Key Checker"
  2. ACCEPT "Enter database name " TO dbn        && Input database name.
  3. USE &dbn                                    && Open database.
  4. ACCEPT "Enter field name " TO fld           && Input name of field
  5. INDEX ON &fld TO tempndx                    && Index database on field.
  6. DO WHILE .NOT. EOF()                        && Search through database.
  7.    oldval = &fld                            && Save field value.
  8.    oldrec = recno()                         && Save record number.
  9.    SKIP                                     && Skip to next record.
  10.    IF .NOT.EOF() .AND. oldval = &fld        && Compare the field values.
  11.       ? "  Record " + LTRIM(STR(recno()))   && Print message if the same
  12.       ?? " Matches " + LTRIM(STR(oldrec))   && Print record numbers
  13.       ?? ".  Value = "
  14.       ?? &fld                               && Print duplicate value
  15.    ENDIF
  16. ENDDO                                       && Repeat until end file
  17. ? "DONE. "
  18.