XOBUENV ;; ld/alb - VistaLink Environment Check ; 11/15/2007 08:44
Source file <XOBUENV.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;- entry point
|
|
| ENQ | ||
| PROG | ;- check environment for programmer variables
|
|
| OSCHK | ;- check environment for operating system (DSM or OpenM)
|
|
| STPLSTNR() | ;- ask if all listeners are stopped prior to installing package
|
|
| SETARRAY(LINETAG,XOBARRY) | ;-
|
|
| FILE18 | ;- check for obsolete Kernel file #18 which is in VistALink's numberspace
|
|
| FILE18Q | ||
| ASKINSTL() | ;- ask if user wants to abort install
|
|
| REASK() | ;- ask user again if they want to continue with install (pre-init will
; delete file #18) |
|
| ASKINSTR() | ;- ask if user wants file deletion instructions
|
|
| ANSWER(XOB0,XOBA,XOBB,XOBARR,XOBHLP,XOBHARR) | ;wrap FileMan DIR call
|
|
| FILECHK() | ;- check for file 18
|
|
| PRNTXT(TEXT) | ;- display user text
|
|
| TOP | ;- top of screen
|
|
| PAUSE | ;- enhance readability of text
|
|
| INTRO | ;- display message to user explaining file #18
|
|
| INSTR1 | ;- user instructions to delete file #18
|
|
| INSTR2 | ;- user instructions to delete file #18 (continued)
|
|
| OSMSG | ;- message to user if operating system is not Cache or DSM
|
|
| DIRARR | ;- DIR array text
|
|
| DIRHARR | ;-DIR help array text
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("OS" | OSCHK+3 |
| ^DD(18 | FILECHK+6 |
| ^DIC(18 | FILECHK+6 |
| Name | Line Occurrences |
|---|---|
| $$ANSWER | STPLSTNR+15, ASKINSTL+13, REASK+12, ASKINSTR+7 |
| $$ASKINSTL | FILE18+16 |
| $$ASKINSTR | FILE18+12, FILE18+18, FILE18+25 |
| $$FILECHK | FILE18+5 |
| $$REASK | FILE18+23 |
| $$STPLSTNR | EN+19 |
| ENQ | EN+3, EN+6 |
| FILE18 | EN+9 |
| FILE18Q | FILE18+5, FILE18+11 |
| OSCHK | EN+6 |
| PAUSE | FILE18+12, FILE18+18, FILE18+25 |
| PRNTXT | OSCHK+6, FILE18+8, FILE18+12, FILE18+18, FILE18+25 |
| PROG | EN+3 |
| SETARRAY | STPLSTNR+11, STPLSTNR+14 |
| TOP | FILE18+12, FILE18+18, FILE18+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIR | ANSWER+14~, ANSWER+22!, PAUSE+3! |
| DIR("?" | ANSWER+20*, ANSWER+21* |
| DIR("A" | ANSWER+17*, ANSWER+18*, PAUSE+3* |
| DIR("B" | ANSWER+19* |
| DIR(0 | ANSWER+16*, PAUSE+3* |
| DIRUT | ANSWER+14~, ANSWER+23 |
| DUZ | PROG+3 |
| DUZ(0 | PROG+3 |
| I | SETARRAY+2~, SETARRAY+3*, FILE18+2~, PRNTXT+3~, PRNTXT+4* |
| IOF | TOP+3 |
| IOST | TOP+2, PAUSE+2 |
| LINE | SETARRAY+2~, SETARRAY+3*, FILE18+2~, PRNTXT+3~, PRNTXT+4* |
| LINETAG | SETARRAY~, SETARRAY+1 |
| TEXT | PRNTXT~, PRNTXT+2 |
| U | ANSWER+23 |
| X | ANSWER+14~ |
| XOB0 | STPLSTNR+2~, STPLSTNR+5*, STPLSTNR+15, ASKINSTL+2~, ASKINSTL+3*, ASKINSTL+13, REASK+3~, REASK+4*, REASK+12, ASKINSTR+2~ , ASKINSTR+3*, ASKINSTR+7, ANSWER~, ANSWER+16 |
| XOBA | STPLSTNR+2~, STPLSTNR+6*, STPLSTNR+15, ASKINSTL+2~, ASKINSTL+4*, ASKINSTL+13, REASK+3~, REASK+5*, REASK+12, ASKINSTR+2~ , ASKINSTR+4*, ASKINSTR+7, ANSWER~, ANSWER+17, FILECHK+2~, FILECHK+3*, FILECHK+5*, FILECHK+6*, FILECHK+7 |
| XOBABORT | FILE18+2~, FILE18+16*, FILE18+17, FILE18+18, FILE18+22 |
| XOBARR | STPLSTNR+2~, STPLSTNR+15, ASKINSTL+2~, ASKINSTL+13, REASK+3~, REASK+12, ASKINSTR+2~, ASKINSTR+7, ANSWER~, ANSWER+18 |
| XOBARR(1 | ASKINSTL+6*, REASK+7*, ASKINSTR+6* |
| XOBARR(2 | ASKINSTL+7*, REASK+8* |
| XOBARR(3 | ASKINSTL+8*, REASK+9* |
| XOBARR(4 | ASKINSTL+9*, REASK+10* |
| XOBARR(5 | ASKINSTL+10*, REASK+11* |
| XOBARR(6 | ASKINSTL+11* |
| XOBARR(7 | ASKINSTL+12* |
| XOBARRY | SETARRAY~, SETARRAY+1, SETARRAY+3 |
| XOBASK | FILE18+2~, FILE18+23*, FILE18+24, FILE18+25 |
| XOBB | STPLSTNR+2~, STPLSTNR+7*, STPLSTNR+15, ASKINSTL+2~, ASKINSTL+5*, ASKINSTL+13, REASK+3~, REASK+6*, REASK+12, ASKINSTR+2~ , ASKINSTR+5*, ASKINSTR+7, ANSWER~, ANSWER+19 |
| XOBFIL | FILECHK+2~ |
| XOBFIL("NAME" | FILECHK+5 |
| XOBHARR | STPLSTNR+2~, STPLSTNR+15, ANSWER~, ANSWER+21 |
| XOBHLP | STPLSTNR+2~, STPLSTNR+8*, STPLSTNR+15, ANSWER~, ANSWER+20 |
| XOBOS | OSCHK+2~, OSCHK+3*, OSCHK+4 |
| >> XPDABORT | EN+3, EN+6, EN+12*, EN+14, EN+19*, EN+20, PROG+4*, OSCHK+5*, FILE18+19*, FILE18+26* |
| >> XPDENV | EN+12*, EN+14, EN+17, FILE18+11 |
| Y | ANSWER+14~, ANSWER+23 |
| Name | Field # of Occurrence |
|---|---|
| $T(@LINETAG+I | SETARRAY+3 |
| $T(@TEXT+I | PRNTXT+4 |
