home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / progs / address / pmcard / detect1.prg < prev    next >
Encoding:
Text File  |  1990-09-24  |  987 b   |  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.