Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cobolc.c09
There are 4 other files named cobolc.c09 in the archive. Click here to see a list.
 INS 23/1	;09C1
	;JEH	07-JUN-84	[1537] Fix edit 1424 - give error if fields are in
	;				an ASCII record
 REP 19/41	;09C2
	;CAN'T STORE NON-DISPLAY DATA IN AN ASCII FILE
 WIT
	;[1537] CAN'T TRANSFER COMP DATA FROM ASCII RECORD TO A FILE BUFFER
 REP 25/41	;09C3
		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?
 WIT
		HRRZ	TA,	TBLOCK+1	;[1537] GET LAST TABLE LINK IN TA
	D38.L2:	PUSHJ	PP,	LNKSET		;[1537] 
		LDB	TC,	DA.LVL		;[1537] ARE WE AT THE RECORD LEVEL?
		CAIN	TC,	1		;[1537]
		JRST	D38.L3			;[1537] YES
		PUSHJ	PP,	FNDPOP		;[1537] RETURNS TB[ REL ADDR OF POP
		POPJ	PP,			;[1537] CAN'T FIND ONE
		MOVE	TA,	TB		;[1537] SET UP TA
		JRST	D38.L2			;[1537] CHECK AGAIN
	D38.L3:	LDB	TC,	DA.USG##	;[1537]
		CAIE	TC,	%US.D7		;[1537] IS IT ASCII?
 SUM 258394