Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/cobver.c08
There are 4 other files named cobver.c08 in the archive. Click here to see a list.
 REP 1/1	;08C1
	; UPD ID= 1535 on 2/22/84 at 9:39 AM by HOFFMAN                         
 WIT
	; UPD ID= 1630 on 5/31/84 at 1:23 PM by HOFFMAN                         
 REP 15/1	;08C2
	CBLEDT==1515	;EDIT LEVEL
 WIT
	CBLEDT==1536	;EDIT LEVEL
 REP 26/1	;08C3
	LBLEDT==1110	;EDIT LEVEL
 WIT
	LBLEDT==1126	;EDIT LEVEL
 INS 32/3	;08C4
	MJC		MICHAEL CARLETON
 REP 5/4	;08C5
	*** EDITS BELOW WILL BE IN COBOL VERSION 13 RELEASE ***


	1515	14-FEB-84	JEH	COBOLC
		If defining implied indexes for REPORT SECTION,
		check PCHOLD for correct core assignment

	1514	14-FEB-84	JEH	COBOLD
		Shut off AMRGN. flag while comparing PRVTOK

	1513	13-FEB-84	JEH	IPCGEN
		Fix second descriptor word of Fig. Const. arg.

	1512	19-Dec-83	JSM	MOVGEN
		At MNXAC2 specify the "FROM" address of the
		MOVN instruction

	1511	Not needed in V13

	1510	15-Dec-83	JEH	MOVGEN
		At MLAC1., don't use ac TD, it's needed later
 WIT
	;.BEGINR
	;.COMPONENT COBOL
	;.VERSION 13
	;.AUTOPATCH 8
	;
	;.EDIT	1536	Reset AC16 to CURFIL value after examining alternate
	;;		keys
	;		JEH,31-MAY-84,SPR:NONE
	;		A:SRC IOGEN
	;
	;.EDIT	1535	Ref. Mod. - Don't give extra error messages from
	;;		phase E if phase D has reported problem
	;		JEH,16-MAY-84,SPR:NONE
	;		A:SRC P,COBOLD,COBOLE,MSCGEN,COBVER
	;
	;;.EDIT	1534	Not applicable to V13
	;
	;.EDIT	1533	Error generated on all alternate keys if record
	;;		containing their definition is variable in length
	;		JEH,16-MAY-84,SPR:10-34680
	;		A:SRC CLEANC
	;
	;.EDIT	1532	Fix edit 1506, installed wrong in V13
	;		JEH,16-MAY-84,SPR:NONE
	;		A:SRC MOVGEN
	;
	;.EDIT	1531	Change the 'TTCALL' to an 'OUTSTR' defined in P.MAC
	;;		so TOPS-20 jsys will be used
	;		JEH,14-MAY-84,SPR:NONE
	;		A:SRC PUTCPY
	;
	;.EDIT	1530	The 'FDSKC' flag (compile specs coming from disk) is not
	;;		getting set if the 'TAKE' command is used
	;		JEH,14-MAY-84,SPR:NONE
	;		A:SRC CMND20
	;
	;.EDIT	1527	Skip warning tests if 'GENERATE data-name' instead of
	;;		'GENERATE report-name'
	;		JEH,14-MAY-84,SPR:NONE
	;		A:SRC COBOLD
	;
	;.EDIT	1526	Reset size of command buffer before call to COMND jsys
	;		JEH,14-MAY-84,SPR:NONE
	;		A:SRC CMND20
	;
	;.EDIT	1525	Allow use of [P,PN] in file spec for library file
	;;		in a COPY statement (V13)
	;		JEH,11-MAY-84,SPR:NONE
	;		A:SRC GETITM,IMPURE
	;
	;.EDIT	1524	Don't increment byte pointer into SRCBH before storing
	;;		it in RPLBH+1 for copy replacing (V13)
	;		JEH,04-MAY-84,SPR:NONE
	;		A:SRC GETITM
	;
	;.EDIT	1523	Print SUBPROGRAM instead of SUB on listing (V13)
	;		JEH,02-May-84,SPR:NONE
	;		A:SRC COBOLF
	;
	;.EDIT  1522	Clean up EOP stack if errors with reference modifiers (V13)
	;		JEH,26-APR-84,SPR:NONE
	;		A:SRC COBOLD,COBOLE,EXPGEN,MSCGEN
	;	
	;;.EDIT	1521	Not needed in V13
	;
	;.EDIT	1520	Give error if "DEPENDING ON D-N" and D-N is subscripted
	;		JEH,28-MAR-84,SPR:20-34603
	;		A:SRC CLEANC
	;
	;;EDIT  1517	Already in v13
	;
	;.EDIT	1516	Don't zero sort record area if SAME RECORD AREA clause used
	;		JEH,19-MAR-84,SPR:NONE
	;		A:SRC SRTGEN
	;
	;.ENDA
	;.ENDV

	*** EDITS BELOW WILL BE IN COBOL VERSION 13 RELEASE ***
 REP 5/14	;08C6
	1110	Not needed in V13.

	1107	Not needed in V13.

	1106	10-Jan-84	RLF	COMUNI,C8XSHR
		Define location for NON /R.

	1105	21-DEC-83	JBB	CBLIO
		Put a '?' in front of warning to make it FATAL.

	1104	29-DEC-83	JBB	CBLIO
		Remove SETEOF warning message and set max byte count
 WIT
	;.COMPONENT COBOTS
	;.VERSION 13
	;.AUTOPATCH 8
	;
	;.EDIT	1126	Define feature switch and code for printing ascii
	;;		text files with blank lines
	;		JEH,22-MAY-84,SPR:20-20056
	;		A:SRC INTERM,LBLPRM,CBLIO
	;
	;.EDIT	1125	Don't generate a plus 2 return from WADV. for certain
	;;		report writer programs
	;		JSM,14-MAY-84,SPR:NONE
	;		A:SRC CBLIO,COMUNI,LINE
	;
	;.EDIT	1124	Don't recompute byte pointer to record key in buffer,
	;;		use stored value, doing it wrong for write, rewrite, delete
	;		RLF,14-MAY-84,SPR:NONE
	;		A:SRC LSU
	;
	;.EDIT	1123	Unnativise the TIME code, it yields different results
	;;		than V12B
	;		RLF,14-MAY-84,SPR:NONE
	;		A:SRC TODAY
	;
	;.EDIT	1122	Take 'AT END' path on 'READ NEXT' if at end-of-file
	;		JEH,14-MAY-84,SPR:NONE
	;		A:SRC RMSIO
	;
	;.EDIT	1121	'READ NEXT' fails after 2 'REWRITES', flags being
	;;		stored at the wrong time
	;		JEH,10-MAY-84,SPR:NONE
	;		A:SRC CBLIO
	;
	;.EDIT	1120	Don't get channel number when opening a file assigned to LPT:
	;		JBB,27-APR-84,SPR:NONE
	;		A:SRC CBLIO
	;
	;.EDIT	1117	XRMS loads in UDDT at runtime.
	;		JBB,24-APR-84,SPR:NONE
	;		A:SRC RMSIO
	;
	;.EDIT	1116	Reset file status before retrying file open
	;		JEH,13-APR-84,SPR:20-20071
	;		A:SRC RMSIO
	;
	;;.EDIT	1115	Determine if mag tape as well as if DV.DIR to
	;;		choose correct path
	;;		JEH,10-APR-84,SPR:NONE
	;;		A:SRC CBLIO
	;
	;.EDIT	1114	Don't add an extra <CR><LF> to ascii record when re-writing
	;		JSM,29-MAR-84,SPR:10-34590
	;		A:SRC CBLIO
	;
	;.EDIT	1113	USE PROCEDURE doesn't work w/ filename-1 OPEN option
	;		RLF,22-MAR-84,SPR:20-20027
	;		A:SRC CBLIO
	;
	;.EDIT  1112	Don't put <CR> at end of std-ascii tape
	;		JEH,19-MAR-84,SPR:NONE
	;		A:SRC CBLIO
	;
	;;.EDIT	1111	Not needed in V13.
	;
	;
	;.ENDA
	;.ENDV
	;.ENDR


	VERSION 13****************
 SUM 190363