DIKKUTL1 ;SFISC/MKO-KEY CREATION ;10:08 AM 12 Jan 2001
Source file <DIKKUTL1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CREATE(DIKKTOP,DIKKFILE) | ;Create a new key
|
|
UIMOD(DIXR,DIKKEY,DIKKTOP,DIKKFILE) | ;Modify the UI to match the Key
|
|
UICREATE(DIKKEY,DIKKTOP,DIKKFILE,DIKKNO) | ;Create a new UI for key
|
|
ADDUI(DIKKFILE,DIKKNAM,DIXR) | ;Add new entry to Index file
|
|
STUFF(DIXR,DIKKF01,DIKKFILE,DIKKNAM,DIKKFLD,DIKKID) | ;Stuff other values into
|
|
ADDCRV(DIXR,DIKKFLD,DIKKERR) | ;Add fields to Cross-Reference Values multiple
|
|
DELCRV(DIXR) | ;Delete all entries in CRV multiple
|
|
GETFLD(KEY,FLD) | ;Get list fields in key
|
|
BLDLOG(DIKKF01,DIKKFILE,DIKKNAM,DIKKFLD,DIKKSET,DIKKILL,DIKKWKIL) | ;
|
|
NAME(DIKKFILE) | ;Get next available Key name
|
|
NAMERR(MSG) | ;Invalid Index Name error
|
|
KEYID(KEY,TOP,FILE) | ;Return string of text that identifies the key
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|