abscence de PDF

[asty69]

Bonjour

j ai un code qui permet, via des appelles à différentes macros, de caculer different statistique selon les conditions initiales.
Le problemes est selon le type de calcul realisé a certain moment je n ai pas de sorti PDF.

j ai un message me disant grosso modo que SAS ne peut pas founir le PDF

voila le code de sorti

Code :

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
/* REPORT */
/*--------*/
/* TITLES */
title;
Title1 height=2.5 &title1   ;
Title3 height=2 &title3 ;
 
 
OPTION nonumber;
DATA Power_Strat_result;
	length descript1 descript2 $80 Gras $1 typ $10;
	/* Parameters */
	typ="PARAMETERS";descript1="&h0 ";		descript2="";	Gras="P"; output;
	typ="PARAMETERS";descript1="&h1 ";		descript2="";	Gras="P"; output;
	typ="PARAMETERS";descript1= "alpha";   	descript2="&alpha";	Gras="P"; output;
 
 
	%IF &power="DIFF" %then %do; 
		typ="PARAMETERS";descript1=  "&where ";	descript2="&nulldel";	Gras="P"; output;
		typ="PARAMETERS";descript1=  "Sample per group n";	descript2=  "&n"; 	Gras="P"; output;
		typ="PARAMETERS";descript1=  "Total sample";	descript2=  "&param2"; 	Gras="P"; output;
		typ="PARAMETERS";descript1=  "Proportion of sample in strate 1  f1";descript2=  "&f1"; 	Gras="P"; output;
		typ="PARAMETERS";descript1=  "Strate 1 &_indent&_indent&_indent&_indent Strate 2";descript2=  ""; 	Gras="Y"; output;
		typ="PARAMETERS";descript1=  "p1 = &p11 &_indent&_indent&_indent p1 = &p21";	descript2=  ""; 	Gras="P"; output;
		typ="PARAMETERS";descript1=  "p2 = &p10 &_indent&_indent&_indent p2 = &p20";	descript2=  ""; 	Gras="P"; output;
	%end;
 
	%IF &power="RATIO" %then %do;  
		typ="PARAMETERS";descript1=  "&where ";	descript2="";	Gras="P"; output;
		typ="PARAMETERS";descript1=  "RRT";	descript2="&RRT";	 Gras="P"; output;
		typ="PARAMETERS";descript1=  "R0";	descript2="&RR0";	 Gras="P"; output;
		%do i=1 %TO &nstrata;
			typ="PARAMETERS";descript1="Strate &i  p1 = p0s&i &_indent&_indent p2 = p1s&i"; Gras="P"; output;
			typ="PARAMETERS";descript1="&_indent&_indent&_indent&_indent  n1 = n0s&i &_indent&_indent n2 = n1s&i"; Gras="P"; output;
		%end;
	%end;
	%IF &power="EFF" %then %do;  
		typ="PARAMETERS";descript1=  "&where ";	descript2="";	Gras="P"; output;
		typ="PARAMETERS";descript1=  "VET";	descript2="&TEVET";	 Gras="P"; output;
		typ="PARAMETERS";descript1=  "VE0";	descript2="&TEVE0";	 Gras="P"; output;
		%do i=1 %TO &nstrata;
			typ="PARAMETERS";descript1="Strate &i  p1 = p0s&i &_indent&_indent p2 = p1s&i"; Gras="P"; output;
			typ="PARAMETERS";descript1="&_indent&_indent&_indent&_indent  n1 = n0s&i &_indent&_indent n2 = n1s&i"; Gras="P"; output;
		%end;
	%end;
 
 
	/* Results */
 
	typ="RESULTS";descript1 = "&simul";	descript2="";	Gras="P"; output;
	typ="RESULTS";descript1 = "&meth "; 	descript2="&pow";	 Gras="Y"; output;
 
	%IF &power="DIFF" %then %do; 
		%do i=1 %TO 6;
			typ="RESULTS";descript1="&&meth&i"; descript2="&&result&i"; Gras="N"; output;
		%end;
	%end;
	%IF &power="RATIO" OR &power="EFF" %then %do; 
		%do i=1 %TO 9;
			typ="RESULTS";descript1="&&meth&i"; descript2="&&result&i"; Gras="N"; output;
		%end;
	%end;
run;
 
 
 
 
 
 
Footnote1 "&__Calculation"; 
Footnote2 "&__version   "; 
 
ods listing close;
 
OPTION center;
DATA _null_;
call symput("file_Power_strat",compbl(pathname("Work")!!"\Power_Strat_result.pdf"));
run;
 
ods pdf file="&file_Power_strat";
 
	proc report DATA=Power_Strat_result nowd split='@';
	COLUMN typ gras descript1 descript2;
 
	define typ / NOPRINT ORDER ;
	define gras / NOPRINT ;
 
	define descript1/display "" center style(COLUMN)={cellwidth=16 cm};	
 	define descript2/display "" center style(COLUMN)={cellwidth=4 cm};	
 
	compute gras;
	IF Gras="Y" then do;
		call define(_ROW_,"STYLE","style(CALLDEF)= 
                    {Background=CXD4E4FF font_weight=bold font_size=6}"); 
    end;
	else IF Gras="T" then do;
		call define(_ROW_,"STYLE","style(CALLDEF)= 
                    {Background=#9aadc7 font_weight=bold font_size=8}"); 
    end;
	else IF Gras="P" then do;
		call define(_ROW_,"STYLE","style(CALLDEF)= 
                    {Background=white font_weight=bold font_size=5}"); 
    end;
	else IF Gras="N" then do;
		call define(_ROW_,"STYLE","style(CALLDEF)= 
                    {Background=white font_size=5}"); 
    end;
	endcomp;
 
	compute before typ /  style=[Background=#9aadc7 font_weight=bold font_size=8];
		line typ $10.;
	endcomp;
 
	BREAK after typ / ol;
 
run;
 
ods pdf close;
 
ods listing;