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 *********************