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
|
