DIKCUTL ;SFISC/MKO-UTILITY OPTION TO MODIFY INDEX ;26MAR2010
Source file <DIKCUTL.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MOD | ;Utility option to modify an index
|
|
| REMOD | ;Get and list indexes
|
|
| NODELETE | ||
| DELETE(DIXR,DIKCTOP,DIKCFILE) | ;Delete an index
|
|
| EDIT(DIXR,DIKCTOP,DIKCFILE) | ;Edit an index
|
|
| GETFLIST(XR,FLIST) | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^DDS | EDIT+11 |
| RD^DICD | REMOD+7 |
| ^DIK | DELETE+6 |
| LOADXREF^DIKC1 | DELETE+3, EDIT+6, EDIT+24 |
| SELFILE^DIKCU | MOD+5 |
| $$GCMP^DIKCU2 | EDIT+25 |
| CREATE^DIKCUTL1 | NODELETE+18 |
| $$CHOOSE^DIKCUTL2 | REMOD+11, NODELETE+10 |
| BLDLOG^DIKCUTL2 | EDIT+21 |
| GETXR^DIKCUTL2 | REMOD+2 |
| LIST^DIKCUTL2 | REMOD+3 |
| PRTMSG^DIKCUTL2 | NODELETE+1 |
| KSC^DIKCUTL3 | DELETE+10, EDIT+16, EDIT+31 |
| ^DIR | NODELETE+5, NODELETE+17 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("IX" - [#.11] | NODELETE, EDIT+14, GETFLIST+2, GETFLIST+3, GETFLIST+4 |
| ^DD("KEY" - [#.31] | NODELETE+1, EDIT+10 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | GETFLIST+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | DELETE+1~, DELETE+6*!, EDIT+1~, EDIT+9*, EDIT+11! |
| DDSCHANG | EDIT+1~, EDIT+11 |
| DDSFILE | EDIT+1~, EDIT+9*, EDIT+11! |
| DDSPARM | EDIT+1~, EDIT+9*, EDIT+11! |
| DIK | DELETE+1~, DELETE+6*! |
| DIKCCNT | MOD+1~, REMOD+2, REMOD+3, REMOD+6, REMOD+11, NODELETE+10, NODELETE+17 |
| DIKCFILE | MOD+1~, MOD+5, MOD+7*, REMOD+2, NODELETE+6, NODELETE+11, NODELETE+18, DELETE~, DELETE+3, EDIT~ , EDIT+6, EDIT+15, EDIT+24, EDIT+30 |
| DIKCFLIS | DELETE+1~, DELETE+2, DELETE+10, EDIT+2~, EDIT+5, EDIT+16, EDIT+29, EDIT+31 |
| DIKCNEW | EDIT+2~, EDIT+31 |
| DIKCOLD | DELETE+1~, DELETE+10, EDIT+2~, EDIT+16, EDIT+31 |
| DIKCOLD( | EDIT+15!, EDIT+30! |
| DIKCQUIT | MOD+1~, REMOD+1, NODELETE+17* |
| DIKCREB | EDIT+2~, EDIT+21 |
| DIKCROOT | MOD+1~, MOD+5, MOD+6 |
| DIKCTOP | MOD+1~, MOD+5, MOD+6, MOD+7, NODELETE+6, NODELETE+11, NODELETE+18, DELETE~, DELETE+10, EDIT~ , EDIT+16, EDIT+31 |
| DIR | MOD+2~, NODELETE+5!, NODELETE+17! |
| DIR("A" | NODELETE+3*, NODELETE+16* |
| DIR("B" | NODELETE+4*, NODELETE+15* |
| DIR(0 | NODELETE+2*, NODELETE+15* |
| DIROUT | MOD+2~ |
| DIRUT | MOD+2~, REMOD+7, NODELETE+5, NODELETE+17 |
| DIXR | MOD+1~, REMOD+11*, NODELETE*, NODELETE+1, NODELETE+6, NODELETE+10*, NODELETE+11, DELETE~, DELETE+2, DELETE+3 , DELETE+6, EDIT~, EDIT+5, EDIT+6, EDIT+9, EDIT+10, EDIT+14, EDIT+15, EDIT+21, EDIT+24 , EDIT+29, EDIT+30 |
| DR | EDIT+1~, EDIT+10*, EDIT+11! |
| DTOUT | MOD+2~ |
| DUOUT | MOD+2~ |
| FIL | GETFLIST+1~, GETFLIST+4*, GETFLIST+5 |
| FLD | GETFLIST+1~, GETFLIST+4*, GETFLIST+5 |
| FLIST | GETFLIST~ |
| FLIST( | GETFLIST+5* |
| I | GETFLIST+1~, GETFLIST+2*, GETFLIST+3, GETFLIST+4 |
| U | GETFLIST+3, GETFLIST+4 |
| X | MOD+2~ |
| XR | GETFLIST~, GETFLIST+2, GETFLIST+3, GETFLIST+4 |
| Y | MOD+2~, REMOD+6*, REMOD+10, NODELETE+5, NODELETE+9, NODELETE+14, NODELETE+17 |
