//
proc main;

	$r = fopen('qweeewew','r');
	$r = fputline(STDOUT, 'ERRNO	= ',ERRNO);
	$r = fputline(STDOUT, 'STRERROR= ',STRERROR);
	$r = fputline(STDOUT, 'ERRMSG	= ',ERRMSG);
	$r = fputline(STDOUT, 'ERROR	= ',ERROR);
	$r = fputline(STDOUT, 'EXCEPTION= ',EXCEPTION);
	$r = fputline(STDOUT, 'TUPLE	= ',TUPLE);
	$r = fputline(STDOUT, 'COLUMN	= ',COLUMN);
	$r = fputline(STDOUT, 'USERID	= ',USERID);
	$r = fputline(STDOUT, 'SYSDATE	= ',SYSDATE);
	$r = fputline(STDOUT, 'DATE	= ',DATE);
	$r = fputline(STDOUT, 'TIME	= ',TIME);
	$r = fputline(STDOUT, 'DATETIME= ',DATETIME);
	$r = fputline(STDOUT, 'HID  	= ',HID);
//	$r = fputline(STDOUT, 'TRNSHID= ',TRNSHID);
	$r = fputline(STDOUT, 'USERINF= ',USERINF);
	$r = fputline(STDOUT, 'VERSION= ',VERSION);
	$r = fputline(STDOUT, 'MAKEDATE= ',MAKEDATE);
	$r = fputline(STDOUT, 'STDIN	= ',STDIN);
	$r = fputline(STDOUT, 'STDOUT	= ',STDOUT);
	$r = fputline(STDOUT, 'STDERR	= ',STDERR);
	$r = fputline(STDOUT, 'SCRIPTNAME = ',SCRIPTNAME);
	$r = fputline(STDOUT, 'PROCNAME = ',PROCNAME);
	$r = fputline(STDOUT, 'SCRIPTLINE = ',SCRIPTLINE);
	$r = fputline(STDOUT, 'NULL	= ',NULL);
	$r = fputline(STDOUT, 'PI	= ',PI);
	$r = fputline(STDOUT, 'CHAR	= ',CHAR);
	$r = fputline(STDOUT, 'STRING	= ',STRING);
	$r = fputline(STDOUT, 'BINARY	= ',BINARY);
	$r = fputline(STDOUT, 'FLOAT	= ',FLOAT);
	$r = fputline(STDOUT, 'DECIMAL	= ',DECIMAL);
	$r = fputline(STDOUT, 'BULK	= ',BULK);
	$r = fputline(STDOUT, 'DATETYPE = ',DATETYPE);
	$r = fputline(STDOUT, 'VARIANT = ',VARIANT);
	$r = fputline(STDOUT, 'INTEGER = ',INTEGER);
	$r = fputline(STDOUT, 'LONG	= ',LONG);
	$r = fputline(STDOUT, 'DOUBLE	= ',DOUBLE);

	$r = fputline(STDOUT, 'CHA	= ',CHA);
	$r = fputline(STDOUT, 'STR	= ',STR);
	$r = fputline(STDOUT, 'BIN	= ',BIN);
	$r = fputline(STDOUT, 'FLO	= ',FLO);
	$r = fputline(STDOUT, 'DEC	= ',DEC);
	$r = fputline(STDOUT, 'BUL	= ',BUL);
	$r = fputline(STDOUT, 'VARI	= ',VARI);
	$r = fputline(STDOUT, 'INT	= ',INT);
	$r = fputline(STDOUT, 'LNG	= ',LNG);
	$r = fputline(STDOUT, 'DOU	= ',DOU);
	$r = fputline(STDOUT, 'FLT	= ',FLT);
	$r = fputline(STDOUT, 'DBL	= ',DBL);

	func1();

//	$r = fputline(STDOUT, 'STRING	= ',STRING);

	print ERROR++;
//	$ERROR = 0;
	ERROR = 0;

	return ERROR;
end proc;

func func1;
	$r = fputline(STDOUT, 'PROCNAME = ',PROCNAME);
	return ERROR;
end func;
