Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11i-bm_tops20_v7_0_atpch_1-22 - 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 *********************