Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - cobver.c07
There is 1 other file named cobver.c07 in the archive. Click here to see a list.
 DEL 1/1	;07C1

 REP 13/1	;07C2
		CBLEDT==1457		;EDIT LEVEL
 WIT
		CBLEDT==1507		;EDIT LEVEL
 REP 22/1	;07C3
		LBLEDT==1064	;EDIT LEVEL
 WIT
	LBLEDT==1103	;EDIT LEVEL
 REP 21/3	;07C4
	GPS		GIL STILE
	HAM		HOWARD MAYBERRY
	ILG		IRWIN GOVERNMAN
 WIT
	GPS		GIL STEIL
	HAM		HOWARD MAYBERRY
	ILG		IRWIN GOVERNMAN
	JBB		JANET BLAU
 INS 435/4	;07C5
	;.EDIT	1440	COPY REPLACING loses terminal period if replacing a numeric literal.
	;		DMN,07-DEC-82,SPR:10-33198
	;		A:SRC GETITM
	;
 INS 503/4	;07C6
	;.AUTOPATCH 7
	;
	;.EDIT	1460	Give error message if key is being subscripted
	;		RLF,20-APR-83,SPR:20-19102
	;		A:SRC COBOLD,DIAGS
	;
	;.EDIT	1461	COMPUTE w/ 2-wd floating point gives wrong results
	;		JEH,20-APR-83,SPR:10-33764
	;		A:SRC EXPGEN
	;
	;.EDIT	1462	SEGMENT in place of SECTION can cause compiler
	;;		failure
	;		DMN,21-APR-83,SPR:10-33756
	;		A:SRC P,COBOLA
	;
	;.EDIT	1463	Makes COPY REPLACING work if BY is not on same line.
	;		DMN,22-APR-83,SPR:20-19124
	;		A:SRC GETITM
	;
	;.EDIT	1464	Correction to edit 1450, flgas syntax error on FREE
	;		RLF,25-APR-83,SPR:10-33657
	;		A:SRC IOGEN
	;
	;.EDIT	1465	Declare word in phase D area of IMPURE for worker
	;;		in edit 1465
	;		DMN,28-APR-83,SPR:20-19127
	;		A:SRC COBOLD,IMPURE
	;
	;.EDIT	1466	Error on WRITE stmt w/ ADVANCING or POSITIONING clause
	;;		if in non ASCII file
	;		JEH,02-MAY-83,SPR:10-33738
	;		A:SRC CLEAND,COBOLD,DIAGS
	;
	;.EDIT	1467	Resolve symbol ALCPA., as called by SCHIO2
	;;		after DBMS-20 V.6 edit 473.
	;		WTK,02-MAY-83,SPR:NONE
	;		A:SRC DBGETF
	;
	;.EDIT	1470	Declare two fields as external for edit 1447 and 1451
	;		JEH,12-MAY-83,SPR:10-33837
	;		A:SRC IPCGEN,RPWGEN
	;
	;.EDIT	1471	First line of Page Head does not have <FF>.
	;		SMI,12-MAY-83,SPR:10-33821
	;		A:SRC RPWGEN
	;
	;.EDIT	1472	Fix DIVIDE literal INTO dn1, dn2, etc.
	;		JEH,09-JUN-83,SPR:20-19254
	;		A:SRC MATGEN
	;
	;.EDIT	1473	Eliminate truncation warnings on moves involving
	;;		compiler-generated line/page counters
	;		JEH,21-JUN-83,SPR:10-33835
	;		A:SRC MOVGEN
	;
	;.EDIT	1474	Correction to edit 1450 for the "FREE" verb
	;		RLF,30-JUN-83,SPR:10-33998
	;		A:SRC IOGEN
	;
	;.EDIT  1475    Correction to edit 1452 for the RESET code in
	;;		report writer
	;		JBB,08-SEP-83,SPR:20-19512
	;		A:SRC COBOLC
	;
	;.EDIT  1476	Bad table link with catastrophe in phase E
	;;		Correction to edit 1123
	;		JBB,22-SEP-83,SPR:20-19530
	;		A:SRC CMNGEN
	;
	;.EDIT	1477	Adjust calculation of EPSILON to consider
	;;		decimal places of source
	;		JEH,04-OCT-83,SPR:10-34214
	;		A:SRC CMNGEN
	;
	;.EDIT	1500	Put warnings out where HIGH or LOW VALUES
	;;		used with numeric fields
	;		JEH,10-OCT-83,SPR:10-34132
	;		A:SRC DIAGS,CLEANC,MOVGEN
	;
	;.EDIT	1501	Put syntax error on alternate key if 
	;;		variable length
	;		JEH,11-OCT-83,SPR:20-19571
	;		A:SRC CLEANC
	;
	;.EDIT	1502	Put a warning out on any record which is
	;;		smaller than maximum record size
	;		JEH,24-OCT-83,SPR:10-34218
	;		A:SRC CLEANC,DIAGS
	;
	;.EDIT	1503	WRITE ADVANCING gets fatal error message
	;;		when no recording mode is specified
	;		JBB,16-NOV-83,SPR:20-19682
	;		A:SRC CLEAND,COBOLD
	;
	;.EDIT	1504	GETITM fails to compile in 68274 without
	;;		DBMS
	;		JBB,16-NOV-83,SPR:20-19715
	;		A:SRC GETITM
	;.EDIT	1505	68274 halts if '** End of copy libary text **'
	;;		inserted before 'COPY'
	;		JEH,17-NOV-83,SPR:20-19590
	;		A:SRC GETITM
	;
	;.EDIT	1506	Have FIPS Flagger mark extensions in use of
	;;		figurative constants with numeric fields
	;		JEH,29-NOV-83,SPR:10-34229
	;		A:SRC MOVGEN
	;
	;.EDIT	1507	Make handling of figurative constants more
	;;		consistent
	;		JEH,29-NOV-83,SPR:10-34230
	;		A:SRC MOVGEN
	;
	;.ENDA
 INS 873/4	;07C7
 INS 906/4	;07C8
 REP 176/12	;07C9

	;.ENDA
	;.AUTOPATCH 6

	;.EDIT	1047	Dequeue locked record before job is aborted
	;		RLF, 21-DEC-82,SPR:20-18620
	;		A:SRC LSU,COBVER
 WIT
	;
	;.ENDA
	;.AUTOPATCH 6
	;
	;.EDIT	1047	Dequeue locked record before job is aborted
	;		RLF, 21-DEC-82,SPR:20-18620
	;		A:SRC LSU
 INS 242/12	;07C10
	;
	;.AUTOPATCH 7
	;
	;.EDIT	1065	Make FREE RECORD KEY work for SMU after RETAIN NEXT
	;		RLF/JM, 21-APR-83,SPR:10-33657
	;		A:SRC CBLIO,LSU
	;
	;.EDIT	1066	Add GJ.BLK, and GJ.ATR for long form GTJFN
	;		SMI, 1-JUN-83,SPR:20-18985
	;		A:SRC COMUNI,CBLIO
	;
	;.EDIT	1067	Correction to edit 1065
	;		RLF, 6-JUN-83,SPR:10-33657
	;		A:SRC LSU
	;
	;.EDIT	1070	Chg NUMS.7 table for NUMSTD=0 OTS' so numeric
	;;		digits will be converted
	;		JEH, 16-JUN-83,SPR:10-33623
	;		A:SRC NUBSTB
	;
	;.EDIT	1071	Zero out FS.EN before assembling error nbr
	;;		for file status 2
	;		JSM, 16-JUN-83,SPR:20-19298
	;		A:SRC LBLERR
	;
	;.EDIT	1072	Don't turn on sign bit in word 2 if result
	;;		zero
	;		JEH, 28-JUN-83,SPR:20-19334
	;		A:SRC FIX
	;
	;.EDIT	1073	Add call to $ERASE if RMS file closed with delete
	;		JEH, 18-JUL-83,SPR:20-19385
	;
	;		A:SRC RMSIO
	;.EDIT	1074	Fix twos complement routine in ACEPT. routine
	;		JEH, 19-AUG-83,SPR:10-34087
	;		A:SRC ACCEPT
	;
	;.EDIT  1075	Prevent multi-level ISAM file from skipping records 
	;;		when using START, READ NEXT sequence
	;		JBB, 22-AUG-83,SPR:10-34124
	;		A:SRC CBLIO
	;
	;.EDIT	1076	Add error handling routine in COBST for failure on
	;;		GET of OTS
	;		JEH, 22-AUG-83,SPR:20-19323
	;		A:SRC COBST
	;
	;.EDIT	1077	Update pointers for current record, next record
	;;		last record if DYNAMIC access and REWRITE
	;		JEH, 24-OCT-83,SPR:10-34218
	;		A:SRC CBLIO
	;
	;.EDIT	1100	Do checkpointing write for SMU records.(10-ONLY)
	;		JM/RF, 25-OCT-83,SPR:10-34216
	;		A:SRC CBLIO
	;
	;.EDIT  1101	Fix LIBOL.CTL to properly save LIBO12.
	;		JBB,08-NOV-83,SPR:20-19586
	;		A:MSC LIBOL.CTL
	;
	;.EDIT	1102	Make edit 1007 conditional on monitor level
	;		JEH,09-NOV-83,SPR:20-19696
	;		A:SRC CBLIO,COMUNI
	;
	;.EDIT	1103	On Fake Read for SMU Retain on TOPS-10, check for
	;;		EOF Return and don't cause program failure if so.
	;		JSM,09-NOV-83,SPR:NONE
	;		A:SRC CBLIO
	;
	;.ENDA
	;
 SUM 156713