Google
 

Trailing-Edge - PDP-10 Archives - BB-L014E-BM - autopatch/mndany.f04
There are no other files named mndany.f04 in the archive.
;******************** START OF DBMS20-V6 EDIT 365 *************************     
;         
;SYMPTOM  
;	DBMEND GETS "INVALID BLOCK DESCRIPTOR..." ON /MERGE BEFORE
;         
;DIAGNOSIS
;	TYPO IN JRFEOJ IN DBJOUR (DBMEND ONLY CODE)     
;         
;CURE     
;	CHANGE COPY JP.NEED(JP),JB.PREV(JP)   
;	    TO COPY JP.NEED(JP),JB.PREV(R1)   
;         
;         
;*************** EDIT THE FOLLOWING INTO FILE 365.FIX *********************     
.EDIT 365 
.NAME JEF 
.DATE 14-OCT-81     
.MODULE DBJOUR      
.INSERT JRF.PE+14,REPLACE,<MOVE R0,JB.PREV(JP)>   
	MOVE	JB.PREV(R1)	; Make prior block new last     
.ENDI     
.ENDE     
;***************************** CAUTION *************************************    
;         
;		TO AVOID LOSING ANY PREVIOUS PATCHES  BE       
;		SURE TO USE THE LATEST PATCHED REL FILES       
;		       AS A BASE FOR THIS EDIT.      
;         
;****************** EDIT 365 AFFECTS DBMS20 DBMEND *************************    
;         
;	-----------------  FOR DBMEND  -----------------
;         
;  @R MAKLIB        
;  *MNDANY.REL=MNDANY.REL,365.FIX/F     
;  @R LINK
;  *@DBMEN2.CMD		; DBMEN2 FROM DISTRIBUTION TAPE  
;  @SAVE DSK:DBMEND 
;         
;         
;************************** END OF EDIT 365 *******************************     
;******************** START OF DBMS20-V6 EDIT 367 *************************     
;         
;SYMPTOM  
;	DBMEND GETS "INVALID BLOCK DESCRIPTOR ON JOURNAL PAGE 2" AFTER A    
;	/MERGE BEFORE COMMAND.      
;         
;DIAGNOSIS
;	DBCS WHEN WRITING A BEFORE IMAGE (JR.BEF) WILL GARBAGE THE JOURNAL IF         
;	1. THE JOURNAL BUFFERS ARE FLUSHED BECAUSE THE JRN BUFFERS ARE FULL 
;	2. THERE IS A REMANENT OF THE LAST IMAGE IN THE "FIRST" JRNL BUFFER 
;	3. THE TRANSACTION IS TERMINATED WITH A JBTRAN BEFORE ANYTHING ELSE 
;	   IS PLACED IN THE JRNL BUFFERS.     
;	JBTRAN DOES NOT RECOGNIZE THAT THERE IS DATA IN THE JRNL BUFFERS AND
;	DOES NOT FLUSH THE PARTIAL IMAGE; DOES NOT WRITE OUT BEFORE IMAGES  
;	AND DOES NOT WRITE OUT A TRANSACTION TRAILER.   
;         
;CURE     
;	ENSURE THAT JRCOPY FLAGS THE JRNL BUFFER AS MODIFIED (JR.BFM) AND   
;	DONT LET JREFILL DESTROY JR.BIX AFTER FLUSHING THE JRNL BUFFERS.    
;         
;         
;************** EDIT THE FOLLOWING INTO FILE 367.FIX **********************     
.EDIT 367 
.NAME JEF 
.DATE 26-OCT-81     
.MODULE DBJOUR      
.INSERT JREFIL+10,REPLACE:2,<CAML JP,JR.BAFT(SS)> 
	CAML	JP,JR.BAFT(SS)		; BEYOND END OF JRNL BUFFERS?         
	JRST	[PUSHJ	P,JR.FLUSH	; YES SO FLUSH THE JRNL BUFFERS     
		AOS	CNT.JB(SS)	; CNT OF FLUSHED BECAUSE FULL    
		MOVE	JP,JR.1STP(SS)	; RECYCLE TO FIRST BUFFER   
		POP	P,(P)		; REPLACE THE RELATIVE JRNL PAGE NUMBER        
		PUSH	P,JP.BIX(JP)	; WITH THE NOW KNOWN REAL PAGE NUMBER   
		JRST	JREFIL+12    ]         
.ENDI     
.INSERT JRC.NH+24,AFTER,<ADDM 3(14)>    
	HLRZ	R0,JP.FLAG(JP)		; GET THE JR.BFM (BUFFER MODIFIED) FLAG         
	TRZ	R0,JR.BFM		; TURN IT ON (0 = ON)   
	HRLM	R0,JP.FLAG(JP)		; STORE IN JRNL PAGE        
.ENDI     
.INSERT JRC.LP+14,BEFORE,<JRST JRC.LP>  
	HLRZ	R0,JP.FLAG(JP)		; GET THE JR.BFM (BUFFER MODIFIED) FLAG         
	TRZ	R0,JR.BFM		; TURN IT ON (0 = ON)   
	HRLM	R0,JP.FLAG(JP)		; STORE IN JRNL PAGE        
.ENDI     
.ENDE     
;**************************** CAUTION *************************************     
;         
;		TO AVOID LOSING ANY PREVIOUS PATCHES  BE       
;		SURE TO USE THE LATEST PATCHED REL FILES       
;		       AS A BASE FOR THIS EDIT.      
;         
;********** EDIT 367 AFFECTS DBMS20 LIBOL FORLIB DBMEND *******************     
;         
;	----------------  FOR LIBOL 68  ----------------
;         
;  @R MAKLIB        
;  *DBSANY.REL=DBSANY.REL,367.FIX/F     
;  *LIBOL.REL=LIBOL.REL/M:(DBJOUR),DBSANY.REL/R:(DBJOUR)    
;  *LIBOL.REL=LIBOL.REL/INDEX 
;  @R LINK
;  *@DBCS28.CMD		; DBCS28 FROM DISTRIBUTION TAPE  
;  @SAVE DSK:LIBO12 0 1, 564 577, 600 675         
;         
;	----------------  FOR LIBOL 74  ----------------
;         
;  @R MAKLIB        
;  *DBSANY.REL=DBSANY.REL,367.FIX/F     
;  *C74LIB.REL=C74LIB.REL/M:(DBJOUR),DBSANY.REL/R:(DBJOUR)  
;  *C74LIB.REL=C74LIB.REL/INDEX         
;  @R LINK
;  *@DBCS24.CMD		; DBCS24 FROM DISTRIBUTION TAPE  
;  @SAVE DSK:C74O12 0 1,550 575,600 675 
;         
;	----------  FOR FOROTS (FORTRAN V5A)  ----------
;         
;  @R MAKLIB        
;  *DBSANY.REL=DBSANY.REL,367.FIX/F     
;  *FORLIB.REL=FORLIB.REL/M:(DBJOUR),DBSANY.REL/R:(DBJOUR)  
;  *FORLIB.REL=FORLIB.REL/INDEX         
;  @LINK  
;  *@DBCS25.CMD		; DBCS25 FROM DISTRIBUTION TAPE  
;  @SAVE FOROTS     
;         
;	-----------  FOR DBMSF (FORTRAN V6)  -----------
;         
;  @R MAKLIB        
;  *DBSANY.REL=DBSANY.REL,367.FIX/F     
;  *FORLIB.REL=FORLIB.REL/M:(DBJOUR),DBSANY.REL/R:(DBJOUR)  
;  *FORLIB.REL=FORLIB.REL/INDEX         
;  @LINK  
;  *@DBCS2F.CMD		; DBCS2F FROM DISTRIBUTION TAPE  
;  @GET DBMSF.EXE   
;  @SAVE DSK:DBMSF.EXE 700 734
;         
;	-----------------  FOR DBMEND  -----------------
;         
;  @R MAKLIB        
;  *MNDANY.REL=MNDANY.REL,367.FIX/F     
;  @R LINK
;  *@DBMEN2.CMD		; DBMEN2 FROM DISTRIBUTION TAPE  
;  @SAVE DSK:DBMEND 
;         
;         
;************************** END OF EDIT 367 *******************************     
;******************** START OF DBMS20-V6 EDIT 405 *************************     
;         
;SYMPTOM  
;	During a DELETE TRANSACTION, DBMEND is clobbering areas that are    
;	sharing buffers.  
;         
;DIAGNOSIS
;	After the shared buffer information is set up (DBBIND), MNDIDB      
;	should modify the area block for each area, so  
;	that in reality all areas get their own buffers. However, the       
;	routine to do this, SBI.LP, is trashing LISTPT, an AOBJN pointer    
;	to all area blocks. As a result, only the first area in the list    
;	is getting its shared buffer information cleared.         
;         
;CURE     
;	Move the area list pointer to a safe AC, so that it doesn't get     
;	trashed. This will allow the shared buffer information to be        
;	cleared from all areas.     
;         
;         
;*************** EDIT THE FOLLOWING INTO FILE 405.FIX *********************     
.EDIT 405 
.NAME WTK 
.DATE 13-JAN-82     
.MODULE MNDIDB      
;	FIRST INSERT AT SBI.LP-2    
.INSERT JRRESE-116,REPLACE,<SKIPL 7,42(14)>       
	SKIPL 1,42(14)     
.ENDI     
;	SECOND INSERT AT SBI.LP     
.INSERT JRRESE-114,REPLACE,<HRRZ 7,0(7)>
	HRRZ 7,0(1)        
.ENDI     
;	THIRD INSERT AT SBI.LP+6    
.INSERT JRRESE-106,REPLACE,<AOBJN 7,JRRESE-114>   
	AOBJN 1,JRRESE-114 
.ENDI     
.ENDE     
;***************************** CAUTION *************************************    
;         
;		TO AVOID LOSING ANY PREVIOUS PATCHES  BE       
;		SURE TO USE THE LATEST PATCHED REL FILES       
;		       AS A BASE FOR THIS EDIT.      
;         
;	    THIS PATCH AFFECTS THE FOLLOWING DBMS COMPONENTS:     
;         
;				DBMEND         
;         
;         
;	------------------ TO INSTALL THIS EDIT ------------------
;         
;	@RUN MAKLIB       
;	*MNDANY.REL=MNDANY.REL,405.FIX/F      
;	*^C     
;	@SUBMIT DBMS20/TAG:DBALL	;DBMS20.CTL FROM DISTRIBUTION TAPE         
;         
;************************** END OF EDIT 405 *******************************