Routine: XUS3

Name	Comments	DBIA/ICR reference
TXT(%)	;Call by R/S and Broker
GETFAC(IP)	;Set XUFAC from saved value, Failed Access Count
21	;;0;Null Verify code
TT	;Terminal Type select
1	;;1;No Signons.
3	;;1;Bad device.
2	;;1;Maximum users.
5	;;0;No Access for User.
4	;;0;Invalid A/V code.
7	;;0;Device locked.
6	;;0;Invalid device password.
9	;;0;* MULTIPLE SIGN-ONS NOT ALLOWED *
SEC	;Check device's security and time lock.
CLRFAC(IP)	;Clear FAC from the global	ICR #4764 Status: Active Usage: Controlled Subscription
SETFAC(IP)	;Set the value of Failed Access atempts
TS()	;Is IP a Terminal Server (check TSCHK in XUSTZIP).
LOCK
FINDFAC(IP)	;Find the entry
Q
FAIL(IP)	;If user fails logon, Call to inc XUFAC ; and check if time to lock. IP is optional.	ICR #4764 Status: Active Usage: Controlled Subscription
ZZ	;;Halt;Error Messages
8	;;1;This device is out of service.
20	;;0;Client IP address not setup.
WAIT	;** doesn't work with virtual device
11	;;0;Access code terminated.
10	;;1;You don't have access to this device!
13	;;1;Time limited device.
12	;;0;Change VERIFY code.
15	;;0;Bad Routine.
14	;;0;Bad UCI!
17	;;0;User Time limited.
16	;;0;No PRIMARY MENU.
19	;;0;Signon not allowed as you have required forms to sign in terminal mode.
18	;;0;User lockout
H3(%)	;Convert $H to seconds.
NO()	;Fail, R/S entry. Reference to XGWIN has been removed.
NOPE

Name	Field # of Occurrence
$$EZBLD^DIALOG	TXT+5
^DIC	TT+3
UPDATE^DIE	SETFAC+5
^DIK	CLRFAC+3
^XMB	LOCK, SEC+7, NOPE
XOPT^XUS	FAIL+3
^XUSTZ	NO+7
$$IP^XUSTZIP	FAIL+2
$$IPCHECK^XUSTZIP	GETFAC+16

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Device: ",$I,!!,$$TXT(XUM),! Line Location: NO+2
Function Call: WRITE	Prompt: !,$$TXT(7) Line Location: NO+5
Routine Call	DIE Line Location: SETFAC+5
Routine Call	DIALOG Line Location: TXT+5
Routine Call	DIC Line Location: TT+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	TT+2, SEC+4, SEC+10
^DISV("XU"	WAIT+2
^VA(200 - [#200]	TT+6*
^XTV(8989.3 - [#8989.3]	TS+1
^XUSEC(4 - [#3.084]	GETFAC+8, GETFAC+9, GETFAC+10, FINDFAC+2, FINDFAC+5, SETFAC+2

Name	Line Occurrences
$$FAIL	NO+3
$$FINDFAC	GETFAC+5, CLRFAC+2
$$H3	GETFAC+12
$$TS	GETFAC+16
$$TXT	NO+2, NO+5
CLRFAC	GETFAC+12
GETFAC	FAIL+3
NOPE	SEC+12
SETFAC	FAIL+4

Name	Field # of Occurrence
^("SUBTYPE"	TT+2
^(95	SEC+5, SEC+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	H3~, H3+1, NO+1~, NO+3, NO+4, TXT~, TXT+3, TXT+4, TXT+5, TXT+7
%A	SEC+2~, SEC+3, SEC+4, SEC+5, SEC+7, SEC+10, SEC+11, SEC+12, SEC+13, NOPE , NOPE+1
%B	SEC+2~, SEC+3, SEC+5, SEC+6
%H	SEC+2~, SEC+5, SEC+11, SEC+12, SEC+13
DA	CLRFAC+1~, CLRFAC+3*
DIC	TT+3*!
DIC("B"	TT+2*
DIC("S"	TT+3*
DIC(0	TT+3*
DIK	CLRFAC+1~, CLRFAC+3*
DUZ	TT+6
FDA	SETFAC+1~
FDA(	SETFAC+4*
>> H	WAIT+2*
I	FINDFAC+1~, FINDFAC+5, FINDFAC+6, FINDFAC+7, SETFAC+1~, SETFAC+3, SETFAC+4, CLRFAC+1~, CLRFAC+2*, CLRFAC+3
IEN	SETFAC+1~
IEN(1	SETFAC+6
IO("IP"	NO+3
IO("ZIO"	WAIT+1
IP	GETFAC~, GETFAC+3, GETFAC+5, GETFAC+12, GETFAC+16, TS+1, FINDFAC~, FINDFAC+4, FINDFAC+5, SETFAC~ , SETFAC+4, CLRFAC~, CLRFAC+2, FAIL~, FAIL+2*, FAIL+3, FAIL+4
R	GETFAC+4~, GETFAC+9*, GETFAC+12, GETFAC+13
>> T	WAIT+2*
U	TT+6, WAIT+2, LOCK, SEC+3, SEC+5, SEC+7, SEC+10, NOPE, GETFAC+13, FAIL+5
X	WAIT+2, LOCK, GETFAC+4~, GETFAC+5, GETFAC+7, GETFAC+8, GETFAC+9, GETFAC+10
>> XMB	LOCK, SEC+7, NOPE*
>> XMB(1	LOCK, SEC+7, NOPE*
>> XMB(2	LOCK, SEC+7, NOPE*
>> XMB(3	LOCK, SEC+7
>> XMB(4	SEC+7, NOPE
>> XOPT	WAIT+2, SEC+1, FAIL+3, FAIL+5
XU1	TXT+1~, TXT+4*, TXT+5
>> XUCI	LOCK
>> XUDEV	TT+2, WAIT+2, SEC+4, SEC+10
XUEXIT	NO+1~, NO+3, NO+4, NO+5, NO+7, NO+9, TXT+3
>> XUFAC	GETFAC+1, GETFAC+2, GETFAC+13, GETFAC+16, SETFAC+4, FAIL+4, FAIL+5
>> XUFAC(1	FINDFAC+2, FINDFAC+3!, FINDFAC+6, SETFAC+2!, SETFAC+3, SETFAC+6
>> XUHALT	NO+3
>> XUIOP	TT+2, TT+6*
>> XUIOP(1	TT+1
>> XUM	SEC+8, NOPE+1, NO+2, NO+5
>> XUM(0	NOPE+1*, TXT+5, TXT+6!
>> XUSER(0	SEC+3, SEC+7, NOPE
>> XUT	WAIT+2, LOCK
>> XUVOL	LOCK
Y	TT+3, TT+6, SEC+2~, SEC+5, SEC+11, SEC+12, SEC+13

Customize PDF page

Package: Kernel

Routine: XUS3

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: