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

 REP 28/1	;11C1
		BTNEDT==4216		;EDIT NUMBER
 WIT
		BTNEDT==4217		;EDIT NUMBER
 INS 437/9	;11C2
	EDIT 4217	In routine WAITOU: add a counter for output wait.
	If counter is exceeded and still no output and PTY line is detached, or job is
	no longer under BATCON's control, BATCON will flush the stream.
			GCO 4.2.1609		SPR# 20-20515

 REP 7/64	;11C3
	WAITOU:	SETZM	.JWAIT(R)		;CLEAR WAIT COUNT ***
	;**;[4165] CHANGE 1 LINE AT WAIT.1:+0L	DSW	3/15/82
	WAIT.1:	PUSH	P,.JICNT(R)		;[4165] SAVE OUTPUT COUNTER
		AOS	.JWAIT(R)		;BUMP THE COUNT
 WIT
	;**;[4217]Add two lines at WAITOU: JYCW 2/19/85
	WAITOU:	MOVNI	S1,OUTCNT		;[4217]Count of 8
		MOVEM	S1,.JWAIT(R)		;[4217]Save it in count word
	;**;[4165] CHANGE 1 LINE AT WAIT.1:+0L	DSW	3/15/82
	WAIT.1:	PUSH	P,.JICNT(R)		;[4165] SAVE OUTPUT COUNTER
 REP 16/64	;11C4
		JRST	WAIT.1			;NO..TRY AGAIN TILL SOMETHING HAPPENS
		PUSHJ	P,GJBSTS		;GET LATEST STATUS
		MOVE	S1,.JWAIT(R)		;GET THE COUNT
		ADDM	S1,JOBWCT		;WAIT COUNT TOTALS
		$RETT				;RETURN TRUE
 WIT
	;**;[421]Replace 5 lines with 3 lines at WAIT.1:+5L JYCW 2/19/85
		JRST	[PUSHJ	P,WAIT.4	;[4217]No, see if ok to continue
			JUMPF .+1		;[4217]No longer under batcon's control
			JRST WAIT.1]		;[4217]Waiting for output, go try again
		PUSHJ	P,GJBSTS		;[4217]Yes, get latest status
		$RETT				;[4217]Return true

	;**;[4217]Add 6 lines at WAIT.1:+9L JYCW 2/19/85
	WAIT.4:	SKIPL	.JJOBS+.JIJNO(R)	;[4217]Do we have a job number?
		JRST	[SKIPL	.JJOBS+.JIBAT(R);[4217]Yes, is it under batch?
			$RETF			;[4217]No
			$RETT]			;[4217]Yes, try again.
		AOSE	.JWAIT(R)		;[4217]Times up?
		$RETT				;[4217]No, try again
		PUSHJ	P,L$LSTP##		;[4217]Output the time stamp
		$TEXT	(L$OUT1,<%BATCON did not receive logout acknowledgement.>)
		$RETF				;[4217]Yes

 INS 16/97	;11C5
	;**;[4217] Add one line at JOBSTS:+3L JYCW 2/19/85
		SETZM	.JJOBS+.JIBAT(R);[4217]Clear batch job flag
 REP 40/97	;11C6
		JRST	JOBS.2		;SKIP CHECKING PTY HUNGRY
 WIT
	;**;[4217]Add one line, within literal, at JOBS.1+1L JYCW 2/19/85
		JRST	[TLO J,JL.UML	;[4217]No, must be at monitor level
			JRST JOBS.2]	;SKIP CHECKING PTY HUNGRY
 SUM 208848