Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11i-bm_tops20_v7_0_atpch_1-22 - autopatch/cobver.c19
There are 9 other files named cobver.c19 in the archive. Click here to see a list.
 REP 1/1	;19C1
	; UPD ID= 1635 on 6/26/84 at 4:39 PM by MCARLETON                       
 WIT
	; UPD ID= 1945 on 6/23/88 at 12:27 PM by KSTEVENS                      
 REP 15/1	;19C2
	CBLEDT==1646	;EDIT LEVEL
 WIT
	CBLEDT==1647	;EDIT LEVEL
 REP 26/1	;19C3
	LBLEDT==1201	;EDIT LEVEL
 WIT
	LBLEDT==1204	;EDIT LEVEL
 REP 8/4	;19C4
	;.AUTOPATCH 18
	;.EDIT	1646	Fixed group to elimentary editting
	;		KWS,9-DEC-87,SPR:20-21637
 WIT
	;.AUTOPATCH 19
	;.EDIT	1647	Fixed code generation for COMPUTE statement so extraneous DMOVE
	;;		does not get generated.
	;		KWS,21-MAR-88,SPR:10-35598
	;		A:SRC EXPGEN,COBVER
	;.ENDA
	;.AUTOPATCH 18
	;.EDIT	1646	Fixed group to elimentary editting
	;		KWS,9-DEV-87,SPR:20-21637
 REP 17/4	;19C5
	;.ENDA
	;.AUTOPATCH 17
	;.EDIT	1644	Extended edit 1603 to include the case where the SD is not in 
	;;		the file section.
	;		KWS,29-SEP-87,SPR:20-21619
	;		A:SRC SRTGEN
	;
 WIT
	;.EDIT	1644	Extended edit 1603 to include the case where the SD is not in
	;;		the file section.
	;		KWS,29-SEP-87,SPR:20-21619
	;		A:SRC SRTGEN,COBVER
	;
	;.ENDA
	;.AUTOPATCH 17
 REP 40/4	;19C6
	;		
 WIT
	;
 REP 49/4	;19C7
	;		the correct number of characters are displayed instead of 
 WIT
	;		the correct number of characters are displayed instead of
 REP 75/4	;19C8
	;.EDIT	1631	Subscripting a non-uniquely defined name caused a 
 WIT
	;.EDIT	1631	Subscripting a non-uniquely defined name caused a
 REP 136/4	;19C9
	;.EDIT	1614	Fixed over-zealous edit so binary and ascii mixed mode 
 WIT
	;.EDIT	1614	Fixed over-zealous edit so binary and ascii mixed mode
 REP 241/4	;19C10
	;.EDIT	1563	Allow the no rewind bit as valid for report writer 
 WIT
	;.EDIT	1563	Allow the no rewind bit as valid for report writer
 REP 252/4	;19C11
	;.EDIT	1561	If reference modification is being done within the 
 WIT
	;.EDIT	1561	If reference modification is being done within the
 REP 290/4	;19C12
	;.EDIT	1551	Cause COBOL to generate IFIW's in its argument 
 WIT
	;.EDIT	1551	Cause COBOL to generate IFIW's in its argument
 REP 400/4	;19C13
	;	
 WIT
	;
 REP 419/4	;19C14
		Make handling of figurative constants more 
 WIT
		Make handling of figurative constants more
 REP 552/4	;19C15
		Fix 68274 not to cause PA1050 ill. inst. when in COMM. SEC. 
 WIT
		Fix 68274 not to cause PA1050 ill. inst. when in COMM. SEC.
 REP 271/6	;19C16
		NEEDS LIBOL EDIT 624. 
 WIT
		NEEDS LIBOL EDIT 624.
 REP 291/6	;19C17
		ALSO FIX SYNTAX TREE TO ALLOW CONSOLE AS TTY FOR "ACCEPT".   
 WIT
		ALSO FIX SYNTAX TREE TO ALLOW CONSOLE AS TTY FOR "ACCEPT".
 REP 343/6	;19C18
	 756	28-DEC-79	DMN	COBOLG	
 WIT
	 756	28-DEC-79	DMN	COBOLG
 REP 18/10	;19C19
	 441	ADDED IF OP0 TEST FOR NON-NUMERIC DATA.  NEEDS EDIT 455 TO 
 WIT
	 441	ADDED IF OP0 TEST FOR NON-NUMERIC DATA.  NEEDS EDIT 455 TO
 REP 101/10	;19C20
	 402	ALLOW INDEX REGISTER AND INDIRECT ADDRESSING FOR ARGUMENT TO 
		 LIBOL. ROUTINES CMNGEN, COBOLG

	 401	FIX HANDELING OF USE PROCEEDURE IN A DBMS PROGRAM. 
 WIT
	 402	ALLOW INDEX REGISTER AND INDIRECT ADDRESSING FOR ARGUMENT TO
		 LIBOL. ROUTINES CMNGEN, COBOLG

	 401	FIX HANDELING OF USE PROCEEDURE IN A DBMS PROGRAM.
 REP 122/12	;19C21
	 257	FIX RELEASE AND RETURN SO THAT PARMS ARE ONLY IN SORT FILE 
 WIT
	 257	FIX RELEASE AND RETURN SO THAT PARMS ARE ONLY IN SORT FILE
 INS 7/14	;19C22
	;.AUTOPATCH	19
	;.EDIT	1204	Edit to make sure that retained records are non-existant 
	;;		when they should be.
	;		KWS,23-JUN-88,SPR:20-21895
	;		A:SRC LSU
	;
	;.EDIT	1203	Edit to fix 1157, forgot a path when correcting qt.
	;		KWS,22-JUN-88,SPR:20-21893
	;		A:SRC LSU
	;
	;.EDIT	1202	Edit to generate a more appropriate error message 
	;;		if the byte count to an ISAM index file is set to zero while
	;;		a COBOL program is running.
	;		KWS,22-Jun-88,SPR:20-21884
	;		A:SRC CBLIO
	;.ENDA
 REP 11/14	;19C23
	;		A:SRC CBLIO
 WIT
	;		A:SRC COBVER,CBLIO
 REP 41/14	;19C24
	;.EDIT 1174	Fix handling of RETAIN on a numeric key with assumed 
 WIT
	;.EDIT 1174	Fix handling of RETAIN on a numeric key with assumed
 REP 70/14	;19C25
	;.EDIT	1166	Size of PDL is off by 20. 
 WIT
	;.EDIT	1166	Size of PDL is off by 20.
 REP 75/14	;19C26
	;		at OPEN time won't get error from COMPT. UUO 
 WIT
	;		at OPEN time won't get error from COMPT. UUO
 REP 90/14	;19C27
	;.EDIT	1162	Change the Start verb so it works as it should in SMU. I.E 
	;		Start is illegal within the scope of a RETAIN/FREE, but it 
 WIT
	;.EDIT	1162	Change the Start verb so it works as it should in SMU. I.E
	;		Start is illegal within the scope of a RETAIN/FREE, but it
 REP 106/14	;19C28
	;.EDIT	1157	Return the 12B/12C functionality of block locking rather than 
 WIT
	;.EDIT	1157	Return the 12B/12C functionality of block locking rather than
 REP 197/14	;19C29
	;.EDIT	1132	Pass an ASCIZ string to RMS rather than an ASCII 
 WIT
	;.EDIT	1132	Pass an ASCIZ string to RMS rather than an ASCII
 REP 291/14	;19C30
	1101	Not needed for V13	
 WIT
	1101	Not needed for V13
 REP 384/14	;19C31
		EOF through a Declaratives Use Procedure if the Use Procedure 
		exists. The SPR problem that it fixed was on Mag-Tapes and looks
		like a User Error. There is no reason that EOF on Sequential 
 WIT
		EOF through a Declaratives Use Procedure if the Use Procedure
		exists. The SPR problem that it fixed was on Mag-Tapes and looks
		like a User Error. There is no reason that EOF on Sequential
 REP 422/14	;19C32
		Zero buffer address to force FAKE READ to get block number for a RETAIN 
 WIT
		Zero buffer address to force FAKE READ to get block number for a RETAIN
 REP 19/16	;19C33
		Fix problems with RELATIVE file READs and WRITEs 
 WIT
		Fix problems with RELATIVE file READs and WRITEs
 REP 37/17	;19C34
		THIS TAKES OUT 557 AND REPLACES IT WITH CODE TO FORCE 
 WIT
		THIS TAKES OUT 557 AND REPLACES IT WITH CODE TO FORCE
 REP 41/20	;19C35
	 372	CORRECT BLOCK FACTOR CALC FOR ASCII NON-ISAM FILES 
 WIT
	 372	CORRECT BLOCK FACTOR CALC FOR ASCII NON-ISAM FILES
 SUM 130339