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 |