Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/dbsany.f14
There are 3 other files named dbsany.f14 in the archive. Click here to see a list.
;******************** Start of DBMS20-V6 edit 1206 ********************
.EDIT 1206
.NAME JEF
.DATE 03-JUN-86
.MODULE DBCALC
.REMOVE 1200 ; this may cause a %warning message, its ok
.INSERT CA.LINK+4,REPLACE:1,< PUSHJ P,CALCHDR>
PUSH P,110(14) ;[1206] remember how many created pages
PUSHJ P,CALCHDR
; check for MODIFY a calc-key which results in a new page with
; only a page header and calc chain on it. Avoids FIND NEXT
; ill mem ref if db page = more than one physical page.
POP P,R0 ;[1206] get back count
MOVEI R1,10 ;[1206] get MODIFY verb flag
CAMN R1,445(X) ;[1206] is this a MODIFY verb?
JRST [ ;[1206] yes - avoid ill mem ref
CAMN R0,110(14) ;[1206] did we create new page?
JRST .+1 ;[1206] no, get out
MOVE R1,22(AREABLK) ;[1206] move to end of page and
ADDI R1,-1(PAGHDR) ;[1206] locate a line-header
MOVES (R1) ;[1206] touch to create page
JRST .+1 ] ;[1206]
.ENDI
.ENDE
;************************* Installation Notes ************************
;
; This patch affects the following DBMS-20 components:
;
; Utilities:
; DBMEND DBINFO XDML
; DBCS libraries:
; DBMS.REL DBMSF.REL
; Languages:
; LIBO12.EXE (COBOL-68 V.12B)
; C74O12.EXE (COBOL-74 V.12B)
; COBOTS-V13.EXE (COBOL-20 V.13)
; DBMSF.EXE (FORTRAN V.7)
;
; To install this edit:
;
; @RUN MAKLIB
; *DBSANY.REL=DBSANY.REL,1206.FIX/F
; *^C
;
; @SUB DBMS20/TAG:PATCH ;DBMS20.CTL from distribution tape
;
;********************* End of DBMS20-V6 edit 1206 *********************