XQ55 ; SEA/AMF,MJM,JLI - SEARCH FOR USERS ACCESS TO AN OPTION;
Source file <XQ55.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
HDR | ;
|
|
MUS | ||
TREE1 | ;
|
|
KILL | ||
NEWPG | ;
|
|
CON | ;
|
|
USERS | ;
|
|
SETU | ;
|
|
INIT | ;
|
|
DQ | ;Entry point for queued job
|
|
OUT | ;
|
|
PRTU | ;
|
|
KEYCHECK() | ; 080115 extracted common code
; returns 1 if user has access to the option, 0 if the user does not have access |
|
EACHU | ;
|
|
USERS1 | ; 080115 code added to handle options on the COMMON (XUCOMMAND) menu
|
|
LOOP3 | ;
|
|
LOOP2 | ;
|
|
LOOP1 | ||
MENUPAT | ;
|
|
OPT | ||
SETGLO | ;
|
|
TREE | ||
MPAT |
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 |
|
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: WRITE |
|
Function Call: WRITE |
|
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZTSK - [#14.4] | MUS+1!, KILL+1! |
^DIC(19 - [#19] | MPAT+2, LOOP1, TREE, TREE1+1, USERS1+2, PRTU+3, MENUPAT+2 |
^TMP($J | MPAT+1!, SETGLO+4*, LOOP2+1, USERS1+3, EACHU+2, KEYCHECK+2, KEYCHECK+4, SETU+1, SETU+4*, LOOP3+1 , DQ+3, PRTU+6, PRTU+7, PRTU+9, PRTU+10 |
^VA(200 - [#200] | USERS+1, USERS1+12, SETU+4, PRTU+2, PRTU+3 |
^XUSEC( | KEYCHECK+3, KEYCHECK+5 |
Name | Line Occurrences |
---|---|
$$KEYCHECK | USERS1+12, EACHU+2 |
CON | NEWPG+1 |
EACHU | USERS+1 |
HDR | NEWPG+2 |
LOOP2 | LOOP1+1 |
LOOP3 | LOOP2+3 |
MENUPAT | DQ+4, PRTU+1 |
MPAT | MPAT |
MUS | LOOP2+2, DQ+2, DQ+3, DQ+4 |
NEWPG | DQ+2, PRTU+1 |
OUT | OPT, MPAT, LOOP3+1, LOOP3+2, MUS |
PRTU | DQ+3 |
SETGLO | TREE1+2 |
SETU | USERS1+12, EACHU+2 |
TREE | TREE, TREE1+1, TREE1+2, TREE1+3 |
TREE1 | LOOP1 |
USERS | LOOP2+1 |
USERS1 | LOOP2+2 |
Name | Field # of Occurrence |
---|---|
^(0 | SETGLO+4*, PRTU+3 |
^(1.1 | PRTU+2 |
^(201 | PRTU+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | MPAT* |
>> %Y | INIT+2 |
>> %ZIS | LOOP3+2* |
DIC | OPT*, KILL+1! |
DIC(0 | OPT* |
DIR | USERS1+10~ |
DIR(0 | USERS1+10* |
DTIME | CON+1, MUS |
I | SETGLO+1*, SETGLO+2*, SETGLO+3*, SETU+2*, SETU+4*, MENUPAT+2*, KILL+1! |
II | USERS1+12*, EACHU+1*, SETU+4*, PRTU+7*, PRTU+9*, PRTU+10*, KILL+1! |
IO | DQ+1 |
IO("Q" | LOOP3+2! |
IOF | HDR+1, MUS |
IOSL | PRTU+1 |
IOST | NEWPG+1, MUS |
J | SETGLO+4*, USERS1+3*, EACHU+2*, KEYCHECK+2, KEYCHECK+4, SETU+1, PRTU+2*, PRTU+3, KILL! |
JJ | PRTU+6*, PRTU+7, KILL+1! |
K | MPAT+2*, LOOP1*, TREE*, TREE1+1, TREE1+2, SETGLO+4, PRTU+2*, PRTU+3*, MENUPAT+2*, KILL! |
L | LOOP1*, TREE, TREE1+1, TREE1+2*, TREE1+3*, SETGLO+1, SETGLO+2, SETGLO+3, KILL+1! |
N | MENUPAT+2*, KILL! |
POP | LOOP3+2, KILL+1! |
U | MPAT+2, LOOP1, TREE1+1, SETGLO+4, USERS1+3, KEYCHECK+2, KEYCHECK+4, SETU+1, SETU+4, CON+1 , PRTU+2, PRTU+3, MENUPAT+2 |
X | KEYCHECK+3*, KEYCHECK+5*, NEWPG+1*, CON+1*, MUS*, KILL! |
X( | TREE*, TREE1+2* |
X(0 | LOOP1* |
XQA | LOOP1!, SETGLO+3*, SETGLO+4*, KILL! |
XQA( | TREE1+1*, TREE1+3!, SETGLO+3 |
>> XQCOM | MPAT+2*, SETU+3*, MENUPAT+4 |
XQD | LOOP1*, TREE, TREE1+2*, TREE1+3*, KILL! |
XQD( | TREE1+2*, TREE1+3 |
XQDSH | INIT+1*, HDR+4, MENUPAT+1, KILL! |
XQDT | INIT+2*, HDR+2, KILL! |
XQGO | KEYCHECK+2*, KEYCHECK+3*, KEYCHECK+5*, KEYCHECK+6, KILL! |
XQHDR | MPAT+2*, HDR+2, KILL! |
XQK | LOOP1!, SETGLO+1*, SETGLO+4, KEYCHECK+2*, KEYCHECK+3, KEYCHECK+4*, KEYCHECK+5, KILL! |
XQK( | TREE1+1*, TREE1+3!, SETGLO+1 |
XQMP | MPAT*, DQ+2, DQ+4, HDR+3, HDR+4, PRTU+1, PRTU+4, PRTU+8, KILL! |
XQN | LOOP2+1*, USERS1+3*, EACHU+2, KILL! |
XQNOPRNT | MPAT+2*, LOOP2+2, USERS1+10*, KILL+1! |
XQOPT | OPT*, MPAT+2, LOOP1, SETGLO+4, KILL! |
XQP | MPAT+1!, LOOP2+1*, USERS+1, USERS1+3*, EACHU+2, KEYCHECK+2, KEYCHECK+4, SETU+1, KILL! |
XQPA | SETU+1*, SETU+2, SETU+3*, SETU+4, KILL! |
XQPA( | SETU+2*, SETU+3 |
XQPA(0 | LOOP2+1*, SETU+2*, DQ+2*, PRTU+1, MENUPAT+2 |
XQPG | DQ+2*, NEWPG+1, HDR+1*, HDR+2, MUS, KILL! |
XQPS | LOOP2+1*, USERS+1, USERS1+12*, SETU+3, KILL! |
XQR | MPAT+1!, LOOP1!, KILL! |
XQR( | LOOP1*, TREE*, TREE1+3! |
XQRV | LOOP1!, SETGLO+2*, SETGLO+4, KILL! |
XQRV( | TREE1+1*, TREE1+3!, SETGLO+2 |
XQSCD | MPAT+2*, SETU+3*, MENUPAT+3, KILL! |
>> XQTAB | HDR+2* |
XQU | USERS+1*, USERS1+12*, KEYCHECK+3, KEYCHECK+5, SETU+4, DQ+3*, PRTU+2, PRTU+6, PRTU+7, PRTU+9 , PRTU+10, KILL! |
XQUI | DQ+2*, DQ+3, NEWPG+1*, PRTU+1, KILL! |
XUCOMMON | USERS1+1~, USERS1+2*, USERS1+3 |
XX | KEYCHECK+2*, KEYCHECK+3, KEYCHECK+4*, KEYCHECK+5, KILL! |
Y | OPT, USERS1+4, USERS1+10, KEYCHECK+3*, KEYCHECK+5*, KILL+1! |
Y(0 | TREE1+1* |
ZTDESC | LOOP3+2*! |
>> ZTQUEUED | KILL+1 |
ZTRTN | LOOP3+2*! |
ZTSAVE | LOOP3+2! |
ZTSAVE("XQ*" | LOOP3+2* |
ZTSAVE("^TMP($J," | LOOP3+2* |
ZTSK | LOOP3+2!, MUS+1, KILL+1 |