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 |
|