Routine: BMXMSEC

Information

BMXMSEC ; IHS/OIT/HMW - BMXNet MONITOR ; 11 Jul 2011 10:44 AM

Package	Total	Call Graph
Kernel	5	^%ZIS ZIO^%ZIS4 ($$GETPEER,GETENV)^%ZOSV $$NOW^XLFDT ($$CHK,USER)^XQCS
M Transfer	1	SET^BMXMSEC

Package	Total	Caller Graph
M Transfer	5	BMXEHR BMXMBRK BMXMEVN BMXMON BMXMSEC

Name	Comments	DBIA/ICR reference
ADDCTXT(XQUSR,XCONTEXT)	; SUPPORTS DIRECT MODE IN BMX
KCHK(%)
NOW
SETUP(RET)	;EP - sets up environment for GUI signon
STATE(%)	;Return a state value
KILL(%)	;Kill state variable
CHKPRMIT(BMXRP)	;EP - checks to see if remote procedure is permited to run
SET(%,VALUE)	;Set the state variable
INHIBIT()	;Is Logon to this system Inhibited?
SET1(FLAG)	;Setup parameters
CHKPRMID(BMXRP)	;EP - checks to see if remote procedure is permited to run
OWNSKEY(RET,LIST)	;EP Does user have Key

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(14.5 - [#14.5]	INHIBIT+1
^%ZOSF("ACTJ"	INHIBIT+2
^%ZOSF("EON"	SET1+1
^DIC(19 - [#19]	ADDCTXT+3, ADDCTXT+4, ADDCTXT+9
^TMP("XQCS"	SETUP+2!, ADDCTXT+2
^XTV(8989.3 - [#8989.3]	SET1+2, SET1+3
^XUSEC(	KCHK

Name	Field # of Occurrence
%	KCHK~, STATE~, STATE+2, STATE+3, SET~, SET+1, SET+2, KILL~, KILL+1, ADDCTXT+1~
>> %ZIS	SETUP+5*
BMXALLOW	CHKPRMIT+3~, CHKPRMIT+16*, CHKPRMIT+17
BMXRP	CHKPRMID~, CHKPRMIT~, CHKPRMIT+14, CHKPRMIT+16
>> BMXSEC	CHKPRMIT+4, CHKPRMIT+17, CHKPRMIT+18*
DT	NOW*
DUZ	CHKPRMIT+8*, CHKPRMIT+12, CHKPRMIT+16, OWNSKEY+2, KCHK
ERR	CHKPRMIT+3~
FLAG	SET1~
I	OWNSKEY+1~, OWNSKEY+4, SET1+3*
IO("IP"	SETUP+3*
>> IOP	SETUP+5*
K	OWNSKEY+1~
LIST	OWNSKEY~, OWNSKEY+3
LIST(	OWNSKEY+4
LIST(""	OWNSKEY+3
RET	OWNSKEY~, SETUP~
RET(	OWNSKEY+4*
RET(0	OWNSKEY+2, OWNSKEY+3, SETUP+7*
RET(1	SETUP+7*
RET(2	SETUP+7*
RET(3	SETUP+8*
RET(4	SETUP+8*
RET(5	SETUP+8*
TMP	ADDCTXT+1~, ADDCTXT+2*, ADDCTXT+5, ADDCTXT+9
U	CHKPRMIT+4, CHKPRMIT+16, SETUP+7, SETUP+8, SET1+1, SET1+2, SET1+3, INHIBIT+2, NOW*
VALUE	SET~, SET+1, SET+2
X	SET1+2*, ADDCTXT+1~
XCONTEXT	ADDCTXT~, ADDCTXT+3
>> XOPT	SETUP+4, SETUP+8, SET1+3*
XQMES	ADDCTXT+1~, ADDCTXT+6*, ADDCTXT+7
XQOPT	ADDCTXT+1~, ADDCTXT+3*, ADDCTXT+4, ADDCTXT+9
XQRPC	ADDCTXT+1~, ADDCTXT+4, ADDCTXT+5, ADDCTXT+8, ADDCTXT+9*
XQUSR	ADDCTXT~
>> XQVOL	SET1+1*, SET1+2, INHIBIT+1
>> XQY0	CHKPRMIT+8, CHKPRMIT+9, CHKPRMIT+11, CHKPRMIT+15, CHKPRMIT+16
>> XRTL	SET1+2*
>> XUCI	SETUP+7, SET1+1*, SET1+2
>> XUDEV	NOW*
>> XUENV	SETUP+7, SET1+1*
>> XUEOFF	SET1+1*
>> XUEON	SET1+1*
>> XUNOW	NOW*
>> XUVOL	SETUP+7, SET1+2*, INHIBIT+2
>> XWBSTATE	STATE+2, SET+1*
>> XWBSTATE(	STATE+3, SET+2*, KILL+1!
>> XWBSTATE("ALLCTX"	CHKPRMIT+11*
Y	SET1+1, INHIBIT+2, ADDCTXT+1~
Z	ADDCTXT+1~