SASUnit Examples  Version 1.2
_sasunit_reporthomehtml.sas
Go to the documentation of this file.
1 
20 /* change log
21  07.01.2013 BB Open link zu sourceforge in new tab
22  Added class="link" to sourceforge link
23  18.08.2008 AM Added national language support
24  29.12.2007 AM Ampersands kodiert, minimale Textänderung
25 */
26 
27 %MACRO _sasunit_reportHomeHTML (
28  i_repdata =
29  ,o_html =
30 );
31 
32 %LOCAL i
33  HTML_Reference;
34 
35 %LET HTML_Reference=%nrbquote(<a href="http://sourceforge.net/projects/sasunit/" class="link" target="_blank">SASUnit <img src="SASUnit_Logo.png" alt="SASUnit" width=30px height=30px align="top" border="0"></a>);
36 
37 DATA _null_;
38  SET &i_repdata;
39  FILE "&o_html" LRECL=400;
40 
41  IF _n_=1 THEN DO;
42 
43  %_sasunit_reportPageTopHTML(
44  i_title = %str(&g_project. - &HTML_Reference. &g_nls_reportHome_001.)
45  ,i_current = 1
46  )
47 
48  PUT "&g_nls_reportHome_002";
49  PUT '<table>';
50 
51  PUT '<tr>';
52  PUT '<td class="idcolumn">' "&g_nls_reportHome_003</td>";
53  PUT '<td class="datacolumn"><span title="' "&g_project" '">&amp;g_project</span></td>';
54  PUT '<td class="datacolumn">' tsu_project +(-1) '</td>';
55  PUT '</tr>';
56 
57  PUT '<tr>';
58  PUT '<td class="idcolumn">' "&g_nls_reportHome_004</td>";
59  PUT '<td class="datacolumn"><span title="' "&g_root" '">&amp;g_root</span></td>';
60  PUT '<td class="datacolumn"><a class="link" target=_blank title="' "&g_root" '" href="file://' tsu_root +(-1) '">' tsu_root +(-1) '</a></td>';
61  PUT '</tr>';
62 
63  PUT '<tr>';
64  PUT '<td class="idcolumn">' "&g_nls_reportHome_005</td>";
65  PUT '<td class="datacolumn"><span title="' "&g_target" '">&amp;g_target</span></td>';
66  PUT '<td class="datacolumn"><a class="link" target=_blank title="' "&g_target" '" href="file://' "&g_target" '">' tsu_target +(-1) '</a></td>';
67  PUT '</tr>';
68 
69  PUT '<tr>';
70  PUT '<td class="idcolumn">' "&g_nls_reportHome_006</td>";
71  PUT '<td class="datacolumn">';
72  %IF "&g_sasautos" NE "" %THEN %DO;
73  PUT '<div title="' "&g_sasautos" '">&amp;g_sasautos</div>';
74  %END;
75  %DO i=1 %TO 9;
76  %IF "&&g_sasautos&i" NE "" %THEN %DO;
77  PUT '<div title="' "&&g_sasautos&i" '">&amp;g_sasautos' "&i" '</div>';
78  %END;
79  %END;
80  PUT '</td>';
81  PUT '<td class="datacolumn">';
82  %IF "&g_sasautos" NE "" %THEN %DO;
83  PUT '<div><a class="link" target=_blank title="' "&g_sasautos" '" href="file://' "&g_sasautos" '">' tsu_sasautos +(-1) '</a></div>';
84  %END;
85  %DO i=1 %TO 9;
86  %IF "&&g_sasautos&i" NE "" %THEN %DO;
87  PUT '<div><a class="link" target=_blank title="' "&&g_sasautos&i" '" href="file://' "&&g_sasautos&i" '">' tsu_sasautos&i +(-1) '</a></div>';
88  %END;
89  %END;
90  PUT '</td>';
91  PUT '</tr>';
92 
93  IF tsu_autoexec NE ' ' THEN DO;
94  PUT '<tr>';
95  PUT '<td class="idcolumn">' "&g_nls_reportHome_007</td>";
96  PUT '<td class="datacolumn"><span title="' "&g_autoexec" '">&amp;g_autoexec</span></td>';
97  PUT '<td class="datacolumn"><a class="link" target=_blank href="file://' "&g_autoexec" '">' tsu_autoexec +(-1) '</a></td>';
98  PUT '</tr>';
99  END;
100 
101  IF tsu_sascfg NE ' ' THEN DO;
102  PUT '<tr>';
103  PUT '<td class="idcolumn">' "&g_nls_reportHome_008</td>";
104  PUT '<td class="datacolumn"><span title="' "&g_sascfg" '">&amp;g_sascfg</span></td>';
105  PUT '<td class="datacolumn"><a class="link" target=_blank href="file://' "&g_sascfg" '">' tsu_sascfg +(-1) '</a></td>';
106  PUT '</tr>';
107  END;
108 
109  IF tsu_sasuser NE ' ' THEN DO;
110  PUT '<tr>';
111  PUT '<td class="idcolumn">' "&g_nls_reportHome_009</td>";
112  PUT '<td class="datacolumn"><span title="' "&g_sasuser" '">&amp;g_sascfg</span></td>';
113  PUT '<td class="datacolumn"><a class="link" target=_blank href="file://' "&g_sasuser" '">' tsu_sasuser +(-1) '</a></td>';
114  PUT '</tr>';
115  END;
116 
117  IF tsu_testdata NE ' ' THEN DO;
118  PUT '<tr>';
119  PUT '<td class="idcolumn">' "&g_nls_reportHome_010</td>";
120  PUT '<td class="datacolumn"><span title="' "&g_testdata" '">&amp;g_testdata</span></td>';
121  PUT '<td class="datacolumn"><a class="link" target=_blank title="' "&g_testdata" '" href="file://' "&g_testdata" '">' tsu_testdata +(-1) '</a></td>';
122  PUT '</tr>';
123  END;
124 
125  IF tsu_refdata NE ' ' THEN DO;
126  PUT '<tr>';
127  PUT '<td class="idcolumn">' "&g_nls_reportHome_011</td>";
128  PUT '<td class="datacolumn"><span title="' "&g_refdata" '">&amp;g_refdata</span></td>';
129  PUT '<td class="datacolumn"><a class="link" target=_blank title="' "&g_refdata" '" href="file://' "&g_refdata" '">' tsu_refdata +(-1) '</a></td>';
130  PUT '</tr>';
131  END;
132 
133  IF tsu_doc NE ' ' THEN DO;
134  PUT '<tr>';
135  PUT '<td class="idcolumn">' "&g_nls_reportHome_012</td>";
136  PUT '<td class="datacolumn"><span title="' "&g_doc" '">&amp;g_doc</span></td>';
137  PUT '<td class="datacolumn"><a class="link" target=_blank title="' "&g_doc" '" href="file://' "&g_doc" '">' tsu_doc +(-1) '</a></td>';
138  PUT '</tr>';
139  END;
140 
141  PUT '<tr>';
142  PUT '<td class="idcolumn">' "&g_nls_reportHome_013</td>";
143  PUT '<td class="datacolumn"><span title="' "&g_sasunit" '">&amp;g_sasunit</span></td>';
144  PUT '<td class="datacolumn"><a class="link" target=_blank title="' "&g_sasunit" '" href="file://' "&g_sasunit" '">' tsu_sasunit +(-1) '</a></td>';
145  PUT '</tr>';
146 
147  IF "%sysfunc(getoption(log))" NE " " THEN DO;
148  PUT '<tr>';
149  PUT '<td class="idcolumn">' "&g_nls_reportHome_014</td>";
150  PUT '<td class="datacolumn">&nbsp;</td>';
151  PUT '<td class="datacolumn"><a class="link" title="' "%sysfunc(getoption(log))" '" href="file://' "%sysfunc(getoption(log))" '">' "%_sasunit_stdPath (i_root=&g_root, i_path=%sysfunc(getoption(log)))" '</a></td>';
152  PUT '</tr>';
153  END;
154 
155  PUT '<tr>';
156  PUT '<td class="idcolumn">' "&g_nls_reportHome_015</td>";
157  PUT '<td class="datacolumn">&amp;SYSCPL</td>';
158  PUT '<td class="datacolumn">'"&SYSSCPL"'</td>';
159  PUT '</tr>';
160 
161  PUT '<tr>';
162  PUT '<td class="idcolumn">' "&g_nls_reportHome_019</td>";
163  PUT '<td class="datacolumn">&amp;SYSVLONG4</td>';
164  PUT '<td class="datacolumn">'"&SYSVLONG4"'</td>';
165  PUT '</tr>';
166 
167  PUT '<tr>';
168  PUT '<td class="idcolumn">' "&g_nls_reportHome_020</td>";
169  PUT '<td class="datacolumn">&amp;SYSUSERID</td>';
170  PUT '<td class="datacolumn">'"&SYSUSERID"'</td>';
171  PUT '</tr>';
172 
173  PUT '<tr>';
174  PUT '<td class="idcolumn">' "&g_nls_reportHome_021</td>";
175  PUT '<td class="datacolumn">SASUNIT_LANGUAGE</td>';
176  PUT '<td class="datacolumn">'"%sysget(SASUNIT_LANGUAGE)"'</td>';
177  PUT '</tr>';
178 
179  PUT '<tr>';
180  PUT '<td class="idcolumn">' "&g_nls_reportHome_016</td>";
181  PUT '<td class="datacolumn">&nbsp;</td>';
182  PUT '<td class="datacolumn">' "%_sasunit_nobs(target.scn)" '</td>';
183  PUT '</tr>';
184 
185  PUT '<tr>';
186  PUT '<td class="idcolumn">' "&g_nls_reportHome_017</td>";
187  PUT '<td class="datacolumn">&nbsp;</td>';
188  PUT '<td class="datacolumn">' "%_sasunit_nobs(target.cas)" '</td>';
189  PUT '</tr>';
190 
191  PUT '<tr>';
192  PUT '<td class="idcolumn">' "&g_nls_reportHome_018</td>";
193  PUT '<td class="datacolumn">&nbsp;</td>';
194  PUT '<td class="datacolumn">' "%_sasunit_nobs(target.tst)" '</td>';
195  PUT '</tr>';
196 
197  PUT '</table>';
198 
199  %_sasunit_reportFooterHTML()
200 
201  STOP;
202  END;
203 
204 RUN;
205 
206 %MEND _sasunit_reportHomeHTML;