/*variable
......sigue despues con .................
import + merge + set + export..............*/
/*importo todos los archivos necesarios
CISZV ROKUZIT  DATOKO MESOKOZ POCKUZ POCKUZZ LAKTO CHOV VEK..............
exporto........ variable.txt CISZV ROKUZIT  DATOKO MESOKOZ CHOV..............
....................21.1.2003...............Gabriel Ciappesoni.......................*/
dm output 'clear';
dm log 'clear';
PROC IMPORT OUT= WORK.var02
            DATAFILE= "D:\Gabriel\finalEBV\data\var2002.txt" 
            DBMS=TAB REPLACE;
     GETNAMES=YES;
     DATAROW=2; 
RUN;
PROC IMPORT OUT= WORK.var01
            DATAFILE= "D:\Gabriel\finalEBV\data\var2001.txt" 
            DBMS=TAB REPLACE;
     GETNAMES=YES;
     DATAROW=2; 
RUN;
PROC IMPORT OUT= WORK.var00
            DATAFILE= "D:\Gabriel\finalEBV\data\var2000.txt" 
            DBMS=TAB REPLACE;
     GETNAMES=YES;
     DATAROW=2; 
RUN;
PROC IMPORT OUT= WORK.var93_99 
            DATAFILE= "D:\Gabriel\finalEBV\data\var93_99.txt" 
            DBMS=TAB REPLACE;
     GETNAMES=YES;
     DATAROW=2; 
RUN;

/*----------------2002-------------------------------------------------------*/
/*2002 CISZV ROKUZIT  DATOKO MESOKOZ POCKUZ POCKUZZ CHOV */
data v02; set var02; keep CISZV ROKUZIT  DATOKO MESOKOZ POCKUZ POCKUZZ LAKTO CHOV ; 
LAKTO=99;if chov=. then chov=9999;
proc sort; by CISZV; 
data v02; set v02; by ciszv ; if first.CISZV; if chov=9999 then chov=.;
proc sort; by CISZV;
proc means; title "Variable 2002";
run;

/*----------------2001-------------------------------------------------------*/
/*2001 CISZV ROKUZIT  DATOKO MESOKOZ LAKTO CHOV */
data v01b; set WORK.var01; keep CISZV ROKUZIT  DATOKO MESOKOZ POCKUZ POCKUZZ LAKTO CHOV;  
POCKUZ=99; POCKUZZ=99; if chov=. then chov=9999; lakto=1*lakto; if LAKTO=. then lakto=99;
proc sort; by CISZV;
data v01; set v01b; by ciszv ; if first.ciszv;
proc sort; by CISZV;
proc means; title "Variable 2001";
run;

/*----------------2000-------------------------------------------------------*/
/*2000 CISZV ROKUZIT  DATOKO MESOKOZ LAKTO CHOV */
data var00; set WORK.var00;keep CISZV ROKUZIT  DATOKO MESOKOZ POCKUZ POCKUZZ LAKTO CHOV ;
POCKUZ=99; POCKUZZ=99; if chov=. then chov=9999; if LAKTO=. then lakto=99;
proc sort; by CISZV;
data v00; set var00; by ciszv ; if first.ciszv;
proc sort; by CISZV;
proc means; title "Variable 2000";
run;

/*----------------1993-1999-------------------------------------------------------*/
/*1993-1999 CISZV ROKUZIT  DATOKO MESOKOZ POCKUZ POCKUZZ LAKTO CHOV*/
data v39; set WORK.var93_99;
proc sort; by ciszv;
proc means; title "Variable 93-99";
run;

/*----------------total variable 1993-20002-------------------------------------------------------*/
data varia; set v39 v00 v01 v02; by CISZV;
data varia; set varia; by ciszv rokuzit; if first.rokuzit; 
proc means; title "Variables 1993-2002";
run;



PROC EXPORT DATA= WORK.varia
            OUTFILE= "D:\Gabriel\finalEBV\data\variable.txt" 
            DBMS=TAB REPLACE;
RUN;