<perl>
########################################################
##   Kopieren von Statistikdaten  (Auflösung)         ##
##      SK_STAT -> SK_STAT6                           ##
########################################################

$gv_targetfile = "sk_stat6";

while (get_next("$gv_sourcefile"))
   {
    get "s6_screen==$st_screenw","$gv_targetfile";    # Prüfen, ob vorhanden
    if ($s6_screen eq $st_screenw)
       {
        # Eintrag existiert schon + Zähler um 1 erhöht
        $work_count = $s6_count+1;
        mod "Id==$_id", [ "s6_count", "$work_count" ],
        "$gv_targetfile";
       }
     else
       {
        # Eintrag wird hinzugefügt + Zähler auf 1 gesetzt
        $s6_count=1;
        put [ "s6_screen", "$st_screenw",
              "s6_count", $s6_count ],
        "$gv_targetfile";
       }
   }
out "Laufzeit: ".runtime;