DIKCR ;SFISC/MKO-API TO CREATE A NEW-STYLE XREF ;9:55 AM 1 Nov 2002
Source file <DIKCR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CREIXN(DIKCXREF,DIFLG,DIXR,DIKCOUT,DIKCMSG) | ;Create a new-style index
|
|
| CREIXNX | ;Entry point from DDMOD
|
|
| EXIT | ;Write and move error messages if necessary
|
|
| UPDATE(DIKCXR,DIXR,DIFLG) | ;Call Updater to create index, return DIXR=ien
|
|
| RECOMP(DIXR,DIFLG) | ;Recompile templates and xrefs, update triggering fields
|
|
| CHK(DIKCXR,DIKCERR) | ;Check/default input array
|
|
| CHKVAL(DIKCXR,DIKCERR) | ;Check values, build logic for regular indexes
|
|
| GETNAM(F01,USE) | ;Get next available index name
|
|
| SET(DIXR,DIFLG) | ;Execute set logic
|
|
| ER202(DIKCP1) | ;;The input variable or parameter that identifies the |1| is missing or invalid.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|