//
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, '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, 'SYSDATE	= ',SYSDATE);
	$r = fputline(STDOUT, 'NULL	= ',NULL);
	$r = fputline(STDOUT, 'PI	= ',PI);
	$r = fputline(STDOUT, 'PI2 = ',PI2);
	$r = fputline(STDOUT, 'M_E = ',M_E);
	$r = fputline(STDOUT, 'M_E2 = ',M_E2);
	$r = fputline(STDOUT, 'CODETYPE = ',CODETYPE);
	$r = fputline(STDOUT, 'CLCHAR	= ',CLCHAR);
	$r = fputline(STDOUT, 'CLSTRING	= ',CLSTRING);
	$r = fputline(STDOUT, 'CLBINARY	= ',CLBINARY);
	$r = fputline(STDOUT, 'CLFLOAT	= ',CLFLOAT);
	$r = fputline(STDOUT, 'CLDECIMAL= ',CLDECIMAL);
	$r = fputline(STDOUT, 'CLBULK	= ',CLBULK);
//	$r = fputline(STDOUT, 'CLPOINTER = ',CLPOINTER);
	$r = fputline(STDOUT, 'CLVARIANT = ',CLVARIANT);
	$r = fputline(STDOUT, 'CLINTEGER = ',CLINTEGER);
	$r = fputline(STDOUT, 'CLLONG 	= ',CLLONG);
	$r = fputline(STDOUT, 'CLDOUBLE	= ',CLDOUBLE);
	$r = fputline(STDOUT, 'CLSYSCODE = ',CLSYSCODE);
	$r = fputline(STDOUT, 'CLEUC	= ',CLEUC);
	$r = fputline(STDOUT, 'CLSJISX	= ',CLSJIS);
	$r = fputline(STDOUT, 'CLJIS	= ',CLJIS);
	$r = fputline(STDOUT, 'CLEBCDIC	= ',CLEBCDIC);
	$r = fputline(STDOUT, 'CLUTF8	= ',CLUTF8);
	$r = fputline(STDOUT, 'CLUNICODE	= ',CLUNICODE);
	$r = fputline(STDOUT, 'CLEBCDIK	= ',CLEBCDIK);
	$r = fputline(STDOUT, 'CLNARROW	= ',CLNARROW);
	$r = fputline(STDOUT, 'CLWIDE	= ',CLWIDE);
	$r = fputline(STDOUT, 'SYSDATE	= ',SYSDATE);
	$r = fputline(STDOUT, 'CHAR_MIN	= ',CHAR_MIN);
	$r = fputline(STDOUT, 'CHAR_MAX	= ',CHAR_MAX);
	$r = fputline(STDOUT, 'UCHAR_MAX	= ',UCHAR_MAX);
	$r = fputline(STDOUT, 'SHORT_MIN	= ',SHORT_MIN);
	$r = fputline(STDOUT, 'SHORT_MAX	= ',SHORT_MAX);
	$r = fputline(STDOUT, 'USHORT_MAX	= ',USHORT_MAX);
	$r = fputline(STDOUT, 'INT_MIN	= ',INT_MIN);
	$r = fputline(STDOUT, 'INT_MAX	= ',INT_MAX);
	$r = fputline(STDOUT, 'UINT_MAX	= ',UINT_MAX);
	$r = fputline(STDOUT, 'LONG_MIN	= ',LONG_MIN);
	$r = fputline(STDOUT, 'LONG_MAX	= ',LONG_MAX);
	$r = fputline(STDOUT, 'ULONG_MAX	= ',ULONG_MAX);

	$r = fputline(STDOUT, 'CLCHA	= ',CLCHA);
	$r = fputline(STDOUT, 'CLSTR	= ',CLSTR);
	$r = fputline(STDOUT, 'CLBIN	= ',CLBIN);
	$r = fputline(STDOUT, 'CLFLO	= ',CLFLO);
	$r = fputline(STDOUT, 'CLDEC	= ',CLDEC);
	$r = fputline(STDOUT, 'CLBUL	= ',CLBUL);
//	$r = fputline(STDOUT, 'CLPOI	= ',CLPOI);
	$r = fputline(STDOUT, 'CLVARI	= ',CLVARI);
	$r = fputline(STDOUT, 'CLINT	= ',CLINT);
	$r = fputline(STDOUT, 'CLLNG	= ',CLLNG);
	$r = fputline(STDOUT, 'CLDOU	= ',CLDOU);
	$r = fputline(STDOUT, 'CLFLT	= ',CLFLT);
	$r = fputline(STDOUT, 'CLDBL	= ',CLDBL);

	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;
