function [zdata, oobase_, Mbase_ ] = ...
    solve_no_constraint_noclear(modnam,...
                                shockssequence,irfshock,nperiods)

global M_ oo_

errlist = [];

% solve model
eval(['dynare ',modnam,'  nolog']);
oobase_ = oo_;
Mbase_ = M_;

ys_ = oobase_.dr.ys;

for i=1:Mbase_.endo_nbr
    eval([Mbase_.endo_names{i} '_ss = oo_.dr.ys(i); ']);
end

for i = 1:length(Mbase_.param_names)
    eval([Mbase_.param_names{i}, '= M_.params(i);']);
end

setss





[hm1,h,hl1,Jbarmat] = get_deriv(Mbase_,ys_);
cof = [hm1,h,hl1];

[decrulea,decruleb]=get_pq(oobase_.dr);
endog_ = M_.endo_names;
exog_ =  M_.exo_names;


nvars = numel(Mbase_.endo_nbr);

nshocks = size(shockssequence,1);
init = zeros(nvars,1);

wishlist = endog_;
nwishes = length(wishlist);


zdata = mkdata(nperiods,decrulea,decruleb,endog_,exog_,wishlist,irfshock,shockssequence);
