Google
 

Trailing-Edge - PDP-10 Archives - BB-L014E-BM - autopatch/cobver.c05
There are 2 other files named cobver.c05 in the archive. Click here to see a list.
 REP 1/1	;05C1
	; UPD ID= 3545 on 5/11/81 at 2:58 PM by MAYBERRY                        
	UNIVERSAL	COBVER -- VERSION NUMBERS AND HISTORY FILE FOR COBOL 68/74
	SUBTTL		VERSION 12B

	;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
	;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
	;
	;COPYRIGHT (C) 1979,1981 BY DIGITAL EQUIPMENT CORPORATION

	;VERSION NUMBER SYMBOLS FOR THE COBOL COMPILER (COBOL)

	CBLEDT==1335	;EDIT LEVEL
	CBLMJR==12	;MAJOR RELEASE VERSION
	CBLMNR==2	;MAINTENANCE VERSION OF A MAJOR VERSION
	CBLWHO==0	;WHO LAST EDITED (0= DEC)

	CBLVER==BYTE(3)CBLWHO(9)CBLMJR(6)CBLMNR(18)CBLEDT

	;VERSION NUMBER SYMBOLS FOR COBOL'S OBJECT-TIME SYSTEM (LIBOL)

	LBLEDT==1013	;EDIT LEVEL
 WIT
					; UPD ID= 3545 on 5/11/81 at 2:58 PM by MAYBERRY                        
		UNIVERSAL	COBVER -- VERSION NUMBERS AND HISTORY FILE FOR COBOL 68/74
		SUBTTL		VERSION 12B
		
					;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
					;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
					;
					;COPYRIGHT (C) 1979,1981, 1982 BY DIGITAL EQUIPMENT CORPORATION
		
					;VERSION NUMBER SYMBOLS FOR THE COBOL COMPILER (COBOL)
		
		CBLEDT==1445		;EDIT LEVEL
		CBLMJR==12		;MAJOR RELEASE VERSION
		CBLMNR==2		;MAINTENANCE VERSION OF A MAJOR VERSION
		CBLWHO==0		;WHO LAST EDITED (0= DEC)
		
		CBLVER==BYTE(3)CBLWHO(9)CBLMJR(6)CBLMNR(18)CBLEDT
		
					;VERSION NUMBER SYMBOLS FOR COBOL'S OBJECT-TIME SYSTEM (LIBOL)
		
		LBLEDT==1046	;EDIT LEVEL
 INS 33/3	;05C2
	RLF		RUTH FONG
 INS 36/3	;05C3
	SMI             STEVE INGERSOLL
 REP 76/4	;05C4
	;;.EDIT	1320	COBOL-68 ref to OCCURS DEPEN items don't conform to ANSI-68 standards
	;;		JSM,07-OCT-81,SPR:10-31665
	;;		A:SRC MOVGEN,IFGEN
 WIT
	;.EDIT	1320	COBOL-68 ref to OCCURS DEPEN items don't conform to ANSI-68 standards
	;		JSM,07-OCT-81,SPR:10-31665
	;		A:SRC MOVGEN,IFGEN
 INS 133/4	;05C5
	;.AUTOPATCH 5
	;
	;.EDIT	1336	Convert modes for INDEX and COMP-3 fields
	;		RJD,08-FEB-82,SPR:10-32097
	;		A:SRC MOVGEN,COBVER,INTERM
	;
	;.EDIT  1337    Fix MOVE literal to EDITED-DATA-FIELD of length 1
	;		JEH,12-FEB-82,SPR:10-31946
	;		A:SRC MOVGEN
	;
	;.EDIT	1340	Add warnings to 68274 for JUSTIFIED stmt w/
	;;		value and NOT in abbrev comb rel cond
	;		DMN,12-MAR-82,SPR:NONE
	;		A:SRC DIAGS,CLEANC,COBOLD
	;
	;.EDIT	1341	Test on mode of "A" operand to prevent multiple
	;;		trunc warnings if immediate mode
	;		JEH,16-FEB-82,SPR:10-31946
	;		A:SRC MOVGEN
	;
	;.EDIT	1342	Handle "D" in continuation column when
	;;		scanning for the end of a literal
	;		RJD,23-FEB-82,SPR:20-17273
	;		A:SRC GETITM
	;
	;.EDIT  1343    68274 - convert NOTE into a comment
	;		DMN,05-MAR-82,SPR:20-17408
	;		A:SRC GETITM,DTREE,COBOLD
	;
	;.EDIT	1344	Bad code generated for a literal compare
	;		RJD,09-MAR-82,SPR:20-17278
	;		A:SRC CMNGEN
	;
	;.EDIT  1345	Trap illegal UUO's on TOPS10
	;		JEH,18-MAR-82,SPR:10-31969
	;		A:SRC P,IMPURE,COBCOM
	;
	;.EDIT  1346    Address of conversion routine for depending on
	;;		field stored wrong
	;		JEH,30-MAR-82,SPR:10-32147
	;		A:SRC TABLES,DIAGS,COBOLC,IPCGEN
	;
	;.EDIT	1347	Eliminate warning set up by edit 1312 for fields
	;;		with non floating symbols
	;		DMN,01-APR-82,SPR:NONE
	;		A:SRC PSCAN
	;
	;.EDIT	1350	68274 Give warning for DISPLAY or STOP signed integer
	;		DMN,07-APR-82,SPR:NONE
	;		A:SRC COBOLD,DIAGS,DTREE
	;
	;.EDIT  1351    Avoid BAD TABLE LINK by storing READ .. INTO
	;;		operands in a fixed location in phase E
	;		JEH,09-MAR-82,SPR:20-17471
	;		A:SRC IFGEN.MAC
	;
	;.EDIT  1352	Fix double precision floating point subtract
	;		RLF,14-APR-82,SPR:10-32368
	;		A:SRC EXPGEN
	;
	;.EDIT  1353	If operand in literal compare too large, give
	;;		error rather than halt
	;		JEH,05-MAY-82,SPR:10-32315
	;		A:SRC DIAGS,MOVGEN,IFGEN,CMNGEN
	;
	;.EDIT  1354	RMS START error - wrong alt. key made be used
	;;		if mult. keys at same starting loc.
	;		JEH,07-MAY-82,SPR:20-17392
	;		A:SRC COBOLD
	;
	;.EDIT  1355	MOVE ZERO TO COMP-3 ITEM gets wrong value,
	;;		fix to edit 1307
	;		JEH,18-MAY-82,SPR:20-17711
	;		A:SRC CMNGEN
	;
	;.EDIT	1356	Allow qualification in DATA RECORDS ARE clause
	;		RJD,24-MAY-82,SPR:20-17519
	;		A:SRC COBOLC,CTREE
	;
	;.EDIT	1357	68274 EXAMINE replacing a word causes HALT
	;		DMN,16-JUN-82,SPR:10-32755
	;		A:SRC GETITM,IMPURE
	;
	;.EDIT	1360	68274 conversion of a file with COPY REPLACING
	;		DMN,16-JUN-82,SPR:10-32567
	;		A:SRC GETITM
	;
	;.EDIT	1361	68274 dies if CVT is not requested
	;		DMN,16-JUN-82,SPR:10-32623
	;		A:SRC GETITM
	;
	;.EDIT  1362	Declare HLDSAV outside of MCS!TCS conditional code
	;		JEH,07-JUN-82,SPR:10-32624
	;		A:SRC IMPURE,COBOLC
	;
	;.EDIT	1363	Fix syntaxing of SPECIAL-NAMES is defining both
	;;		collating seq and CHANNEL numbers
	;		DMN,21-JUN-82,SPR:10-32453
	;		A:SRC COBOLB,COBOLE
	;
	;.EDIT  1364	Set size of delimiter to 1 if fig. const. and 
	;;		source is edited field
	;		JEH,11-JUN-82,SPR:10-32465
	;		A:SRC STRGEN
	;
	;.EDIT	1365	Size of STRING source wrong if num edited and
	;;		defined with OCCURS clause
	;		JEH,14-JUN-82,SPR:10-32618
	;		A:SRC STRGEN
	;
	;.EDIT	1366	Correct edit 1335, set up CURHLD properly
	;		JEH,14-JUN-82,SPR:NONE
	;		A:SRC COBOLC
	;
	;.EDIT	1367	Correct edit 1343, return after converting
	;;		NOTE to comment
	;		SMI,25-JUN-82,SPR:20-17913
	;		A:SRC COBOLD
	;
	;.EDIT	1370	Make CURAKT an absolute address so XPAND
	;;		will update it correctly
	;		JEH,28-JUN-82,SPR:NONE
	;		A:SRC IOGEN
	;
	;.EDIT	1371	Set CUREOP to B operand before generating
	;;		truncation warning
	;		RJD,28-JUN-82,SPR:20-17918
	;		A:SRC MOVGEN
	;
	;.EDIT	1372	Gives error message when COPY REPLACING finds ==
	;;		missing after BY.
	;		RLF,02-JUL-82,SPR:20-17926
	;		A:SRC GETITM
	;
	;.EDIT	1373	Corrects page advancing when more than
	;;		2 report header lines
	;		RJD,15-JUL-82,SPR:20-17967
	;		A:SRC TABLES,COBOLC,RPWGEN
	;
	;.EDIT	1374	Check the collating sequence before
	;;		generating high-values
	;		JEH,22-JUL-82,SPR:10-32454
	;		A:SRC IFGEN
	;
	;.EDIT	1375	Check to see if DATAB entry
	;;		contains DA.DEP field
	;		SMI,02-AUG-82,SPR:20-17980
	;		A:SRC IOGEN
	;
	;.EDIT	1376	Correct diagnostic if line before
	;;		FD is too long
	;		RLF,02-AUG-82,SPR:10-32810
	;		A:SRC COBOLC
	;
	;.EDIT	1377	Gives warning on truncation when converting FP to fix
	;		RLF,05-AUG-82,SPR:10-32886
	;		A:SRC MOVGEN
	;
	;.EDIT	1400	Fixes LABEL USE PROCEDURE for file specific format
	;		RJD,10-AUG-82,SPR:10-32809
	;		A:SRC PURE,DTREE,COBOLD
	;
	;.EDIT	1401	Flag error when statements are in EXIT paragraph
	;		SMI,25-AUG-82,SPR:10-32969
	;		A:SRC DIAGS,DTREE
	;
	;.EDIT	1402	Make COMPUTE do floating point divide
	;		JEH,30-SEP-82,SPR:10-32885
	;		A:SRC EXPGEN
	;
	;;.EDIT	1403	EDIT WITHDRAWN - Do not install: Gives truncation
	;;		warning message after rounding
	;;		RLF,13-SEP-82,SPR:10-32886
	;;		A:SRC IMPURE,CMNGEN,EXPGEN
	;
	;.EDIT	1404	Update byte pointer after LATTAB expands
	;		SMI,15-SEP-82,SPR:10-32952
	;		A:SRC IFGEN
	;
	;.EDIT	1405	Makes NEXT SENTENCE after ELSE without period get fatal
	;		RLF,17-SEP-82,SPR:10-33064
	;		A:SRC DTREE
	;
	;.EDIT	1406	Fix COPY REPLACING for continuation in A margin
	;		SMI,17-SEP-82,SPR:10-32949
	;		A:SRC GETITM
	;
	;.EDIT	1407	Fix COPY REPLACING in ID DIVISION
	;		SMI,23-SEP-82,SPR:20-18216
	;		A:SRC COBOLB
	;
	;.EDIT	1410	FIX MOVE SPACES TO DATA ITEM IN LINKAGE SECTION
	;		SMI,28-SEP-82,SPR:20-18225
	;		A:SRC MOVGEN
	;
	;.EDIT	1411	Provide leading truncation warning in COMPUTE
	;;		statement when ROUNDED
	;		JEH,30-SEP-82,SPR:10-32885
	;		A:SRC CMNGEN
	;
	;.EDIT	1412	Makes LSU work with ISAM sequential access
	;		RLF,01-OCT-82,SPR:20-18125
	;		A:SRC COBOLD,IOGEN
	;
	;.EDIT	1413	Fix 68274 conversion of DBMS statement
	;		SMI,06-OCT-82,SPR:10-33089
	;		A:SRC GETITM,COBOLD,DBGETF
	;
	;.EDIT	1414    DBMS USE procedures in the declaratives section
	;;		of subprogram are ignored
	;		DMN,07-OCT-82,SPR:NONE
	;		A:SRC IPCGEN
	;
	;.EDIT	1415	Generate SET TALLY TO 0
	;		SMI,08-OCT-82,SPR:10-33117
	;		A:SRC GETITM,COBOLD,IMPURE,DIAGS
	;
	;.EDIT	1416	Generate warning message for 68274
	;		SMI,08-OCT-82,SPR:10-33116
	;		A:SRC IFGEN,DIAGS
	;
	;.EDIT	1417	Fix 68274 conversion of write stmt.
	;		SMI,15-OCT-82,SPR:10-33156
	;		A:SRC CLEANC,CLEAND
	;
	;.EDIT	1420	Fix generation of code for EBCDIC sorts
	;		SMI,18-OCT-82,SPR:20-18255
	;		A:SRC SRTGEN
	;
	;.EDIT	1421	Generate left truncation for RIGHT JUSTIFY.
	;		RLF,18-OCT-82,SPR:10-32998
	;		A:SRC MOVGEN
	;
	;.EDIT	1422	Fix conversion of DATE-COMPILED line
	;		SMI,19-OCT-82,SPR:NONE
	;		A:SRC COBOLB
	;
	;.EDIT	1423	68274 Fix conversion of FILE LIMITS
	;		SMI,22-OCT-82,SPR:NONE
	;		A:SRC COBOLB,BTREE
	;
	;.EDIT	1424	Give fatal error on non-DISPLAY data declared
	;;		in file section
	;		JEH,26-OCT-82,SPR:20-18388
	;		A:SRC COBOLC,DIAGS,FNDPOP
	;
	;.EDIT	1425	68274 Fix conversion of RESERVE statement
	;		SMI,26-OCT-82,SPR:NONE
	;		A:SRC COBOLB
	;
	;.EDIT	1426	68274 Make TALLY a COMP item
	;		SMI,26-OCT-82,SPR:10-33156
	;		A:SRC GETITM
	;
	;.EDIT	1427	68274 Generates warning SHOULD BE UNSIGNED INTEGER
	;;		when data item is an unsigned integer.
	;		SMI,27-OCT-82,SPR:NONE
	;		A:SRC CLEANC
	;
	;.EDIT	1430	Store intermediary result in 2-wd temp
	;;		if d.p. floating point
	;		JEH,05-NOV-82,SPR:10-33207
	;		A:SRC EXPGEN
	;
	;.EDIT	1431	DBMS - syntax error on FIND statement if
	;;		identifier-2 not COMP
	;		DMN,09-NOV-82,SPR:NONE
	;		A:SRC COBOLD,DIAGS
	;
	;.EDIT	1432	Indirect command file for compiler doesn't type
	;;		outp warnings on TTY.
	;		RLF,19-NOV-82,SPR:10-33227
	;		A:SRC COBOLA
	;
	;.EDIT	1433	Fix edit 1373 when report has no PAGE HEADING 
	;;		report groups
	;		SMI,11-NOV-82,SPR:NONE
	;		A:SRC RPWGEN,IMPURE
	;
	;.EDIT	1434	Allow UNSTRING to return sign to signed
	;;		destination fields
	;		JEH,01-DEC-82,SPR:20-18506
	;		A:SRC STRGEN
	;
	;.EDIT	1435	Prevent TI wait state after error message is printed
	;;		for /Y<cr-lf>
	;		DMN,03-DEC-82,SPR:10-33303
	;		A:SRC COBOLA
	;
	;.EDIT	1436	Fix 68274 conversion in COMM. SECTION
	;		SMI,03-DEC-82,SPR:10-33333
	;		A:SRC COBOLC,CTREE
	;
	;.EDIT	1437	Generate error message for all undef. errors
	;;		on one line.
	;		SMI,04-DEC-82,SPR:10-33234
	;		A:SRC DTREE
	;
	;.EDIT	1440	COPY REPLACING of numeric literal loses next period
	;		DMN,07-DEC-82,SPR:10-33198
	;		A:SRC GETITM
	;
	;.EDIT	1441	Fix edits 1402 and 1430 for NON-BIS compilers
	;		JEH,07-DEC-82,SPR:10-33256
	;		A:SRC EXPGEN
	;
	;.EDIT	1442	Move of seperate sign display to 1-word comp moves zero
	;;		or minus sign only
	;		DMN,07-DEC-82,SPR:10-33229
	;		A:SRC MOVGEN
	;
	;.EDIT	1443	Add to Edit 1431 to check for decimal places
	;		SMI,08-DEC-82,SPR:10-33219
	;		A:SRC COBOLD
	;
	;.EDIT	1444	68274 has problem with IS when comment columns exist
	;		DMN,09-DEC-82,SPR:10-33347
	;		A:SRC GETITM
	;
	;.EDIT	1445	68274 removes period if last clause is turned
	;;		into a comment
	;		DMN,10-DEC-82,SPR:10-33347
	;		A:SRC GETITM
	;
	;.ENDA
 INS 59/12	;05C6
	;.AUTOPATCH 5
	;
	;.EDIT  1014	Append extra <CR> to magtape files - match FCTC implementation
	;		LEM,16-FEB-82,SPR:10-31971
	;		A:SRC CBLIO
	;.EDIT  1015	allow COMPT. UUO to return correct file statues errnum
	;		LEM,02-MAR-82,SPR:20-17305
	;		A:SRC CBLIO
	;
	;.EDIT	1016	Test for ISAM files when using CHECKPOINT EVERY n RECORDS
	;		RJD,17-MAR-82,SPR:10-32257
	;		A:SRC CBLIO
	;
	;.EDIT  1017	RESET ERRNUM when retrying to OPEN a busy RMS file
	;		LEM,08-APR-82,SPR:20-17329
	;		A:SRC LBLERR
	;
	;.EDIT	1020	Test for use of CHECKPOINT with RMS files opened I-O
	;		RJD,21-APR-82,SPR:20-17559
	;		A:SRC RMSIO
	;
	;.EDIT  1021	make READ NEXT return correct record as ANSI standard states
	;		LEM,27-APR-82,SPR:20-17271
	;		A:SRC CBLIO
	;
	;.EDIT	1022	Deallocate memory if OPEN fails with RMS files
	;		RJD,29-APR-82,SPR:20-17312
	;		A:SRC RMSIO
	;
	;.EDIT	1023	Make pointer go to the next record after a REWRITE
	;		RLF, 07-MAY-82,SPR:20-17667
	;		A:SRC CBLIO
	;
	;.EDIT	1024	Make READ check for end of record by count rather than character
	;		RJD,14-MAY-82,SPR:10-32428
	;		A:SRC CBLIO
	;
	;.EDIT	1025	Test CORPT. as well as HLOVL. to decide whether core
	;;		can be freed
	;		JEH, 25-MAY-82,SPR:10-32197
	;		A:SRC COBFUN
	;
	;.EDIT	1026	Reset buffer pointer before append FILOP.
	;		JEH, 01-JUN-82,SPR:10-32567
	;		A:SRC CBLIO
	;
	;.EDIT	1027	Zero buffer location so RETAIN NEXT of L-V
	;;		key get right block number
	;		JEH, 07-JUN-82,SPR:20-17328
	;		A:SRC CBLIO
	;
	;.EDIT	1030	Clear the SFD area when opening a SMU file
	;;		on an ersatz device from a SFD
	;		RJD,08-JUN-82,SPR:10-32398
	;		A:SRC CBLIO
	;
	;.EDIT	1031	Don't decrement byte/record count when finding
	;;		<CR><LF> in record
	;		LEM,08-JUN-82,SPR:10-32463
	;		A:SRC CBLIO
	;
	;.EDIT	1032	STRING/UNSTRING - the destination character
	;;		count is off by one
	;		LEM,28-JUN-82,SPR:20-17802
	;		A:SRC NSTRNG
	;
	;.EDIT  1033    Do close abort on labeled mag tapes during
	;;		fatal error processing
	;               SMI, 06-JUL-82,SPR:20-17970
	;               A:SRC CBLIO
	;
	;.EDIT	1034	Zero out unused data block area after delete
	;		JEH, 15-JUL-82,SPR:20-17925
	;		A:SRC CBLIO
	;
	;.EDIT	1035	Make READ NEXT after DELETE on sixbit relative
	;;		not skipping record
	;		RLF, 20-JUL-82,SPR:10-32758
	;		A:SRC CBLIO
	;
	;.EDIT	1036	Zero out right half of UOUT. after checkpointing
	;		RLF, 21-JUL-82,SPR:20-18032
	;		A:SRC CBLIO
	;
	;.EDIT	1037	Change error message to "for OUTPUT only".
	;		RLF, 26-JUL-82,SPR:20-18011
	;		A:SRC CBLIO
	;
	;.EDIT  1040	Fix output byte pointer for sixbit keys
	;		JEH, 05-AUG-82,SPR:10-32807
	;		A:SRC KEY
	;
	;.EDIT	1041	Clear flags after multiply for SIZE ERROR
	;		RLF, 20-AUG-82,SPR:10-32941
	;		A:SRC ACCEPT
	;
	;.EDIT	1042	Fix if error on open of sequential file
	;		SMI, 30-AUG-82,SPR:20-18176
	;		A:SRC CBLIO
	;
	;.EDIT	1043	Do not ignore end-of-file errors
	;		SMI, 13-SEP-82,SPR:20-18078
	;		A:SRC CBLIO
	;
	;.EDIT	1044	Space-fill record area at file open
	;		RLF, 10-OCT-82,SPR:20-18154
	;		A:SRC RMSIO
	;
	;.EDIT	1045	Use $MESSAGE in RMSGET as first RMS-20 call to
	;;		init RMS-20 global data symbols
	;		JSM, 14-OCT-82,SPR:NONE
	;		A:SRC RMSIO
	;
	;.EDIT	1046	Fix RMS CHECKPOINTING for DELETE and REWRITE
	;		SMI, 14-OCT-82,SPR:10-33144
	;		A:SRC RMSIO
	;
	;.ENDA
 SUM 8316