Discussion :

[enicnath]

Bonjour
Je suis sous SAS 9.3 et j'essaie de créer un rapport avec les objets ODSOUT. Mon programme est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
options leftmargin = 2 cm;
ods listing close;
ods pdf file="D:\Temp\Temp.pdf";
ods escapechar="^";
proc sort data=sashelp.class out=Temp; by Age Sex; run;
data _null_;
   set Temp end=FinTable;
   by Age Sex;
   if _n_ eq 1 then declare odsout Obj(); 
   SexName=ifc(Sex eq 'F','Féminin', 'Masculin');
   if first.Age then do;
      Obj.page();
      Obj.format_text(data:'Âge : ' !! Age !! ' ans', overrides:"font_size=5", just:'c');
   end;
   if first.Sex then Obj.format_text(data:'Sexe : ' !! SexName, overrides:"foreground=black font_weight=bold");
   Obj.layout_gridded(columns:2, rows:2, overrides:"borderwidth=3 bordercolor=green vjust=middle");
   Obj.region(row:1, column_span:2, height:"2cm", overrides:"background=cx494068 vjust=middle");
   Obj.format_text(data:Name, overrides:"foreground=white just=left");
   Obj.region(row:2, column:1, width:"5cm", overrides:"background=cx9abcde");
   Obj.format_text(data:Height, overrides:"foreground=red");
   Obj.region(row:2, column:2, width:"10cm", overrides:"background=cx987214 bordercolor=red");
   Obj.format_text(data:weight);
   Obj.layout_end();
run;
ods pdf close;
ods listing;
title;

Il y a quelques éléments que je ne parviens pas à mettre au point :
1) je voudrais que les noms des personnes (variable NAME) soient centrés verticalement.
J'ai essayé l'option OVERRIDES:"vjust=middle", ça ne marche pas.
J'ai essayé aussi de mettre directement une option VJUST:"M" ; pas plus de résultats.
Pourtant ça devrait_être possible d'après http://support.sas.com/rnd/base/data...umentation.pdf.
2) je souhaiterais aussi que les noms des personnes soient justifiées à gauche.
Pas de résultat là encore, que j'utilise l'option OVERRIDES:"just=left" ou JUST:"L" directement.
D'ailleurs, il y a un warning lorsqu'on utilise directement les options JUST ou VJUST.
3) je voudrais mettre des bordures à mes cellules. j'utilise OVERRIDES:"borderwidth=2", bordercolor= ; mais toujours rien.
4) Je n'ai pas tous testé, mais il y a aussi les options COLUMN_GUTTER et ROW_GUTTER que je ne parviens pas à faire fonctionner, alors que le même document http://support.sas.com/rnd/base/data...umentation.pdf les prévoit.

Est-ce que quelqu'un saurait débrouiller ces questions.

[edward carnby]

Bonjour,

Il y a un moment que je n'en ai pas fait ... alors en vrac :
* pour centrer les valeurs, utilise just= et vjust= dans ton ods region plutot que dans ton format_text
* Pour les bordures, de mémoire j'avais contourné le problème en déclarant TOUTES les bordures (top, left, bottom et right) dans l'overrides, chacune avec les 3 options style, color, width.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
options leftmargin = 2 cm;
ods listing close;
ods pdf file="D:\Temporaire\Temp.pdf";
ods escapechar="^";
proc sort data=sashelp.class out=Temp; by Age Sex; run;
data _null_;
   set Temp end=FinTable;
   by Age Sex;
   if _n_ eq 1 then declare odsout Obj(); 
   SexName=ifc(Sex eq 'F','Féminin', 'Masculin');
   if first.Age then do;
      Obj.page();
      Obj.format_text(data:'Âge : ' !! Age !! ' ans', overrides:"font_size=5", just:'c');
   end;
   if first.Sex then Obj.format_text(data:'Sexe : ' !! SexName, overrides:"foreground=black font_weight=bold");
   Obj.layout_gridded(columns:2, rows:2, overrides:"borderwidth=3 bordercolor=green vjust=middle");
   Obj.region(row:1, column_span:2, height:"2cm", overrides:"background=cx494068 just=c vjust=middle");
   Obj.format_text(data:Name, overrides:"foreground=white");
   Obj.region(row:2, column:1, width:"5cm", overrides:"background=cx9abcde");
   Obj.format_text(data:Height, overrides:"foreground=red");
   Obj.region(row:2, column:2, width:"10cm", overrides:"background=cx987214 
									bordertopstyle=solid bordertopcolor=red bordertopwidth=1px
									borderbottomstyle=solid borderbottomcolor=red borderbottomwidth=1px
									borderleftstyle=solid borderleftcolor=red borderleftwidth=1px
									borderrightstyle=solid borderrightcolor=red borderrightwidth=1px");
   Obj.format_text(data:weight);
   Obj.layout_end();
run;
ods pdf close;
ods listing;
title;

Essaye déjà ces solutions (je ne suis pas en 9.3) et tiens nous au courant.

Bon courage !

[enicnath]

* pour centrer les valeurs, utilise just= et vjust= dans ton ods region plutot que dans ton format_text
* Pour les bordures, de mémoire j'avais contourné le problème en déclarant TOUTES les bordures (top, left, bottom et right) dans l'overrides, chacune avec les 3 options style, color, width.

Bon, on progresse quand même. C'est Ok pour les bordures, mais je vois que chez toi non plus, la justification des textes semble ne pas fonctionner...
C'est pourtant assez important ; on a toujours besoin de régler ça. N'y a-t-il pas quelqu'un de chez SAS France qui pourrait nous rencarder ?

[mohamed_]

Bonjour,

Pour aligner le texte à gauche tu peux essayer l'attribut textalign = left ou right ou center

Obj.format_text(data:Name, overrides:"foreground=white TEXTALIGN=LEFT ");

[enicnath]

Pour aligner le texte à gauche tu peux essayer l'attribut textalign = left ou right ou center

Obj.format_text(data:Name, overrides:"foreground=white TEXTALIGN=LEFT ");

Ah non, chez moi ça ne fonctionne pas mieux.
Mon texte reste aligné à gauche, quelque soit l'option que je lui met.
Dommage !

[mohamed_]

Bonjour,

en agissant au niveau de la région ça devrait fonctionner

Obj.region(row:1, column_span:2, height:"2cm", overrides:"background=cx494068 vjust=middle textalign = left");
Obj.format_text(data:Name, overrides:"foreground=white");

[enicnath]

en agissant au niveau de la région ça devrait fonctionner
Obj.region(row:1, column_span:2, height:"2cm", overrides:"background=cx494068 vjust=middle textalign = left");
Obj.format_text(data:Name, overrides:"foreground=white");

Comme tu vois, je reproduis exactement ta proposition (lignes 17 & 18) ; mais toujours aucun effet chez moi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
options leftmargin = 2 cm;
ods listing close;
ods pdf file="D:\Temp\Temp.pdf";
ods escapechar="^";
proc sort data=sashelp.class out=Temp; by Age Sex; run;
data _null_;
   set Temp end=FinTable;
   by Age Sex;
   if _n_ eq 1 then declare odsout Obj(); 
   SexName=ifc(Sex eq 'F','Féminin', 'Masculin');
   if first.Age then do;
      Obj.page();
      Obj.format_text(data:'Âge : ' !! Age !! ' ans', overrides:"font_size=5", just:'c');
   end;
   if first.Sex then Obj.format_text(data:'Sexe : ' !! SexName, overrides:"foreground=black font_weight=bold");
   Obj.layout_gridded(columns:2, rows:2, overrides:"borderwidth=3 bordercolor=green vjust=middle");
   Obj.region(row:1, column_span:2, height:"2cm", overrides:"background=cx494068 vjust=middle textalign=left");
   Obj.format_text(data:Name, overrides:"foreground=white");
   Obj.region(row:2, column:1, width:"5cm", overrides:"background=cx9abcde");
   Obj.format_text(data:Height, overrides:"foreground=red");
   Obj.region(row:2, column:2, width:"10cm", overrides:"background=cx987214 bordercolor=red");
   Obj.format_text(data:weight);
   Obj.layout_end();
run;
ods pdf close;
ods listing;
title;

Peut-être y a-t-il un paramétrage d'installation qui fait fonctionner ce code sur un poste et non sur un autre ?
Tant pis, je crois que je vais abandonner ce genre de bidouilles !
En tout cas merci

[m.brahim]

Bonjour,

Je te propose ces solutions:

1/

je voudrais que les noms des personnes (variable NAME) soient centrés verticalement.

:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
options leftmargin = 2 cm;
ods listing close;
ods pdf file="c:\sas\Temp.pdf";
ods escapechar="^";
proc sort data=sashelp.class out=Temp; by Age Sex; run;
data _null_;
   set Temp end=FinTable;
   by Age Sex;
   if _n_ eq 1 then declare odsout Obj(); 
   SexName=ifc(Sex eq 'F','Féminin', 'Masculin');
   if first.Age then do;
      Obj.page();
      Obj.format_text(data:'Âge : ' !! Age !! ' ans', overrides:"font_size=5", just:'c');
   end;
   if first.Sex then Obj.format_text(data:'Sexe : ' !! SexName, overrides:"foreground=black font_weight=bold");
   Obj.layout_gridded(rows:1,overrides:" bordercolor=green ");
   Obj.region(row:1, width:"-5cm", overrides:"background=cx9abcde");
   Obj.format_text(data:Name, overrides:"foreground=black font_weight=bold ");
   Obj.layout_end();
   Obj.layout_gridded(rows:1, columns:2,overrides:"borderwidth=3 bordercolor=green ");
   Obj.region(row:1, column:1, width:"5cm", overrides:"background=cx9abcde");
   Obj.format_text(data:Height, overrides:"foreground=red");
   Obj.region(row:1, column:2, width:"10cm", overrides:"background=cx987214 bordercolor=red");
   Obj.format_text(data:weight);
   Obj.layout_end();
run;
ods pdf close;
ods listing;
title;

2/

2) je souhaiterais aussi que les noms des personnes soient justifiées à gauche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
options leftmargin = 2 cm;
ods listing close;
ods pdf file="c:\sas\Temp.pdf";
ods escapechar="^";
proc sort data=sashelp.class out=Temp; by Age Sex; run;
data _null_;
   set Temp end=FinTable;
   by Age Sex;
   if _n_ eq 1 then declare odsout Obj(); 
   SexName=ifc(Sex eq 'F','Féminin', 'Masculin');
   if first.Age then do;
      Obj.page();
      Obj.format_text(data:'Âge : ' !! Age !! ' ans', overrides:"font_size=5", just:'c');
   end;
   if first.Sex then 
   Obj.format_text(data:'Sexe : ' !! SexName, overrides:"foreground=black font_weight=bold");
   Obj.format_text(data:name, overrides:"foreground=black font_weight=bold");
 
   Obj.layout_gridded(rows:1,columns:2, overrides:"borderwidth=3 bordercolor=green vjust=middle");
   Obj.region(row:1, column:1, width:"5cm", overrides:"background=cx9abcde");
   Obj.format_text(data:Height, overrides:"foreground=red");
   Obj.region(row:1, column:2, width:"10cm", overrides:"background=cx987214 bordercolor=red");
   Obj.format_text(data:weight);
   Obj.layout_end();
run;
ods pdf close;
ods listing;
title;

Cordialement

[enicnath]

Merci pour ces réponses.
PS. Finalement, le code nécessaire pour faire ce qu'on veut avec ODSOUT est bien compliqué, pour ne pas dire dissuasif.