Routine: BMXRPC7

Package	Total	Call Graph
Kernel	3	GETENV^%ZOSV $$NEWERR^%ZTER ($$FMTE,$$NOW)^XLFDT
M Transfer	1	$$WINUGET^BMXRPC3

Entry Points

Name	Comments	DBIA/ICR reference
SET(V)	;Set into BMXUTEXT(BMXUTEXT)
POST(CVC)	;Finish setup partition, I CVC don't log get
TXT(BMXPT)	;
USER(IX)	;Build USER
USER1A()	;
WINVAL(BMXRET,BMXWINID)	;EP
POST2
1	;;1;Signons not currently allowed on this processor.
3	;;1;This device has not been defined to the system -- contact system manager.
2	;;1;Maximum number of users already signed on to this processor.
5	;;0;No Access Allowed for this User.
4	;;0;Not a valid Windows Identity map value.
7	;;0;Device locked due to too many invalid sign-on attempts.
6	;;0;Invalid device password.
9	;;0;* MULTIPLE SIGN-ONS NOT ALLOWED *
8	;;1;This device is out of service.
DD(Y)
PROHIBIT(BMXPTT,BMXPTR)	;See if a prohibited time, (Current time, restrict range)
VAX
INHIBIT()	;Is Logon to this system Inhibited?
ZZ	;;Halt;Error Messages
11	;;0;Your access code has been terminated. Please see your site manager!
10	;;1;You don't have access to this device!
13	;;1;This device may only be used outside of this time frame \|
12	;;0;VERIFY CODE MUST be changed before continued use.
15	;;0;'\|' is not a valid program name!
14	;;0;'\|' is not a valid UCI!
BMXOPT	;Build the BMXOPT string
16	;;0;No PRIMARY MENU assigned to user or User is missing KEY to menu!
18	;;0;Windows Integrated Security Not Allowed on this port.
DUZ	;Setup DUZ. SAC exemption applied for.
UVALID()	;EF. Is it valid for this user to sign on?
NOW
17	;;0;Your access to the system is prohibited from \|.

External References

Name	Field # of Occurrence
GETENV^%ZOSV	INHIBIT+2
$$NEWERR^%ZTER	WINVAL+6
$$WINUGET^BMXRPC3	WINVAL+13
$$FMTE^XLFDT	PROHIBIT+3
$$NOW^XLFDT	NOW

Used in RPC

RPC Name	Call Tags
BMX AV CODE	WINVAL

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(14.5 - [#14.5]	INHIBIT+6
^%ZOSF("ACTJ"	INHIBIT+7
^DIC(4 - [#4]	DUZ+4
^TMP($J	POST+2!
^UTILITY($J	POST+2!
^VA(200 - [#200]	USER+1, DUZ+1, USER1A+7, BMXOPT+3
^XTV(8989.3 - [#8989.3]	DUZ+4, USER1A+3, BMXOPT+2, INHIBIT+3

Label References

Name	Line Occurrences
$$DD	USER1A+8
$$INHIBIT	WINVAL+11
$$POST	WINVAL+16
$$PROHIBIT	USER1A+10
$$TXT	VAX+1
$$USER1A	POST+4
$$UVALID	WINVAL+15
BMXOPT	DUZ+1, USER1A+4
DUZ	POST2+1
NOW	WINVAL+10, POST2
POST2	VAX, POST+8
SET	USER1A+3, USER1A+4, USER1A+6, USER1A+8, USER1A+9, USER1A+11, PROHIBIT+5, PROHIBIT+6
USER	WINVAL+14, POST+3
VAX	WINVAL+11, WINVAL+15

Naked Globals

Name	Field # of Occurrence
^(	USER+1, USER1A+3
^("ACTJ"	INHIBIT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	WINVAL+8*
BMXCI	INHIBIT+1~, INHIBIT+2*, INHIBIT+3
BMXENV	INHIBIT+1~, INHIBIT+2*
>> BMXI1	USER1A+7*, USER1A+9
BMXOPT	POST2+2!, DUZ+1, DUZ+2, DUZ+3, DUZ+5, USER1A+11, USER1A+12, USER1A+13, BMXOPT+2, BMXOPT+4
BMXPT	POST+6, USER1A+11, TXT~, TXT+1, TXT+2, TXT+3
BMXPTB	USER1A+1~, PROHIBIT+1~, PROHIBIT+2*, PROHIBIT+3, PROHIBIT+4
BMXPTE	USER1A+1~, PROHIBIT+1~, PROHIBIT+2*, PROHIBIT+3, PROHIBIT+4
>> BMXPTH	USER1A+5*, USER1A+6, USER1A+10
BMXPTR	PROHIBIT~, PROHIBIT+2
BMXPTT	USER1A+1~, PROHIBIT~, PROHIBIT+2*, PROHIBIT+4
BMXQVOL	INHIBIT+1~, INHIBIT+2*, INHIBIT+3, INHIBIT+6
BMXRET	WINVAL~
BMXRET(0	WINVAL+9, VAX+1
BMXRET(1	VAX+1*
BMXRET(2	VAX+1*
BMXRET(3	VAX+1*
BMXRET(4	VAX+1*
BMXRET(5	WINVAL+9, POST+5, POST+6, POST+7
BMXUER	POST2+2!
BMXUM	WINVAL+7~, WINVAL+9, WINVAL+11, VAX+1, POST+1~, POST+4*
BMXUM(0	PROHIBIT+4*, TXT+2
BMXUMSG	WINVAL+7~, WINVAL+9, WINVAL+11, WINVAL+15, WINVAL+16, VAX, VAX+1
BMXUNOW	WINVAL+7~, NOW*, POST2
BMXUSER	WINVAL+7~
BMXUSER(0	USER+1, DUZ+1, DUZ+2, USER1A+6, USER1A+10, UVALID+3, UVALID+4
BMXUSER(1	USER+1*, USER1A+6, USER1A+11
BMXUTEXT	POST2+2!, USER1A+2, SET+1
BMXUTEXT(	POST+6, SET+1*
BMXVCOK	WINVAL+7~, WINVAL+10*, VAX+1
BMXVOL	INHIBIT+1~, INHIBIT+3*, INHIBIT+7
>> BMXWIN	UVALID+1
BMXWINID	WINVAL~, WINVAL+13
CVC	POST~, POST+8
DT	NOW*, USER1A+8, PROHIBIT+3, UVALID+3
DTIME	USER1A+12*
DUZ	WINVAL+10, WINVAL+13, WINVAL+14, WINVAL+16, VAX*, VAX+1, POST+3, DUZ+1, USER1A+7, BMXOPT+3 , UVALID+2
DUZ("AG"	DUZ+4*
DUZ("AUTO"	DUZ+2*
DUZ("BUF"	DUZ+5*
DUZ("LANG"	DUZ+5*
DUZ(0	WINVAL+10, DUZ+2
DUZ(1	DUZ+2*
DUZ(2	DUZ+3, DUZ+4, USER1A+2
I	USER1A+3, USER1A+9, BMXOPT+1~, BMXOPT+4*
IX	USER~, USER+1
U	NOW, DUZ+2, DUZ+3, DUZ+4, DUZ+5, USER1A+6, USER1A+10, USER1A+11, USER1A+12, USER1A+13 , BMXOPT+4, INHIBIT+2, INHIBIT+3, INHIBIT+7, UVALID+3, UVALID+4
>> USER(0	POST+3
V	SET~, SET+1
X	WINVAL+7~, POST+1~, DUZ+4, USER1A+7, USER1A+8, USER1A+13, BMXOPT+1~, BMXOPT+3, BMXOPT+4, INHIBIT+3
XMSG	PROHIBIT+1~, PROHIBIT+3*, PROHIBIT+4, PROHIBIT+6
>> XRTL	INHIBIT+3*
>> XUTT	USER1A+12*
Y	INHIBIT+2, INHIBIT+7, DD~

Marked Items

Name	Field # of Occurrence
$T(ZZ+BMXPT	TXT+1

Customize PDF page

Package: M Transfer

Routine: BMXRPC7

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items