SASUnit Examples  Version 1.5.0
_reporthomehtml.sas
Go to the documentation of this file.
1 
24 %MACRO _reportHomeHTML (i_repdata =
25  ,o_html = 0
26  ,o_path =
27  ,o_file =
28  );
29 
30 %LOCAL i
31  HTML_Reference
32  Reference
33  l_title
34  l_footnote
35  l_scn_failed
36  l_cas_failed
37  l_tst_failed
38  ;
39 
40  %LET Reference=%nrbquote(^{style [url="http://sourceforge.net/projects/sasunit/" postimage="SASUnit_Logo.png"]SASUnit});
41  %*** because in HTML we want to open the link to SASUnit in a new window, ***;
42  %*** we need to insert raw HTML ***;
43  %LET HTML_Reference=%nrbquote(<a href="http://sourceforge.net/projects/sasunit/" class="link" title="SASUnit" target="_blank">SASUnit <img src="SASUnit_Logo.png" alt="SASUnit" title="SASUnit" width=26px height=26px align="top" border="0"></a>);
44 
45  %let l_scn_failed=0;
46  %let l_cas_failed=0;
47  %let l_tst_failed=0;
48 
49  proc sql noprint;
50  select count (distinct scn_id) into :l_scn_failed from &i_repdata. where scn_res=2;
51  select sum (cas_cnt) into :l_cas_failed from
52  (select count (distinct cas_id) as cas_cnt from &i_repdata. where cas_res=2 group by scn_id);
53  select sum (tst_cnt) into :l_tst_failed from
54  (select count (distinct tst_id) as tst_cnt from &i_repdata. where tst_res=2 group by scn_id, cas_id);
55  quit;
56 
57  proc format lib=work;
58  value $headline
59  "PROJECT" ="&g_nls_reportHome_024."
60  "SASUnit" ="&g_nls_reportHome_025."
61  "SAS_Session"="&g_nls_reportHome_026."
62  ;
63  value YESNO
64  0 = "&g_nls_reportHome_028."
65  1 = "&g_nls_reportHome_027."
66  ;
67  run;
68 
69  DATA work._home_report;
70  SET &i_repdata.;
71 
72  length Category $20 idColumn parameterColumn valueColumn $4000;
73 
74  IF _n_=1 THEN DO;
75  idColumn = "&g_nls_reportHome_003.";
76  parameterColumn="^{style [flyover=""&g_project.""]%str(&)amp;g_project}";
77  valueColumn=tsu_project;
78  Category="PROJECT";
79  output;
80  idColumn = "&g_nls_reportHome_004.";
81  parameterColumn="^{style [flyover=""&g_root.""]%str(&)amp;g_root}";
82  valueColumn=catt ("^{style [flyover=""&g_root."" url=""file:
83  Category="PROJECT";
84  output;
85  idColumn = "&g_nls_reportHome_005.";
86  parameterColumn="^{style [flyover=""&g_target.""]%str(&)amp;g_target}";
87  valueColumn=catt ("^{style [flyover=""&g_target."" url=""file:///&g_target.""]", tsu_target, "}");
88  Category="PROJECT";
89  output;
90  if (tsu_sasautos ne "") then do;
91  idColumn = "&g_nls_reportHome_006.";
92  parameterColumn="^{style [flyover=""&g_sasautos.""]%str(&)amp;g_sasautos}";
93  valueColumn=catt ("^{style [flyover=""&g_sasautos."" url=""file:///&g_sasautos.""]", tsu_sasautos, "}");
94  %DO i=1 %TO 9;
95  if (tsu_sasautos&i. ne "") then do;
96  parameterColumn=catt(parameterColumn,"^n","^{style [flyover=""&&g_sasautos&i.""]%str(&)amp;g_sasautos&i.}");
97  valueColumn=catt (valueColumn,"^n","^{style [flyover=""&&g_sasautos&i."" url=""file:///&&g_sasautos&i.""]", tsu_sasautos&i., "}");
98  end;
99  %END;
100  Category="PROJECT";
101  output;
102  end;
103  if (tsu_autoexec ne "") then do;
104  idColumn = "&g_nls_reportHome_007.";
105  parameterColumn="^{style [flyover=""&g_autoexec.""]%str(&)amp;g_autoexec}";
106  valueColumn=catt ("^{style [flyover=""&g_autoexec."" url=""file:///&g_autoexec.""]", tsu_autoexec, "}");
107  Category="SAS_Session";
108  output;
109  end;
110  if (tsu_sascfg ne "") then do;
111  idColumn = "&g_nls_reportHome_008.";
112  parameterColumn="^{style [flyover=""&g_sascfg.""]%str(&)amp;g_sascfg}";
113  valueColumn=catt ("^{style [flyover=""&g_sascfg."" url=""file:///&g_sascfg.""]", tsu_sascfg, "}");
114  Category="SAS_Session";
115  output;
116  end;
117  if (tsu_sasuser ne "") then do;
118  idColumn = "&g_nls_reportHome_009.";
119  parameterColumn="^{style [flyover=""&g_sasuser.""]%str(&)amp;g_sasuser}";
120  valueColumn=catt ("^{style [flyover=""&g_sasuser."" url=""file:///&g_sasuser.""]", tsu_sasuser, "}");
121  Category="SAS_Session";
122  output;
123  end;
124  if (tsu_testdata ne "") then do;
125  idColumn = "&g_nls_reportHome_010.";
126  parameterColumn="^{style [flyover=""&g_testdata.""]%str(&)amp;g_testdata}";
127  valueColumn=catt ("^{style [flyover=""&g_testdata."" url=""file:///&g_testdata.""]", tsu_testdata, "}");
128  Category="PROJECT";
129  output;
130  end;
131  if (tsu_refdata ne "") then do;
132  idColumn = "&g_nls_reportHome_011.";
133  parameterColumn="^{style [flyover=""&g_refdata.""]%str(&)amp;g_refdata}";
134  valueColumn=catt ("^{style [flyover=""&g_refdata."" url=""file:///&g_refdata.""]", tsu_refdata, "}");
135  Category="PROJECT";
136  output;
137  end;
138  if (tsu_doc ne "") then do;
139  idColumn = "&g_nls_reportHome_012.";
140  parameterColumn="^{style [flyover=""&g_doc.""]%str(&)amp;g_doc}";
141  valueColumn=catt ("^{style [flyover=""&g_doc."" url=""file:///&g_doc.""]", tsu_doc, "}");
142  Category="PROJECT";
143  output;
144  end;
145  idColumn = "&g_nls_reportHome_013.";
146  parameterColumn="^{style [flyover=""&g_sasunit.""]%str(&)amp;g_sasunit}^n^{style [flyover=""&g_sasunit_os.""]%str(&)amp;g_sasunit_os}";
147  valueColumn=catt ("^{style [flyover=""%trim(&g_sasunit.)"" url=""file:///%trim(&g_sasunit.)""]", tsu_sasunit, "}"
148  ,"^n"
149  ,"^{style [flyover=""%trim(&g_sasunit_os.)"" url=""file:///%trim(&g_sasunit_os.)""]", tsu_sasunit_os, "}");
150  Category="SASUnit";
151  output;
152  if getoption("LOG") ne "" then do;
153  idColumn = "&g_nls_reportHome_014.";
154  parameterColumn="^_";
155  valueColumn=catt ('^{style [flyover="', getoption("LOG"), '" url="', "file:
156  Category="SASUnit";
157  output;
158  end;
159  if (tsu_dbVersion ne "") then do;
160  idColumn = "&g_nls_reportHome_022.";
161  parameterColumn="^_";
162  valueColumn=tsu_dbVersion;
163  Category="SASUnit";
164  output;
165  end;
166  idColumn = "&g_nls_reportHome_015.";
167  parameterColumn='&SYSSCP^n&SYSSCPL';
168  valueColumn="&SYSSCP.^n&SYSSCPL.";
169  Category="SAS_Session";
170  output;
171  idColumn = "&g_nls_reportHome_019.";
172  parameterColumn='&SYSVLONG4';
173  valueColumn="&SYSVLONG4.";
174  Category="SAS_Session";
175  output;
176  idColumn = "&g_nls_reportHome_023.";
177  parameterColumn='&SYSENCODING';
178  valueColumn="&SYSENCODING.";
179  Category="SAS_Session";
180  output;
181  idColumn = "&g_nls_reportHome_020.";
182  parameterColumn='&SYSUSERID';
183  valueColumn="&SYSUSERID.";
184  Category="SAS_Session";
185  output;
186  idColumn = "&g_nls_reportHome_021.";
187  parameterColumn="SASUNIT_LANGUAGE";
188  valueColumn="%sysget(SASUNIT_LANGUAGE)";
189  Category="SASUnit";
190  output;
191  idColumn = "&g_nls_reportHome_033.";
192  parameterColumn='&g_rep_encoding.';
193  valueColumn="&g_rep_encoding.";
194  Category="SASUnit";
195  output;
196  idColumn = "&g_nls_reportHome_029.";
197  parameterColumn="SASUNIT_COVERAGEASSESSMENT";
198  valueColumn=put (%sysget(SASUNIT_COVERAGEASSESSMENT), YESNO.);
199  Category="SASUnit";
200  output;
201  idColumn = "&g_nls_reportHome_030.";
202  parameterColumn="SASUNIT_OVERWRITE";
203  valueColumn=put (%sysget(SASUNIT_OVERWRITE), YESNO.);
204  Category="SASUnit";
205  output;
206  idColumn = "&g_nls_reportHome_031.";
207  parameterColumn='&g_crossref';
208  valueColumn=put (&g_crossref., YESNO.);
209  Category="SASUnit";
210  output;
211  idColumn = "&g_nls_reportHome_032.";
212  parameterColumn='&g_crossrefsasunit';
213  valueColumn=put (&g_crossrefsasunit., YESNO.);
214  Category="SASUnit";
215  output;
216  idColumn = "&g_nls_reportHome_016.";
217  parameterColumn="^_";
218  valueColumn="%_nobs(target.scn) (%cmpres(&l_scn_failed.))";
219  Category="SASUnit";
220  output;
221  idColumn = "&g_nls_reportHome_017.";
222  parameterColumn="^_";
223  valueColumn="%_nobs(target.cas) (%cmpres(&l_cas_failed.))";
224  Category="SASUnit";
225  output;
226  idColumn = "&g_nls_reportHome_018.";
227  parameterColumn="^_";
228  valueColumn="%_nobs(target.tst) (%cmpres(&l_tst_failed.))";
229  Category="SASUnit";
230  output;
231  END;
232  run;
233 
234  %let l_title =%str(&g_project | &Reference. &g_nls_reportHome_001.);
235  title j=c %sysfunc(quote(&l_title.));
236 
237  %_reportFooter(o_html=&o_html.);
238 
239  options nocenter;
240 
241  %if (&o_html.) %then %do;
242  %*** because in HTML we want to open the link to SASUnit in a new window, ***;
243  %*** we need to insert raw HTML ***;
244  %let l_title=%str(&g_project | &HTML_Reference. &g_nls_reportHome_001.);
245  title j=c "^{RAW &l_title.}";
246 
247  ods html4 file="&o_path./&o_file..html"
248  (TITLE="&l_title.")
249  headtext='<link rel="shortcut icon" href="./favicon.ico" type="image/x-icon" />'
250  metatext="http-equiv=""Content-Style-Type"" content=""text/css"" /><meta http-equiv=""Content-Language"" content=""&i_language."" /"
251  style=styles.SASUnit stylesheet=(URL="css/SAS_SASUnit.css")
252  encoding="&g_rep_encoding.";
253  %_reportPageTopHTML(
254  i_title = %str(&g_project | &g_nls_reportHome_001.);
255  ,i_current = 1
256  )
257  %end;
258 
259  proc report data=work._home_report nowd missing
260  style(header)=blindHeader
261  ;
262 
263  columns Category idColumn parameterColumn valueColumn;
264 
265  define Category / group noprint;
266  define idColumn / display style(Column)=rowheader;
267 
268  compute before Category / style=header;
269  line Category $headline.;
270  endcomp;
271  compute before / style=blindData;
272  line @1 "&g_nls_reportHome_002.";
273  endcomp;
274  run;
275 
276  %if (&o_html.) %then %do;
277  %_closeHtmlPage;
278  %end;
279 
280  proc delete data=work._home_report;
281  run;
282 
283  %*** Reset title and footnotes ***;
284  title;
285  footnote;
286 
287  options center;
288 %MEND _reportHomeHTML;