Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;******************** START OF DBMS20-V6 EDIT 452 *************************
;
;SYMPTOM
;	The DDL transaction syntax
;		TRANSACTION IS tran-name
;			USAGE-MODE IS RETRIEVAL
;			USAGE-MODE IS UPDATE FOR area-1.
;	should mark all areas except area-1 for retrieval, and area-1 for
;	update. However, an update to area-1 yields exception 1209.
;
;DIAGNOSIS
;	SCHEMA is not stepping throught the E.K set properly to modify the
;	correct TRANSACTION-AREA line. Thus, the in-core description at
;	runtime may specify update mode for the wrong area, or there may
;	be two TRANSACTION-AREA lines for the same area, the first of which
;	is used.
;
;CURE
;	Find the beginning of the E.K set when parsing each USAGE-MODE
;	statement, and make sure to use the correct area name id when
;	updating a TRANSACTION-AREA line.
;
;*************** EDIT THE FOLLOWING INTO FILE 452.FIX *********************
.EDIT 452
.NAME WTK
.DATE 04-OCT-82
.MODULE DDLSKE
.INSERT TRN.UK+11,AFTER,<JUMPE R1,TRNUK1>
		;6%452] FIRST GET PROPER AREA LINE ADRS INTO ORU
	MOVEI	16,LIT1+1	;[6%452] 'FUNCT FIND1%,<SYMDBK(SYM)>'
	PUSHJ	P,FIND1%	;[6%452]   (FIND APPROPRIATE AREA LINE)
	JUMPE	LIT3		;[6%452] 'OTSERR DDLSAF'
	MOVEM	R1,ORU		;[6%452] SAVE AREA LINE ADRS
		;[6%452] NOW MAKE SURE WHOLE E.K SET IS CHECKED
	MOVE	R5,TRNSYM	;[6%452] GET SYM NODE FOR TRANSACTION
	MOVEI	16,LIT2+1	;[6%452] 'FUNCT FIND1%,<SYMDBK(R5)>'
	PUSHJ	P,FIND1%	;[6%452]   (GET TO OWNER OF E.K SET)
	JUMPE	LIT3		;[6%452] 'OTSERR DDLSAF'
	JRST	ENDPAT		;[6%452]   (GET AROUND ARG. BLOCKS)
LIT1:	-1,,0
	SYM,,SYMDBK
LIT2:	-1,,0
	R5,,SYMDBK
LIT3:	MOVEI	16,LIT4+1
	PUSHJ	P,TYPOUT
	JRST	ABORT
LIT4:	-1,,0
	DDLSAF
ENDPAT:
.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:
;
;				SCHEMA
;
;
;	------------------ TO INSTALL THIS EDIT ------------------
;
;	@RUN MAKLIB
;	*DDLANY.REL=DDLANY.REL,452.FIX/F
;	*^C
;	@R LINK
;	*@SCHEM2.CMD			;FROM DISTRIBUTION TAPE
;	@SAVE DSK:SCHEMA
;
;************************** END OF EDIT 452 *******************************