XUS ;SFISC/STAFF - SIGNON ;11/29/2011
Source file <XUS.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CHECKAV(X1) | ;Check A/V code return DUZ or Zero. (Called from XUSRB)
|
|
LBAV | ;Log Bad AV
|
|
USER(IX) | ;Build XUSER
|
|
ASKAV(PRE) | ;Ask and return Access;Verify code, Turn off echo before calling
|
|
DEVPAS() | ;EF. Ask device password
|
|
LC | ||
NO | ;Tell why didn't get on
|
|
PGM | ;
|
|
UP(%) | ||
SET2() | ;EF. Return error code (also called from XUSRB)
|
|
FAC | ;Failed access
|
|
A | ||
C | ;CLOSE
|
|
B | ||
H | ;Exit point for all applications
|
|
UVALID() | ;EF. Is it valid for this user to sign on?
|
|
XOPT | ;Setup initial XOPT
|
|
ON | ||
OK | ||
ACCEPT(TO) | ;Read A/V and echo '*' char.
|
|
XUVOL | ;Setup XUENV, XUCI,XQVOL,XUVOL,XUOSVER
|
|
SET1(FLAG) | ;Setup parameters (also called from XUSRB)
|
|
CHK() | ;Check that option exeist and LOCK
|
|
RESTART | ;
|
Name | Field # of Occurrence |
---|---|
^%ZIS | SET1+5 |
$$VERSION^%ZOSV | XUVOL+1 |
GETENV^%ZOSV | XUVOL+1 |
$$EZBLD^DIALOG | XUS+13 |
^DIK | CHECKAV+18 |
$$FMTE^XLFDT | UVALID+2 |
$$HTFM^XLFDT | SET2+2 |
CHEK^XQ83 | OK |
NEXT^XUS1 | OK+2 |
USER^XUS1 | B+1 |
INTRO^XUS1A | XUS+4 |
$$AUTOXUS^XUS1B | A+4 |
$$NO^XUS3 | NO+1 |
CLRFAC^XUS3 | B+6 |
GETFAC^XUS3 | SET1+7 |
SEC^XUS3 | B+2 |
TT^XUS3 | B+5 |
^XUSCLEAN | C+1 |
XMR^XUSCLEAN | A+6 |
$$EN^XUSHSH | CHECKAV+13, CHECKAV+16 |
$$INHIBIT^XUSRB | SET2+5 |
$$CHKASH^XUSRB4 | CHECKAV+5 |
$$CHKCCOW^XUSRB4 | CHECKAV+6 |
$$LKCHECK^XUSTZIP | A+2 |
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: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZIS(1 - [#3.5] | B+2, PGM+1, SET2+6, SET2+9 |
^%ZOSF( | B+4 |
^%ZOSF("EON" | ON, SET1+2 |
^DD("DILOCKTM" | SET1+12 |
^DIC(19 - [#19] | PGM+3, CHK+1 |
^VA(200 - [#200] | PGM+2, CHECKAV+13, CHECKAV+14, LBAV+2, USER+1 |
^XTV(8989.3 - [#8989.3] | XUVOL+2, XOPT+1, SET1+11 |
^XUSEC( | CHK+1 |
^XUTL("XQ" | SET1+4! |
^XUTL("ZISPARAM" | XUS+5! |
Name | Line Occurrences |
---|---|
$$ACCEPT | ASKAV+2, ASKAV+6 |
$$ASKAV | A+5 |
$$CHECKAV | A+8 |
$$CHK | PGM+1, PGM+2 |
$$DEVPAS | RESTART+2 |
$$SET2 | RESTART+1 |
$$UP | LC, CHECKAV+9 |
$$UVALID | A+9 |
B | A+4 |
FAC | LBAV+1, DEVPAS+2 |
H | RESTART+2, A+5 |
LBAV | CHECKAV+13, CHECKAV+17 |
LC | DEVPAS+2 |
NO | XUS+12, RESTART+1, RESTART+2, A+2, A+9, B+1, B+2, B+3, PGM+5 |
OK | PGM+1, PGM+2, PGM+3 |
RESTART | NO+1 |
SET1 | XUS+12 |
USER | A+4, CHECKAV+14 |
XOPT | SET1+3 |
XUVOL | SET1+3 |
Name | Field # of Occurrence |
---|---|
^( | B+4, USER+1 |
^("EOFF" | SET1+2 |
^("XUS" | XOPT+1 |
^(0 | CHK+1 |
^(1 | SET2+6 |
^(1.1 | LBAV+2*, USER+1 |
^(90 | SET2+9 |
^(95 | B+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | UP~, CHECKAV+1~, SET1+1~, SET1+8*, SET1+9, SET1+10, SET1+11, SET2+1~, SET2+5* |
%1 | B!, FAC+1, FAC+2*, CHECKAV+1~, CHECKAV+10*, CHECKAV+14*, CHECKAV+16*, DEVPAS+2* |
>> %UCI | SET2+4* |
>> %ZIS | SET1+5* |
A | ACCEPT+2~*, ACCEPT+4*, ACCEPT+5, ACCEPT+6*, ACCEPT+7*, ACCEPT+9 |
AV | A+5*, A+6, A+7, A+8! |
C | ACCEPT+2~, ACCEPT+4*, ACCEPT+5, ACCEPT+6, ACCEPT+7 |
DA | CHECKAV+1~, CHECKAV+18* |
DIK | CHECKAV+1~, CHECKAV+18* |
>> DILOCKTM | SET1+12* |
DT | SET2+2*, SET2+9, UVALID+3 |
DTIME | B+4*, SET2+8* |
DUOUT | ACCEPT+2!, ACCEPT+4* |
DUZ | A+4*, A+6*, A+8*, B+1, B+2, B+3, PGM+2, CHK+1, FAC+1, SET1+4* , SET2+3!, SET2+4*, UVALID+1 |
DUZ("AG" | SET2+4* |
DUZ("ASH" | PGM+3, UVALID+4 |
DUZ("BUF" | B+4 |
DUZ("LANG" | SET1+3* |
DUZ(0 | SET1+4*, SET2+4* |
DUZ(2 | SET2+4* |
E | ACCEPT+2~*, ACCEPT+3, ACCEPT+5* |
FLAG | SET1~, SET1+5 |
>> I | XOPT+2*, SET2+7* |
IEN | CHECKAV+1~, CHECKAV+2*, CHECKAV+4, CHECKAV+5*, CHECKAV+6*, CHECKAV+14*, CHECKAV+19, LBAV+2 |
IO("IP" | B+6, SET1+7 |
IO("ZIO" | XUS+14 |
ION | SET1+4*, SET1+6 |
>> IOP | SET1+5* |
>> IOS | SET1+4*, SET1+6 |
IX | USER~, USER+1 |
>> PGM | A+6*, OK+1* |
>> POP | XUS+12, SET1+5 |
PRE | ASKAV~, ASKAV+1*, ASKAV+2, ASKAV+6 |
TO | ACCEPT~, ACCEPT+2*, ACCEPT+4 |
U | XUS+4*, XUS+11*, XUS+14, RESTART+2, A+2, A+4, B+4, CHK+1, LBAV+2, XUVOL+1* , XOPT+2, SET1+2*, SET1+3, SET1+8, SET2+7, SET2+9, UVALID+2, UVALID+3, UVALID+5, DEVPAS+2 |
X | A+4*, B+4*, LC*, NO+1*, ASKAV+1~, ASKAV+2*, ASKAV+3*, ASKAV+4*, ASKAV+5, ASKAV+6* , ASKAV+7, CHECKAV+1~, CHECKAV+10*, CHECKAV+11, CHECKAV+13*, CHECKAV+14, CHECKAV+16*, CHECKAV+17, LBAV+2*, XUVOL+2* , SET2+1~, SET2+6*, SET2+7, DEVPAS+1*, DEVPAS+2* |
X1 | CHECKAV~, CHECKAV+4, CHECKAV+5, CHECKAV+6, CHECKAV+9*, CHECKAV+10, CHECKAV+16 |
>> XMCHAN | A+6* |
>> XOPT | A+2, B+4, XOPT+1*, XOPT+2*, SET1+3, SET1+8, SET2+7*, SET2+9 |
>> XQUR | A*, A+7* |
>> XQVOL | XUVOL+1*, XUVOL+2 |
>> XQXFLG("GUI" | XUS+11* |
>> XQY | PGM+1*, PGM+2*, PGM+3* |
>> XU1 | RESTART+2, SET2+6*, DEVPAS+2 |
>> XUA | A+6*, OK+1* |
>> XUCI | XUS+14, XUVOL+1* |
>> XUDEV | B+2, PGM+1, SET1+4*, SET1+6*, SET1+11, SET2+6, SET2+9 |
>> XUENV | XUS+14, XUVOL+1* |
>> XUEOFF | A+5, SET1+2*, DEVPAS+1 |
>> XUEON | A+5, B, SET1+2*, DEVPAS+1 |
XUF | B!*, FAC+2, CHECKAV+10, CHECKAV+16, LBAV+1, SET1+4*, SET1+10*, SET1+11*, DEVPAS+2 |
XUF( | FAC+1*, FAC+2*, CHECKAV+14*, SET1+10* |
>> XUFAC | A+2* |
>> XUFAC(1 | CHECKAV+18 |
>> XUHALT | A+2* |
>> XUIOP | SET1+6* |
>> XUM | XUS+12*, RESTART+1*, RESTART+2*, A+2*, A+9*, B+1, B+2, PGM+4* |
>> XUM(0 | UVALID+2* |
>> XUNOW | SET2+2*, UVALID+2 |
>> XUOSVER | XUVOL+1* |
XUSER | SET2+3! |
XUSER( | USER+1*, UVALID+2 |
XUSER(0 | A*, A+4, USER+1*, SET2+4*, UVALID+3, UVALID+5 |
XUSER(1 | A*, CHECKAV+17, USER+1*, SET2+4* |
>> XUSTMP(51 | XUS+13*, ASKAV+2 |
>> XUSTMP(52 | XUS+13*, ASKAV+6 |
>> XUTT | B+5, CHECKAV+9*, SET2+4* |
>> XUVOL | XUVOL+2* |
Y | PGM+1*, PGM+2*, PGM+3*, CHK+1, ASKAV+1~, ASKAV+6*, CHECKAV+1~, XUVOL+1 |