Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/cobver.c16
There are 11 other files named cobver.c16 in the archive. Click here to see a list.
 REP 11/1	;16C1
	COPYRIGHT (C) 1979, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	COPYRIGHT (C) 1979, 1983, 1984, 1987 BY DIGITAL EQUIPMENT CORPORATION
 REP 15/1	;16C2
	CBLEDT==1636	;EDIT LEVEL
 WIT
	CBLEDT==1642	;EDIT LEVEL
 REP 26/1	;16C3
	LBLEDT==1174	;EDIT LEVEL
 WIT
	LBLEDT==1200	;EDIT LEVEL
 INS 8/4	;16C4
	;.AUTOPATCH 16
	;.EDIT	1642	Length of reference modification ignored in move statement.
	;		MEM,9-JAN-87,SPR:20-21486
	;		A:SRC MSCGEN
	;
	;.EDIT	1641	An undefined name used as index caused the compiler to ICE.
	;		MEM,6-JAN-87,SPR:20-21465
	;		A:SRC CTREE
	;
	;;.EDIT	1640	NON-BIS patch and we only build BIS compilers on -20.
	;;		12C Only.
	;		
	;.EDIT	1637	Call DA64. when file name is seen instead of a report name
	;;		so that RPWRDL is set up for when it is used at D27MCY+15.
	;		MEM,17-DEC-86,SPR:20-21481
	;		A:SRC CTREE
	;
	;.ENDA
 REP 13/4	;16C5
	;		A:SRC IOGEN
	;
	;.EDIT	1635	Remove edit 1630 from DTREE and replace it with a patch in
	;;		COBOLD. Prior to 1630 we were sometimes getting more
	;;		'072' (start expression) operators put into genfil than
	;;		'073' (end expression), but with edit 1630 we sometimes have
	;;		the reverse problem.
	;		MEM,4-NOV-86,SPR:NONE
	;		A:SRC DTREE,COBOLD
	;
	;.EDIT	1634	Make the Value-of-id variable in the File status
	;;		variables to allow sizes to a max of 63(decimal). This
	;;		takes into account long file names.
	;		KWS,30-OCT-86,SPR:20-21278
	;		A:SRC CLEANC
	;
	;.EDIT	1633	Depending on with comp-1 doesn't get correct
	;;		internal size
	;		RLF,28-OCT-86,PSR:20-21269
	;		A:SRC CMNGEN
	;
	;;.EDIT	1632	Not applicable to Cobol-13
	;
	;.EDIT	1631	Subscripting a non-uniquely defined name caused a 
	;;		catastrophe in phase E because phase D was not correctly
	;;		recovering from the error.
	;		MEM,16-OCT-86,SPR:20-21290
	;		A:SRC COBOLD,CMNGEN
	;
	;.EDIT	1630	Fix problem with IF (A EQUALS B(1:2))
	;		MEM,29-SEP-86,SPR:20-21183
	;		A:SRC DTREE
 WIT
	;		A:SRC IOGEN,COBVER
	;
	;.EDIT	1635	Remove edit 1630 from DTREE and replace it with a patch in
	;		COBOLD. Prior to 1630 we were sometimes getting more
	;		'072' (start expression) operators put into genfil than
	;		'073' (end expression), but with edit 1630 we sometimes have
	;		the reverse problem.
	;		MEM,4-NOV-86,SPR:NONE
	;		A:SRC DTREE,COBOLD,COBVER
	;
	;.EDIT	1634	Make the Value-of-id variable in the File status
	;		variables to allow sizes to a max of 63(decimal). This
	;		takes into account long file names.
	;		KWS,30-OCT-86,SPR:20-21278
	;		A:SRC CLEANC,COBVER
	;
	;.EDIT	1633	Depending on with comp-1 doesn't get correct
	;		internal size
	;		RLF,28-OCT-86,PSR:20-21269
	;		A:SRC CMNGEN,COBVER
	;
	;.EDIT	1632	Not applicable to Cobol-13
	;
	;.EDIT	1631	Subscripting a non-uniquely defined name caused a 
	;		catastrophe in phase E because phase D was not correctly
	;		recovering from the error.
	;		MEM,16-OCT-86,SPR:20-21290
	;		A:SRC COBOLD,CMNGEN,COBVER
	;
	;.EDIT	1630
	;		Fix problem with IF (A EQUALS B(1:2))
	;		MEM,29-SEP-86,SPR:20-21183
	;		A:SRC DTREE,COBVER
 REP 48/4	;16C6
	;		A:SRC MSCGEN
	;
 WIT
	;		A:SRC MSCGEN,COBVER
	;
	;.ENDA
	;.AUTOPATCH 14
	;.NOEDITS
 INS 7/14	;16C7
	;.AUTOPATCH	16
	;
	;.EDIT	1200	Allow files to be found via search lists
	;		KWS,17-JUN-1987,SPR:20-21480
	;		A:SRC COBVER,RMSIO
	;
	;;.EDIT	1177	Not applicable to version 13
	;
	;
	;.EDIT	1176	Put back part of edit 1137 to original form so files
	;;		not connected to directory can be found.
	;		RLF,04-FEB-1987,SPR:20-21274
	;		A:SRC COBVER,CBLIO
	;
	;.EDIT	1175	Change Device error error message to include insufficient
	;;		system resources.
	;		KWS,26-NOV-1986,SPR:NONE
	;		A:SRC COBVER,CBLIO
	;
	;.ENDA
 REP 19/14	;16C8
	;;		files.
 WIT
	;		files.
 REP 24/14	;16C9
	;;		so there is no extra CRLF
 WIT
	;		so there is no extra CRLF
 REP 29/14	;16C10
	;;		give bad record size error.
 WIT
	;		give bad record size error.
 REP 34/14	;16C11
	;;		and mode BINARY won't get COMPT. UUO error
 WIT
	;		and mode BINARY won't get COMPT. UUO error
 REP 43/14	;16C12
	;;		at OPEN time won't get error from COMPT. UUO 
 WIT
	;		at OPEN time won't get error from COMPT. UUO 
 REP 48/14	;16C13
	;;		doing OPEN EXTEND with SAME AREA
 WIT
	;		doing OPEN EXTEND with SAME AREA
 REP 59/14	;16C14
	;;		Start is illegal within the scope of a RETAIN/FREE, but it 
	;;		should work outside the scope.
 WIT
	;		Start is illegal within the scope of a RETAIN/FREE, but it 
	;		should work outside the scope.
 REP 70/14	;16C15
	;;		length in words.
 WIT
	;		length in words.
 REP 75/14	;16C16
	;;		file locking.
 WIT
	;		file locking.
 SUM 5366