Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/dbsany.f17
There are 3 other files named dbsany.f17 in the archive. Click here to see a list.
;******************** Start of DBMS20-V6 edit 1214 ********************
.EDIT 1214
.NAME SMW
.DATE 13-Jul-87
.MODULE DBKALC
.ASSOCIATED -PAM1
LM.CAD==3		;LOC MODE CALC DUP ALLOWED
LM.CAND==4		;LOC MODEC CALC NO DUPS
.INSERT ALCLN-3,AFTER,<SUB	PAG,R1>
	MOVE	R1,STO.RB(X)		;Check location mode
	HLRZ	R1,(R1)			;LD	R1,RB,LM,(R1)
	CAIE	R1,LM.CAD		;If CALC DUP ALLOWED
	CAIN	R1,LM.CAND		;or CALC NO DUP
	ADDI	PAG,1			; make it agree with CABUCK
.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,1214.FIX/F
;	*^C
;
;	@SUB DBMS20/TAG:PATCH	;DBMS20.CTL from distribution tape
;
;********************* End of DBMS20-V6 edit 1214 *********************