.MCALL FDOF$L
	FDOF$L
	.TITLE NOSPAN
NOSPAN::
LUN=2
ERR=4
	MOV	@2(R5),R2 ;GET LUN PARAMETER     
	MOV	@#$OTSV,R3          ;GET WORK AREA ADDRESS                  
	JSR	PC,$FCHNL ;FIND FDB ADDRESS                                 
	ADD	#14,R0    ;GET TO RSX FDB                                   
	BISB	#FD.BLK,F.RATT(R0)	;SET NO SPAN BLOCKS BIT
	BISB	#FD.INS,F.RACC(R0)	;SET NO TRUNCATE BIT
	RTS	PC
	.END