Routine: XU8PE655

Information

XU8PE655 ;ISD/HGW Patch XU*8*655 Environment Check Routine ;03/26/15 12:04

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	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ENV+23
Function Call: WRITE	Prompt: !,?XUXC1,"Checking for ",! Line Location: ENV+32
Function Call: WRITE	Prompt: !,?XUXC1,"Patch",?XUXC2,"Released",?XUXC3,"Installed",?XUXC4,"Content" Line Location: ENV+33