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