DIKD2 ;SFISC/MKO-DELETE A NEW-STYLE INDEX ;4JAN2012
Source file <DIKD2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DELIXN(DIFIL,DIXR,DIFLG,DIKDOUT,DIKDMSG) | ;Delete new-style index
|
|
DELIXNX | ;Come here from DELIXN^DDMOD
|
|
END | ;Move error message if necessary and quit
|
|
DELDEF(DIXR) | ;Delete index definition
|
|
DIEZ(DIFLIST,DIFLG,DIKDOUT) | ;Recompile input templates containing field
|
|
CHK | ;Check input parameters
|
|
QUIT | ;Set flag to quit
|
|
KILL(DITOP,DIINDEX,DIFLG) | ;Delete index data
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|