Eviews 8 Enterprise Edition - Jun 19 2013 - installation

[jfgeli]

Hi there,

I recently have installed at work (for testing purposes) Eviews 8 (serial 80J00028). I have also installed Eviews 7.29. The issue I have is that the new Eviews seems to crash when I run one of my programmes. I am not sure if this is a problem of the installation or the programme itself. Eviews just crashes when calling the following procedure (I copy everything below and I am attaching the error log). The error takes place when I try to delete all series with the command delete *. I have tried running the procedure until one line before and it works ok, furthermore, if I execute the command delete * from the dialog it works:

subroutine pre_calc_cholette (string start_d, string page_q, string page_a, string page_q_work,string page_a_work)
' Subroutine pre-calc: prepares the data and stores it in dbQM
%a_page_work = page_a_work
%q_page_work = page_q_work
%a_page = page_a
%q_page = page_q
%startdate = start_d

pageselect {%a_page_work} '' SETTING OF THE TECHNICAL FREQUENCY CONVERSION METHOD FOR ANNUAL SERIE
smpl @all


copy {%page_a}\{%ser}_0 {%a_page_work}\source_ann
IF @UPPER(%ser) = "MAL" THEN
source_ann.setconvert d
ELSE
source_ann.setconvert d '(conversion from low to high frequency = constant match sum)
ENDIF

pageselect {%q_page}

IF %list = "partial" THEN
Series MIX_qrt = win_qrt*(dte_qrt/(dte_qrt+dth_qrt))+yen_qrt*(dth_qrt/(dte_qrt+dth_qrt))
ENDIF

if @UPPER(%ser)= "MAL" then
call quart_ann_cons
endif

pageselect {%q_page_work}

'**********************************************************
'HERE IT COMES THE ERROR!!!!
delete *
'**********************************************************
smpl @all
string series_name = %ser


copy {%page_q}\{%indicator} {%q_page_work}\Indicator_s

pageselect {%q_page}



'this if condition if to use quarterly past only when available.

IF @upper(%new_quarter) = "YES" THEN
if %list = "partial" then
%ser_aux = %ser+"_qrt_past"
else
%ser_aux = %ser+"_qrt_past"
genr {%ser_aux} = na
endif
ELSE
%ser_aux = %ser+"_qrt_past"
ENDIF

IF @isobject(%ser_aux) = 1 then
copy {%page_q}\{%ser}_qrt_past {%q_page_work}\source_qrt
endif

pageselect {%q_page_work}
copy {%page_q}\{%ser}_qrt {%q_page_work}\source_qrt_ori
link temp_y
temp_y.linkto {%a_page_work}::source_ann
series source_eq_dist = temp_y
series {series_name}_qrt =temp_y

pageselect {%a_page_work}
%start_date = @right(%startdate,4)+" "+@right(%startdate,4)
SMPL {%start_date} 'with this condition with start in the latest year of quarterly available data
STOM(source_ann,source_ann_v)
SCALAR source_ann_s = source_ann_v
COPY source_ann_s {%q_page_work}\source_ann_s 'annual figure before substractning quarters

pageselect {%q_page_work}
smpl @all if indicator_s = na
series source_eq_dist = na

IF @isobject("source_qrt") = 1 then 'when there is not historical quarterly data we do full interpolation
smpl @all if source_qrt<>na
string lastdate = @otods(@obs(source_qrt))
string lastdate_aux = @right(@otods(@obs(source_qrt)),1)' last quarter of available quarterly data

if lastdate_aux ="1" OR lastdate_aux ="2" OR lastdate_aux ="3" then
string firstdate = @otods(@obs(source_qrt)-lastdate_aux+1)
scalar historical_quarters= 4-{lastdate_aux} 'quarters to interpolate
'delete lastdate

%smpl_aux = @right(firstdate,6)+" "+@right(lastdate,6)
smpl %smpl_aux
stom(source_qrt,source_qrt_v)
scalar source_qrt_s = @csum(source_qrt_v) ' what needs to be substracted from the annual
scalar source_qrt_adj = source_ann_s - source_qrt_s' annual figure to take in to account historical quarters
' copy source_qrt_adj Annual\source_qrt_adj ' annual figure to take in to account historical quarters

%smpl_aux = @left(lastdate,4)+" "+@left(lastdate,4)
SMPL %smpl_aux
IF @isobject("mal_qrt")=0 then
source_eq_dist = source_qrt_adj/historical_quarters
ENDIF

'Benchmark restrictions'*******************************************************

'these values are used to fill the aggregation matrix with zeros in cases in which there is
'intra annual data e.g. Q1, Q2, or Q3.

'case in which benchmarked series start BEFORE the indicator
pageselect {%q_page}
smpl @all

copy {%ser}_qrt_past {%q_page_work}\{%ser}_qrt_past
pageselect {%q_page_work}
smpl @all if {%ser}_qrt_past <>na
%start_date_benchmark = @otods(1)
IF %start_date_benchmark = "1990Q1" THEN
ELSE
smpl @first {%start_date_benchmark}-1
series indicator_s = na
ENDIF
smpl @all if indicator_s <> na
%start_date_indicator = @otods(1)
smpl @all if {%ser}_qrt_past <> na
%last_date_target = @otods(@obs({%ser}_qrt_past ))
smpl {%start_date_indicator} {%last_date_target}
'correction in the number of rows used in the aggregation matrix
if historical_quarters = 3 then
scalar adjust = 0
else
if historical_quarters = 2 then
scalar adjust = 1
else
if historical_quarters = 1 then
scalar adjust = 2
endif
endif
endif


smpl {%start_date_indicator} {%last_date_target}

scalar column_q1 = @obs(indicator_s)-adjust'used if date upto Q1
scalar column_q2 = @obs(indicator_s)+1-adjust 'used if date upto Q4
scalar column_q3 = @obs(indicator_s)+2-adjust 'used if date upto Q3
scalar row = @round(column_q1/4)+1

endif'lastdate_aux ="1" OR lastdate_aux ="2" OR lastdate_aux ="3" then
else
string lastdate_aux ="4"
endif

smpl @all if indicator_s = na
series source_eq_dist = na



SMPL @ALL

series inter_ser =na


endsub

[startz]

Did you update to the most recent patch?

[jfgeli]

Hi there,
We have updated it to the most recent one (build 5 April). Still, I get the same error. Any idea what could be the reason for this?
I have windows XP, but I guess you can see my pc specifications from the log.
Cheers,
Fede

[EViews Gareth]

Could you post the files required to run the program?