Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93f-bb - infany.f05
There are 11 other files named infany.f05 in the archive. Click here to see a list.
;VERSION 5A COMMENT
;
;	THIS EDIT, WHICH WAS EDIT 412 FOR DBMS-10/20 VERSION 5 DID
;	NOT MAKE IT INTO VERSION 5A. THE MAKLIB TEXT OF THE EDIT HAS
;	ONE CHANGE FROM THE TEXT OF EDIT 412, AS INDICATED BY THE
;	FLAG [V5A] IN THE COMMENTS BELOW.
;	THE SYMPTOM, DIAGNOSIS AND CURE FOR EDIT 412 ARE BEING REPRO-
;	DUCED HERE FOR YOUR CONVENIENCE.
;
;SYMPTOM
;
;	WITH EDIT 524 INSTALLED INTO DBINFO AND USING SCHEMAS 
;	CONTAINING DDL USING INTERSPERSED "AREA NAME", "RECORD
;	NAME" AND "SET NAME" SYNTAX, DBINFO MAY FAIL WITH THE
;	MESSAGE "?INFDAF -- DATA BASE ACCESS FAILURE".
;
;DIAGNOSIS
;
;	SEE FIRST PARAGRAPH OF THE WARNINGS IN THE WRITE-UP FOR
;	EDIT 524.
;
;CURE
;
;
;	INSTALL EDIT 525, CAUSING THE DBINFO "MAP" FUNCTION TO
;	USE THE ADDRESSING INFORMATION WHICH WAS PUT INTO THE
;	IN-CORE RECORD REFERENCE TABLE BY EDIT 524.
;
;WARNING
;
;	THIS EDIT MUST NOT BE INSTALLED INTO DBINFO UNLESS YOU
;	ARE ALSO INSTALLING EDIT 524.
;
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 + DBMS20 V5A, AND TO DBINFO ONLY
;
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 525.FIX.    THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
;
;	FOR DBINFO APPLY THIS EDIT TO INFANY.REL **********
;
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;FOR DBMS-10
;
;  .R MAKLIB
;  *INFANY.525=INFANY.REL,525.FIX/F
;
;  .R LINK
;  *@DBINF1
;
;  .SAVE DBINFO
;
;
;FOR DBMS-20
;
;  @R MAKLIB
;  *INFANY.525=INFANY.REL,525.FIX/F
;
;  @R LINK
;  *@DBINF2
;
;  @SAVE DBINFO
;
;
;THE PATCHED FILE SHOULD BE RENAMED TO .REL TO BE USED AS THE BASE 
;	FOR ANY FUTURE EDITS.
;
;
;**********************************************************************
;
;
.EDIT 525
.NAME JSM
.MODULE INFIDB
;			<ADD RECBLK,TIDVEC(SS)>
.INSERT NLP.LP+12,AFTER,<ADD RECBLK,140(SS)>
	PUSH P,PRINLST		;GET 2 AC'S
	PUSH P,PERMLH
	HLRZ PRINLST,0(RECBLK)	;GET ENTRY IN TABLE WHERE DBINFO
				;  POINTS
	CAIN PRINLST,0		;IS IT THE SYSTEM RECORD?
	JRST .+20		; YES -- 0 IN L.H. OF TABLE ENTRY
				;  -- BYPASS SCAN
	CAMN PRINLST,RECBLK	;IS IT WHERE WE WANT TO POINT?
	JRST .+16		;YES -- BYPASS
	MOVN PRINLST,TIDHIG(SS)  ;NO -- GET NEG OF HIGH TID
	ADDI PRINLST,40		;REDUCE IT BY AMT OF SYSTEM TID
				;  SYSTID = 40
	HRLZ PRINLST,PRINLST	;TO BE L.H. OF AOBJN POINTER
	HRR PRINLST,RECBLK	;DBINFO'S CURR PLACE IN TABLE
	LDB PERMLH,CURN.S+453	;[V5A] GET CURRENT TID
				;[V5A] THE POSITION OF THE BYTE POINTER 
				;[V5A] CHANGED FROM V5 TO V5A
	SUB PRINLST,PERMLH	;BACK IT OUT
	ADDI PRINLST,41		;GET TO FIRST ENTRY PAST SYS REC
				;  IN TABLE	(SYSTID = 40)
	HLRZ PERMLH,0(PRINLST)	;GET FIRST/NEXT USER REC ENTRY
	CAMN RECBLK,PERMLH	;IS IT THE ONE WE WANT?
	JRST .+3		;YES -- BYPASS
	AOBJN PRINLST,.-3	;NO -- GO TO GET NEXT ENTRY
	PUSHJ P,XC.DAT##	;FAILED -- TABLE EXHAUSTED --
				;  SHOULD NEVER HAPPEN
	HRRZM PRINLST,RECBLK	;MOVE ADDR OF OUR TABLE ENTRY TO
				;  AC11 FOR DBINFO'S PROCESSING
	POP P,PERMLH		;RESTORE THE 2 AC'S
	POP P,PRINLST
.ENDI
.ENDE
;VERSION 5A COMMENT
;
;	THIS WAS EDIT 436 FOR VERSION 5.
;
;SYMPTOM
;
;	DBINFO DOES NOT RECOGNIZE A DISPLAY REQUEST WHOSE PAGE
;	RANGE LIES OUTSIDE THE AREA SPECIFIED. WHEN THIS OCCURS
;	DBINFO RETURNS THE MESSAGE "?INFDAF DATA BASE ACCESS
;	FAILURE -- IS DBMS PROBLEM IF IT RECURS."
;
;DIAGNOSIS
;
;	INAPPROPRIATE DBINFO ERROR MESSAGE. (UNFORTUNATELY NO
;	NEW ERROR MESSAGES CAN BE INTERPOLATED INTO THE DBMS V5
;	.REL LIBRARIES.)
;
;CURE
;
;
;	SELECT AN ERROR MESSAGE WHICH WILL CAUSE THE USER TO
;	LOOK IN THE PROPER PLACE FOR REFERENCE MATERIAL, I.E.
;	IN HIS SCHEMA FILE. INSTALL EDIT 527 TO GIVE DBINFO'S
;	?INFSAF MESSAGE IN THIS CASE.
;
;
;
;NOTE ***** THIS EDIT APPLIES TO DBMS-10 V5A  ONLY, AND TO DBINFO ONLY
;	SEE EDIT 526 FOR DBMS-20 V5A.
;
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 527.FIX.    THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
;
;	FOR DBINFO APPLY THIS EDIT TO INFANY.REL **********
;
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;FOR DBMS-10
;
;  .R MAKLIB
;  *INFANY.527=INFANY.REL,527.FIX/F
;
;  .R LINK
;  *@DBINF1
;
;  .SAVE DBINFO
;
;
;THE PATCHED FILE SHOULD BE RENAMED TO .REL TO BE USED AS THE BASE 
;	FOR ANY FUTURE EDITS.
;
;
;**********************************************************************
;
;
.EDIT 527
.NAME JSM
.MODULE INFCOM
.INSERT $SS+244,REPLACE:1,<JRST ERRDAF>
	CAIE R1,2	;WAS IT XX02 MSG? -- DBKEY INCONSISTENT ....
	JRST ERRDAF	;NO -- THIS IS THE CATCHALL
	MOVEI AP,[-1,,0		;YES -- GIVE 'EM AN ?INFSAF.
		  INFSAF##]+1
	PUSHJ P,TYPOUT
	JRST ABORT
.ENDI
.ENDE
;V5A COMMENT
;
;	THIS WAS EDIT 446 IN VERSION 5.
;
;SYMPTOM:
;
;	DBINFO DOES NOT UNDERSTAND /open all AND /close all, BUT IT WILL
;	UNDERSTAND /open ALL AND /close ALL.
;
;DIAGNOSIS:
;
;	FOR THE MODIFIERS AFTER THESE VERBS, DBINFO WASN'T CONVERTING
;	LOWER CASE TO UPPER CASE PROPERLY CAUSING COMPARISIONS TO FAIL.
;
;CURE:
;
;	APPLY EDIT 530 TO DBINFO.  EDIT 530 WILL CAUSE LOWER CASE TO BE
;	COMPARED PROPERLY TO THE CORRESPONDING UPPER CASE ALPHABETICS
;	FOR THESE COMMANDS.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 + DBMS20 VERSION 5A
;THE RECOMMENDED FILENAME FOR THIS EDIT IS DIS530.FIX.    THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
;	APPLY THIS EDIT TO INFANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;  FOR A DBMS10 SYSTEM...
;
;	R MAKLIB
;	*INFANY.REL=INFANY.REL,DIS530.FIX/F
;
;	R LINK
;	*@DBINF1
;
;	.SAVE DBINFO
;
;  FOR A DBMS20 SYSTEM...
;
;	@LINK
;	*@DBINF2
;
;	@SAVE DBINFO
;
;
.EDIT 530
.MODULE INFUTL
.NAME JSM
.INSERT DTA.SU+23,REPLACE,<CAIE 3,40(2)>
	CAIE	3,-40(2)	;TEST FOR CORRESPONDENCE BETWEEN UPPER
				;  AND LOWER CASE ALPHABETIC CHARACTERS
.ENDI
.ENDE
;V5A COMMENT
;
;	THIS WAS EDIT 447 IN DBMS VERSION 5.
;
;SYMPTOM:
;
;	DBINFO-10 DOES NOT UNDERSTAND /schema schnam , BUT IT WILL
;	UNDERSTAND /schema SCHNAM.
;
;DIAGNOSIS:
;
;	FOR THE MODIFIER AFTER THE VERB, DBINFO-10 WASN'T CONVERTING
;	LOWER CASE TO UPPER CASE PROPERLY CAUSING COMPARISIONS TO FAIL.
;
;CURE:
;
;	APPLY EDIT 531 TO DBINFO-10.  EDIT 531 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 DBINFO LISTINGS.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS-10 VERSION 5A ONLY
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 531.FIX.    THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
;	APPLY THIS EDIT TO INFANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;  FOR A DBMS-10 SYSTEM...
;
;	R MAKLIB
;	*INFANY.REL=INFANY.REL,531.FIX/F
;
;	R LINK
;	*@DBINF1
;
;	.SAVE DBINFO
;
;
.EDIT 531
.MODULE INFCOM
.NAME JSM
.INSERT DBINFO+1,REPLACE:1,<MOVE P,$SS+11>
	MOVE	P,[-STKSIZ+10,,STACK+10]  ;GRAB 10 LOCS OFF STACK FOR 
					  ; WORK AREA.
.ENDI
.INSERT $SCHEMA+11,AFTER,<MOVEM R0,SCHLEN>
	MOVEM	R1,1067		;GRAB 2 AC'S TO WORK WITH; STICK THEIR
	MOVEM	2,1070		; 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,SCHNAM]	;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,1070	;RESTORE AC'S 0 THU 2
	MOVE	R1,1067
	MOVE	R0,SCHLEN
.ENDI
.ENDE
;VERSION 5A COMMENT
;
;	THIS IS EDIT 465 FOR DBMS-10/20 VERSION 5.
;
;SYMPTOM:
;
;	IF THE DBINFO COMMAND /DISPLAY IS ISSUED WITHOUT AN ARGUMENT
;	DBINFO-20 FAILS WITH THE MESSAGE "?PA1050 ILLEGAL INSTRUCTION"
;	AND DBINFO-10 FAILS WITH THE MESSAGE "?HALT AT USER PC ...".
;
;DIAGNOSIS:
;
;	/DISPLAY IS NOT CHECKING FOR AN ARGUMENT FOLLOWING.
;
;CURE:
;
;	INSTALL EDIT 560 TO MAKE /DISPLAY CHECK FOR A FOLLOWING ARGUMENT
;	AND IF THE ARGUMENT IS NOT FOUND, CALL SCAN'S ERROR PROCESSING
;	PROCEDURE.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 + DBMS20 VERSION 5A ONLY
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 560.FIX.    THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
;	APPLY THIS EDIT TO INFANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;FOR DBMS-10:
;
;	.R MAKLIB
;	*INFANY.REL=INFANY.REL,560.FIX/FIX
;
;	.R LINK
;	*@DBINF1
;
;	.SAVE DBINFO
;
;FOR DBMS-20:
;
;	@R MAKLIB
;	*INFANY.REL=INFANY.REL,560.FIX/FIX
;
;	@R LINK
;	*@DBINF2
;
;	@SAVE DBINFO
;
;
;***************************************************************
.EDIT 560
.NAME JSM
.MODULE INFCOM
.INSERT $DISPLAY,AFTER,<PUSHJ P,SC%SAV>
	JUMPLE	C,E.SVR##	;IS THERE AN ARGUMENT FOLLOWING?
.ENDI
.ENDE