Trailing-Edge
-
PDP-10 Archives
-
bb-bt99h-bb
-
mndany.f05
There are 11 other files named mndany.f05 in the archive. Click here to see a list.
;VERSION 5A COMMENT
;
; THIS WAS EDIT 434 FOR DBMS VERSION 5.
; CHANGES FOR VERSION 5A ARE FLAGGED WITH [V5A] IN THE MARGINAL
; COMMENTS OF THE MAKLIB TEXT.
;
;SYMPTOM:
;
; DBMEND APPEARS TO HAVE DIFFICULTY RECOGNIZING THE BEGINNING
; OF A DISK JOURNAL WHEN THE COMMAND /POSITION 1 IS GIVEN.
;
;DIAGNOSIS:
;
; PAGE 1 OF A DISK JOURNAL IS THE JOURNAL LABEL PAGE AND
; ALSO CONTAINS THE TERMINAL FRAGMENT OF THE LAST JOURNAL
; PAGE AND THEREFORE SHOULD NOT BE REFERENCED BY THE /POS
; COMMAND WITH AN ABSOLUTE ARGUMENT.
;
;CURE:
;
; INSTALL EDIT 532 TO GIVE AN ERROR MESSAGE WHEN THE COMMAND
; /POS 1 HAS BEEN GIVEN FOR A DISK JOURNAL. THE ERROR
; MESSAGE WHICH WE HAVE SELECTED IS "?MNDJPI JOURNAL
; POSITIONED INCORRECTLY AFTER PROCESSING LAST-RELATIVE
; BOUNDARY." THIS MESSAGE IS NOT EXACTLY APPROPRIATE TO
; THE PROBLEM, BUT IT IS NOT POSSIBLE TO INSTALL NEW ERROR
; MESSAGES INTO THE DBMEND REL FILES.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 + DBMS20 VERSION 5A
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 532.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
; APPLY THIS EDIT TO MNDANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
; DBMS-10:
; .R MAKLIB
; *MNDANY.REL=MNDANY.REL,532.FIX/F
;
; .R LINK
; *@DBMEN1
;
; .SAVE DBMEND
;
; DBMS-20:
; @R MAKLIB
; *MNDANY.REL=MNDANY.REL,532.FIX/F
;
; @R LINK
; *@DBMEN2
;
; @SAVE DBMEND
;
.EDIT 532
.NAME JSM
.MODULE DBMEND
.INSERT POSABS+1,REPLACE:1,<JRST DTA.SU+1057> ;[V5A]
;TWO DBMEND COMMANDS PASS THRU THIS PIECE OF CODE
; THEY ARE /POSITION AND /COMPLETE -- BOTH FOR
; ABSOLUTE ARGUMENTS. BEFORE SCAN GIVES CONTROL
; TO THE DBMEND COMMAND IT PUTS THE COMMAND INDEX
; INTO R5, WHICH IS SUPPOSED TO REMAIN UNCHANGED
; THROUGH THE ENTIRE RUN OF THE COMMAND. THE CODE
; AT LOCATION POSABS TESTS WHETHER THE JOURNAL IS
; ON MAGTAPE OR DISK AND GOES TO POSABS+1 ONLY
; FOR DISK JOURNALS.
JRST [CAIE R5,15 ;DOING POSITION COMMAND?
JRST DTA.SU+1057 ;[V5A] NO, LET USER DO /COMPLETE 1 IF
; HE WANTS
HRRZ R1,TMPIDX ;GET CURRENT REQUESTED POSITION
CAIN R1,1 ;IS IT 1?
JRST EL.JPI ; YES -- ERROR
JRST DTA.SU+1057] ;[V5A] NO, OK -- OTHER ERRORS WILL BE
; CAUGHT LATER
.ENDI
.ENDE
;VERSION 5A COMMENT
;
; THIS WAS EDIT 441 IN VERSION 5.
; CHANGES IN THE MAKLIB TEXT OF THE EDIT FOR VERSION 5A WILL
; BE FLAGGED IN THE MARGINAL COMMENTS.
;
;SYMPTOM:
;
; DBMEND WILL PRODUCE THE ERROR MESSAGE "?I/O TO UNASSIGNED
; CHANNEL AT USER PC NNNNNN" WHEN THE /UNLOAD COMMAND IS
; GIVEN WITHOUT PREVIOUSLY SPECIFYING A JOURNAL.
;
;DIAGNOSIS:
;
; DBMEND'S /UNLOAD COMMAND BLYTHELY ASSUMED THAT A JOURNAL
; HAD ALREADY BEEN SPECIFIED.
;
;CURE:
;
; INSTALL DBMS EDIT 533 TO MAKE IT CHECK FOR A JOURNAL. IF
; A JOURNAL HAS NOT BEEN PREVIOUSLY SPECIFIED, /UNLOAD WILL
; ISSUE THE MESSAGE "?MNDJNI JOURNAL NOT YET IDENTIFIED".
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 + DBMS20 VERSION 5A
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 533.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
; APPLY THIS EDIT TO MNDANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;FOR DBMS-10:
;
; .R MAKLIB
; *MNDANY.REL=MNDANY.REL,533.FIX/FIX
;
; .R LINK
; *@DBMEN1
;
; .SAVE DBMEND
;
;FOR DBMS-20:
;
; @R MAKLIB
; *MNDANY.REL=MNDANY.REL,533.FIX/FIX
;
; @R LINK
; *@DBMEN2
;
; @SAVE DBMEND
;
;
;***************************************************************
.EDIT 533
.MODULE DBMEND
.NAME JSM
.INSERT $UNLOAD,AFTER,<PUSHJ P,SC%SAV>
TRNN STATUS,$JR.BIT ;HAS JOURNAL ALREADY BEEN SPECIFIED?
JRST DTA.SU+55 ;NO -- GIVE ?MNDJNI MESSAGE
.ENDI
.ENDE
;VERSION 5A COMMENT
;
; THIS WAS EDIT 442 IN VERSION 5. THE PROBLEM OF EDIT 347 WAS
; RESOLVED IN VERSION 5A, AND SO THERE IS NO NEED TO ACCOMODATE
; THAT EDIT HERE. THIS IS WHY THREE LINES OF CODE HAVE BEEN
; COMMENTED OUT BELOW.
;
;SYMPTOM:
;
; AFTER DOING A /MERGE OPERATION IN DBMEND-10 TO REMOVE AN
; INCOMPLETE TRANSACTION THEN UNLOADING THE JOURNAL WITH THE
; /UNLOAD COMMAND, ANY SUBSEQUENT RUN-UNIT UNDER DBCS TRYING
; TO RE-USE THE JOURNAL WOULD SOMETIMES FAIL ON AN OPEN WITH
; AN ERROR-STATUS CODE OF 0962.
;
;DIAGNOSIS:
;
; THE 0962 ERROR-STATUS CODE WAS REPORTED IF DBMS-10'S
; JOURNAL-IN-UNDEFINED-STATUS WORD WAS SET IN THE JOURNAL
; LABEL PAGE OF A DISK JOURNAL. THIS WORD WAS SET BY /MERGE
; IN ORDER TO SIGNIFY THAT IT WAS CURRENTLY WORKING WITH THE
; JOURNAL IN ORDER TO RECOVER THE DATA BASE. IT SHOULD BE
; CLEARED BY /UNLOAD ON THE COMPLETION OF A SUCCESSFUL MERGE
; IN ORDER TO INDICATE THAT THIS JOURNAL IS NO LONGER ACTIVELY
; INVOLVED IN RESTORING THE DATA BASE AND IS NOW AVAILABLE
; FOR FURTHER WORK UNDER RUN-UNITS USING DBCS.
; THIS SYMPTOM IS ESPECIALLY TROUBLESOME IN CASES WHERE
; SIMULTANEOUS USERS WISH TO SHARE A PRE-ALLOCATED AND
; TRUNCATED JOURNAL AFTER IT HAS BEEN USED BY DBMEND-10 IN
; ORDER TO BACK OUT A PREVIOUS INCOMPLETE TRANSACTION.
; DBMEND-20 HANDLES THIS PROCEDURE DIFFERENTLY.
;
;CURE:
;
; INSTALL EDIT 534 TO CAUSE DBMEND-10 /UNLOAD TO CLEAR THE
; JOURNAL-IN-UNDEFINED-STATE WORD IN THE EVENT OF A SUCCESS-
; FUL /MERGE. THIS EDIT USES BIT 0 IN THE RIGHT HALF OF
; DBMEND'S STATUS REGISTER IN ORDER TO CONVEY INFORMATION
; ABOUT THE JOURNAL STATE FROM /MERGE TO /UNLOAD. IF THIS
; BIT IS SET COMING INTO THE THE EXECUTION OF /UNLOAD, IT
; WILL CLEAR IT AND GIVE THE MESSAGE "?MNDPIF JOURNAL'S
; LABEL PAGE HAS IMPROPER FORMAT". THIS BIT IS NOT OTHER-
; WISE USED BY DBMEND-10 AND IS NOT DEFINED TO IT. A SUB-
; SEQUENT /UNLOAD WILL UNLOAD THE DISK JOURNAL, CLEARING
; THE JOURNAL-IN-UNDEFINED-STATE WORD. IN THIS WAY THE USER
; WILL BE RELIEVED OF THE DISTRESSING PROBLEM OF HAVING HIS
; JOURNAL LABEL IN AN UNDEFINED STATE WHEN HE EXITS FROM
; DBMEND-10.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 VERSION 5A ONLY
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 534.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
; APPLY THIS EDIT TO MNDANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;FOR DBMS-10:
;
; .R MAKLIB
; *MNDANY.REL=MNDANY.REL,534.FIX/FIX
;
; .R LINK
; *@DBMEN1
;
; .SAVE DBMEND
;
;***************************************************************
.EDIT 534
.MODULE DBMEND
.NAME JSM
.INSERT $MERGE+20,AFTER,<POP P,R1> ;[V5A]
;[REMOVED FOR V5A] PUSH P,R1
;[REMOVED FOR V5A] PUSHJ P,SKECHK
;[REMOVED FOR V5A] POP P,R1
TRO STATUS,400000 ; SET MERGE-IN-PROGRESS BIT
.ENDI
.INSERT MR.EX,BEFORE,<JRST %POPJ1>
TRZ STATUS,400000 ; CLEAR MERGE-IN-PROGRESS BIT
;UPON SUCCESSFUL COMPLETION OF /MERGE
.ENDI
.INSERT DTA.SU+715,AFTER,<SETOM JR.BUF+21>
TRZE STATUS,400000 ; MERGE-IN-PROGRESS BIT STILL SET?
; IF SO, TURN IT OFF IN ANY EVENT
JRST DTA.SU+1006 ; YES -- GIVE ?MNDPIF MESSAGE
SETZM JR.BUF+30 ; NO -- CLEAR JRN-IN-UNDEF-STATE
; WORD BEFORE REWRITING JRN
; LABEL PAGE
.ENDI
.ENDE
;VERSION 5A COMMENT
;
; THIS WAS EDIT 450 IN VERSION 5.
;
;SYMPTOM:
;
; IN CASES WHERE THE /schema COMMAND IS NOT PRECEDED BY /journal,
; DBMEND-10 DOES NOT UNDERSTAND /schema schnam , BUT IT WILL
; UNDERSTAND /schema SCHNAM.
;
;DIAGNOSIS:
;
; FOR THE MODIFIER AFTER THE VERB, DBMEND WASN'T CONVERTING
; LOWER CASE TO UPPER CASE PROPERLY CAUSING COMPARISIONS TO FAIL.
;
;CURE:
;
; APPLY EDIT 535 TO DBMEND-10. EDIT 535 WILL CAUSE LOWER CASE TO
; BE COMPARED PROPERLY TO THE CORRESPONDING UPPER CASE ALPHABETICS
; FOR THIS COMMAND. NOTE, THE SCHEMA NAME WILL BE OUTPUT IN UPPER
; CASE ON YOUR DBMEND LISTINGS.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS-10 VERSION 5A ONLY
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 535.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
; APPLY THIS EDIT TO MNDANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
; FOR A DBMS-10 SYSTEM...
;
; R MAKLIB
; *MNDANY.REL=MNDANY.REL,DIS535.FIX/F
;
; R LINK
; *@DBMEN1
;
; .SAVE DBMEND
;
;
.EDIT 535
.MODULE DBMEND
.NAME JSM
.INSERT DBMEND+1,REPLACE:1,<MOVE P,DTA.SU+3>
MOVE P,[-STKSIZ+10,,STACK+10] ;GRAB 10 LOCS OFF STACK FOR
; WORK AREA.
.ENDI
.INSERT DTA.SU+701,AFTER,<MOVEM R0,LB.SCL>
MOVEM R1,1016 ;GRAB 2 AC'S TO WORK WITH; STICK THEIR
MOVEM 2,1017 ; CONTENTS IN OPEN LOCS ON STACK.
; ALSO, CAN USE AC0.
MOVNM R0,2 ;USE SCHEMA NAME LENGTH TO MAKE NEGATIVE POINTER
HRLZ R1,2 ; FOR BYTE PROCESSING BELOW.
MOVE 2,[POINT 7,LB.BLK] ;BYTE POINTER FOR SCHEMA NAME
ILDB R0,2 ;GET A BYTE
CAIGE R0,"a" ;IS IT IN RANGE OF a THRU z?
JRST .+5 ; NO -- TOO LOW
CAILE R0,"z"
JRST .+3 ; NO -- TOO HIGH
SUBI R0,40 ; YES -- MAKE IT UPPER CASE.
DPB R0,2 ;PUT IT BACK INTO SCHEMA NAME
AOBJN R1,.-7 ;FINISHED WITH BYTE STRING?
MOVE 2,1017 ;RESTORE AC'S 0 THU 2
MOVE R1,1016
MOVE R0,LB.SCL
.ENDI
.ENDE
;VERSION 5A COMMENT
;
; THIS WAS EDIT 453 IN VERSION 5.
; CHANGES IN THE MAKLIB TEXT OF THE EDIT FOR VERSION 5A WILL
; BE FLAGGED IN THE MARGINAL COMMENTS.
;
;SYMPTOM:
;
; THE DBMEND COMMAND /JOURNAL J*.* GIVES THE ERROR MESSAGE
; "?MNDWCP WILDCARDING IS PROHIBITED", IMMEDIATELY FOLLOWED BY
; THE MESSAGE "?PA1050 ILLEGAL INSTRUCTION AT USER PC 0".
;
;DIAGNOSIS:
;
; AFTER THE ?MNDWCP MESSAGE IS DISPLAYED, THE ERROR-HANDLING
; PROCEDURE DOES A JRST 0 INSTEAD OF A JRST ABORT TO ENTER
; DBMEND'S RECYCLING PROCEDURE AFTER AN ERRONEOUS COMMAND.
;
;CURE:
;
; INSTALL EDIT 536 TO MAKE THE /JOURNAL COMMAND RECYCLE THROUGH
; THE REGULAR RECYCLE ROUTINE AFTER A ?MNDWCP ERROR.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 + DBMS20 VERSION 5A
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 536.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
; APPLY THIS EDIT TO MNDANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;FOR DBMS-10:
;
; .R MAKLIB
; *MNDANY.REL=MNDANY.REL,536.FIX/FIX
;
; .R LINK
; *@DBMEN1
;
; .SAVE DBMEND
;
;FOR DBMS-20:
;
; @R MAKLIB
; *MNDANY.REL=MNDANY.REL,536.FIX/FIX
;
; @R LINK
; *@DBMEN2
;
; @SAVE DBMEND
;
;
;***************************************************************
.EDIT 536
.MODULE DBMEND
.NAME JSM
.INSERT DTA.SU+725,REPLACE:1,<JRST 0> ;[V5A]
JRST ABORT ;AFTER TYPOUT, GO TO REGULAR ABORT ROUTINE TO
; RECYCLE FOR NEXT COMMAND.
.ENDI
.ENDE
;VERSION 5A COMMENT
;
; THIS WAS EDIT 454 IN VERSION 5.
;
;SYMPTOM:
;
; IF THE DBMEND COMMAND /MERGE IS ISSUED WITHOUT A "BEFORE" OR
; "AFTER" ARGUMENT, THE RESULTING ?SCNSVR MESSAGE HAS GARBAGE
; AT THE END.
;
;DIAGNOSIS:
;
; THE /MERGE ERROR HANDLING PROCEDURE IS NOT PROVIDING A VALID
; ARGUMENT TO SCAN'S ERROR MESSAGE PROCESSOR.
;
;CURE:
;
; INSTALL EDIT 537.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 + DBMS20 VERSION 5A
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 537.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
; APPLY THIS EDIT TO MNDANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;FOR DBMS-10:
;
; .R MAKLIB
; *MNDANY.REL=MNDANY.REL,537.FIX/FIX
;
; .R LINK
; *@DBMEN1
;
; .SAVE DBMEND
;
;FOR DBMS-20:
;
; @R MAKLIB
; *MNDANY.REL=MNDANY.REL,537.FIX/FIX
;
; @R LINK
; *@DBMEN2
;
; @SAVE DBMEND
;
;
;***************************************************************
.EDIT 537
.NAME JSM
.MODULE DBMEND
.INSERT $MERGE+6,REPLACE:1,<JUMPLE C,E.SVR##>
JUMPG C,.+3 ;ENCOUNTERED THIS ERROR? NO -- GO ON IN MERGE
MOVEI R0,DBHIGH+13 ;YES -- PROVIDE *MERGE PARM ADDRESS
JRST E.SVR## ;AND GO TO SCAN'S ERROR MESSAGE PROCESSOR
.ENDI
.ENDE
;SYMPTOM:
;
; AN ABSTRACT OF A JOURNAL WITH TEXT ENTRIES DOES NOT CORRECTLY PRINT
; ANY TEXT ENTRY WHICH IS LONGER THAN 80 ASCII CHARACTERS.
;
;DIAGNOSIS:
;
; THE ROUTINE WHICH PRODUCES THE MESSAGES FOR SUCCEEDING BLOCKS OF THE
; SAME TEXT ENTRY FORGETS THAT THE RUN-UNIT-ID, WHICH IS NOT PRINTED
; FOR BLOCKS OTHER THAN THE FIRST BLOCK IN THE TEXT, IS PASSED ALONG
; WITH THE TEXT, AND ATTEMTPS TO USE IT INSTEAD OF THE TEXT.
;
;CURE:
;
; INSTALL EDIT 457. THIS WILL CAUSE TEXT BLOCKS OVER 80 ASCII CHARACTERS
; TO BE PRINTED AS MULTIPLE TEXT BLOCKS AND IS A TEMPORARY SOLUTION TO
; THIS PROBLEM.
;
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 552.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
; APPLY THIS EDIT TO MNDANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;FOR DBMS-10:
;
; .R MAKLIB
; *MNDANY.REL=MNDANY.REL,552.FIX/FIX
;
; .R LINK
; *@DBMEN1
;
; .SAVE DBMEND
;
;FOR DBMS-20:
;
; @R MAKLIB
; *MNDANY.REL=MNDANY.REL,552.FIX/FIX
;
; @R LINK
; *@DBMEN2
;
; @SAVE DBMEND
;
;
;***************************************************************
.EDIT 552
.NAME CLH
.MODULE DBMEND
.INSERT DTA.SU+262,REPLACE:8,<TLNN 1,340000>
MOVE R0,MNDTEX## ;[552] ASSUME SINGLE BLOCK FOR NOW
.ENDI
.ENDE
;SYMPTOM:
;
; IF THE DBMEND COMMANDS /ABSTRACT, /BUILD, /EXCLUDE, /FORCE
; /JOURNAL, /OPEN, OR /SCHEMA ARE ISSUED WITHOUT AN
; ARGUMENT, THE RESULTING ?SCNSVR MESSAGE HAS GARBAGE
; AT THE END.
;
;DIAGNOSIS:
;
; THE COMMAND ERROR HANDLING PROCEDURES ARE NOT PROVIDING A VALID
; ARGUMENT TO SCAN'S ERROR MESSAGE PROCESSOR.
;
;CURE:
;
; INSTALL EDIT 553.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 + DBMS20 VERSION 5
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 553.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
; APPLY THIS EDIT TO MNDANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;FOR DBMS-10:
;
; .R MAKLIB
; *MNDANY.REL=MNDANY.REL,553.FIX/FIX
;
; .R LINK
; *@DBMEN1
;
; .SAVE DBMEND
;
;FOR DBMS-20:
;
; @R MAKLIB
; *MNDANY.REL=MNDANY.REL,553.FIX/FIX
;
; @R LINK
; *@DBMEN2
;
; @SAVE DBMEND
;
;
;***************************************************************
.EDIT 553
.NAME CLH
.MODULE DBMEND
.INSERT $ABSTRACT+1,REPLACE:1,<JUMPLE C,E.SVR##>
JUMPG C,.+3 ;[553] NO PARAMETER GIVEN?
MOVEI R0,DBHIGH ;[553] YES, GET ERROR PARAMETER
JRST E.SVR## ;[553] LET SCAN PRINT MESSAGE
.ENDI
.INSERT $BUILD+1,REPLACE:1,<JUMPLE C,E.SVR##>
JUMPG C,.+3 ;[553] NO PARAMETER GIVEN?
MOVEI R0,DBHIGH+1 ;[553] YES, GET ERROR PARAMETER
JRST E.SVR## ;[553] LET SCAN PRINT MESSAGE
.ENDI
.INSERT $CLOSE+1,REPLACE:1,<JUMPLE C,E.SVR##>
JUMPG C,.+3 ;[553] NO PARAMETER GIVEN?
MOVEI R0,DBHIGH+2 ;[553] YES, GET ERROR PARAMETER
JRST E.SVR## ;[553] LET SCAN PRINT MESSAGE
.ENDI
.INSERT $EXCLUDE,AFTER,<PUSHJ 17,SC%SAV>
MOVEI R0,DBHIGH+7 ;[553] GET ERROR PARAMETER, JUST IN CASE
.ENDI
.INSERT $FORCE,AFTER,<PUSHJ 17,SC%SAV>
MOVEI R0,DBHIGH+10 ;[553] GET ERROR PARAMETER, JUST IN CASE
.ENDI
.INSERT $JOURNAL,AFTER,<PUSHJ 17,SC%SAV>
MOVEI R0,DBHIGH+11 ;[553] GET ERROR PARAMETER, JUST IN CASE
.ENDI
.INSERT $OPEN,AFTER,<PUSHJ 17,SC%SAV>
MOVEI R0,DBHIGH+14 ;[553] GET ERROR PARAMETER, JUST IN CASE
.ENDI
.INSERT $SCHEMA+1,REPLACE:1,<JUMPLE C,E.SVR##>
JUMPG C,.+3 ;[553] NO PARAMETER GIVEN?
MOVEI R0,DBHIGH+20 ;[553] YES, GET ERROR PARAMETER
JRST E.SVR## ;[553] LET SCAN PRINT ERROR MESSAGE
.ENDI
.ENDE
;VERSION 5A COMMENT
;
; THIS WAS EDIT 462 IN DBMS-10/20 VERSION 5.
;
;SYMPTOM:
;
; IN DBMEND-10,
; WHEN JOURNALLING IS DONE BE COMMAND, THE DBMEND /START AND /END
; COMMANDS DO NOT ALLOW THE USER TO EFFECTIVELY SPECIFY A PARAMETER
; FOR RUN-UNIT ID.
;
;DIAGNOSIS:
;
; FOR COMMAND JOURNALLING, THE BOUNDARY-CHECKING ROUTINE WAS BY-
; PASSING THE CHECK FOR RUN-UNIT ID. HOWEVER, IN THE CASES WHERE
; THESE COMMANDS ARE GIVEN IN THE FORM "/START LAST" OR "/END LAST"
; THE USER SHOULD NOT BE ALLOWED TO SUPPLY A RUN-UNIT ID, ACCORDING
; TO THE DBMS-10/20 ADMINISTRATORS MANUALS.
;
;CURE:
;
; INSTALL EDIT 555 IN ORDER TO DO THE APPROPRIATE CHECKING.
; DBMS-10 TRANSACTION RECOVERY IS UNAFFECTED BY THIS EDIT.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 VERSION 5A ONLY.
;THE CORRESPONDING EDIT FOR DBMS-20 IS NUMBER 554.
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 555.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
; APPLY THIS EDIT TO MNDANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;FOR DBMS-10:
;
; .R MAKLIB
; *MNDANY.REL=MNDANY.REL,555.FIX/FIX
;
; .R LINK
; *@DBMEN1
;
; .SAVE DBMEND
;
;***************************************************************
.EDIT 555
.NAME JSM
.MODULE DBMEND
.INSERT DETBOUND+10,REPLACE:1,<JRST DO.RUN>
JRST DO.CID ;GO DO RUN-UNIT ID CHECKING
.ENDI
.INSERT DTA.SU+1637,AFTER,<MOVEM R0,BNDUBR(BND)> ;[V5A]
SKIPGE R0,BNDUBM(BND) ;DOING COMMAND MODE? (IF YES, FLAG = -1)
SKIPL R0,BNDUBX(BND) ;HAVE USER-DEFINED BOUNDARY INDEX?
; (IF NO, FLAG = -1)
JRST .+3 ;BYPASS
SKIPL R0,BNDUBR(BND) ;HAVE USER-DEFINED RUN-UNIT ID?
; (IF NO, FLAG = -1)
JRST DTA.SU+1627 ;[V5A]IF WE GET HERE, THE USER HAS PASSED
;A COMMAND OF THE FORM "/START LAST(N)".
;GIVE ERROR MESSAGE ?MNDIFB
.ENDI
.ENDE