XU8PE655 ;ISD/HGW Patch XU*8*655 Environment Check Routine ;03/26/15 12:04
Source file <XU8PE655.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENV | ; Environment Check
|
|
| QUIT | ; Quit Passed Environment Check
|
|
| EXIT | ; Exit Failed Environment Check
|
|
| ABRT | ; Abort Failed Environment Check, KILL the distribution
|
|
| T1 | ; Environment Check #1 (for testing only)
|
|
| T2 | ; Environment Check #2 (for testing only)
|
|
| RGBL(X) | ; Check for required globals
|
|
| INS(X) | ; Installed
|
|
| INSD(X) | ||
| SY(X) | ; Check System variables
|
|
| UR(X) | ; Check User variables
|
|
| CPD(X) | ; Check Current Patched Data is installed
|
|
| CM | ; Missing ^XU8P655
|
|
| CO | ; Obtain new global
|
|
| 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
|
|
| EF | ; Exported Files
|
|
| GD | ; Global Data
|
| Name | Field # of Occurrence |
|---|---|
| FIND^DIC | INSD+5, INSD+8, INSD+17, INSD+19 |
| $$IENS^DILF | INSD+7, INSD+15 |
| EN^DIQ1 | NOTDEF+1 |
| $$FMTE^XLFDT | ENV+36, INSD+10, INSD+12, INSD+21 |
| $$PATCH^XPDUTL | INS+1 |
| $$PKG^XPDUTL | INS+2, INSD+2 |
| $$VER^XPDUTL | INS+2, INSD+2 |
| $$VERSION^XPDUTL | INS+2 |
| BMES^XPDUTL | BM+1 |
| MES^XPDUTL | M+1 |
| $$PROD^XUPROD | ENV+47 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences |
|---|---|
| $$CPD | RGBL+2 |
| $$INS | ENV+30 |
| $$INSD | ENV+30 |
| $$NOTDEF | UR+2 |
| $$RGBL | ENV+49 |
| $$SY | ENV+13 |
| $$TRIM | RGBL+3 |
| $$UR | ENV+11 |
| ABRT | ENV+14, ENV+45, ENV+50, ENV+51 |
| BM | ENV+8, OK+3 |
| CM | RGBL+11 |
| CO | CM+1 |
| ED | EXIT+1, ABRT+1 |
| ENV | T1+1, T2+1 |
| ET | ENV+11, ENV+13, ENV+43, RGBL+10, CM+1, CO+2, CO+3, CO+4 |
| IMP | ENV+5, ENV+22, CM+1, CO+1, OK+2 |
| M | ENV+8, ENV+42, ENV+45, ED+1, ED+2, OK+3 |
| OK | QUIT+1 |
| QUIT | ENV+47, ENV+52 |
| >> | 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 |
| U | ENV+9* |
| X | 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, 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+6!* |
| >> XPDDIQ("XPZ1" | ENV+6!*, QUIT+2* |
| XPDENV | ENV+52, QUIT+2, T1+1!, T2+1~* |
| >> XPDQUIT | EXIT+1*, ABRT+1* |
| >> XPDQUIT( | ABRT+1* |
| XUX | ENV+23~, INS+1~*, INS+2, INSD+1~*, INSD+2, NOTDEF+1~ |
| XUXB | ENV+4~, ENV+20~ |
| XUXB1 | RGBL+1~, RGBL+5* |
| XUXB2 | RGBL+1~, RGBL+5* |
| XUXBUILD | ENV+4~, ABRT+1, CM+1~, CO+1~, CO+3, OK+1~, OK+2, IMP+13* |
| XUXC | ENV+23~, ENV+24*, ENV+26*, ENV+44 |
| XUXC1 | ENV+23~, ENV+24*, ENV+32, ENV+33, ENV+34 |
| XUXC2 | ENV+23~, ENV+24*, ENV+33, ENV+35 |
| XUXC3 | ENV+23~, ENV+24*, ENV+33, ENV+37 |
| XUXC4 | ENV+23~, ENV+24*, ENV+33, ENV+40 |
| XUXCOM | ENV+28~, ENV+29*, ENV+41 |
| XUXCPD | RGBL+1~, RGBL+2*, RGBL+4 |
| XUXDA | INSD+1~, INSD+7*, INSD+8, INSD+15*, INSD+17, INSD+19 |
| XUXE | ENV+4~, ENV+14, ENV+45, ENV+50, ENV+51, EXIT+1!, ABRT+1, ABRT+2!, INSD+1~, INSD+21* , INSD+22, ED+2! |
| XUXE( | ET+1*, ED+1 |
| XUXE(0 | ET+1* |
| XUXEC | RGBL+1~, RGBL+3* |
| XUXF | RGBL+1~, RGBL+4* |
| XUXFULL | ENV+52, QUIT+1!, EXIT+1!, ABRT+2! |
| XUXFY | ENV+4~, CM+1~, CO+1~, OK+1~ |
| XUXG | ENV+4~, ENV+20~, ENV+49*, ENV+50, ENV+51 |
| XUXGBL | RGBL+1~, RGBL+4*, RGBL+6 |
| XUXI | ENV+23~, ENV+25*, ENV+26, ENV+27*, ENV+28, ENV+31, 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~* |
| XUXIGHF | ENV+4~, CM+1~, CO+1~, CO+3, OK+1~, IMP+15* |
| XUXINE | ENV+28~, ENV+30*, ENV+39 |
| XUXINS | ENV+28~, ENV+30* |
| XUXLREV | ENV+4~, CM+1~, CO+1~, OK+1~, IMP+4* |
| XUXMSG | INSD+1~, INSD+6!, INSD+13! |
| XUXNS | INSD+1~, INSD+2*, INSD+3, INSD+5 |
| XUXO | ENV+23~, ENV+39*, ENV+44 |
| XUXOK | ENV+4~, ENV+20~ |
| XUXOUT | INSD+1~, INSD+6!, INSD+13! |
| XUXOUT("DILIST" | INSD+6, INSD+9, INSD+11, INSD+13, INSD+18, INSD+20 |
| XUXP | ENV+23~, INS+1~, INS+2* |
| XUXPAT | ENV+23~, ENV+26*, ENV+28~, ENV+29*, ENV+30, ENV+34, ENV+43 |
| XUXPI | INSD+1~, INSD+6*, INSD+7, INSD+14, INSD+15, INSD+16 |
| XUXPN | ENV+23~, ENV+30*, ENV+38, ENV+43, INSD+1~, INSD+2*, INSD+3*, INSD+9, INSD+11, INSD+13 , INSD+17, INSD+19 |
| XUXPTYPE | ENV+4~, ENV+7, CM+1~, CO+1~, OK+1~, IMP+2* |
| XUXQTR | ENV+4~, CM+1~, CO+1~, OK+1~ |
| XUXR | ENV+4~, ENV+20~, ENV+23~, ENV+24* |
| XUXREL | ENV+28~, ENV+29*, ENV+36 |
| XUXREQ | ENV+28~*, ENV+29 |
| XUXREQP | ENV+4~, CM+1~, CO+1~, OK+1~ |
| XUXREQP( | ENV+25, ENV+26, ENV+27, ENV+28 |
| XUXREQP(0 | ENV+22 |
| XUXREQP(1 | IMP+8* |
| XUXREQP(2 | IMP+9* |
| XUXREQP(3 | IMP+10* |
| XUXREQP(4 | IMP+11* |
| XUXRT | RGBL+1~, RGBL+4*, RGBL+5, RGBL+6 |
| XUXS | RGBL+1~, RGBL+2*, RGBL+6*, RGBL+7, RGBL+8*, RGBL+9*, RGBL+10, INS+1~ |
| XUXSCR | INSD+1~, INSD+4*, INSD+5, INSD+16*, INSD+17, INSD+19* |
| XUXSTR | ENV+4~, ENV+7*, ENV+8 |
| XUXT | RGBL+1~, RGBL+4*, RGBL+5, OK+1~, OK+2*, OK+3 |
| XUXTX | ENV+28~, ENV+34*, ENV+35*, ENV+36*, ENV+37*, ENV+39*, ENV+40*, ENV+41*, ENV+42 |
| XUXV | INS+1~, INS+2*, INS+3 |
| XUXVD | INSD+1~, INSD+9*, INSD+10, INSD+11*, INSD+12 |
| XUXVI | INSD+1~, INSD+13*, INSD+14, INSD+15, INSD+16 |
| XUXVR | INSD+1~, INSD+2*, INSD+3*, INSD+4, INSD+8 |
| XUXX | RGBL+1~, RGBL+2, RGBL+3*, RGBL+4 |