Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 22/10	;09C1
	CREA.0:	LOAD	S1,.MSTYP(M),MS.CNT	;GET LENGTH OF MESSAGE
 WIT
	;**;[1227]At CREA.0: replace 1 line with 2 lines   JCR  9/12/84
	CREA.0:	SETZM	G$CRS##			;[1227]Set GTJFN error flag to 0
		LOAD	S1,.MSTYP(M),MS.CNT	;[1227]Get length of message
 INS 22/11	;09C2
	;**;[1227]At CRE.3A:+4L add 9 lines  JCR  9/12/84
		SKIPE	G$CRS##			;[1227]Error due to GTJFN failure?
		JRST	[ LOAD	S1,.QEDIN(AP),QE.DLN   ;[1227]Yes, delete the
			  PUSHJ	P,L%DLST	       ;[1227]dependency list
			  PUSHJ P,M$RFRE##	       ;[1227]Return the cell
			  MOVE  S1,G$CRS##	       ;[1227]Get the error code
			  MOVE  S2,.EQROB+.ROBTY(M)    ;[1227]Get the object type
		          $WTO(<^1/S2/ job ^W/.EQJOB(M)/, request #^D/.EQRID(M)/ rejected ^M^J^T/BLANKS/ ^E/S1/>)
			  SETZM	G$ACK		       ;[1227]No ACK to the job
			  $RETT ]		       ;[1227]Go clean up
 REP 33/12	;09C3
		JRST	CREA.5			;YES,,GO DO IT
 WIT
	;**;[1224]Replace 1 line with 5 lines at CREA.4:+11L   JCR 7/20/84
		JRST	[ GETLIM T1,.QELIM(AP),TIME ;[1224]Number of seconds requested
			  IDIVI	T1,^D3600           ;[1224]Hours in T1
			  IDIVI T2,^D60		    ;[1224]Minutes in T2, seconds in T3
	                  $TEXT(G$CCHR##,<[Batch job ^W/.QEJOB(AP)/ queued, request #^D/.QERID(AP)/, limit ^D/T1/:^D2R0/T2/:^D2R0/T3/]^A>)
			  JRST	CREA.5 ]	    ;[1224]Check for priority change
 REP 45/12	;09C4
		MOVEI	S1,.CHNUL		;GET A <NUL>
		PUSHJ	P,G$CCHR##		;MAKE IT ASCIZ
		PJRST	G$MSND##		;GO SEND THIS ACK

		;CONTINUED ON THE NEXT PAGE

		;CONTINUED FROM THE PREVIOUS PAGE

	CREA.5:	GETLIM	T1,.QELIM(AP),TIME	;NUMBER OF SECONDS EQUESTED
		IDIVI	T1,^D3600		;HOURS IN T1
		IDIVI	T2,^D60			;MINUTES IN T2, SECONDS IN T3
		$TEXT(G$CCHR##,<[Batch job ^W/.QEJOB(AP)/ queued, request #^D/.QERID(AP)/, limit ^D/T1/:^D2R0/T2/:^D2R0/T3/]^0>)
		SETZ	S1,			;DONT ACK AGAIN.
		PJRST	G$MSND##		;SEND THE "ACK" AND RETURN
 WIT
	;**;[1224]Replace 9 lines with 6 lines at CRE.4A:+2L   JCR  7/20/84
	CREA.5:	LOAD	S1,.EQSEQ(M),EQ.CHP	;[1224]Pick up the priority
		SKIPE	S1			;[1224]Has it been changed?
		$TEXT(G$CCHR##,<^J^M[Priority has been modified]>)  ;[1224]Yes
		MOVEI	S1,.CHNUL		;[1224]Get a <NUL>
		PUSHJ	P,G$CCHR##		;[1224]Make it ASCIZ
		PJRST	G$MSND##		;[1224]Go send this ACK
	;**;[1227]At CREA.5:+6L add 1 line   JCR   9/12/84
	BLANKS:	ASCIZ/              /		;[1227]Used in a $WTO
 REP 43/16	;09C5
	CRQODP:	CAIN	T2,1			;BLOCK LENGTH MUST BE 1
		CAIE	P2,.QHTOU		;AND THIS MUST BE AN OUTPUT QUEUE
		$RETF				;NO,,THATS AN ERROR
 WIT
	;**;[1226]Replace 3 lines with 6 lines at CRQODP:   JCR  9/5/84
	CRQODP:	CAIE	T2,1			;[1226]Block length must be 1
		$RETF				;[1226]Error
		CAIE	P2,.QHTOU		;[1226]And this must be an output queue
		CAIN	P2,.QHTIP		;[1226]Or an input queue
		SKIPA				;[1226]Either input or output queue
		$RETF				;[1226]An error
 REP 20/29	;09C6
		SKIPE	G$ERR##			;WAS THERE AN ERROR?
 WIT
	;**;[1227]At Q$SPOOL:+11L replace 1 line with 3 lines   JCR  9/12/84
		SKIPN	G$CRS##			;[1227]GTJFN error?
		SKIPN	G$ERR##			;[1227]No, any other errors?
		SKIPA				;[1227]No, continue on
 SUM 51695