Routine: ZISPL

Information

ZISPL ;SF/RWF - UTILITIES FOR SPOOLING ;04/07/98 16:16 [ 04/02/2003 8:29 AM ]

Source Information

Source file <ZISPL.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
VA Fileman	6	BROWSE^DDBR (,$$FIND1)^DIC YN^DICN UPDATE^DIE ^DIK ^DIR
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD KILL^XUSCLEAN DQP^ZISPL2
MailMan	1	^XMD
Toolkit	1	(MODE,SEND)^XTKERMIT

Caller Graph

Caller Graph Total: 7

Package	Total	Caller Graph
Kernel	5	XU-SPL-BROWSE XU-SPL-DELETE XU-SPL-MAIL XU-SPL-PRINT ZISPL2
Health Summary	1	GMTSPDX
Lab Service	1	LRRMM

Entry Points

Name	Comments	DBIA/ICR reference
A
GETDOC	;Get a spool document to work on.
MSG1
KERMIT	;Use Kermit to send a spooler file
CEXIT	;Close device and Exit
MSG2
BROWSE	;Use FM Browser to look at document
CIO	;Close device and go to IO
P
DEL	;Called from mailman to delete the document.
DQMAIL
IO	;
MAIL	;Make into a mail message
PRINT	;
EXIT
DSD(DA)	;Delete an entry in the spool data file.	ICR #1092 Status: Active Usage: Controlled Subscription
DSDOC(DA)	;Delete an entry in the spool doc file.	ICR #1092 Status: Active Usage: Controlled Subscription
DELETE	;delete a document from the file.

External References

Name	Field # of Occurrence
^%ZIS	IO+2, IO+9
^%ZISC	IO+11, CIO+1, CEXIT+1
^%ZTLOAD	IO+11, MAIL+8
BROWSE^DDBR	BROWSE+2
^DIC	GETDOC+2
$$FIND1^DIC	IO+3
YN^DICN	P+3, MAIL+6
UPDATE^DIE	IO+7
^DIK	DSD+1, DSDOC+1
^DIR	A+2, IO+1, MAIL+3
^XMD	DQMAIL+2
MODE^XTKERMIT	KERMIT+2
SEND^XTKERMIT	KERMIT+2
KILL^XUSCLEAN	EXIT
DQP^ZISPL2	IO+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"This Document hasn't been printed. Are you sure??" Line Location: A+1
Function Call: WRITE	Prompt: " ... DOCUMENT CLEARED!!" Line Location: A+4
Function Call: WRITE	Prompt: " ...DOCUMENT DELETED!!",*7,! Line Location: A+7
Function Call: WRITE	Prompt: !,?5,*7,"You must be authorized by IRM to use spooling" Line Location: GETDOC+1
Function Call: WRITE	Prompt: !,?5,*7,"This spool is still active and can't be worked on." Line Location: GETDOC+2
Function Call: WRITE	Prompt: !,"Sorry, this spool document has been converted into a mail message",!,"and you are unable to print it" Line Location: P+1
Function Call: WRITE	Prompt: !,"Sorry there isn't anything to print." Line Location: P+2
Function Call: WRITE	Prompt: ! Line Location: IO+9
Function Call: WRITE	Prompt: !!,"Also send to" Line Location: IO+11
Function Call: WRITE	Prompt: !,ZISMSG Line Location: CIO+2
Function Call: WRITE	Prompt: !,"You are not authorized to convert Spool Documents into Mail Messages." Line Location: MAIL+1
Function Call: WRITE	Prompt: !,"You have "_%_" lines of text to convert into a mail message.",!,"Do you wish to queue this conversion process" Line Location: MAIL+6
Function Call: WRITE	Prompt: !,"This spool document doesn't have any text." Line Location: MSG1+0
Function Call: WRITE	Prompt: !,"You have exceeded the total spool document line limit allowed." Line Location: MSG2+0
Function Call: WRITE	Prompt: !,"Therefore, this spool document is incomplete." Line Location: MSG2+1
Function Call: WRITE	Prompt: !!,"Do you still wish to print this document" Line Location: MSG2+2
Routine Call	DIE Line Location: IO+7
Routine Call	DIC Line Location: IO+3
Routine Call	DIC Line Location: GETDOC+2
Routine Call	DIR Line Location: A+2 IO+1 MAIL+3
Routine Call	%ZIS Line Location: IO+2 IO+9

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	GETDOC+1, MAIL+1
^XMB(3.51 - [#3.51]	A+4!, IO+4, DQMAIL+1, DSD+1!
^XMBS(3.519 - [#3.519]	BROWSE+2

Label References

Name	Line Occurrences
CIO	IO+4, IO+5
DQMAIL	MAIL+6
DSD	A+3, DQMAIL+3
DSDOC	A+6, DQMAIL+3
EXIT	A, A+2, A+4, A+8, P+1, P+2, P+3, IO+1, IO+2, IO+11 , KERMIT+1, KERMIT+2, BROWSE+1, BROWSE+2, MAIL+1, MAIL+2, MAIL+3, MAIL+5, MAIL+6, MAIL+8 , DQMAIL+4
GETDOC	A, GETDOC+2, P, KERMIT+1, BROWSE+1, MAIL+2
IO	IO+11, CIO+1
MSG1	MAIL+2, MAIL+5
MSG2	P+3

Name	Field # of Occurrence
^("SPL"	GETDOC+1, MAIL+1
^(0	A+4*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRINT+1~, P+3, IO+6, IO+7, MAIL+5, MAIL+6
%IS	P!, IO+2*
%ZIS	P!, IO+9*
DA	PRINT+1~, DSD~, DSD+1, DSDOC~, DSDOC+1
DIC	GETDOC+2*, GETDOC+3!, PRINT+1~
DIC("A"	A, P
DIC(0	GETDOC+2*
DIE	PRINT+1~
DIK	DSD+1~, DSDOC+1~
DIR	A+2!
DIR("A"	A+2, IO+1, MAIL+3*
DIR("B"	A+2, MAIL+3
DIR(0	A+2, IO+1, MAIL+3*
>> DIRUT	A+2, IO+1, KERMIT+2, MAIL+3, MAIL+6
DR	PRINT+1~
DUZ	A+4, GETDOC+1, MAIL+1, DQMAIL+1
IO	CIO+1
IO("Q"	IO+9, IO+11!
IO(0	IO+2, IO+3
IOM	IO+2, IO+5
ION	IO+2, IO+3, IO+7
IOP	P!, IO+9*
IOSL	IO+2, IO+5
IOST	IO+2
>> POP	IO+2, IO+9
U	A+1, A+3, GETDOC+2, P+1, P+2, P+3, KERMIT+1, BROWSE+1, BROWSE+2, MAIL+1 , MAIL+3, MAIL+5
X	A+4*, PRINT+1~
>> XMSUB	DQMAIL+1*
>> XMTEXT	DQMAIL+1*
>> XMY(	DQMAIL+1*
>> XS	MAIL+2, DQMAIL+1, DQMAIL+2, DQMAIL+3
>> XTKDIC	KERMIT+1*
>> XTKFILE	KERMIT+1*
Y	A, A+2, A+3, GETDOC+1, GETDOC+2, GETDOC+3, PRINT+1~, P, IO+1, KERMIT+1 , BROWSE+1, MAIL+2, MAIL+3
Y(0	GETDOC+2, GETDOC+3
ZISDA	A+4, A+6, GETDOC+3, PRINT+1~, IO+3, IO+4, IO+6, KERMIT+1, BROWSE+1*, BROWSE+2 , DQMAIL+1, DQMAIL+3
ZISDA2	PRINT+1~, IO+3, IO+4, IO+6, IO+8
ZISFDA	PRINT+1~
ZISFDA(	IO+7*
ZISIEN	PRINT+1~
ZISIEN(1	IO+8
ZISIOP	PRINT+1~, IO+2*, IO+9, IO+10
ZISMSG	PRINT+1~, IO+4, IO+5, CIO+1, CIO+2!
ZISPG	PRINT+1~, P+1*, IO+5
ZISPL0	A+1, A+3, GETDOC+3, PRINT+1~, P+1, P+2, P+3, KERMIT+1, BROWSE+1, BROWSE+2 , MAIL+2, MAIL+3, MAIL+5, DQMAIL+1
ZISPLC	PRINT+1~, IO+1*, IO+7
>> ZISPLU	GETDOC+1, IO+11, MAIL+1
>> ZISY	A+3*, A+4
>> ZTDESC	IO+10, MAIL+8
>> ZTIO	IO+10, MAIL+8
>> ZTQUEUED	DQMAIL, DQMAIL+3
>> ZTREQ	EXIT*
>> ZTRTN	IO+10, MAIL+8
>> ZTSAVE("ZISDA"	IO+10, MAIL+8
>> ZTSAVE("ZISDA2"	IO+10*
>> ZTSAVE("ZISPLC"	IO+10*
ZTSK	IO+11!

Customize PDF page

Package: Kernel

Routine: ZISPL

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: