'make each flat zero trend series equal 0.1 throughout
subroutine flatZERO
	series ser{!i}flatTS
	For !j=1 to 128
	'j = # of observations - adjust as necessary
	ser{!i}flatTS(!j,1)=0.1
	next
	adjusted.add ser{!i}flatTS
endsub


'fetch the LT trend series 
subroutine fetchLTtrend
	wfopen(t=text) C:\Users\lr2832.NATION\AppData\ev_temp\table-s.out skip=3 colhead=0 names=(date, ser, ser{!i}tc, sa, seas, cal, trans, preadj, ser{!i}cyc, ser{!i}lt, ser{!i}res) types=(d,f,f,f,f,f,f,f,f,f,f) d=white
	copy ser{!i}tc anzsic416absadjusted::Serieshere\ser{!i}trend
	copy ser{!i}cyc anzsic416absadjusted::Serieshere\ser{!i}cycle
	copy ser{!i}lt anzsic416absadjusted::Serieshere\ser{!i}lttrend
	delete ser{!i}tc
	delete ser{!i}cyc
	delete ser{!i}lt
	wfclose table-s
	wfselect anzsic416absadjusted::Serieshere

	adjusted.add ser{!i}lttrend
	adjustedB.add ser{!i}trend
	adjustedC.add ser{!i}cycle

endsub

'Code starts below and calls subroutine above
mode quiet
cd "G:\OSAS\12 Projections\2017 Projections - five years to November 2021\02 ANZSIC\01 Data\TRAMO LT trends\EViews Workfiles"
wfselect anzsic416absadjusted::Serieshere
group adjusted
group adjustedB
group adjustedC
for !i= 1 to 416
	wfselect anzsic416absadjusted::Serieshere
	smpl @first @last
if !i = 11 or !i= 22 or !i= 39 or !i= 57 or !i= 68 or !i= 76 or !i=126 or !i=189  or !i=217 or !i=221 or !i=222 or !i=225 or !i=239 or !i=245  or !i=257  or !i=259  or !i=271 or !i=275 or !i=278 or !i=279 or !i=293 or !i=300 or !i=302 or !i=309 or !i=310 or !i=328 or !i=333 or !i=336 or !i=337 or !i=349 or !i=356 or !i=386  or !i=402  or !i=407 or !i=415 or !i=416 then
	call flatZERO
		else
SER{!i}.x13(spec=G:\OSAS\12 Projections\2017 Projections - five years to November 2021\02 ANZSIC\01 Data\TRAMO LT trends\EViews Programs\2specgeneral&mixed=no.prg, errlog=errormsg, save=s12)
			call fetchLTtrend
endif
next
write(t,) XANZSICTHRUX13LTtrends.xls adjusted
write(t,) XANZSICTHRUX13Trends.xls adjustedB
write(t,) XANZSICTHRUX13Cycles.xls adjustedC