Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - sprint.c09
There is 1 other file named sprint.c09 in the archive. Click here to see a list.
 REP 2/1	;09C1
	SUBTTL	Larry Samberg/LSS/JHT/JNG/WLH/NT/CTK/LWS	16-Jan-84
 WIT
	SUBTTL	Larry Samberg/LSS/JHT/JNG/WLH/NT/LWS/CTK	3-Aug-84
 REP 37/1	;09C2
		SPTEDT==4254		;Edit Level
 WIT
		SPTEDT==4256		;Edit Level
 INS 51/1	;09C3

 INS 682/3	;09C4
	;	4255	7-May-84	Add LGNPHY and LGNPSU conditional assembly
	;				switches to turn on/off code that prohibits
	;				a PPN from logging in from a real reader and
	;				SUBMIT /READER respectively that cannot normally
	;				login 'dataset' or 'remote'.
	;				SPR 10-34675 GCO 10034 7-MAY-84 /LWS
	;
	;	4256	3-Aug-84	The $CREATE /PRINT switch is sticky
	;				because we do not clear it, so let's
	;				do it.
	;				SPR 10-34730 GCO 10064 3-AUG-84/CTK
	;
 INS 26/4	;09C5
	;Add 2 feature test switches that control assembly of
	;code that checks to see whether a PPN is allowed to login batch
	;from a card deck originating from a real and/or pseudo reader (/READER).

	;If LGNPHY is nonzero, SPRINT will not allow a job originating
	;from CDRIVE (real reader or IBMCOM) to login under batch if the PPN
	;cannot normally login 'dataset' or 'remote'.

	;If LGNPSU is nonzero, SPRINT will not allow a job originating
	;from SUBMIT /READER (regardless of submitter's PPN) to login
	;under batch as if the batch job's PPN cannot normally login
	;'dataset' or 'remote'.

		LGNPHY==0			;[4255] DEFAULT IS NO CHECK
		LGNPSU==0			;[4255] SAME HERE
 DEL 9/41	;09C6

 INS 39/142	;09C7
	;**;[4255] Add code at DOACCT+28L. /LWS
	IFN LGNPHY!LGNPSU,<			;[4255]
		TXNE	T1,AC.DST!AC.RMT	;[4255] CAN PPN LOGIN DATASET OR REMOTE ?
		  JRST	DO10.0			;[4255] YES,,LET HIM GO
		MOVE	S1,CDRDEV		;[4255] NO,,GET READER TYPE FLAG
	IFN LGNPHY,<JUMPN S1,DO10E7>		;[4255] BOMB IF FROM CDRIVE DECK
	IFN LGNPSU,<JUMPE S1,DO10E8>		;[4255] BOMB IF VIA SUBMIT /READER
	DO10.0:>				;[4255] END IFN LGNPHY!LGNPSU
 INS 132/142	;09C8

	IFN LGNPHY,<					;[4255]
	DO10E7:	$TEXTL(<^I/FATAL/?SPTPHY  ^I/EM.PHY/>)	;[4255]
		JSP	B,ACTCER			;[4255]
	EM.PHY:	ITEXT	(<^I/COMTXT/ from spooled card deck>) ;[4255]
	>						;[4255]
	IFN LGNPSU,<					;[4255]
	DO10E8:	$TEXTL(<^I/FATAL/?SPTPSU  ^I/EM.PSU/>)	;[4255]
		JSP	B,ACTCER			;[4255]
	EM.PSU:	ITEXT	(<^I/COMTXT/ via SUBMIT /READER>) ;[4255]
	>						;[4255]
	IFN LGNPHY!LGNPSU,<				;[4255]
	COMTXT:	ITEXT	(<Cannot create batch job>)	;[4255]
	>						;[4255]
 INS 35/147	;09C9
	;**;[4256]ADD 1 LINE AT QUEF.2:+16L	3-AUG-84/CTK
		SETZM	L.QFN			;[4256]CLEAR THE QUEUE FLAG
 SUM 232943