//
proc main;
	$r = fopen('qweeewew','r');
print $ERROR $ERRMSG $ERRNO $STRERROR $EXCEPTION;
	$r = fputline($STDOUT, '$ERROR	= ',$ERROR);
	$r = fputline($STDOUT, '$ERRMSG	= ',$ERRMSG);
	$r = fputline($STDOUT, '$ERRNO	= ',$ERRNO);
	$r = fputline($STDOUT, '$STRERR	= ',$STRERROR);
	$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 to 'X');
	$r = fputline($STDOUT, '$STDOUT	= ',$STDOUT to 'X');
	$r = fputline($STDOUT, '$STDERR	= ',$STDERR to 'X');
	$r = fputline($STDOUT, '$SCRIPTNAME = ',$SCRIPTNAME);
	$r = fputline($STDOUT, '$PROCNAME = ',$PROCNAME);
	$r = fputline($STDOUT, '$SCRIPTLINE = ',$SCRIPTLINE);
	$r = fputline($STDOUT, '$CLCHAR	= ',$CLCHAR);
	$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, '$CLDOUBLE = ',$CLDOUBLE);
	$r = fputline($STDOUT, '$PI	= ',$PI);
	$r = fputline($STDOUT, '$M_E	= ',$M_E);
	$r = fputline($STDOUT, '$CODETYPE = ',$CODETYPE);
	$TRNSHID = 'HID';
	$r = fputline($STDOUT, '$TRNSHID  = ',$TRNSHID);
	$r = fputline($STDOUT, '$MAX_LOOP_WHILE= ',$MAX_LOOP_WHILE);
	return $ERROR;
end proc;
