DIKCUTL2 ;SFISC/MKO-UTILITY OPTION TO MODIFY INDEX ;17DEC2010
Source file <DIKCUTL2.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PRTMSG(DIXR) | ; | |
| BLDLOG(DIXR) | ; | |
| CHOOSE(DIKCCNT,DIKCPR,DIKCSCR) | ; | |
| TYPE() | ; | |
| FSTR(FIL,FLG) | ; | |
| GETXR(FIL,CNT,FLG) | ; | |
| LIST(CNT,HDR,SCR) | ; | |
| UPDEXEC(DIXR) | ;Update Execution based on number of field-type xref values | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DD( | FSTR+2 | 
| ^DD("IX" - [#.11] | GETXR+7, GETXR+8!, GETXR+11, PRTMSG+7, BLDLOG+5, BLDLOG+17, BLDLOG+18, UPDEXEC+3, UPDEXEC+4 | 
| ^DD("KEY" - [#.31] | GETXR+12, PRTMSG+3, PRTMSG+4 | 
| Name | Line Occurrences | 
|---|---|
| $$FSTR | LIST+1, LIST+5, LIST+12, LIST+16 | 
| UPDEXEC | BLDLOG+6 | 
| Name | Field # of Occurrence | 
|---|---|
| ^("NOREINDEX" | GETXR+9 | 
| ^(0 | GETXR+11 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| CNT | GETXR~, GETXR+2!, GETXR+6*, GETXR+10*, GETXR+14*, LIST~, LIST+1, LIST+4, BLDLOG+1~, BLDLOG+21* , BLDLOG+29 | 
| CNT( | GETXR+11*, GETXR+12*, LIST+8, LIST+9, LIST+10, LIST+11, LIST+14 | 
| CRV | BLDLOG+1~, BLDLOG+17*, BLDLOG+18, UPDEXEC+1~, UPDEXEC+2*, UPDEXEC+3*, UPDEXEC+4 | 
| CRV(1 | UPDEXEC+2* | 
| CRV0 | BLDLOG+1~, BLDLOG+18*, BLDLOG+19, BLDLOG+20, BLDLOG+22, BLDLOG+23, UPDEXEC+1~, UPDEXEC+4*, UPDEXEC+5 | 
| DIERR | BLDLOG+1~, UPDEXEC+1~ | 
| DIKCCNT | CHOOSE~, CHOOSE+1, CHOOSE+7 | 
| DIKCCNT( | CHOOSE+5 | 
| DIKCCNT(0 | CHOOSE+7 | 
| DIKCPR | CHOOSE~, CHOOSE+6 | 
| DIKCSCR | CHOOSE~ | 
| DIR | TYPE+1~, CHOOSE+2~ | 
| DIR("?" | TYPE+5*, TYPE+6*, TYPE+7*, TYPE+8*, TYPE+9*, TYPE+10*, TYPE+11*, TYPE+12*, CHOOSE+8* | 
| DIR("??" | CHOOSE+8* | 
| DIR("A" | TYPE+3*, CHOOSE+6* | 
| DIR("B" | TYPE+4*, CHOOSE+7* | 
| DIR("C" | CHOOSE+5* | 
| DIR(0 | TYPE+2*, CHOOSE+4* | 
| DIROUT | TYPE+1~, CHOOSE+2~ | 
| DIRUT | TYPE+1~, TYPE+14, CHOOSE+2~, CHOOSE+9 | 
| DIXR | PRTMSG~, PRTMSG+3, PRTMSG+7, BLDLOG~, BLDLOG+5, BLDLOG+6, BLDLOG+17, BLDLOG+18, BLDLOG+41, BLDLOG+42 , BLDLOG+43, BLDLOG+44, UPDEXEC~, UPDEXEC+2, UPDEXEC+3, UPDEXEC+4, UPDEXEC+6 | 
| DTOUT | TYPE+1~, CHOOSE+2~ | 
| DUOUT | TYPE+1~, CHOOSE+2~ | 
| F | GETXR+1~, GETXR+6*, GETXR+7, GETXR+8, GETXR+11 | 
| FCNT | BLDLOG+1~, BLDLOG+20*, BLDLOG+44, UPDEXEC+1~, UPDEXEC+5*, UPDEXEC+6 | 
| FDA | BLDLOG+1~, BLDLOG+40!, UPDEXEC+1~ | 
| FDA( | BLDLOG+41*, BLDLOG+42*, BLDLOG+43*, BLDLOG+44*, UPDEXEC+6* | 
| FIL | GETXR~, GETXR+3, GETXR+4, GETXR+14, LIST+2~, LIST+10*, LIST+16, FSTR~, FSTR+2 | 
| FILE | BLDLOG+1~, BLDLOG+7*, BLDLOG+10, BLDLOG+12 | 
| FLG | GETXR~, GETXR+3, GETXR+9, GETXR+14, FSTR~, FSTR+2 | 
| HDR | LIST~, LIST+5*, LIST+6 | 
| I | LIST+2~, LIST+19*, CHOOSE+2~, CHOOSE+5*, PRTMSG+1~, PRTMSG+11* | 
| INDID | PRTMSG+1~, PRTMSG+7*, PRTMSG+8 | 
| IX0 | BLDLOG+1~, BLDLOG+5*, BLDLOG+6, BLDLOG+7 | 
| KEYID | PRTMSG+1~, PRTMSG+3*, PRTMSG+4*, PRTMSG+5*, PRTMSG+8 | 
| KILL | BLDLOG+1~, BLDLOG+38*, BLDLOG+39*, BLDLOG+42 | 
| L | BLDLOG+1~, BLDLOG+34* | 
| LDIF | BLDLOG+1~, BLDLOG+10*, BLDLOG+11*, BLDLOG+12, BLDLOG+34 | 
| MAXL | BLDLOG+1~, BLDLOG+23*, BLDLOG+24, BLDLOG+28*, BLDLOG+29, BLDLOG+30 | 
| MSG | PRTMSG+1~, PRTMSG+9, BLDLOG+1~, UPDEXEC+1~ | 
| MSG( | PRTMSG+11 | 
| MSG(0 | PRTMSG+8* | 
| NAME | BLDLOG+2~, BLDLOG+7*, BLDLOG+12 | 
| ONEFIL | LIST+2~, LIST+4*, LIST+5, LIST+12 | 
| ORD | BLDLOG+2~, BLDLOG+19*, BLDLOG+24, BLDLOG+28*, BLDLOG+30 | 
| RFIL | LIST+2~, LIST+10*, LIST+12*, LIST+15, LIST+16 | 
| RFILE | BLDLOG+2~, BLDLOG+7*, BLDLOG+10 | 
| ROOT | BLDLOG+2~, BLDLOG+12*, BLDLOG+13, BLDLOG+31*, BLDLOG+34*, BLDLOG+35*, BLDLOG+39 | 
| RTYPE | BLDLOG+2~, BLDLOG+7*, BLDLOG+10 | 
| SB | GETXR+1~, GETXR+3 | 
| SB( | GETXR+4*, GETXR+6 | 
| SBSC | BLDLOG+2~, BLDLOG+22*, BLDLOG+24, BLDLOG+27*, BLDLOG+28 | 
| SBSC( | BLDLOG+24*, BLDLOG+27, BLDLOG+28 | 
| SBSC(0 | BLDLOG+38 | 
| SCR | LIST~, LIST+9 | 
| SET | BLDLOG+2~, BLDLOG+38*, BLDLOG+39*, BLDLOG+41 | 
| TXT | LIST+2~, LIST+14*, LIST+15*, LIST+16*, LIST+18, LIST+19, LIST+20! | 
| TXT( | LIST+19 | 
| TYP | LIST+2~, LIST+10*, LIST+15 | 
| U | GETXR+11, GETXR+12, GETXR+14, LIST+1, LIST+4, LIST+10, LIST+11, LIST+14, CHOOSE+5, FSTR+2 , PRTMSG+5, PRTMSG+7, BLDLOG+6, BLDLOG+7, BLDLOG+19, BLDLOG+20, BLDLOG+22, BLDLOG+23, BLDLOG+24, BLDLOG+28 , UPDEXEC+5 | 
| UI | LIST+2~, LIST+11*, LIST+14 | 
| VAL | BLDLOG+2~, BLDLOG+29*, BLDLOG+30*, BLDLOG+31 | 
| WKILL | BLDLOG+2~, BLDLOG+13*, BLDLOG+38*, BLDLOG+43 | 
| X | TYPE+1~, CHOOSE+2~ | 
| XR | GETXR+1~, GETXR+7*, GETXR+8, GETXR+11, GETXR+12, LIST+2~, LIST+8*, LIST+9, LIST+10, LIST+11 , LIST+14 | 
| Y | TYPE+1~, TYPE+14, LIST+2~, LIST+9!*, CHOOSE+2~, CHOOSE+9, CHOOSE+10 | 
| Y(0 | LIST+9* |