/*1*/

libname mm 'd:\CURSAS16_17\S04\dades_S04\';

*a;

ods listing;
proc contents data=mm.medi;
run;
ods listing close;

*b;

ods pdf;
proc print data=mm.medi noobs label; 
var num_pac data med chol;
run;
ods pdf close;

*c;

ods listing;
proc print data=mm.medi noobs label; 
where med='D';
run;
ods listing close;

/*2*/

*a;

ods listing;
proc sort data=mm.bas11 out=bas11ord; by z; run;

proc print data=bas11ord noobs; run;

*b;

proc sort data=mm.bas11 out=bas11ord2; by z descending x; run;

proc print data=bas11ord2 noobs; run;

*c;

proc print data=bas11ord; 
var x;
by z;
sum x;
run;


/*3*/

libname w 'd:\CURSAS16_17\S04\dades_S04';
libname w3 'd:\CURSAS16_17\S04\dades_S04\ejercicios\Ejer_3';

proc format library = w3;
value opi 
1 = 'Muy buena'
2 = 'Buena'
3 = 'Regular'
4 = 'Mala'
5 = 'Muy mala'
6-high ='NS/NC';
value gene 1='Hombre' 2= 'Mujer';
value estadc 1='Viudo/a' 2='Separado/Div' 3 ='Casado/a' 4='Soltero';
run;

options fmtsearch=(w3);

data w3.enqasseg2;
set w.enqasseg;
format x5-x7 opi. x3 gene. x4 estadc.;
*label A?ADIR VOSOTROS LAS ETIQ VARIABLE;
run;

proc freq data=w3.enqasseg2;
tables x5 x6 x7;
run;

/*4*/

libname w4 'd:\CURSAS16_17\S04\dades_S04\ejercicios\Ejer_4';

proc format library=w4;
value pobl low-14 = 'Hasta 14' 14<-25= '(14,25]' 25<-40= '(25,40]' 40<-high='mas de 40';
run;

options fmtsearch=(w4);

data mon00d2;
set w.mon00d;
format pob pobl.;
run;

proc freq data=mon00d2; tables pob; run;

/*5*/

proc contents data=w.bas08; run;

proc format library = w;
value SN 
1 = 'SI'
2 = 'NO';
run;

/*es posible que aqui os d? error si el archivo FORMATS.SAS7BCAT est? protegido contra escritura. En tal caso, 
poniendo el rat?n encima del archivo FORMATS.SAS7BCAT y clicanco el bot?n derecho, id a propiedades y desactivar
la opci?n de solo lectura.*/

options fmtsearch=(w);

proc freq data=w.bas08; tables v3-v5; run;

/*6*/

libname w6 'd:\CURSAS16_17\S04\dades_S04\ejercicios\Ejer_6';

proc format library=w6;
value $gene 'd'='Dona' 'h'='Home';
value respc 1 = 'SI' 2 = 'NO';
value $gender 'd'='Female' 'h'='Male';
value respa 1 = 'Yes' 2 = 'No';
run;

options fmtsearch=(w6);

proc print data=w.pol; format x1 $gene. x4 respc.;
var x1 x4;
run;

proc print data=w.pol; format x1 $gender. x4 respa.;
var x1 x4;
run;