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