%dir="F:\Thesis\Eviews\St11_900A_cusip"
%dir1="F:\Thesis\DataFltr_St3\1.Filter\900A_FltrRe\900A_FltrRe_mrg\cusip_alpha"
%dir2="F:\Thesis\Eviews\St11_900A_cusip\test_cusp"

wfcreate(wf={%country}wf) u 1 5000

'read {%dir}\SP500_cusp_s.csv x1 x2 x3 x4 x5 Scomp_cusp_al $
import {%dir}\SP500_cusp_s.csv ftype=ascii rectype=crlf skip=0 fieldtype=delimited na="NA" delim=comma colhead=1 eoltype=pad badfield=NA @freq U 1 @smpl @all
import {%dir1}\900A_Act1_Cusp_test.csv ftype=ascii rectype=crlf skip=0 fieldtype=delimited na="NA" delim=comma colhead=1 eoltype=pad badfield=NA @freq U 1 @smpl @all
'import {%dir2}\900A_Act1_N.csv delim=comma @id cusip_alpha @destid Scomp_cusp_al 

group a900 cusip_alpha type
group Scusp scomp_cusp_al s_gvkey syear s_comp_cusip s_comp_tic s_crsp_cusip s_crsp_tic s_crsp_name
group cuspN a900 Scusp

show a900
show Scusp
show cuspN

svector sv1 = @uniquevals(cusip_alpha)
svector sv2 = @uniquevals(scomp_cusp_al)
stop











'%dir2="F:\Thesis\Eviews\St11_900A_cusip\test_cusp"
'write(t=txt, na="na", d=c) {%dir2}\a9_act1_cuspT.csv a900
'write(t=txt, na="na", d=c) {%dir2}\Scusip_T.csv Scusp
stop




%dir2="F:\Thesis\Eviews\St11_900A_cusip\test_cusp"
wfcreate(wf={%country}wf) u 1 5000

read {%dir2}\CusipN.csv scomp_cusp_al
import {%dir2}\900A_Act1_N.csv delim=comma @id cusip_alpha @destid Scomp_cusp_al

stop

wfopen {%dir}\900A_Act1_reCusp.xlsx range=900A_FltrRe_Act1 colhead=1 na="#N/A" @freq U 1 @smpl @all
import {%dir1}\cusip_fltr.xlsx range=¤u§@ªí1 colhead=1 na="#N/A" @smpl @all

group o ser*
group sc s_* c_*
s cusp = series33