| [613] | 1 | XQSMDP ; SEA/MJM - Post init for XQSMD Kernel V. 6 ; 12/16/88 12:06 ;
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | S (DIE,DIC)=19,DIC(0)="XMF",DR="13///NO"
|
|---|
| 4 | F X="XUPROG","XUPROGMODE","EVE","DIEDFILE","DIEDIT","DIFROM","DIIDENT","DIITRAN","DILIST","DIMODIFY","DIINQUIRE","DIPRINT","DIRDEX","DISEARCH","DISTATISTICS","DITRANSFER","DIUNEDIT","DIUSER","DIUTILITY" D ^DIC I +Y>0 S DA=+Y D ^DIE W "."
|
|---|
| 5 | F X="DIVERIFY","DIWF","DIXREF","XQRESTRICT","XQSMD ADD","XQSMD BUILD MENU","XQSMD BY OPTION" D ^DIC I +Y>0 S DA=+Y D ^DIE W "."
|
|---|
| 6 | F X="XQSMD EDIT OPTIONS","XQSMD MENU","XQSMD MGR","XQSMD REMOVE","XQSMD REPLICATE","XQSMD SHOW","XQSMD BY USER","XQSMD USER MENU","XUKEYALL","XUKEYDEALL","XUKEYEDIT","XUMAINT","XUOPTDISP","XUOPTLOG","XUOPTPURGE" D ^DIC I +Y>0 S DA=+Y D ^DIE
|
|---|
| 7 | F X="XUPMLOG","XUPMPURGE","XUPMDISP","XUPSEC","XUSC LIST","XUSCZONK","XUSEC","XUSER","XUSERAOLD","XUSERNEW","XUSEREDIT","XUSERDEACT","XUSITEMGR","XUSITEPARM","XUUSEROPT" D ^DIC I +Y>0 S DA=+Y D ^DIE W "."
|
|---|
| 8 | Q
|
|---|
