das Logo meiner Dienststelle
Tabelle der möglichen Variablen, bitte aus angepasstem Report entfenen
$aggGKZaggGKZSpaltennummer reftyp für Aggregation
$differenzierungdifferenzierungUntersuchungsgebiet, Gebiet, Typ Binnenwanderung, ...
$typtypGebietskennzeichen/Typnummer
$ftypftypGebietskennzeichen/Typnummer mit führender Null
$gglaufende Nummer Gebiet/Typ (ab 0)
$gnamegnameGebietsname bei Differenzierung Gebiet, sonst leer
$startjahrstartjahrStarjahr Prognose
$endjahrendjahrEndjahr Prognose
$tabtablaufende Tabellennummer
$abbabblaufende Abbildungsnummer

Bevölkerungsprognose $differenzierung $ftyp$gname

Die Jahreszahlen der Bestände beziehen sich jeweils auf den 31.12.

${\tab1($g, 0, 'fein', 0, sprintf('Tab. %d: Insgesamt nach Altersgruppen', ++$tab), 1)}
${\tab1($g, 1, 'fein', 2, sprintf('Tab. %d: Insgesamt nach Altersgruppen in Prozent', ++$tab), 1)}

gleicher Tabellentyp, andere Parameter

${\tab1($g, 0, 'superfein', -2, sprintf('Tab. %d: Absolut', ++$tab), 1)}
${\tab1($g, 1, 'superfein', 2, sprintf('Tab. %d: In Prozent', ++$tab), 1)}

Abb. ${\++$abb}: Altersstruktur Jahr $startjahr und $endjahr im Vergleich

${\pyramid($g, 'Pyramide %unit% %key1%, Jahr %year1% Summe %sum1.0%, Jahr %year2% Summe %sum2.0%', [600, 800], 'A', 1)} ${\pyramid($g, 'Pyramide %unit% %key1%, Jahr %year1% - %year2%', [800, 1100], 'B', 1)}
${\#
# Geschlechtspezifische Tabelle und Linienplot
do{
    my @ak = qw(fein superfein); # Altersklassen aus report.csv
    my $yrange = ''; # Y-Wertebereich Linienplot ('70:120', '*:*', '')
    my $dabs  = 0;   # Nachkommastellen Anzahl (-3: in Tausend)
    my $dproz = 4;   # Nachkommastellen Prozent
    my $t1 = 'Tab. %d: Veränderung der Bevölkerung von Jahr %d bis Jahr %d nach Geschlecht und Altersgruppen %s';
    my $t2 = "Bevölkerungsprognose $differenzierung $ftyp$gname";
    my $t3 = "Abb. %d: Entwicklung der Altersgruppen von Tab. %d jeweils für";
    my $size  = [800, 350]; # Größe 600..800, 300..370
    my $style = 'lines';    # 'lines' oder 'linespoints'
    my $grid  = 0;          # Gitter 0=nein, 1=ja
    my $key   = 'outside right top'; # 'left top' oder 'outside right top'
    my $r; # berechnete Tabellen und Plots
    # Tabelle und Linienplots für die Altersklassen @ak
    # digstr(-3) : ' in 1000'
    # digstr( 2) : ''
    foreach my $a (@ak) {
        $r .= calcgg   ($g, $a, 1);  # aggregiere Altersklasse
        $r .= tab2     ($page, $g, $a, $dabs, $dproz, sprintf($t1, ++$tab, $startjahr, $endjahr, digstr($dabs)), 1); # Ausgabe Tabelle
        $r .= lineplot ($page, $g, $a, $yrange, $t2, sprintf($t3, ++$abb, $tab), $size, $style, $grid, $key, 1); # Ausgabe Linienplot
    }
    $r;
}
#
}
${\indikatorDebug($page, $g, sprintf('Tab. %d: Debugausgabe Aggregate für die Indikatoren', ++$tab), 1)}
${\indikator($page, $g, 6, sprintf('Tab. %d: Indikatoren', ++$tab), 1)}