LEX2079 ;ISL/KER - LEX*2.0*79 Env Check ;07/01/2011
Source file <LEX2079.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| ENV2 | ; Environment Check (for testing only) | |
| CKO | ;   Kill and Obtain new global | |
| GBLS | ;   Check Write access on globals | |
| BM(X) | ;   Blank Line with Message | |
| TRIM(X) | ;   Trim Spaces | |
| ET(X) | ;   Error Text | |
| EF | ;   Exported Files | |
| CO | ;   Obtain new global | |
| CM | ;   Missing ^LEXM | |
| ED | ;   Error Display | |
| CHK | ;   Check the Checksum | |
| CF | ;   Failed checksum | |
| INSD(X) | ||
| IMP | ;   Import names | |
| UR(X) | ;   Check User variables | |
| RGNF | ;   Required global not found | |
| ENV | ; Environment Check ; ; General | |
| CS | ;   Checksum for import global | |
| RGBL(X) | ;   Check Write access on globals | |
| CW | ;   Wrong ^LEXM | |
| CU | ;   Unable to verify | |
| QUIT | ;     Quit   Passed Environment Check | |
| ABRT | ;     Abort  Failed Environment Check, KILL the distribution | |
| OK | ;   Environment is OK | |
| VC(X,Y) | ;   Verify Checksum for import global | |
| SY(X) | ;   Check System variables | |
| NOTDEF(IEN) | ;   Check to see if user is defined | |
| M(X) | ;   Message | |
| GD | ;   Global Data | |
| EXIT | ;     Exit   Failed Environment Check | |
| TEST | ; | |
| INS(X) | ;   Installed | |
| CPD(X) | ;   Check Current Patched Data is installed | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences | 
|---|---|
| $$CPD | ENV+57, GBLS+8, RGBL+2 | 
| $$INS | ENV+33 | 
| $$INSD | ENV+33 | 
| $$NOTDEF | UR+2 | 
| $$RGBL | ENV+47 | 
| $$SY | ENV+12 | 
| $$TRIM | GBLS+9, RGBL+3 | 
| $$UR | ENV+10 | 
| $$VC | CS+3 | 
| ABRT | ENV+13, ENV+20, ENV+46, ENV+48, ENV+49, ENV+59, ENV+61 | 
| BM | ENV+7, GBLS+2, GBLS+5, GBLS+7, CHK+2, CS+1, OK+3 | 
| CF | CS+5 | 
| CKO | CW+3, CW+4, CU+1, CF+1 | 
| CM | RGBL+11, RGNF+3, CS+5 | 
| CO | CM+1 | 
| CS | ENV+61, CHK+1 | 
| CU | CS+5 | 
| CW | CS+5, TEST+1 | 
| ED | EXIT+1, ABRT+1, CHK+1, TEST+1 | 
| ENV | ENV2+1 | 
| ET | ENV+10, ENV+12, ENV+21, ENV+44, RGBL+10, RGNF+2, CM+1, CW+1, CW+3, CW+4 , CU+1, CF+1, CO+2, CO+3, CO+4, CKO+1, CKO+2, CKO+3, CKO+4, CKO+5 | 
| GBLS | ENV+59 | 
| IMP | ENV+4, ENV+24, RGNF+1, VC+2, CM+1, CW+1, CU+1, CF+1, CO+1, CKO+1 , OK+2 | 
| M | ENV+7, ENV+43, ENV+46, GBLS+3, GBLS+4, GBLS+6, GBLS+7, GBLS+12, GBLS+13, GBLS+14 , CHK+2, CS+4, VC+7, ED+1, ED+2, OK+3 | 
| OK | QUIT+1 | 
| QUIT | ENV+50, ENV+57 | 
| RGNF | GBLS+12 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| DA | INSD+1~, INSD+7!, INSD+15!, NOTDEF+1~* | 
| DA(1 | INSD+7*, INSD+15* | 
| DA(2 | INSD+15* | 
| DIC | NOTDEF+1~* | 
| DIQ | NOTDEF+1~* | 
| DR | NOTDEF+1~* | 
| DUZ | UR+2 | 
| DUZ(0 | UR+1 | 
| IEN | NOTDEF~, NOTDEF+1 | 
| INS | CPD+1~* | 
| IO | SY+1 | 
| IOF | SY+1 | 
| IOM | SY+1 | 
| ION | SY+1 | 
| IOSL | SY+1 | 
| IOST | SY+1 | 
| LEX | ENV+25~, INS+1~*, INS+2, INSD+1~*, INSD+2, NOTDEF+1~ | 
| LEXB | CW+1~*, CW+2, CW+3 | 
| LEXB1 | GBLS+1~, GBLS+11*, GBLS+13, RGBL+1~, RGBL+5* | 
| LEXB2 | GBLS+1~, GBLS+11*, GBLS+13, RGBL+1~, RGBL+5* | 
| LEXBUILD | ENV+4~, ABRT+1, RGNF+1~, VC+1~, VC+2, CM+1~, CW+1~, CW+2, CU+1~, CF+1~ , CO+1~, CO+3, CKO+1~, CKO+5, OK+1~, OK+2, IMP+9* | 
| LEXC | ENV+25~, ENV+26*, ENV+28*, ENV+45, VC+3~, VC+8*, VC+9 | 
| LEXC1 | ENV+25~, ENV+26*, ENV+37 | 
| LEXC2 | ENV+25~, ENV+26*, ENV+29, ENV+35, ENV+38 | 
| LEXC3 | ENV+25~, ENV+26*, ENV+29*, ENV+36, ENV+40, ENV+42 | 
| LEXC4 | ENV+25~, ENV+26*, ENV+29*, ENV+42 | 
| LEXCK | CS+2~*, CS+3, VC+3~, VC+4*, VC+5, VC+17 | 
| LEXCNT | VC+3~, VC+6*, VC+12*, VC+13* | 
| LEXCOM | ENV+31~, ENV+32*, ENV+42 | 
| LEXCPD | GBLS+1~, GBLS+8*, GBLS+10, RGBL+1~, RGBL+2*, RGBL+4 | 
| LEXD | VC+3~, VC+14* | 
| LEXDA | INSD+1~, INSD+7*, INSD+8, INSD+15*, INSD+17, INSD+19 | 
| LEXE | ENV+4~, ENV+13, ENV+46, ENV+48, ENV+49, ENV+59, ENV+61, EXIT+1!, ABRT+1, ABRT+2! , GBLS+1~, GBLS+9*, INSD+1~, INSD+21*, INSD+22, CHK+1, CS+1!, ED+2! | 
| LEXE( | ET+1*, ED+1 | 
| LEXE(0 | ET+1* | 
| LEXEC | RGBL+1~, RGBL+3* | 
| LEXF | GBLS+1~, GBLS+10*, GBLS+13, RGBL+1~, RGBL+4* | 
| LEXFULL | ENV+50, ENV+57, QUIT+1!, EXIT+1!, ABRT+2! | 
| LEXFY | ENV+4~, ENV+6, RGNF+1~, VC+1~, CM+1~, CW+1~, CU+1~, CF+1~, CO+1~, CKO+1~ , OK+1~, IMP+13* | 
| LEXG | ENV+4~, ENV+47*, ENV+48, ENV+49 | 
| LEXGBL | GBLS+1~, GBLS+10*, GBLS+12, GBLS+13, RGBL+1~, RGBL+4*, RGBL+6, RGNF+2, RGNF+3 | 
| LEXGCS | VC+3~, VC+8*, VC+15*, VC+17 | 
| LEXI | ENV+25~, ENV+27*, ENV+28, ENV+30*, ENV+31, ENV+34, GBLS+1~, GBLS+8*, GBLS+9, RGBL+1~ , RGBL+2*, RGBL+3, INS+1~, INS+2*, INS+3, INSD+1~, INSD+18*, INSD+20*, INSD+21, INSD+22 , ET+1~*, ED+1~* | 
| LEXIGHF | ENV+4~, RGNF+1~, VC+1~, CM+1~, CW+1~, CU+1~, CF+1~, CO+1~, CO+3, CKO+1~ , CKO+4, OK+1~, IMP+11* | 
| LEXINE | ENV+31~, ENV+33*, ENV+41 | 
| LEXINS | ENV+31~, ENV+33* | 
| LEXIT | ENV+57~* | 
| LEXL | VC+3~, VC+6*, VC+13 | 
| LEXLC | VC+3~, VC+6*, VC+13* | 
| LEXLREV | ENV+4~, RGNF+1~, VC+1~, CM+1~, CW+1~, CU+1~, CF+1~, CO+1~, CKO+1~, OK+1~ , IMP+4* | 
| LEXMSG | INSD+1~, INSD+6!, INSD+13! | 
| LEXN | VC+3~, VC+8*, VC+9*, VC+10, VC+11, VC+14 | 
| LEXNC | VC+3~, VC+8*, VC+14*, VC+16 | 
| LEXND | CS+2~, CS+3*, VC+3~, VC+4*, VC+5, VC+6, VC+16 | 
| LEXNS | INSD+1~, INSD+2*, INSD+3, INSD+5 | 
| LEXO | ENV+25~, ENV+40*, ENV+45 | 
| LEXOK | GBLS+1~*, GBLS+12*, GBLS+14 | 
| LEXOUT | INSD+1~, INSD+6!, INSD+13! | 
| LEXOUT("DILIST" | INSD+6, INSD+9, INSD+11, INSD+13, INSD+18, INSD+20 | 
| LEXP | ENV+25~, INS+1~, INS+2*, VC+3~, VC+15* | 
| LEXPAT | ENV+25~, ENV+28*, ENV+29, ENV+31~, ENV+32*, ENV+33, ENV+37, ENV+44 | 
| LEXPI | INSD+1~, INSD+6*, INSD+7, INSD+14, INSD+15, INSD+16 | 
| LEXPN | ENV+25~, ENV+33*, ENV+39, ENV+44, INSD+1~, INSD+2*, INSD+3*, INSD+9, INSD+11, INSD+13 , INSD+17, INSD+19 | 
| LEXPTYPE | ENV+4~, ENV+6, RGNF+1~, VC+1~, CM+1~, CW+1~, CU+1~, CF+1~, CO+1~, CKO+1~ , OK+1~, IMP+1*, IMP+2* | 
| LEXQTR | ENV+4~, ENV+6, RGNF+1~, VC+1~, CM+1~, CW+1~, CU+1~, CF+1~, CO+1~, CKO+1~ , OK+1~, IMP+15* | 
| LEXR | ENV+25~, ENV+26*, ENV+29*, ENV+35, ENV+36 | 
| LEXREL | ENV+31~, ENV+32*, ENV+38 | 
| LEXREQ | ENV+31~*, ENV+32 | 
| LEXREQP | ENV+4~, RGNF+1~, VC+1~, CM+1~, CW+1~, CU+1~, CF+1~, CO+1~, CKO+1~, OK+1~ | 
| LEXREQP( | ENV+27, ENV+28, ENV+30, ENV+31 | 
| LEXREQP(0 | ENV+24 | 
| LEXREQP(1 | IMP+6* | 
| LEXREQP(2 | IMP+7* | 
| LEXRT | GBLS+1~, GBLS+10*, GBLS+11, GBLS+12, GBLS+13, RGBL+1~, RGBL+4*, RGBL+5, RGBL+6 | 
| LEXS | GBLS+1~, GBLS+8*, RGBL+1~, RGBL+2*, RGBL+6*, RGBL+7, RGBL+8*, RGBL+9*, RGBL+10, VC+3~ , VC+6*, VC+7*, VC+13 | 
| LEXSCR | INSD+1~, INSD+4*, INSD+5, INSD+16*, INSD+17, INSD+19* | 
| LEXSTR | ENV+4~, ENV+6*, ENV+7 | 
| LEXT | GBLS+1~, GBLS+10*, GBLS+11, GBLS+13, RGBL+1~, RGBL+4*, RGBL+5, VC+3~, VC+14*, VC+15 , OK+1~, OK+2*, OK+3 | 
| LEXTX | ENV+31~, ENV+37*, ENV+38*, ENV+40*, ENV+41*, ENV+42*, ENV+43 | 
| LEXV | INS+1~, INS+2*, INS+3, CS+2~, CS+3*, CS+4, CS+5 | 
| LEXVD | INSD+1~, INSD+9*, INSD+10, INSD+11*, INSD+12 | 
| LEXVI | INSD+1~, INSD+13*, INSD+14, INSD+15, INSD+16 | 
| LEXVR | INSD+1~, INSD+2*, INSD+3*, INSD+4, INSD+8 | 
| LEXX | GBLS+1~, GBLS+8, GBLS+9*, GBLS+10, RGBL+1~, RGBL+2, RGBL+3*, RGBL+4 | 
| U | ENV+8* | 
| X | GBLS+1~, GBLS+8*, RGBL~, RGBL+2*, RGBL+6*, RGBL+7, RGBL+10, RGBL+11, RGBL+12, INS~ , INS+1*, INSD~, INSD+1, INSD+2, INSD+9, INSD+10*, INSD+11, INSD+12*, INSD+22*, INSD+23 , VC~, VC+4, SY~, UR~, CPD~, ET~, ET+1, BM~, BM+1*, M~ , M+1*, TRIM~, TRIM+1*, TRIM+2*, TRIM+3 | 
| >> XPDABORT | ABRT+1* | 
| >> XPDDIQ("XPI1" | ENV+5!* | 
| >> XPDDIQ("XPZ1" | ENV+5!* | 
| XPDENV | ENV+50, ENV+59, ENV+61, ENV2+1~* | 
| >> XPDQUIT | EXIT+1*, ABRT+1* | 
| >> XPDQUIT( | ABRT+1* | 
| Y | VC~, VC+4 |