1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159
| ODS html FILE = "c:\emilie\ess.xls"
STYLE = barrettsblue STYLE = styles.test GPATH = "c:\emilie\"(url = none) ;
/*
TITLE "Impression des données";
PROC PRINT;
run;*/
data tab.restra_02_2008_autoc_813 (keep = libel niveau);
length libel $1;
set tab.sa_02_2008_autoc_813;
libel= '1';
niveau = satglo;
output tab.restra_02_2008_autoc_813;
ATTRIB libel
label = '********************'
;
ATTRIB niveau
label = 'reponses'
;
run;
proc format;
value $libel
'1' = "Satisfaction Globale";
run;
proc tabulate data = tab.restra_02_2008_autoc_813 FORMAT = f8.0 out = j;
TITLE1 "BAROMETRE AU FIL DE L EAU" ;
TITLE2 "AUTO CLASSIQUE";
TITLE3 "SINISTRES DU MOIS DE &mois DE L ANNEE &annee";
TITLE4 "Caisse regionale 813";
keyword pctn / STYLE = [FONT_SIZE= 2 background = yellow];
keyword n / STYLE = [FONT_SIZE= 2 background = pink];
keyword all / STYLE = [FONT_SIZE= 2 background = blue FOREGROUND = white];
classlev niveau / STYLE = [FONT_SIZE= 2 BACKGROUND = blue FOREGROUND = white];
classlev libel / STYLE = [FONT_SIZE= 2 BACKGROUND = blue FOREGROUND = white];
class libel niveau / STYLE = [FONT_SIZE= 2 BACKGROUND = blue FOREGROUND = white];
table (libel),(niveau ALL = "Total") * (N= "Effectif"* [STYLE = [FONT_WEIGHT = BOLD FONT_SIZE= 2 BACKGROUND = cyan FOREGROUND = black]] pctn = "%"* [STYLE = [FONT_WEIGHT = BOLD FONT_SIZE= 2 BACKGROUND = cyan FOREGROUND = black]]);
format libel $libel. niveau $satglo. N fond.;
*A FAIRE : IF N<= 50 then pctn = 'ns';
title5 "1-Le Traitement Global de votre sinistre";
run;
*graph;
*symbol i = join;
data sat;
set satis; set a;
run;
GOPTIONS ftext="Arial";
PATTERN1 color=lime;
PATTERN2 color=magenta;
PATTERN3 color=yellow;
PATTERN4 color=cyan;
axis1 label = none value=(height=2) length = 5 cm ;
axis2 label=(height=3 angle=0 "Satisfaction globale") value=(height=0.4) length = 4 cm style=0;
proc gchart data=sat
gout = work.graphiques;
*where place <= 5 ;
vbar3D titl / sumvar=PctN_0 subgroup=satglo name = "satglo813"
discrete raxis=axis1 maxis=axis2 noframe
width=15 inside = subpercent
;
format satglo $satglo.;
title;
run;
quit;
*goptions reset = all;
data tab.restrb_02_2008_autoc_813 (keep = libel niveau);
length libel $1;
set tab.sa_02_2008_autoc_813;
libel= '1';
niveau = decla1;
output tab.restrb_02_2008_autoc_813;
libel = '2';
niveau= decla2;
output tab.restrb_02_2008_autoc_813;
libel = '3';
niveau = decla3;
output tab.restrb_02_2008_autoc_813;
ATTRIB libel
label = '********************'
;
ATTRIB niveau
label = 'reponses'
;
run;
proc format;
value $libel
'1' = 'Declaration Mise en confiance'
'2' = 'Declaration Indications claires'
'3' = 'Declaration Info evolution bonus';
run;
proc tabulate data = tab.restrb_02_2008_autoc_813 ;
keyword pctn / STYLE = [FONT_SIZE= 2 background = yellow];
keyword n / STYLE = [FONT_SIZE= 2 background = pink];
keyword all / STYLE = [FONT_SIZE= 2 background = blue FOREGROUND = white];
classlev niveau / STYLE = [FONT_SIZE= 2 BACKGROUND = blue FOREGROUND = white];
classlev libel / STYLE = [FONT_SIZE= 2 BACKGROUND = blue FOREGROUND = white];
class libel niveau / STYLE = [FONT_SIZE= 2 BACKGROUND = blue FOREGROUND = white];
table (libel ),(niveau ALL = "Total") * (N= "Effectif"* [STYLE = [FONT_WEIGHT = BOLD FONT_SIZE= 2 BACKGROUND = cyan FOREGROUND = black]] pctn = "%"* [STYLE = [FONT_WEIGHT = BOLD FONT_SIZE= 2 BACKGROUND = cyan FOREGROUND = black]]);
format libel $libel. niveau $decla.;
title '2-Votre declarartion de sinistre';
run;
data declar1;
set declaration; set b ;
run;
GOPTIONS ftext="Arial";
PATTERN1 color=lime;
PATTERN2 color=magenta;
PATTERN3 color=yellow;
PATTERN4 color=cyan;
axis1 label = none value=(height=2) length = 5 cm ;
axis2 label=(height=3 angle=0 "Declaration Mise en Confiance") value=(height=0.4) length = 4 cm style=0;
proc gchart data=declar1
gout = work.graphiques;
vbar3D title / sumvar=PctN_0 subgroup=decla1 name = "decla1813"
discrete raxis=axis1 maxis=axis2 noframe
width=15 inside = subpercent
;
format decla1 $decla. ;
title;
run;
quit;
/* MARCHE PAS;
proc greplay NOFS TC = work.graphiques
igout = work.graphiques gout = work.graphiques;
TDEF newfour DES='four squares of equal size'
1/LLX=1 LLY=1 ULX=1 ULY=49 URX=49 URY=49 LRX=49 LRY=1
color=grey
2/LLX=51 LLY=1 ULX=51 ULY=49 URX=99 URY=49 LRX=99 LRY=1
color=grey
template = newfour;
treplay 1 : satglo813
2 : decla1813 ;
run; quit;
*/
ods html close; |
Partager