/*----->*	lineno.com	-contains the line number of the input file
	*/
common /lineno/lineno,inname
integer lineno(MAXLUN)			#the current line number for each lun
character inname(MAXNAME,MAXLUN)	#the names of the open files