Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/dbsany.f11
There are 3 other files named dbsany.f11 in the archive. Click here to see a list.
;******************** Start of DBMS20-V6.1 edit 1202 *******************
.EDIT 1202
.NAME JSM
.DATE 18-FEB-85
.MODULE DBFIND
.INSERT F3.TOP,BEFORE,<HLL AP,-1(AP)>
	SETOM	470(X)	;[1202] SET FLAG FOR DOING FIND NEXT
			;[1202]  470 = XTMP3
.ENDI
.MODULE DBKITM
.INSERT SSM.LP+5,AFTER,<MOVEM R0,OB.CVIX(SETBLK)>
	SKIPE	470(X)		;[1202] DOING FIND NEXT?
	CAME	SETBLK,235(X)	;[1202] ON CURRENT SET?
				;[1202]  235 = TMP.SB
	 JRST	.+4		;[1202] NO PHWEW!
	HRRZI	R0,37223	;[1202] YES, CAN'T LET THIS CONTINUE
	PUSHJ	P,ERRRG.##	;[1202] GIVE ERROR-DATA = 16019.
	PUSHJ	P,XC.DAT##	;[1202] AND ERROR-STATUS = 356.
.ENDI
.MODULE DBLEAV
.INSERT DXX.EX,BEFORE,<TLZ X,PSW.AFE!PSW.EAV!PSW.RAN!PSW.NRL>
	SETZM	470(X)	;[1202] EVERYBODY BANGS THE BUTTON ON THE WAY OUT
.ENDI
.ENDE
;************************* Installation Notes ************************
;
; This patch affects the following DBMS-20 components:
;
;	Utilities:
;		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,1202.FIX/F
;	*XDSANY.REL=XDSANY.REL,1202.FIX/F
;	*^C
;
;	@LINK
;	*@DBINF2.CMD		;DBINF2.CMD from distribution tape
;	@SAVE DBINFO
;
;	@LINK
;	*@XDML.CMD		;XDML.CMD from distribution tape
;	@SAVE XDML
;
;		- or -
;
;	@SUB DBMS20/TAG:PATCH	;DBMS20.CTL from distribution tape
;
;********************* End of DBMS20-V6.1 edit 1202 ********************