Name	Comments	DBIA/ICR reference
L2	;Entry point from %ZIS1, %E holds the IEN value
CHECK	;Get IO check for secondary $I
VTRM
SLAVE
PQ	;Check (if not queueing to secondary system) that print queue is established and available
OCPU
OOS
PTIME
DUZ
T	;
TMPVAR
T2
QUECHK()	;Return 1 if OK
OTHCPU(%1)	;%1 should be either DEVICE or HUNT GROUP
IOPAR(%DA,%N)	;Return I/O parameter
SEC	;Do Security check

Name	Field # of Occurrence
^%ZIS3	T2+4
ST^%ZIS3	TMPVAR+18
$$LNPRTSUB^%ZISUTL	TMPVAR+15
GETENV^%ZOSV	OTHCPU+4
$$QEXIST^ZISPQ	PQ+1

Name	Line Occurrences
Function Call: WRITE	Prompt: *7," [Out of Service]" Line Location: OOS+2
Function Call: WRITE	Prompt: *7," [Access Prohibited]" Line Location: SEC+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	CHECK+2, TMPVAR+5, TMPVAR+7, TMPVAR+10, IOPAR+1
^%ZIS(2 - [#3.2]	TMPVAR+16
^XTV(8989.3 - [#8989.3]	PQ+1
^XUTL("XQ"	TMPVAR+7, TMPVAR+12, TMPVAR+13, TMPVAR+14

Name	Line Occurrences
$$IOPAR	TMPVAR+1, TMPVAR+2
$$QUECHK	CHECK+5
OTHCPU	OCPU
SEC	DUZ
T	CHECK+6, SLAVE, PQ+1, OOS, PTIME

Name	Field # of Occurrence
^("IOST(0)"	TMPVAR+7
^("TIME"	CHECK+4
^("TYPE"	CHECK+4
^("XY"	TMPVAR+16
^(90	CHECK+4
^(95	CHECK+4

Name	Field # of Occurrence
>> %	TMPVAR+15*
%1	OTHCPU~, OTHCPU+5, OTHCPU+11, OTHCPU+12, OTHCPU+14
%2	OTHCPU+1~, OTHCPU+2*, OTHCPU+3, OTHCPU+9, OTHCPU+14
>> %A	VTRM, VTRM+1, PTIME+2, PTIME+4, TMPVAR+10, TMPVAR+13, TMPVAR+15, TMPVAR+16, SEC+1*
%C	PTIME+3~, PTIME+4*, PTIME+5
%DA	IOPAR~, IOPAR+1
>> %E	CHECK+2, PQ+1, TMPVAR, TMPVAR+1, TMPVAR+2, TMPVAR+10, TMPVAR+11, OTHCPU+6
%H	VTRM, VTRM+1, PTIME+3~, PTIME+4, PTIME+5, TMPVAR, TMPVAR+6, TMPVAR+7, TMPVAR+11
%L	PTIME+3~, PTIME+4*, PTIME+5
%N	IOPAR~, IOPAR+1
>> %X	SEC+1*
>> %Z	CHECK+2*, CHECK+3, SLAVE, TMPVAR+5, TMPVAR+6, QUECHK+1, OTHCPU+3, OTHCPU+4, OTHCPU+6
>> %Z1	CHECK+6
%Z2	CHECK+1~, CHECK+2*, CHECK+3
>> %Z90	CHECK+4*, OOS+2
>> %Z91	TMPVAR+13, TMPVAR+14, TMPVAR+15, TMPVAR+16, TMPVAR+18
>> %Z95	CHECK+4*, SEC+1
%ZFQ	CHECK+1~, QUECHK+1*, QUECHK+3, QUECHK+4, QUECHK+9
>> %ZIS	PQ+1, TMPVAR+5, TMPVAR+6, TMPVAR+18, T2, QUECHK+3, QUECHK+4, QUECHK+9*, OTHCPU+12, OTHCPU+13
>> %ZIS(	IOPAR+1
>> %ZIS("PRI"	CHECK+2, CHECK+3
>> %ZISB	PQ+1, PTIME+2, QUECHK+3, OTHCPU+7, OTHCPU+12, OTHCPU+13
%ZISCPU	CHECK+1!, OTHCPU+9, OTHCPU+10
>> %ZISHG	OTHCPU+6*
>> %ZISHG(0	OTHCPU+6*, OTHCPU+11!, OTHCPU+13
%ZISHP	L2+1!, VTRM, OOS+2, PTIME+2, SEC+2
%ZISHPOP	L2+1!
>> %ZISI	TMPVAR+14*
>> %ZISIOS	TMPVAR*
%ZISMSG	OTHCPU+1~, OTHCPU+14
>> %ZISOPAR	TMPVAR+1*
>> %ZISRL	CHECK+6*
>> %ZISTO	TMPVAR+2*
>> %ZISTP	TMPVAR+10, TMPVAR+13, TMPVAR+18
>> %ZISUPAR	TMPVAR+2*
>> %ZISV	OTHCPU+3
>> %ZTIME	CHECK+4*, PTIME+2, TMPVAR+2
>> %ZTYPE	CHECK+4*, CHECK+6, VTRM, VTRM+1, PQ+1, TMPVAR+11, T2+4, OTHCPU+13
DT	OOS+2
>> DTOUT	L2+1
>> DUOUT	L2+1
DUZ(0	SEC+1
IO	CHECK+3, VTRM+1, PTIME, TMPVAR, TMPVAR+5, TMPVAR+6, TMPVAR+8, T2, OTHCPU+8, OTHCPU+12*
IO("Q"	VTRM, VTRM+1, SLAVE, QUECHK+3, QUECHK+9, QUECHK+11!, OTHCPU+12
IO("S"	TMPVAR!, TMPVAR+4, TMPVAR+6, TMPVAR+7*
IO(0	TMPVAR+6*
>> IOP	VTRM, SLAVE, PQ+3, OOS+2, PTIME+2, QUECHK+5, QUECHK+10, QUECHK+11, OTHCPU+14, SEC+2
>> POP	CHECK+2, VTRM, SLAVE, PQ+2, OOS, OOS+2, PTIME, PTIME+2, PTIME+5, DUZ , TMPVAR+4, TMPVAR+8, T2, T2+6, QUECHK+6, QUECHK+11, OTHCPU+7, OTHCPU+13, OTHCPU+14, SEC+1 , SEC+2
>> USIO	TMPVAR+18*
X	OTHCPU+1~, OTHCPU+3, OTHCPU+4, OTHCPU+5, OTHCPU+9, OTHCPU+10, OTHCPU+14
>> XQNOGO	QUECHK+3
Y	OTHCPU+1~, OTHCPU+3, OTHCPU+4, OTHCPU+5
>> ZTQUEUED	QUECHK+3, QUECHK+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Customize PDF page

Package: Kernel

Routine: %ZIS2

Call Graph Total: 4

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Legend: