//
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, '$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 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, '$CHAR	= ',$CHAR);
	$r = fputline($STDOUT, '$BINARY	= ',$BINARY);
	$r = fputline($STDOUT, '$FLOAT	= ',$FLOAT);
	$r = fputline($STDOUT, '$DECIMAL= ',$DECIMAL);
	$r = fputline($STDOUT, '$BULK	= ',$BULK);
	$r = fputline($STDOUT, '$POINTER= ',$POINTER);
	$r = fputline($STDOUT, '$VARIANT= ',$VARIANT);
	$r = fputline($STDOUT, '$INTEGER= ',$INTEGER);
	$r = fputline($STDOUT, '$DOUBLE	= ',$DOUBLE);
	$r = fputline($STDOUT, '$PI	= ',$PI);
	$r = fputline($STDOUT, '$M_E	= ',$M_E);
	$TRNSHID = 'HID';
	$r = fputline($STDOUT, '$TRNSHID= ',$TRNSHID);
	$r = fputline($STDOUT, '$MAX_LOOP_WHILE= ',$MAX_LOOP_WHILE);
	return $ERROR;
end proc;
