; clean re-index of the DD
; Input: DI = file number (do not pass by ref - it is modified)
REINDEX(DIU,INDD)
; kill & re-index all xrefs for a file
; Input : DIU (req) = file global root in DIC format
; INDD (opt) = re-index the DD also (boolean)
; Output: void
; Note : derived from ^DIU1