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

 REP 28/1	;08C1
		BTNEDT==4210		;EDIT NUMBER
 WIT
		BTNEDT==4214		;EDIT NUMBER
 INS 410/9	;08C2
	EDIT 4211       In routines HONORJ and COMTRM no longer consider ESC characters
	                to be line terminators when processing a control file.
	                NOTE: This edit changes one of the lines of edit 4164
			gco 4.2.1563

	EDIT 4212	Modify edit 4164 so that FL.SUP is set only if the first
			character in user mode is an equal sign. Reset it after the
			line is processed. Note: This edit changes edit 4164 and
			gets rid of edit 4206. Also, a line of edit 4211 is deleted
			and two lines of edit 4152 are deleted.
			gco 4.2.1570

	EDIT 4213	If a login failure due to a CRJOB failure occurs, tell the
			operator the reason why.
			gco 4.2.1572

	EDIT 4214	Make BATCON a system process by setting IB.SYS in IB.
			gco 4.2.1576

 INS 32/12	;08C3
	;*;[4214]At IPBBLK:+3 Add 1 line   JCR  5/3/84
		$SET(IB.FLG,IB.SYS,1)		;[4214]Set as system process
 REP 39/37	;08C4
		  PJRST	ANLY.3			;[4160] YES, KILL OFF THE JOB
 WIT
	;**;[4213] CHANGE 1 LINE AT LOGSET:+3L	JCR	4/26/84
		  PJRST	ANLY3A			;[4213] YES, KILL OFF THE JOB
 REP 8/43	;08C5
	;**;[4152] INSERT 2 LINES AT LABEL CPYL.1:+0L	DSW	8/27/81
	CPYL.1:	TLNE	F,FL.XCC	;[4152] IS THIS A GENERATED CTL CHARACTER?
		  JRST	CPYSND		;[4152] YES, SEND IT, DON'T CHECK FL.SUP
		TLNE	F,FL.SUP	;WANT TO SUPPRESS THE CR-LF
		  JRST	CPYL.2		;YES, SEE IF THIS IS THE LINE FEED
	CPYSND:	PUSHJ	P,CHKSND	;SEND IT TO THE JOB, CHECK RESULT
 WIT
	;**;[4212] REPLACE 4 LINES AT CPYLIN:+1L WITH 2 LINES JCR 3/28/84
	CPYL.1:	TLNE	F,FL.SUP	;[4212]Suppress the crlf?
		JRST	CPYL.2		;[4212]Yes, see if this is the line feed
	CPYSND:	PUSHJ	P,CHKSND	;SEND IT TO THE JOB, CHECK RESULT
	;**;[4212] INSERT 2 LINES AT LABEL CPYSND:+1L   JCR     3/28/84
		TLNE	F,FL.SUP	;[4212]Suppress the crlf?
		JRST	CPYLIN		;[4212]Yes
 REP 44/43	;08C6
	;**;[4206] Add one line at CPYXCC: +6l     10-mar-83
		tlo	f,fl.sup	;[4206] suppress crlf
 WIT
	;**;[4212] REMOVE ONE LINE AT CPYXCC:+6L   JCR  3/28/84
 REP 26/44	;08C7
	ISCMNT:	TLNN	R,RL.JIE	;IS THE JOB IN ERROR STATE
	;**;[4164] REPLACE 3 LINES AT ISCMNT:+1L WITH 23 LINES	DSW	1/29/82
		TLNE	J,JL.UML	;[4164] AT MONITOR LEVEL?
		  JRST	UPZCHK		;[4164] YES, FIRST CHECK IF WAS A ^Z
	;**;[4206] Add two lines at ISCMNT:+3l    10 mar 83
		cain	ch,"="		;[4206] Is char an = sign in user mode?
		  jrst	upzc.2		;[4206] Yes, then surpress crlf
		CAIE	CH,CHR.CC	;[4164] NO, IS IT A CTRL CHAR WITH NO CRLF?
		CAIN	CH,14		;[4164]  NOT ^C OR ^L (THEY GET CRLF)
		JRST	UPZC.1		;[4164]  YES, THEN DONT SUPPRESS AND SEND
		CAIE	CH,12		;[4164] IS IT ^J OR...
		CAIN	CH,15		;[4164] ^M?
		  JRST	UPZC.1		;[4164] YES, THEY DONT GET SUPPRESSED EITHER
		TLZ	F,FL.SUP	;[4164] SET SUPPRESS IN CASE ISNT CTRL CHAR
		CAILE	CH,32		;[4164] IS IT A CONTROL CHAR?
		  JRST	UPZC.1		;[4164] NO, SO THEY DON'T GET SUPPRESSED
		TLO	F,FL.SUP	;[4164] YES, SO SUPPRESS THE CRLF
		JRST	UPZC.2		;[4164] AND SEND IT OFF
	UPZCHK:	CAIE	CH,CHR.CZ	;[4164] AT MONITOR, WAS IT A ^Z...
		CAIN	CH,CHR.CC	;[4164] OR WAS IT A ^C?
		 SKIPA			;[4164] YES, SKIP
		  JRST	CMNTLI		;[4164] NO, SEND AS COMMENT (REAL)
		TLZ	F,FL.XCC	;[4164] YES, CLEAR GENERATED (^Z & ^C ARE MOOT)
		TLO	F,FL.SUP	;[4164] SET SUPPRESS
		JRST	UPZC.2		;[4164] AND SEND IT OFF
	UPZC.1:	TLZ	F,FL.XCC	;[4164] NOT MONITOR AND NO SUPPRESS
		TLZ	F,FL.SUP	;[4164] SO CLEAR GENERATED AND SUPPRESS
	UPZC.2:	JRST	(P2)		;[4164] SEND OFF WHATEVER WE HAVE BY NOW

 WIT
	;**;[4212] Replace 26 lines at ISCMNT: with 13 lines  JCR  3/30/84
	ISCMNT:	TLNE	R,RL.JIE	;[4212]Is the job in error state
		JRST	CMNTLI		;[4212]Yes, write out as a comment
		TLNE	J,JL.UML	;[4212]At Monitor level?
		JRST	[ CAIN CH,CHR.CZ	;[4212]Yes, a ^Z?
			  JRST (P2)		;[4212]Yes, send it off
			  JRST CMNTLI ]		;[4212]No, send off as a comment
		CAIE	CH,12			;[4212]User level, don't treat ^J or ^L
		CAIN    CH,14			;[4212]as generated control characters
		JRST	UPZC.1			;[4212]Go turn off FL.XCC
		CAIE	CH,15			;[4212]Turn off FL.XCC for ^M also
		JRST	(P2)			;[4212]Send it off
	UPZC.1:	TLZ	F,FL.XCC		;[4212]Turn off FL.XCC for ^J, ^L, ^M
		JRST	(P2)			;[4212]Send it off
 REP 34/67	;08C8
	ANLY.3:	PUSHJ	P,L$OUTP##	;OUTPUT PAGE OF DATA
 WIT
	;**;[4213] REPLACE 1 LINE AT ANLY.3 WITH 4 LINES  JCR 4/26/84
	ANLY3A: SETO	S1,		;[4213]Not from CRJOB error so make -1
	ANLY.3:	STKVAR<CODVAL>		;[4213]Make room to save S1
		MOVEM	S1,CODVAL	;[4213]Save S1 to check for error code later
		PUSHJ	P,L$OUTP##	;[4213]OUTPUT PAGE OF DATA
 REP 39/67	;08C9
		$WTO(<Batch Login Error>,<BATCH Login Failed .. Job Canceled>,.JQOBJ(R),<$WTNOD(.JQLOC(R))>)
 WIT
	;**;[4213] REPLACE 1 LINE AT ANLY.3:+5L WITH 5 LINES.  JCR 4/26/84
		MOVE	S1,CODVAL	;[4213]S1 may contain an error code from CRJOB
		JUMPL	S1,[
		$WTO(<Batch Login Error>,<BATCH Login Failed .. Job Canceled>,.JQOBJ(R),<$WTNOD(.JQLOC(R))>)		;[4213] Login failure not due to CRJOB failing
		JRST	.+2 ]		;[4213]Place error message in the log file
		$WTO(<Batch Login Error>,<BATCH Login Failed .. Job Canceled,
	TOPS-20 Error - ^E/S1/>,.JQOBJ(R),<$WTNOD(.JQLOC(R))>)	;[4213]CRJOB failed
 REP 19/88	;08C10
		CAIE	CH,CHR.A1	;IS IT THE STANDARD ALTMODE
 WIT
	;**;[4211] DELETE 1 LINE AT COMTRM:+7L    JCR  12/1/83
 SUM 175267