DIKCR ;SFISC/MKO-API TO CREATE A NEW-STYLE XREF ;9:55 AM 1 Nov 2002 [ 12/09/2003 4:44 PM ]
Source file <DIKCR.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| ER202(DIKCP1) | ;;The input variable or parameter that identifies the |1| is missing or invalid. | |
| RECOMP(DIXR,DIFLG) | ;Recompile templates and xrefs, update triggering fields | |
| GETNAM(F01,USE) | ;Get next available index name | |
| SET(DIXR,DIFLG) | ;Execute set logic | |
| CREIXNX | ;Entry point from DDMOD | |
| CREIXN(DIKCXREF,DIFLG,DIXR,DIKCOUT,DIKCMSG) | ;Create a new-style index | |
| EXIT | ;Write and move error messages if necessary | |
| CHKVAL(DIKCXR,DIKCERR) | ;Check values, build logic for regular indexes | |
| UPDATE(DIKCXR,DIXR,DIFLG) | ;Call Updater to create index, return DIXR=ien | |
| CHK(DIKCXR,DIKCERR) | ;Check/default input array | 
| Name | Field # of Occurrence | 
|---|---|
| DELIXN^DDMOD | CREIXNX+18 | 
| MSG^DIALOG | EXIT+2 | 
| TRIG^DICR | RECOMP+14 | 
| CHK^DIE | CHK+10, CHK+15 | 
| UPDATE^DIE | UPDATE+41 | 
| WP^DIE | UPDATE+46 | 
| CALLOUT^DIEFU | EXIT+3 | 
| INIZE^DIEFU | CREIXNX+6 | 
| INDEX^DIKC | SET+13 | 
| $$FLEVDIFF^DIKCU | CHK+25, CHKVAL+11 | 
| $$FROOTDA^DIKCU | CHKVAL+13 | 
| $$VFNUM^DIKCU1 | CHK+6, CHK+26 | 
| ERR^DIKCU2 | ER202+1 | 
| GETFLIST^DIKCUTL | RECOMP+7 | 
| DIKZ^DIKD | RECOMP+11, RECOMP+20 | 
| DIEZ^DIKD2 | RECOMP+10, RECOMP+16 | 
| $$FNO^DILIBF | RECOMP+4, RECOMP+18, SET+3 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DD( | GETNAM+6, GETNAM+12 | 
| ^DD("IX" - [#.11] | RECOMP+4, GETNAM+5, GETNAM+11, SET+3, SET+4, SET+5 | 
| Name | Line Occurrences | 
|---|---|
| $$GETNAM | CHK+36 | 
| CHK | CREIXNX+11 | 
| CHKVAL | CREIXNX+12 | 
| ER202 | CHK+5, CHK+9, CHK+25, CHK+30, CHK+31, CHK+32, CHK+40, CHKVAL+28, CHKVAL+37 | 
| EXIT | CREIXNX+11, CREIXNX+12, CREIXNX+21 | 
| RECOMP | CREIXNX+27 | 
| SET | CREIXNX+24 | 
| UPDATE | CREIXNX+21 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ASC | GETNAM+1~, GETNAM+3*, GETNAM+4 | 
| CNT | CHKVAL+1~, CHKVAL+20*, CHKVAL+42 | 
| DIERR | CREIXNX+5~, CREIXNX+16~, EXIT+1, UPDATE+42, CHKVAL+14 | 
| DIFLG | CREIXN~, CREIXNX+4*, CREIXNX+5, CREIXNX+17, CREIXNX+21, CREIXNX+24, CREIXNX+27, EXIT+2, UPDATE~, UPDATE+2 , RECOMP~, RECOMP+10, RECOMP+11, RECOMP+16, RECOMP+20, SET~, SET+7 | 
| DIFM | CREIXNX+6~* | 
| DIKCDEL | CREIXNX+1~, CREIXNX+7*, CREIXNX+15 | 
| DIKCDMSG | CREIXNX+1~, CREIXNX+16~ | 
| DIKCERR | CREIXNX+1~, CREIXNX+11, CREIXNX+12, CREIXNX+21*, EXIT+4, CHK~, CHK+2*, CHK+6*, CHK+10*, CHK+15* , CHK+24, CHK+26*, CHKVAL~, CHKVAL+7*, CHKVAL+10, CHKVAL+14*, CHKVAL+18, CHKVAL+33, CHKVAL+35, ER202+2* | 
| DIKCFDA | UPDATE+1~ | 
| DIKCFDA( | UPDATE+5*, UPDATE+6*, UPDATE+7*, UPDATE+8*, UPDATE+9*, UPDATE+10*, UPDATE+11*, UPDATE+12*, UPDATE+13*, UPDATE+14* , UPDATE+15*, UPDATE+16*, UPDATE+17*, UPDATE+18*, UPDATE+24*, UPDATE+25*, UPDATE+27*, UPDATE+29*, UPDATE+30*, UPDATE+31* , UPDATE+32*, UPDATE+33*, UPDATE+35*, UPDATE+36*, UPDATE+37*, UPDATE+38* | 
| DIKCFLAG | CREIXNX+16~, CREIXNX+17*, CREIXNX+18 | 
| DIKCFLIS | RECOMP+1~, RECOMP+7, RECOMP+10, RECOMP+14 | 
| DIKCI | RECOMP+1~, RECOMP+17*, RECOMP+18 | 
| DIKCIEN | UPDATE+1~ | 
| DIKCIEN(1 | UPDATE+43 | 
| DIKCMSG | CREIXN~, CREIXNX+5*, EXIT+3 | 
| DIKCOUT | CREIXN~, RECOMP+10, RECOMP+11, RECOMP+16, RECOMP+20 | 
| DIKCP1 | ER202~, ER202+1 | 
| DIKCRFIL | SET+1~, SET+4*, SET+12 | 
| DIKCTLIS | RECOMP+1~, RECOMP+14, RECOMP+15, RECOMP+16 | 
| DIKCTLIS( | RECOMP+17 | 
| DIKCTOP | RECOMP+1~, RECOMP+4*, RECOMP+11, RECOMP+18*, RECOMP+19, RECOMP+20, SET+1~, SET+3*, SET+12, SET+13 | 
| DIKCTOP( | RECOMP+11*, RECOMP+18, RECOMP+19* | 
| DIKCTRL | SET+1~, SET+12*, SET+13 | 
| DIKCTYP | SET+1~, SET+5*, SET+8 | 
| DIKCXR | CREIXNX+1~, CREIXNX+8*, CREIXNX+11, CREIXNX+12, CREIXNX+21, UPDATE~, CHK~, CHKVAL~ | 
| DIKCXR("ACTIVITY" | UPDATE+10, CHK+41* | 
| DIKCXR("DESCR" | UPDATE+46 | 
| DIKCXR("EXECUTION" | UPDATE+9, CHKVAL+47* | 
| DIKCXR("FILE" | CREIXNX+18, UPDATE+5, CHK+5, CHKVAL+3 | 
| DIKCXR("KILL | CONDITION" , UPDATE+17 | 
| DIKCXR("KILL" | UPDATE+15, CHKVAL+59* | 
| DIKCXR("NAME" | CREIXNX+18, EXIT+5, UPDATE+6, CHK+18, CHK+36*, CHKVAL+4 | 
| DIKCXR("ROOT | FILE" , UPDATE+13, UPDATE+29, CHK+19, CHK+22*, CHKVAL+5, TYPE" , UPDATE+12, CHK+23*, CHK+27* | 
| DIKCXR("SET C | ONDITION" , UPDATE+16 | 
| DIKCXR("SET" | UPDATE+14, CHKVAL+58* | 
| DIKCXR("SHORT | DESCR" , UPDATE+7, CHK+40 | 
| DIKCXR("TYPE" | UPDATE+8, CHK+9, CHK+11*, CHKVAL+6 | 
| DIKCXR("USE" | UPDATE+11, CHK+14, CHK+16*, CHK+37* | 
| DIKCXR("VAL" | UPDATE+21, UPDATE+23, CHKVAL+18, CHKVAL+19!, CHKVAL+23*, CHKVAL+24*, CHKVAL+27, CHKVAL+29, CHKVAL+32* | 
| DIKCXR("WHOLE | KILL" , UPDATE+18, CHKVAL+60* | 
| DIKCXREF | CREIXN~, CREIXNX+8 | 
| DIKCXREF("NAME" | CREIXNX+7 | 
| DIKTEML | RECOMP+1~ | 
| DIXR | CREIXN~, CREIXNX+21, CREIXNX+24, CREIXNX+27, EXIT+4*, EXIT+5*, UPDATE~, UPDATE+42!*, UPDATE+43*, UPDATE+46 , RECOMP~, RECOMP+4, RECOMP+7, SET~, SET+3, SET+4, SET+5, SET+13 | 
| F01 | GETNAM~, GETNAM+5, GETNAM+6, GETNAM+11, GETNAM+12 | 
| FCNT | CHKVAL+1~, CHKVAL+23*, CHKVAL+47 | 
| FIL | CHK+1~, CHK+5*, CHK+6, CHK+22, CHK+23, CHK+25, CHK+36, CHKVAL+1~, CHKVAL+3*, CHKVAL+11 , CHKVAL+13 | 
| I | GETNAM+1~, GETNAM+9*, GETNAM+10 | 
| IENS | UPDATE+1~, UPDATE+22*, UPDATE+24, UPDATE+25, UPDATE+27, UPDATE+29, UPDATE+30, UPDATE+31, UPDATE+32, UPDATE+33 , UPDATE+35, UPDATE+36, UPDATE+37, UPDATE+38 | 
| KILL | CHKVAL+1~, CHKVAL+56*, CHKVAL+57*, CHKVAL+59 | 
| L | CHKVAL+1~, CHKVAL+53* | 
| LDIF | CHKVAL+1~, CHKVAL+11*, CHKVAL+12*, CHKVAL+13, CHKVAL+53 | 
| LEV | CHKVAL+1~, CHKVAL+13 | 
| MAXL | CHKVAL+1~, CHKVAL+41*, CHKVAL+42, CHKVAL+43 | 
| NAM | CHK+1~, CHK+18*, CHK+30, CHK+31, CHK+36, CHK+37, CHKVAL+1~, CHKVAL+4*, CHKVAL+13 | 
| NAME | GETNAM+1~, GETNAM+3, GETNAM+4*, GETNAM+5*, GETNAM+6*, GETNAM+7, GETNAM+9, GETNAM+10*, GETNAM+11*, GETNAM+12* , GETNAM+13 | 
| ORD | UPDATE+1~, UPDATE+21*, UPDATE+23, UPDATE+24, CHKVAL+1~, CHKVAL+18*, CHKVAL+19, CHKVAL+23, CHKVAL+24, CHKVAL+27 , CHKVAL+29, CHKVAL+32, CHKVAL+41*, CHKVAL+43 | 
| R | UPDATE+1~, UPDATE+23*, UPDATE+25, UPDATE+27, UPDATE+30, UPDATE+31, UPDATE+32, UPDATE+33, UPDATE+35, UPDATE+36 , UPDATE+37, UPDATE+38 | 
| RFIL | CHK+1~, CHK+19*, CHK+22*, CHK+23, CHK+25, CHK+26, CHKVAL+1~, CHKVAL+5*, CHKVAL+11 | 
| ROOT | CHKVAL+1~, CHKVAL+13*, CHKVAL+15, CHKVAL+44*, CHKVAL+53*, CHKVAL+54*, CHKVAL+57 | 
| SBSC | CHKVAL+1~, CHKVAL+27*, CHKVAL+28, CHKVAL+29, CHKVAL+35*, CHKVAL+37, CHKVAL+41 | 
| SBSC( | CHKVAL+28, CHKVAL+29*, CHKVAL+35, CHKVAL+41 | 
| SBSC(0 | CHKVAL+56 | 
| SEQ | UPDATE+1~, UPDATE+21*, UPDATE+22, CHKVAL+1~, CHKVAL+35*, CHKVAL+37 | 
| SET | CHKVAL+1~, CHKVAL+56*, CHKVAL+57*, CHKVAL+58 | 
| STRT | GETNAM+1~, GETNAM+2*, GETNAM+4, GETNAM+10 | 
| TYP | CHK+1~, CHK+9*, CHK+10, CHK+11, CHK+32, CHK+37, CHKVAL+1~, CHKVAL+6*, CHKVAL+10, CHKVAL+38 , CHKVAL+50 | 
| U | EXIT+5, RECOMP+4, CHK+10, CHK+15, CHKVAL+29, CHKVAL+41, SET+3, SET+4, SET+5 | 
| USE | CHK+1~, CHK+14*, CHK+15, CHK+16, CHK+30, CHK+31, CHK+32, CHK+36, CHK+37, GETNAM~ , GETNAM+2 | 
| VAL | CHKVAL+1~, CHKVAL+42*, CHKVAL+43*, CHKVAL+44 | 
| WKIL | CHKVAL+1~, CHKVAL+15*, CHKVAL+56*, CHKVAL+60 | 
| X | CREIXNX+1~, UPDATE+1~, UPDATE+31*, UPDATE+32*, UPDATE+33*, UPDATE+35*, UPDATE+36*, UPDATE+37*, UPDATE+38* | 
| Y | CREIXNX+1~ |