LEX2052 ;ISL/KER - LEX*2.0*52 Environment Check ;08/18/2007
Source file <LEX2052.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENV | ; LEX*2.0*52 Environment Check
; ; General |
|
| QUIT | ; Quit Passed Environment Check
|
|
| EXIT | ; Exit Failed Environment Check
|
|
| ABRT | ; Abort Failed Environment Check, KILL the distribution
|
|
| SY(X) | ; Check System variables
|
|
| UR(X) | ; Check User variables
|
|
| ET(X) | ; Error Text
|
|
| ED | ; Error Display
|
|
| NOTDEF(IEN) | ; Check to see if user is defined
|
|
| OK | ; Environment is OK
|
|
| BM(X) | ; Blank Line with Message
|
|
| M(X) | ; Message
|
|
| TRIM(X) | ; Trim Spaces
|
|
| IMP | ; Import names
; Patch Type |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | NOTDEF+1~* |
| DIC | NOTDEF+1~* |
| DIQ | NOTDEF+1~* |
| DR | NOTDEF+1~* |
| DUZ | UR+2 |
| DUZ(0 | UR+1 |
| IEN | NOTDEF~, NOTDEF+1 |
| IO | SY+1 |
| IOF | SY+1 |
| IOM | SY+1 |
| ION | SY+1 |
| IOSL | SY+1 |
| IOST | SY+1 |
| LEX | NOTDEF+1~ |
| LEXBLDS | ENV+4~, OK+1~, OK+2, IMP+8* |
| LEXBUILD | ENV+4~, OK+1~, IMP+8* |
| LEXC | ED+1~* |
| LEXE | ENV+4~, ENV+13, ENV+29, EXIT+1!, ABRT+1, ABRT+3!, ED+2! |
| LEXE( | ET+1*, ED+1 |
| LEXE(0 | ET+1* |
| LEXFULL | QUIT+1!, EXIT+1!, ABRT+3! |
| LEXFY | ENV+4~, ENV+6, OK+1~, IMP+12* |
| LEXG | ENV+4~ |
| LEXI | ENV+25~, ENV+26*, ET+1~*, ED+1~* |
| LEXIGHF | ENV+4~, OK+1~, IMP+10* |
| LEXLREV | ENV+4~, OK+1~, IMP+4* |
| LEXPAT | ENV+25~, ENV+26*, ENV+27, ENV+28 |
| LEXPN | ENV+25~, ENV+27*, ENV+28 |
| LEXPTYPE | ENV+4~, ENV+6, OK+1~, IMP+2* |
| LEXQTR | ENV+4~, ENV+6, OK+1~, IMP+14* |
| LEXREQP | ENV+4~, ENV+24, ENV+26, OK+1~, IMP+6* |
| LEXSTR | ENV+4~, ENV+6*, ENV+7 |
| LEXT | OK+1~, OK+2*, OK+3 |
| U | ENV+8* |
| X | SY~, UR~, 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!* |
| >> XPDQUIT | EXIT+1*, ABRT+1* |
| >> XPDQUIT("ICPT*6.0*37" | ABRT+2* |
| >> XPDQUIT("LEX*2.0*52" | ABRT+2* |