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 |