Routine: ZISPL1

Package	Total	Call Graph
Kernel	3	CLOSE^%ZIS4 ^%ZTLOAD ($$HTE,$$NOW)^XLFDT
VA Fileman	3	^DIC FILE^DICN ^DIE

Package	Total	Caller Graph
Kernel	10	ZIS4 ZIS4DTM ZIS4GTM ZIS4MSM ZIS4MSQ ZIS4ONT ZIS4VXD ZOSVMNT ZOSVMSM ZOSVPC43
VA Fileman	1	DINVMSM

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"You have too many documents or lines, Please delete some documents" Line Location: MSG1+0
Routine Call	DIE Line Location: ADSPL
Routine Call	DIC Line Location: R+5 G1+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	CLOSE+1, CLOSE+2, CLOSE+4, R+2, GENDOC+1
^VA(200 - [#200]	NEWDOC+1
^XMB(3.51 - [#3.51]	FILE+3, FILE+7, CLOSE, CLOSE+5!, R1+2*, ND3, LIMITS+4, G1, FLST
^XMBS(3.519 - [#3.519]	CLOSE*
^XTV(8989.3 - [#8989.3]	LIMITS
^XUTL("XQ"	FILE+1, FILE+2, FILE+3!

Name	Field # of Occurrence
%	CLOSE, CLOSE+1, CLOSE+2, CLOSE+5!, ADSPL~, R1+1, R1+2, ND3, LIMITS+4
>> %IS	R+2
>> %X	CLOSE+2, CLOSE+3, CLOSE+4, ADSPL+1*, QDSPL
>> %Y	R*, R+3, R+4
%Z1	NEWDOC+3, R!, LIMITS*
%Z2	NEWDOC+3, R!, LIMITS, LIMITS+4
%Z3	NEWDOC+3, R!, LIMITS, LIMITS+4
>> %Z4	LIMITS+4*
>> %Z91	R1, R1+2, ND3
%ZDA	FILE+1, FILE+3, FILE+4*, FILE+5, FILE+7, CLOSE, CLOSE+4, CLOSE+5!, DQC+1, QDSPL+1
%ZFN	CLOSE+5!
>> %ZISIOS	R+2, GENDOC+1
>> %ZISMY	R
>> %ZS	FILE+3*, ADSPL+1
>> %ZY	R+5, R1, GENDOC+1, GENDOC+2, G1
>> %ZY(0	R1*
>> DA	CLOSE+4*
DD	FILE+5!, FILE+6!
DIC	FILE+5, NEWDOC+1~, R+1, G1+1*
DIC("B"	R+4*
DIC("DR"	R+1*
DIC("S"	R+1*
DIC("W"	R+1*
DIC(0	FILE+5, R+3, R+4, G1+1
>> DIE	CLOSE+4*
>> DINUM	G1+1*
DLAYGO	FILE+5, FILE+6!, R+5!, G1+1*, G1+2!
DO	FILE+5!, FILE+6!
>> DR	CLOSE+4*
DT	FILE+7
DUZ	NEWDOC+1, R1+2, LIMITS+4
IO("DOC"	R
IO("SPOOL"	FILE+1, FILE+3!, DQC+1*
>> IOP	NEWDOC+1, NEWDOC+3, R+3
U	R+1*, R1+2
X	FILE+5~, NEWDOC+1~, R+3, G1*
XMDUZ	CLOSE+5!
XMZ	CLOSE+5!
>> XS	FILE+5*, FILE+7, CLOSE
Y	FILE+5~, NEWDOC+1~, R+5, R1, R1+2, ND3, G1+2
Y(0	R1
>> ZISDA	CLOSE+4, QDSPL+1
ZISDA2	CLOSE+4!, ADSPL
>> ZISIOST	R1*
ZISPLAD	FILE+2*, FILE+4!, CLOSE+1, CLOSE+2
>> ZISPLC	CLOSE+3, ADSPL+1, QDSPL, QDSPL+1
>> ZISPLDV	CLOSE+4*, ADSPL+1
>> ZISPLST	G1, G1+1, FLST
>> ZTDESC	FILE+4, QDSPL
>> ZTDTH	FILE+4, QDSPL, QDSPL+1
>> ZTIO	FILE+4, QDSPL, QDSPL+1
>> ZTRTN	FILE+4, QDSPL
>> ZTSAVE("%ZDA"	FILE+4*
>> ZTSAVE("%ZS"	FILE+4*
>> ZTSAVE("ZISDA"	QDSPL+1*
>> ZTSAVE("ZISDA2"	QDSPL+1*
>> ZTSAVE("ZISPLAD"	FILE+4*
>> ZTSAVE("ZISPLC"	QDSPL+1*
ZTSK	FILE+4!, ADSPL~, QDSPL+1!

Name	Comments	DBIA/ICR reference
MSG1
FILE	;Called by %ZIS4 to setup spool data file.
LIMITS
FLST
R1
ADSPL
R
NEWDOC	;Called by %ZIS4 to get or setup a spool document.
DQC	;DQ the move from spool to mail message.
CLOSE
ND3
G1
GENDOC	;Auto generate document name.
QDSPL