Routine: INHUT4

Information

INHUT4 ;JAW,JPD; 13 Jan 93 14:16;HANDLE COPIES OF DOCUMENTS

Source file <INHUT4.m>

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ENTSK^%ZISPL
VA Fileman	1	^DIK

Name	Comments	DBIA/ICR reference
PRINT(ROU,COPIES,DOC)	; Print multiple copies of a report to device 'IO'
COPIES(COPIES,PROMPT)	; ask # copies ; COPIES(op)=Default for number of copies; def=1 ; PROMPT(op)=Alternate prompt; def="Number of Copes: "
RUN(ROU,DOC,IOM,IOSL)	; Print to spool file 'DOC' once ; ROU(re)=Routine that does printing ; DOC(op)=Document name (def bogus doc) ; IOM(op)=Margin for out (def 80) ; IOSL(op)=Pg length for out (def 60)

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: % Line Location: COPIES+5
Function Call: WRITE	Prompt: !,"Enter a number between 1 and 10" Line Location: COPIES+8
Routine Call	%ZIS Line Location: RUN+8

Name	Line Occurrences (* Changed, ! Killed)
^XUSPLDSM(	PRINT+13
^XUSPLDSM("B"	PRINT+13

Name	Line Occurrences
@(	RUN+10
RUN	PRINT+10

Name	Field # of Occurrence
>> %	COPIES+4, COPIES+5, COPIES+6, COPIES+7, COPIES+8, COPIES+9
COPIES	COPIES~, COPIES+3*, COPIES+7, PRINT~, PRINT+11
DA	PRINT+8~, PRINT+16*
DIE	PRINT+8~
>> DIK	PRINT+16*
DOC	PRINT~, PRINT+10, PRINT+16, RUN~, RUN+6, RUN+7, RUN+10~
DR	PRINT+8~
DTIME	COPIES+5
INZISDA	PRINT+8~, PRINT+14*, PRINT+16
INZISDOC	PRINT+8~, PRINT+14*
IO	PRINT+14, RUN+5~, RUN+10
IOM	PRINT+10, RUN~, RUN+7
IOP	RUN+5~, RUN+7*
IOSL	PRINT+10, RUN~, RUN+7
IOST	RUN+5~
PROMPT	COPIES~, COPIES+3*, COPIES+5
ROU	PRINT~, PRINT+10, RUN~, RUN+10
>> ZISCOPY	PRINT+11*
ZISDA	PRINT+8~, PRINT+13*, PRINT+14
ZISDOC	PRINT+8~, PRINT+10, PRINT+13, PRINT+14