Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/dbsany.f04
There are no other files named dbsany.f04 in the archive.
;******************** START OF DBMS20-V6 EDIT 364 *************************
;
;SYMPTOM
; ERROR 357 SHOWS UP WHILE RUNNING 8 COPIES OF DECU SIMULTANEOUSLY.
;
;DIAGNOSIS
; NEX.BUOY ATTEMPTS TO LOAD THE OWNER POINTER INTO THE NEW BUOY FROM
; OB.COWN(SETBLK). IT DOES NOT ALWAYS HAVE THE OWNER POINTER.
;
;CURE
; GET THE OWNER POINTER FROM OWNDBK(X).
;
;
;*************** EDIT THE FOLLOWING INTO FILE 364.FIX *********************
.EDIT 364
.NAME JEF
.DATE 8-OCT-81
.MODULE DBSET
.INSERT NEX.BU+40,REPLACE,<MOVE R0,OB.COWN(SETBLK)>
MOVE R0,OWNDBK(X) ; OWNER PTR IS ALWAYS FOUND HERE
.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 364 AFFECTS DBMS20 LIBOL FORLIB **********************
;
; ---------------- FOR LIBOL 68 ----------------
;
; @R MAKLIB
; *DBSANY.REL=DBSANY.REL,364.FIX/F
; *LIBOL.REL=LIBOL.REL/M:(DBSET),DBSANY.REL/R:(DBSET)
; *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,364.FIX/F
; *C74LIB.REL=C74LIB.REL/M:(DBSET),DBSANY.REL/R:(DBSET)
; *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,364.FIX/F
; *FORLIB.REL=FORLIB.REL/M:(DBSET),DBSANY.REL/R:(DBSET)
; *FORLIB.REL=FORLIB.REL/INDEX
; @LINK
; *@DBCS25.CMD ; DBCS25 FROM DISTRIBUTION TAPE
; @SAVE FOROTS
;
; ----------- FOR DBMSF (FORTRAN V6) -----------
;
; @R MAKLIB
; *DBSANY.REL=DBSANY.REL,364.FIX/F
; *FORLIB.REL=FORLIB.REL/M:(DBSET),DBSANY.REL/R:(DBSET)
; *FORLIB.REL=FORLIB.REL/INDEX
; @LINK
; *@DBCS2F.CMD ; DBCS2F FROM DISTRIBUTION TAPE
; @GET DBMSF.EXE
; @SAVE DSK:DBMSF.EXE 700 734
;
;
;************************** END OF EDIT 364 *******************************
;******************** START OF DBMS20-V6 EDIT 366 *************************
;
;SYMPTOM
; COBOL DBMS-20 V6 PROGRAMS MAY GET "ILL MEM REF" FROM COBFUN (FREE-PG)
; OR DBMEND MAY GET "?CORBOV. FREE BLOCKS OVERLAP" DOING A /CLOSE ALL
; AFTER A /MERGE BEFORE.
;
;DIAGNOSIS
; IF THE DBCS PAGE IS FULL, THE BEFORE IMAGE IS A FULL PAGE PLUS ROOM
; FOR THE LOGICAL BLOCK (IMAGE) HEADER (IN THIS INSTANCE 1003 WORDS
; LONG). DBOPEN ONLY ALLOCATES ONE PAGE FOR THE IMAGE; JR.SPLIT USES
; ONE PAGE PLUS SPACE FOR THE LOGICAL BLOCK HEADER. THIS RESULTS IN
; THE FREE LIST GETTING ZAPPED (A DBMEND CORBOV) OR IN THE CASE WHERE
; THE SPACE WAS ALLOCATED AN "ILL MEM REF".
;
;CURE
; HAVE DBOPEN ALLOCATE 3 EXTRA WORDS.
;
;
;*************** EDIT THE FOLLOWING INTO FILE 366.FIX *********************
.EDIT 366
.NAME JEF
.DATE 21-OCT-81
.MODULE DBOPEN
.INSERT OPELIT+114,AFTER,<MOVEM 5,JR.BAFT(SS)>
ADDI 5,3 ; NEED ROOM FOR PG + JRNL LOGI BLK HDR
.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 366 AFFECTS DBMS20 LIBOL FORLIB DBMEND ********************
;
; ---------------- FOR LIBOL 68 ----------------
;
; @R MAKLIB
; *DBSANY.REL=DBSANY.REL,366.FIX/F
; *LIBOL.REL=LIBOL.REL/M:(DBOPEN),DBSANY.REL/R:(DBOPEN)
; *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,366.FIX/F
; *C74LIB.REL=C74LIB.REL/M:(DBOPEN),DBSANY.REL/R:(DBOPEN)
; *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,366.FIX/F
; *FORLIB.REL=FORLIB.REL/M:(DBOPEN),DBSANY.REL/R:(DBOPEN)
; *FORLIB.REL=FORLIB.REL/INDEX
; @LINK
; *@DBCS25.CMD ; DBCS25 FROM DISTRIBUTION TAPE
; @SAVE FOROTS
;
; ----------- FOR DBMSF (FORTRAN V6) -----------
;
; @R MAKLIB
; *DBSANY.REL=DBSANY.REL,366.FIX/F
; *FORLIB.REL=FORLIB.REL/M:(DBOPEN),DBSANY.REL/R:(DBOPEN)
; *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
; *DBSANY.REL=DBSANY.REL,366.FIX/F
; @R LINK
; *@DBMEN2.CMD ; DBMEN2 FROM DISTRIBUTION TAPE
; @SAVE DSK:DBMEND
;
; ----------------- FOR DBINFO -----------------
;
; @R MAKLIB
; *DBSANY.REL=DBSANY.REL,366.FIX/F
; @R LINK
; *@DBINF2.CMD ; DBINF2 FROM DISTRIBUTION TAPE
; @SAVE DBINFO
;
;
;************************** END OF EDIT 366 *******************************
;******************** 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 401 *************************
;
;SYMPTOM
; Error status 1559 during SBIND, code 15001, when trying to
; open many data base areas.
;
;DIAGNOSIS
; Bad argument sent to ACM.M during transaction walk. Area walk
; refilled the buffer because of large number of areas, but
; transaction walk thinks correct schema page is in the buffer.
;
;CURE
; Use FINDR% to get correct page back in buffer before doing
; transaction walk.
;
;
;*************** EDIT THE FOLLOWING INTO FILE 401.FIX *********************
.EDIT 401
.NAME WTK
.DATE 21-DEC-81
.MODULE DBBIND
.INSERT EB.REC-24,AFTER,<PUSHJ 17,AR.WAL>
PUSHJ 17,FINDR%##
MOVE 7,1
.ENDI
.INSERT EB.REC-21,BEFORE,<MOVEI 16,DATCTL+30>
PUSHJ 17,FINDR%##
MOVE 7,1
.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:
;
; DBINFO
; DBMEND
; LIBOL
; FORLIB
; DBCS2F
;
;
; ------------------ TO INSTALL THIS EDIT ------------------
;
; @RUN MAKLIB
; *DBSANY.REL=DBSANY.REL,401.FIX/F
; *^C
; @SUBMIT DBMS20/TAG:DBALL ;DBMS20.CTL FROM DISTRIBUTION TAPE
;
;************************** END OF EDIT 401 *******************************