XQLOCK ;SEA/Luke - Find all the keys in the tree; [6/28/02 5:55am]
Source file <XQLOCK.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1 | ;Look up menu trees by user. Entry for option ENLOCK1.
|
|
EN2 | ;Look up keys for a given menu tree. Entry for option ENLOCK2.
|
|
EN3 | ;Look up Keys for menu delegation.
|
|
INIT | ;Get things set up
|
|
USR | ;Find the user and the menu in question
|
|
TREE | ;Get the name of the menu tree in question
|
|
BLD | ;See if the menu tree has been built if not, do it
|
|
FIND | ;Order through the child options and find the locks
|
|
DISP | ;Display the locked options with their keys
|
|
SHOW | ;Show the current set of keys
|
|
CHUZ1 | ||
DOIT | ;Add the key set to a user's Aloocated or Delegated Keys file
|
|
OUT | ;Clean up and quit
|
|
GOT1 | ;Record a lock
|
|
SHO | ;Show the primary and secondary menus of +XQUSR
|
|
KEY | ;Look up a key in the Key file and get its number
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|