#=h1 -------------------------------------------------------
#    DEFAULT_getaction
#        => bla bla
#        => blubber di blub
#=cut ------------------------------------------------------
sub DEFAULT_getaction{
    my( $cmd, $sth, @row , $jahrpr ) ;
    # ...