SAS-kode som genererer Html-tabellene /*** Oppretter Libname ***/ libname wc 'u:\jgm\homepage\vestmarka';
/*** Oppretter Tabell ***/
data wc.score;
input Runde $ JanErik Petter Halvor Terje Maans PI Anton JohnG Cato ;
format Runde $2. JanErik commax3. Petter commax3. Halvor commax3. Terje commax3. Maans commax3. PI commax3. Anton commax3. Cato commax3. JohnG commax3. ;
label janerik='Jan Erik' maans ='Måns' JohnG ='John Gunnar' ; JanErik = left(JanErik); Petter = left(Petter ); Halvor = left(Halvor ); Terje = left(Terje ); Maans = left(Maans ); PI = left(PI ); Anton = left(Anton ); JohnG = left(JohnG ); Cato = left(Cato );
cards;
1 5 0 0 0 3 0 2 1 0
2 4 0 0 0 2 0 1 0 0 ;
run;
/*** Oppretter Tabell for totaler ***/
proc summary data=wc.score nway missing;
class ;
var JANERIK PETTER HALVOR TERJE MAANS PI ANTON JOHNG CATO;
output out=wc.total(drop=_freq_ _type_) sum=;
run;
/*** Legger på label ***/
data wc.total;
set wc.total;
tot='';
label tot='Totalt';
run;
title ' ';
/*** Oppretter Html tabell for totaler ***/
%let utfil='u:\jgm\homepage\vestmarka\resultater_tabell.htm';
%let tittel1=Totalt ;
%ds2htm(data=wc.total,caption=&tittel1, chalign=center, csize=2,ccolor=black, cface=Arial, iface=Arial, vface=Arial, clface=Arial, labels=Y, formats=Y, clbgcolr=#aaaaaa, clsize=2.0, isize=2.0, vsize=1.0, bgtype=color,id=tot, bg=#C0C0C0, tbbgcolr=#BCBCBC, ctext=black, vtag=strong, itag=strong, cltag=strong, ctag=strong, ibgcolr=#aaaaaa, icolor=blue, clcolor=blue, htmlfile=&utfil,runmode=s, septype=NONE , openmode=replace);
/*** Oppretter Html tabell med score for alle runder ***/
%let utfil='u:\jgm\homepage\vestmarka\resultater_tabell.htm'; %let tittel2=Etter 2 Runder ; %ds2htm(data=wc.score, caption=&tittel2 , chalign=center, csize=2,ccolor=black, cface=Arial, iface=Arial, vface=Arial, clface=Arial, labels=Y, formats=Y, clbgcolr=#aaaaaa, clsize=2.0, isize=2.0, vsize=1.0, bgtype=color,id=runde, bg=#C0C0C0, tbbgcolr=#BCBCBC, ctext=black, vtag=strong, itag=strong, cltag=strong, ctag=strong, ibgcolr=#aaaaaa, icolor=blue, clcolor=blue, htmlfile=&utfil,runmode=s, septype=NONE , openmode=append);