JOBEND.MAC;2/AU=JOBEND.VGN
\
-2,2
	.IDENT	/01.03XB/
-39
;	JGD01	SEND OFF A DATA PACKET TO LOG... WHEN THE DESPOOLER
;		FINISHES A JOB.
;
;	JGD02	FIX PROBLEM WITH MULTIPLE CLI SUPPORT AND DECNET
;
%
-51,,/; JGD01/
 
	.IF DF T$$CPU
	.MCALL	GTIM$,RQST$, UCBDF$, GTSK$, QIOW$S
 
	UCBDF$
 
; EQUATED SYMBOLS
-,,/; JGD02/
	.IFNDF	M$$CLI		; IF NO MULTIPLE CLI SUPPORT
U.ACN=U.LUIC-4
	.IFF			; IF HAVE MULTIPLE CLI SUPPORT
U.ACN=U.CLI-4			; THEN OFSET FROM U.CLI
	.ENDC			; .END M$$CLI
-,,/; JGD01/
	.ENDC			;
 
 

-53,,/; JGD01/
 
	.IF DF	T$$CPU		; IF KMS ACCOUNTING BLOCK ADDED
SNDLOG:	SDAT$	LOG...,LOGDAT	; SEND OUR ACCOUNTING DATA TO LOG...
RQSTLG: RQST$	LOG...		; REQUEST LOG... IF UNSTOPPING IT FAILS
LOGDAT:	.WORD	10.		; RECORD TYPE
	.BLKW	12.		; REST OF SEND PACKET
USTPLG:	USTP$	LOG...		; UNSTOP THE LOGGING TASK
GETTIM:	GTIM$	TIMBUF		; GET TIME
GTASK:	GTSK$	TIMBUF		; GET TASK PARAMETERS
TIMBUF:	.BLKW	16.		; TIME BUFFER FOR SEND PACKET AND USE ALSO FOR GETTSK
	.ENDC			; ENDC T$$CPU
 
-103,,/; JGD01/
 
	.IF DF T$$CPU		; IF KMS CPU ACCOUNTING ENABLED
	BIT	#10000,$ACMSK	; IS LOGGING ENABLED FOR SPOOLING TASKS
	BEQ	35$		; IF EQ, NO SO SKIP
	DIR$	#GETTIM		; GET THE TIME THE JOB ENDED
	MOV	TIMBUF+6,LOGDAT+2 ; SET HOUR
	MOV	TIMBUF+10,LOGDAT+4 ; SET MIN
	MOV	TIMBUF+12,LOGDAT+6 ; SET SECC
	MOV	FNCTN+Q.PTI,R1	; GET SUBMITTER'S UCB ADDRESS
				; THIS ONLY WORKS IF USER STILL LOGGED ON
	MOV	U.ACN(R1),LOGDAT+10 ; GET OUR ACCOUNT NUMBER
	MOV	JOBPAG,LOGDAT+12; GET TOTAL NUMBER OF PAGES PRINTED
	TST	FNCTN+22	; ARE 0 COPIES SPECIFIED
	BNE	33$		; IF NE,NO
	INC	FNCTN+22	; AT LEAST 1 COPY
33$:	MOV	FNCTN+22,LOGDAT+14; GET THE NUMBER OF COPIES
	ADD	FNCTN+22,LOGDAT+12; FIX BUG IN COUNTING NUMBER OF PAGES
	SUB	#1,LOGDAT+12	; SINCE EACH COPY ABOVE 1, LOOSES 1 PAGE
	DIR$	#GTASK		; GET OUR TASK NAME
	MOV	TIMBUF,LOGDAT+24; GET OUR TASK NAME
	MOV	TIMBUF+2,LOGDAT+26 ; IN RAD 50, 
	DIR$	#SNDLOG		; SEND OFF PACKET TO LOGGER
	BCS	35$		; SERIOUS PROBLEM, COULD NOT SEND DATA
	DIR$	#USTPLG		; TRY UNSTOPPING LOGGING TASK
	BCC	35$		; WE DID IT, PROCEED
	DIR$	#RQSTLG		; COULD NOT UNSTOP IT, TRY REQUESTING IT
				; IF THAT FAILS GIVE UP
35$:				; REF LABLE
	.ENDC			; .END T$$CPU
/