sub ausgabe()
{
              printf $ausgabedatei "ID:";
               printf $ausgabedatei '%30s',"@stat[0]\n";

              printf $ausgabedatei "Vorgangsart:";
               printf $ausgabedatei '%30s',"@stat[1]";
               printf $ausgabedatei '%25s',"@ausgabe[0]\n";

               printf $ausgabedatei "Landesdirekt:";
               printf $ausgabedatei '%25s',"@stat[2]";
               printf $ausgabedatei '%25s',"@ausgabe[1]\n";

               printf $ausgabedatei "VNR:";
               printf $ausgabedatei '%25s',"@stat[3]";
               printf $ausgabedatei '%25s',"@ausgabe[2]\n";

               printf $ausgabedatei "Schadensjahr:";
               printf $ausgabedatei '%25s',"@stat[4]";
               printf $ausgabedatei '%25s',"@ausgabe[3]\n";

               printf $ausgabedatei "SNR:";
               printf $ausgabedatei '%25s',"@stat[5]";
               printf $ausgabedatei '%25s',"@ausgabe[4]\n\n";   c

              print $ausgabedatei "__________________________________________________________________\n\n";
}