%ZIS2 ;SFISC/AC,RWF -- DEVICE HANDLER (CHECKS) ;11/08/2011
Source file <ZIS2.m>
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 | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|