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 *******************************