DIKK ;SFISC/MKO-CHECK KEY INTEGRITY ;9:14 AM 23 Feb 1999
Source file <DIKK.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
INTEG(DIFILE,DIREC,DIFLD,DIKKEY,DICTRL,DIKPROC) | ;
|
|
EXIT | ;Cleanup ^TMP and quit
|
|
MOVE | ;Move error messages if necessary
|
|
CHECK(DIFILE,DA,DIROOT,DIMF,DITAR,DIKKQUIT) | ;Check one record
|
|
CHECKALL(DIFILE,DA,DIROOT,DIMF,DITAR,DIKKQUIT) | ;Check all records
|
|
CHECKSUB(DIFILE,DA,DIROOT,DIMF,DITAR,DIKKQUIT) | ;Process all records in subfiles
|
|
NULLCHK(KFIL,DA,DITAR,DIKKQUIT) | ;Check whether any of the key fields at
|
|
UICHK(FILE,DA,OUT,DIKKQUIT) | ;Walk through uniqueness index and check for duplicates
|
|
DUPL(KEY,UI,UIFIL,UIRFIL,DA,IX1,IX2,IXV,NS,SS,DIKKQUIT) | ;Process duplicate
|
|
DLOOP | ;Compare IX1 with IX2 and subsequent indexes
|
|
SETN(DIFIL,DIIENS,DIFLD,DITAR,DIKKQUIT) | ;
|
|
SETK(DIRFIL,DIIENS,DIKEY,DITAR,DIKKQUIT) | ;
|
|
IENS(DA) | ;Return IENS from DA array
|