DIKCUTL1 ;SFISC/MKO-UTILITY OPTION TO MODIFY INDEX ;9:10 AM 7 Aug 2001
Source file <DIKCUTL1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CREATE(DIKCTOP,DIKCFILE) | ;Create a new index
|
|
TYPE() | ;Prompt for index type (regular or MUMPS)
|
|
FILE01(DIKCTOP,DIKCFILE) | ;Return file on which to store xref
|
|
USE(DIKCTYPE) | ;Prompt for Use (Lookup or Lookup & Sorting)
|
|
NAME(DIKCF01,DIKCUSE) | ;Get next available index name
|
|
NAMERR(MSG) | ;Invalid index name error
|
|
ADD(DIKCF01,DIKCFILE,DIKCNAME,DIKCTYPE,DIKCUSE,DIXR) | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|