PDP-10 Archive: 3a-documentation/opleas.tco from bb-d868b-bm_tops20_v3a_2020

Trailing-Edge - PDP-10 Archives - bb-d868b-bm_tops20_v3a_2020_dist - 3a-documentation/opleas.tco

There are 3 other files named opleas.tco in the archive. Click here to see a list.

TOPS20 Change Order Number 1869

Written by: DBELL		30-Sep-77 23:19:59

Edit checked: YES			   Document: NO
  TCO Tested: YES		Maintenance Release: NO

Program: OPLEAS
   Routines Affected:	CKDEV

Release: 3

Related TCO's:
Related SPR'S: 	 10549


Problem: 
A JOB CAN USE TMOUNT COMMAND TO ASK FOR A TAPE MOUNTED.  WHILE
THE OPERATOR IS FINDING AND MOUNTING THE TAPE, THAT JOB CAN BE
LOGGED OUT BY ANOTHER JOB.  THEN A NEW USER CAN LOG IN AND GET
THE SAME JOB NUMBER.  WHEN THE OPERATOR FINISHES THE MOUNT REQUEST,
OPLEAS WILL HAPPILY GIVE THE TAPE TO THE NEW USER.

Diagnosis: NO CHECKS ARE MADE OF THE JOB BEFORE THE ALLOC JSYS
IS DONE.

Solution: AT CKDEV, ADD CODE TO CHECK IF THE JOB IS STILL THERE,
AND ABORT IF NOT.  THIS IS DONE BY CHECKING THE STATUS OF THE PID
THE JOB SENT US.  INSERT AT CKDEV BEFORE MOVEI T1,.ALCAL:
	MOVEI T1,.MUFOJ
	MOVEM T1,MUTILD
	MOVE T1,CURPID
	MOVEM T1,MUTILD+1
	MOVEI T1,3
	MOVEI T2,MUTILD
	MUTIL
	JRST CKDEVG
AND ADD BEFORE THE LABEL CKDEVJ:
CKDEVG:	CAIN T1,IPCF27
	JRST CKDEVJ
	JSERR
	SKIPA