$tmp_string="SARSTATS$SAROPT";
       $rec=$$tmp_string[$SAR_DATA_START]{ $tmp_array[0] };
       $rec->{device}=$tmp_array[0];
       push (@{$rec->{date}},   $date_time);
       push (@{$rec->{busy}},   $tmp_array[1]);