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

;VERSION 5A COMMENT
;
;	THIS WAS EDIT 440 IN DBMS VERSION 5. EDIT 440 WAS VALIDATED
;	ONLY FOR THE SCHEMA PROCESSOR. HOWEVER, THIS EDIT HAS BEEN
;	VALIDATED FOR ALL COMPONENTS OF DBMS-10 VERSION 5A.
;
;SYMPTOM
;
;	SCHEMA LOOPS, APPENDING PAGES FULL OF BINARY ZEROES TO 
;	THE OUTPUT SCH FILE FOR THE FIRST DDL FILE ENTERED BY
;	THE USER WHEN A 01 RECORD-NAME STATEMENT IN A SUB-SCHEMA
;	IS NOT TERMINATED BY A PERIOD (.).
;
;	NOTE: ORIGINAL SYMPTOM REPORT -- SCHEMA TRIES TO DO A
;	USETO -3(1) WHEN AC1 CONTAINS A 0.
;
;DIAGNOSIS
;
;	SCHEMA MUST CHECK EVERY SO OFTEN ON WHETHER IT MUST DO
;	OUTPUT TO THE SCH FILE, SO THE SYMPTOM IS INTERMITTENT.
;	HOWEVER, BEFORE THE SYMPTOM OCCURS SCHEMA HAS ALREADY
;	FLAGGED THE OFFENDING SYNTAX. THE USETO WHICH GETS CON-
;	FUSED IS AT PUTIO+5 IN SCHIO1, AND WE MUST BYPASS IT IF
;	IT HAS PICKED UP AN INVALID REFERENCE TO AN ADDRESS
;	BLOCK. HOWEVER, WHEN THIS CONDITION OCCURS IT MEANS THAT
;	SCHEMA HAS ENCOUNTERED A SERIOUS INCONSISTENCY IN ITS
;	PROCESSING, AND SO WE SHOULD CAUSE IT TO GIVE THE ?DDLSAF
;	MESSAGE, WHICH SCHEMA FOR DBMS-20 ALREADY DOES.
;
;CURE
;
;	INSTALL EDIT 545 TO BYPASS THE USETO AND FORCE THE ?DDLSAF
;	MESSAGE IN THE HIGHER-LEVEL CODE.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS-10 V5A ONLY
;THE RECOMMENDED FILE NAME FOR THIS EDIT IS 545.FIX. THE LINES
; .EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE.
;
;	APPLY THIS EDIT TO SCHIO1.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;  FOR DBMS-10:
;
;	.R MAKLIB
;	*SCHIO1.REL=SCHIO1.REL,545.FIX/F
;
;	.R LINK
;	*@SCHEM1
;
;	.SAVE SCHEMA
;
;***************************************************************
.EDIT 545
.NAME JSM
.MODULE SCHIO
.INSERT PUTIO+4,BEFORE,<LSH R1,2>
	CAIN	R1,0	;SENDING INVALID ADDRESS BLOCK TO USETO?
	JRST	VIOFAIL	;FORCE ?DDLSAF MSG IN UPPER-LEVEL CALLER
.ENDI
.ENDE
;SYMPTOM
;
;	THE SDC INFO FOR THIS EDIT IS ON 1026 IN PPN [30,5347]
;
.EDIT 564
.NAME JSM
.MODULE SCHIO
.REMOVE 545
.ENDE