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 |