Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/dbsany.f16
There are 3 other files named dbsany.f16 in the archive. Click here to see a list.
;******************** Start of DBMS20-V6 edit 1211 ********************
.EDIT 1211
.NAME SMW
.DATE 12-Feb-87
.MODULE DBSTAT
;-------------------------------------------
.INSERT CLRCNT+4,BEFORE,<POPJ 17,>
	SETZM	TIMDBCS(CSS)	;zero total time and verbs
	SETZM	VERBIX(CSS)
	MOVE	R1,OTS.A2(X)	;use time from STATS begin as ss start
	MOVEM	R1,TIM.SS(CSS)
.ENDI
;-------------------------------------------
.ENDE
;************************* Installation Notes ************************
;
; This patch affects the following DBMS-20 components:
;
;	Utilities:
;		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.10)
;
; To install this edit:
;
;	@RUN MAKLIB
;	*DBSANY.REL=DBSANY.REL,1211.FIX/F
;	*^C
;
;	@SUB DBMS20/TAG:PATCH	;DBMS20.CTL from distribution tape
;
;********************* End of DBMS20-V6 edit 1211 *********************
;******************** Start of DBMS20-V6 edit 1212 ********************
.EDIT 1212
.NAME SMW
.DATE 20-MAR-87
.MODULE DBFIND
.INSERT F5.1ST-12,REPLACE:2,<SKIPG 135(SS)>
	SKIPG	135(SS)			;CUR.RU, this and next to satisfy MAKLIB
	JRST	F5.1ST			;CAN HARDLY MATCH SOMETHING NOT THERE
	CAME	BLK,137(SS)		;[1212]CUR.RB, check if CRU is same type
	JRST	F5.1ST			;[1212]  just in case outside transact
.ENDI
.ENDE
;************************* Installation Notes ************************
;
; This patch affects the following DBMS-20 components:
;
;	Utilities:
;		SCHEMA	DBMEND	DBINFO	FORDML  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.10)
;
; To install this edit:
;
;	@RUN MAKLIB
;	*DBSANY.REL=DBSANY.REL,1212.FIX/F
;	*^C
;
;	@SUB DBMS20/TAG:PATCH	;DBMS20.CTL from distribution tape
;
;********************* End of DBMS20-V6 edit 1212 *********************