Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/fmlany.f05
There are 11 other files named fmlany.f05 in the archive. Click here to see a list.
;******************** START OF DBMS20-V6 EDIT 431 *************************
;
;SYMPTOM
; FORDML does not allow CLOSE TRANSACTION or DELETE TRANSACTION without
; a transaction name, which should be optional.
;
;DIAGNOSIS
; Module DMLVER, which drives the DBMS statement translation, has no
; provision for accepting these two statements without the optional
; transaction name.
;
;CURE
; Modify the handling of these two statements to make the transaction
; name an optional token.
;
;*************** EDIT THE FOLLOWING INTO FILE 431.FIX *********************
.EDIT 431
.NAME HRB
.DATE 23-JUL-82
.MODULE DMLVER
LN.NUM=3652
.INSERT CLO.TR,REPLACE:5,<ADDI TOKCUR,1>
ADDI TOKCUR,1
HLRZ R0,LN.NUM(TOKCUR) ;"ISTOKEN <$DBNAME,$EOS>"
MOVEI R1,2 ; ''
CAME R0,[$DBNAM ; ''
$EOS]-1(R1) ; ''
SOJG R1,.-1 ; ''
ADDI TOKCUR,1
JRST @CTR.VE(R1)
CTR.VE: JRST [MOVEI 7,[ASCIZ/a Transaction Name or End Of Statement/]
JRST TYPERX] ;"SYNERX <a Tra...>"
CLO.T1
CLO.T2
CLO.T1:
.ENDI
.INSERT CLO.TR+11,AFTER,<JRST V.OTHER>
CLO.T2: MOVEI 16,[-2,,0
TWO.C
AZERO]+1 ;"FUNCT OBJOUT,<TWO.C,AZERO>
PUSHJ P,OBJOUT ; ''
JRST V.OTHER
.ENDI
.INSERT DEL.TR,REPLACE:5,<ADDI TOKCUR,1>
ADDI TOKCUR,1
HLRZ R0,LN.NUM(TOKCUR) ;"ISTOKEN <$DBNAME,$EOS>"
MOVEI R1,2 ; ''
CAME R0,[$DBNAM ; ''
$EOS]-1(R1) ; ''
SOJG R1,.-1 ; ''
ADDI TOKCUR,1
JRST @DTR.VE(R1)
DTR.VE: JRST [MOVEI 7,[ASCIZ/a Transaction Name or End Of Statement/]
JRST TYPERX] ;"SYNERX <a Tra...>"
DEL.T1
DEL.T2
DEL.T1:
.ENDI
.INSERT DEL.TR+7,AFTER,<JRST VDELEND>
DEL.T2: MOVEI 16,[-2,,0
TWO.D
AZERO]+1 ;"FUNCT OBJOUT,<TWO.D,AZERO>
PUSHJ P,OBJOUT ; ''
JRST V.OTHER
.ENDI
.ENDE
;***************************** CAUTION *************************************
;
; TO AVOID LOSING ANY PREVIOUS PATCHES BE
; SURE TO USE THE LATEST PATCHED REL FILES
; AS A BASE FOR THIS EDIT.
;
; THIS PATCH AFFECTS THE FOLLOWING DBMS COMPONENTS:
;
; FORDML
;
;
; ------------------ TO INSTALL THIS EDIT ------------------
;
; @RUN MAKLIB
; *FMLANY.REL=FMLANY.REL,431.FIX/F
; *^C
; @R LINK
; *@FORDM2.CMD ;FROM DIST. TAPE
; @SAVE DSK:FORDML
;
;************************** END OF EDIT 431 *******************************