Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - cobolc.c05
There are 2 other files named cobolc.c05 in the archive. Click here to see a list.
 INS 23/1	;05C1
	;SMI	03-DEC-82	[1436] 68274 Fix PA1050 ill. inst. when in COMM. SEC. 
	;JEH	18-NOV-82	[1424] Fatal error on COMP, COMP-1, and INDEX fields
	;				in ASCII file
	;SMI	06-OCT-82	[1413] 68274 Does not handle DBMS correctly.
	;RLF	02-AUG-82	[1376] Corrects diagnostic when line before FD too long
	;RJD	15-JUL-82	[1373] Corrects page advancing when more than 2 report
	;			       header lines
	;JEH	14-JUN-82	[1366] Correct 1335, set up CURHLD properly
	;JEH	07-JUN-82	[1362] Make HLDSAV external
	;RJD	24-MAY-82	[1356] Allow qualification in DATA RECORDS ARE clause
	;JEH	30-MAR-82	[1346] Fatal error if too many ascending/descending keys
	;JEH	02-FEB-82	[1335] Declare DATAB entries for all indexes if REPORT
	;			SECTION is scanned for their use by REPORT WRITER stmts
	;
 INS 23/3	;05C2
		SETZM	BLDIX##		;[1335]
 INS 27/13	;05C3

		INTER.	DA18A.		;[1356]
	DA18A.:	PUSHJ	PP,TRYNAM	;[1356] IS NAME IN TABLE?
		 JRST	DA18B.		;[1356] NO
		HLRZS	TA		;[1356] SET UP REL ADDR AND
		HRRZI	TB,CD.FIL	;[1356] TYPE CODE FOR TABLE SEARCH
		PUSHJ	PP,FNDLNK	;[1356] SEARCH FILTAB
		 JRST	DA18B.		;[1356] ENTRY NOT FOUND
		MOVE	TA,CURFIL	;[1356] GET CURRENT FILE ADDR
		CAMN	TA,TB		;[1356] SAME FILE USED TO QUALIFY?
		POPJ	PP,		;[1356] YES

	DA18B.:	EWARNJ	E.190		;[1356] GIVE IMPROPER QUALIFICATION MSG

 INS 50/39	;05C4
		HRRZM	TB,	TBLOCK+1	;[1424] SAVE LINK
 INS 18/41	;05C5

	;CAN'T STORE NON-DISPLAY DATA IN AN ASCII FILE
		CAIG	TB,	%US.DS		;[1424] IF IT'S A DISPLAY MODE,
		POPJ	PP,			;[1424]  EXIT
		LDB	TB,	DA.DFS		;[1424] IF DATA ITEM IS NOT
		SKIPN	TB			;[1424]  IN FILE SECTION,
		POPJ	PP,			;[1424]  EXIT
		HRRZ	TB,	TBLOCK+1	;[1424] GET LAST LINK IN TB FOR FNDFIL
		PUSHJ	PP,	FNDFIL##	;[1424] FIND THE FILE TABLE
		POPJ	PP,			;[1424] NO FILTAB LINK
		LDB	TC,	FI.ERM		;[1424] GET FILE'S MODE
		CAIE	TC,	%RM.7B		;[1424] IS IT ASCII?
		POPJ	PP,			;[1424]  NO, EXIT
		HRRZI	DW,	E.654		;[1424] GIVE ERROR
		HRRZ	TA,	CURDAT		;[1424]  AT DATA FIELD DECLARATION
		LDB	LN,	DA.LN		;[1424] 
		LDB	CP,	DA.CP		;[1424]
		PUSHJ	PP,	FATAL##		;[1424]
 REP 4/111	;05C6
	DA87.:	MOVEI	TC,%RG.RH	;REPORT HEADING TYPE CODE
 WIT
	DA87.:	PUSHJ	PP,GETRDL	;[1373] GET RD POINTER
		SETO	TC,		;[1373] INDICATE HAVE SEEN A REPORT 
		DPB	TC,RW.RHL##	;[1373] HEADING
		MOVEI	TC,%RG.RH	;[1373] REPORT HEADING TYPE CODE
 INS 7/118	;05C7
		CAIN	TYPE,2000+FD.		;[1376] IS IT FD ?
		JRST	DA105A			;[1376] REGET WORD?
 INS 34/120	;05C8
	IFN ANS74,<
		CAIG	TB,377		;[1346] UP TO 255 KEYS ALLOWED
		JRST	DA110C		;[1346]
		MOVEI	DW,E.745	;[1346] ELSE QUANTITY GETS TRUNCATED
		PUSHJ	PP,FATALW	;[1346]
	DA110C:				;[1346]
	>;[1346]
 INS 40/124	;05C9
	IFN FT68274,<			;[1413]
		PUSHJ	PP,CVTOAL##	;[1413] WRITE OUT PREVIOUS BUFFER
		PUSHJ	PP,CVTDPL##	;[1413] AND CURRENT BUFFER
		SETZM	CVTPLF##	;[1413] PREVIOUS LINE IS NO LONGER NEEDED
	>				;[1413]
 REP 18/127	;05C10
		INTER.	DA124.
	DA124.:
 WIT
		INTER.	DA124B			;[1436]
	DA124B:					;[1436]
 REP 24/127	;05C11
	>
		HRRZI	TA,^D10
 WIT
		SKPNAM				;[1436]
	>
		INTER.	DA124.			;[1436]
	DA124.:	HRRZI	TA,^D10			;[1436]
 INS 53/144	;05C12
		SETOM	BLDIX		;[1335] TURN ON BUILD INDEXES FLAG
		MOVE	TA,CURHLD	;[1335] SAVE CURHLD
		MOVEM	TA,HLDSAV##	;[1362] [1335] MAKE EXTERNAL
		HRRZ	TA,HLDLOC	;[1335] FIND START OF HLDTAB
		AOJ	TA,		;[1335]
		MOVEM	TA,CURHLD	;[1366] [1335] STORE IN CURHLD
		PUSHJ 	PP,CLNHLD##	;[1335] BUILD DATAB ENTRIES FOR INDEXES
		MOVE	TA,HLDSAV	;[1335] RESTORE CURHLD
		MOVEM	TA,CURHLD	;[1335]
		SETZM	BLDIX		;[1335]	SHUT OFF FLAG
 SUM 80434