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"; }