lib/SQL/Translator/Parser/DB2/Grammar.pm

   1 package SQL::Translator::Parser::DB2::Grammar;
   2 use Parse::RecDescent;
   3
   4 { my $ERRORS;
   5
   6
   7 package Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar;
   8 use strict;
   9 use vars qw($skip $AUTOLOAD  );
  10 $skip = '\s*';
  11
  12     my ( %tables, $table_order, @table_comments, @views, @triggers );
  13 ;
  14
  15
  16 {
  17 local $SIG{__WARN__} = sub {0};
  18 # PRETEND TO BE IN Parse::RecDescent NAMESPACE
  19 *Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::AUTOLOAD     = sub
  20 {
  21         no strict 'refs';
  22         $AUTOLOAD =~ s/^Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar/Parse::RecDescent/;
  23         goto &{$AUTOLOAD};
  24 }
  25 }
  26
  27 push @Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::ISA, 'Parse::RecDescent';
  28 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
  29 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_17_of_rule_sysibm_function
  30 {
  31         my $thisparser = $_[0];
  32         use vars q{$tracelevel};
  33         local $tracelevel = ($tracelevel||0)+1;
  34         $ERRORS = 0;
  35         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_17_of_rule_sysibm_function"};
  36
  37         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_17_of_rule_sysibm_function]},
  38                                   Parse::RecDescent::_tracefirst($_[1]),
  39                                   q{_alternation_1_of_production_17_of_rule_sysibm_function},
  40                                   $tracelevel)
  41                                         if defined $::RD_TRACE;
  42
  43
  44         my $err_at = @{$thisparser->{errors}};
  45
  46         my $score;
  47         my $score_return;
  48         my $_tok;
  49         my $return = undef;
  50         my $_matched=0;
  51         my $commit=0;
  52         my @item = ();
  53         my %item = ();
  54         my $repeating =  defined($_[2]) && $_[2];
  55         my $_noactions = defined($_[3]) && $_[3];
  56         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
  57         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
  58         my $text;
  59         my $lastsep="";
  60         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
  61         $expectation->at($_[1]);
  62
  63         my $thisline;
  64         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
  65
  66
  67
  68         while (!$_matched && !$commit)
  69         {
  70
  71                 Parse::RecDescent::_trace(q{Trying production: [/DECIMAL/i]},
  72                                           Parse::RecDescent::_tracefirst($_[1]),
  73                                           q{_alternation_1_of_production_17_of_rule_sysibm_function},
  74                                           $tracelevel)
  75                                                 if defined $::RD_TRACE;
  76                 my $thisprod = $thisrule->{"prods"}[0];
  77                 $text = $_[1];
  78                 my $_savetext;
  79                 @item = (q{_alternation_1_of_production_17_of_rule_sysibm_function});
  80                 %item = (__RULE__ => q{_alternation_1_of_production_17_of_rule_sysibm_function});
  81                 my $repcount = 0;
  82
  83
  84                 Parse::RecDescent::_trace(q{Trying terminal: [/DECIMAL/i]}, Parse::RecDescent::_tracefirst($text),
  85                                           q{_alternation_1_of_production_17_of_rule_sysibm_function},
  86                                           $tracelevel)
  87                                                 if defined $::RD_TRACE;
  88                 $lastsep = "";
  89                 $expectation->is(q{})->at($text);
  90
  91
  92                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DECIMAL)//i)
  93                 {
  94
  95                         $expectation->failed();
  96                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
  97                                                   Parse::RecDescent::_tracefirst($text))
  98                                         if defined $::RD_TRACE;
  99
 100                         last;
 101                 }
 102                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
 103                                                 . $& . q{])},
 104                                                   Parse::RecDescent::_tracefirst($text))
 105                                         if defined $::RD_TRACE;
 106                 push @item, $item{__PATTERN1__}=$&;
 107
 108
 109
 110                 Parse::RecDescent::_trace(q{>>Matched production: [/DECIMAL/i]<<},
 111                                           Parse::RecDescent::_tracefirst($text),
 112                                           q{_alternation_1_of_production_17_of_rule_sysibm_function},
 113                                           $tracelevel)
 114                                                 if defined $::RD_TRACE;
 115                 $_matched = 1;
 116                 last;
 117         }
 118
 119
 120         while (!$_matched && !$commit)
 121         {
 122
 123                 Parse::RecDescent::_trace(q{Trying production: [/DEC/i]},
 124                                           Parse::RecDescent::_tracefirst($_[1]),
 125                                           q{_alternation_1_of_production_17_of_rule_sysibm_function},
 126                                           $tracelevel)
 127                                                 if defined $::RD_TRACE;
 128                 my $thisprod = $thisrule->{"prods"}[1];
 129                 $text = $_[1];
 130                 my $_savetext;
 131                 @item = (q{_alternation_1_of_production_17_of_rule_sysibm_function});
 132                 %item = (__RULE__ => q{_alternation_1_of_production_17_of_rule_sysibm_function});
 133                 my $repcount = 0;
 134
 135
 136                 Parse::RecDescent::_trace(q{Trying terminal: [/DEC/i]}, Parse::RecDescent::_tracefirst($text),
 137                                           q{_alternation_1_of_production_17_of_rule_sysibm_function},
 138                                           $tracelevel)
 139                                                 if defined $::RD_TRACE;
 140                 $lastsep = "";
 141                 $expectation->is(q{})->at($text);
 142
 143
 144                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DEC)//i)
 145                 {
 146
 147                         $expectation->failed();
 148                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
 149                                                   Parse::RecDescent::_tracefirst($text))
 150                                         if defined $::RD_TRACE;
 151
 152                         last;
 153                 }
 154                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
 155                                                 . $& . q{])},
 156                                                   Parse::RecDescent::_tracefirst($text))
 157                                         if defined $::RD_TRACE;
 158                 push @item, $item{__PATTERN1__}=$&;
 159
 160
 161
 162                 Parse::RecDescent::_trace(q{>>Matched production: [/DEC/i]<<},
 163                                           Parse::RecDescent::_tracefirst($text),
 164                                           q{_alternation_1_of_production_17_of_rule_sysibm_function},
 165                                           $tracelevel)
 166                                                 if defined $::RD_TRACE;
 167                 $_matched = 1;
 168                 last;
 169         }
 170
 171
 172         unless ( $_matched || defined($return) || defined($score) )
 173         {
 174
 175
 176                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
 177                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
 178                                          Parse::RecDescent::_tracefirst($_[1]),
 179                                          q{_alternation_1_of_production_17_of_rule_sysibm_function},
 180                                          $tracelevel)
 181                                         if defined $::RD_TRACE;
 182                 return undef;
 183         }
 184         if (!defined($return) && defined($score))
 185         {
 186                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
 187                                           q{_alternation_1_of_production_17_of_rule_sysibm_function},
 188                                           $tracelevel)
 189                                                 if defined $::RD_TRACE;
 190                 $return = $score_return;
 191         }
 192         splice @{$thisparser->{errors}}, $err_at;
 193         $return = $item[$#item] unless defined $return;
 194         if (defined $::RD_TRACE)
 195         {
 196                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
 197                                           $return . q{])}, "",
 198                                           q{_alternation_1_of_production_17_of_rule_sysibm_function},
 199                                           $tracelevel);
 200                 Parse::RecDescent::_trace(q{(consumed: [} .
 201                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
 202                                           Parse::RecDescent::_tracefirst($text),
 203                                           , q{_alternation_1_of_production_17_of_rule_sysibm_function},
 204                                           $tracelevel)
 205         }
 206         $_[1] = $text;
 207         return $return;
 208 }
 209
 210 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
 211 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::triggered_action
 212 {
 213         my $thisparser = $_[0];
 214         use vars q{$tracelevel};
 215         local $tracelevel = ($tracelevel||0)+1;
 216         $ERRORS = 0;
 217         my $thisrule = $thisparser->{"rules"}{"triggered_action"};
 218
 219         Parse::RecDescent::_trace(q{Trying rule: [triggered_action]},
 220                                   Parse::RecDescent::_tracefirst($_[1]),
 221                                   q{triggered_action},
 222                                   $tracelevel)
 223                                         if defined $::RD_TRACE;
 224
 225
 226         my $err_at = @{$thisparser->{errors}};
 227
 228         my $score;
 229         my $score_return;
 230         my $_tok;
 231         my $return = undef;
 232         my $_matched=0;
 233         my $commit=0;
 234         my @item = ();
 235         my %item = ();
 236         my $repeating =  defined($_[2]) && $_[2];
 237         my $_noactions = defined($_[3]) && $_[3];
 238         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
 239         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
 240         my $text;
 241         my $lastsep="";
 242         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
 243         $expectation->at($_[1]);
 244
 245         my $thisline;
 246         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
 247
 248
 249
 250         while (!$_matched && !$commit)
 251         {
 252
 253                 Parse::RecDescent::_trace(q{Trying production: [when_clause SQL_procedure_statement]},
 254                                           Parse::RecDescent::_tracefirst($_[1]),
 255                                           q{triggered_action},
 256                                           $tracelevel)
 257                                                 if defined $::RD_TRACE;
 258                 my $thisprod = $thisrule->{"prods"}[0];
 259                 $text = $_[1];
 260                 my $_savetext;
 261                 @item = (q{triggered_action});
 262                 %item = (__RULE__ => q{triggered_action});
 263                 my $repcount = 0;
 264
 265
 266                 Parse::RecDescent::_trace(q{Trying repeated subrule: [when_clause]},
 267                                   Parse::RecDescent::_tracefirst($text),
 268                                   q{triggered_action},
 269                                   $tracelevel)
 270                                         if defined $::RD_TRACE;
 271                 $expectation->is(q{})->at($text);
 272
 273                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::when_clause, 0, 1, $_noactions,$expectation,undef)))
 274                 {
 275                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [when_clause]>>},
 276                                                   Parse::RecDescent::_tracefirst($text),
 277                                                   q{triggered_action},
 278                                                   $tracelevel)
 279                                                         if defined $::RD_TRACE;
 280                         last;
 281                 }
 282                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [when_clause]<< (}
 283                                         . @$_tok . q{ times)},
 284
 285                                           Parse::RecDescent::_tracefirst($text),
 286                                           q{triggered_action},
 287                                           $tracelevel)
 288                                                 if defined $::RD_TRACE;
 289                 $item{q{when_clause(?)}} = $_tok;
 290                 push @item, $_tok;
 291
 292
 293
 294                 Parse::RecDescent::_trace(q{Trying subrule: [SQL_procedure_statement]},
 295                                   Parse::RecDescent::_tracefirst($text),
 296                                   q{triggered_action},
 297                                   $tracelevel)
 298                                         if defined $::RD_TRACE;
 299                 if (1) { no strict qw{refs};
 300                 $expectation->is(q{SQL_procedure_statement})->at($text);
 301                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::SQL_procedure_statement($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
 302                 {
 303
 304                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [SQL_procedure_statement]>>},
 305                                                   Parse::RecDescent::_tracefirst($text),
 306                                                   q{triggered_action},
 307                                                   $tracelevel)
 308                                                         if defined $::RD_TRACE;
 309                         $expectation->failed();
 310                         last;
 311                 }
 312                 Parse::RecDescent::_trace(q{>>Matched subrule: [SQL_procedure_statement]<< (return value: [}
 313                                         . $_tok . q{]},
 314
 315                                           Parse::RecDescent::_tracefirst($text),
 316                                           q{triggered_action},
 317                                           $tracelevel)
 318                                                 if defined $::RD_TRACE;
 319                 $item{q{SQL_procedure_statement}} = $_tok;
 320                 push @item, $_tok;
 321
 322                 }
 323
 324                 Parse::RecDescent::_trace(q{Trying action},
 325                                           Parse::RecDescent::_tracefirst($text),
 326                                           q{triggered_action},
 327                                           $tracelevel)
 328                                                 if defined $::RD_TRACE;
 329
 330
 331                 $_tok = ($_noactions) ? 0 : do { $return = { 'condition' => $item[1][0],
 332               'statement' => $item{'SQL_procedure_statement'} };
 333 };
 334                 unless (defined $_tok)
 335                 {
 336                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
 337                                         if defined $::RD_TRACE;
 338                         last;
 339                 }
 340                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
 341                                           . $_tok . q{])},
 342                                           Parse::RecDescent::_tracefirst($text))
 343                                                 if defined $::RD_TRACE;
 344                 push @item, $_tok;
 345                 $item{__ACTION1__}=$_tok;
 346
 347
 348
 349                 Parse::RecDescent::_trace(q{>>Matched production: [when_clause SQL_procedure_statement]<<},
 350                                           Parse::RecDescent::_tracefirst($text),
 351                                           q{triggered_action},
 352                                           $tracelevel)
 353                                                 if defined $::RD_TRACE;
 354                 $_matched = 1;
 355                 last;
 356         }
 357
 358
 359         unless ( $_matched || defined($return) || defined($score) )
 360         {
 361
 362
 363                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
 364                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
 365                                          Parse::RecDescent::_tracefirst($_[1]),
 366                                          q{triggered_action},
 367                                          $tracelevel)
 368                                         if defined $::RD_TRACE;
 369                 return undef;
 370         }
 371         if (!defined($return) && defined($score))
 372         {
 373                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
 374                                           q{triggered_action},
 375                                           $tracelevel)
 376                                                 if defined $::RD_TRACE;
 377                 $return = $score_return;
 378         }
 379         splice @{$thisparser->{errors}}, $err_at;
 380         $return = $item[$#item] unless defined $return;
 381         if (defined $::RD_TRACE)
 382         {
 383                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
 384                                           $return . q{])}, "",
 385                                           q{triggered_action},
 386                                           $tracelevel);
 387                 Parse::RecDescent::_trace(q{(consumed: [} .
 388                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
 389                                           Parse::RecDescent::_tracefirst($text),
 390                                           , q{triggered_action},
 391                                           $tracelevel)
 392         }
 393         $_[1] = $text;
 394         return $return;
 395 }
 396
 397 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
 398 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_2_of_rule_search_condition
 399 {
 400         my $thisparser = $_[0];
 401         use vars q{$tracelevel};
 402         local $tracelevel = ($tracelevel||0)+1;
 403         $ERRORS = 0;
 404         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_2_of_rule_search_condition"};
 405
 406         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_2_of_rule_search_condition]},
 407                                   Parse::RecDescent::_tracefirst($_[1]),
 408                                   q{_alternation_1_of_production_2_of_rule_search_condition},
 409                                   $tracelevel)
 410                                         if defined $::RD_TRACE;
 411
 412
 413         my $err_at = @{$thisparser->{errors}};
 414
 415         my $score;
 416         my $score_return;
 417         my $_tok;
 418         my $return = undef;
 419         my $_matched=0;
 420         my $commit=0;
 421         my @item = ();
 422         my %item = ();
 423         my $repeating =  defined($_[2]) && $_[2];
 424         my $_noactions = defined($_[3]) && $_[3];
 425         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
 426         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
 427         my $text;
 428         my $lastsep="";
 429         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
 430         $expectation->at($_[1]);
 431
 432         my $thisline;
 433         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
 434
 435
 436
 437         while (!$_matched && !$commit)
 438         {
 439
 440                 Parse::RecDescent::_trace(q{Trying production: [predicate /SELECTIVITY/i]},
 441                                           Parse::RecDescent::_tracefirst($_[1]),
 442                                           q{_alternation_1_of_production_2_of_rule_search_condition},
 443                                           $tracelevel)
 444                                                 if defined $::RD_TRACE;
 445                 my $thisprod = $thisrule->{"prods"}[0];
 446                 $text = $_[1];
 447                 my $_savetext;
 448                 @item = (q{_alternation_1_of_production_2_of_rule_search_condition});
 449                 %item = (__RULE__ => q{_alternation_1_of_production_2_of_rule_search_condition});
 450                 my $repcount = 0;
 451
 452
 453                 Parse::RecDescent::_trace(q{Trying subrule: [predicate]},
 454                                   Parse::RecDescent::_tracefirst($text),
 455                                   q{_alternation_1_of_production_2_of_rule_search_condition},
 456                                   $tracelevel)
 457                                         if defined $::RD_TRACE;
 458                 if (1) { no strict qw{refs};
 459                 $expectation->is(q{})->at($text);
 460                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::predicate($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
 461                 {
 462
 463                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [predicate]>>},
 464                                                   Parse::RecDescent::_tracefirst($text),
 465                                                   q{_alternation_1_of_production_2_of_rule_search_condition},
 466                                                   $tracelevel)
 467                                                         if defined $::RD_TRACE;
 468                         $expectation->failed();
 469                         last;
 470                 }
 471                 Parse::RecDescent::_trace(q{>>Matched subrule: [predicate]<< (return value: [}
 472                                         . $_tok . q{]},
 473
 474                                           Parse::RecDescent::_tracefirst($text),
 475                                           q{_alternation_1_of_production_2_of_rule_search_condition},
 476                                           $tracelevel)
 477                                                 if defined $::RD_TRACE;
 478                 $item{q{predicate}} = $_tok;
 479                 push @item, $_tok;
 480
 481                 }
 482
 483                 Parse::RecDescent::_trace(q{Trying repeated subrule: [/SELECTIVITY/i]},
 484                                   Parse::RecDescent::_tracefirst($text),
 485                                   q{_alternation_1_of_production_2_of_rule_search_condition},
 486                                   $tracelevel)
 487                                         if defined $::RD_TRACE;
 488                 $expectation->is(q{/SELECTIVITY/i})->at($text);
 489
 490                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition, 0, 1, $_noactions,$expectation,undef)))
 491                 {
 492                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [/SELECTIVITY/i]>>},
 493                                                   Parse::RecDescent::_tracefirst($text),
 494                                                   q{_alternation_1_of_production_2_of_rule_search_condition},
 495                                                   $tracelevel)
 496                                                         if defined $::RD_TRACE;
 497                         last;
 498                 }
 499                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition]<< (}
 500                                         . @$_tok . q{ times)},
 501
 502                                           Parse::RecDescent::_tracefirst($text),
 503                                           q{_alternation_1_of_production_2_of_rule_search_condition},
 504                                           $tracelevel)
 505                                                 if defined $::RD_TRACE;
 506                 $item{q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition(?)}} = $_tok;
 507                 push @item, $_tok;
 508
 509
 510
 511
 512                 Parse::RecDescent::_trace(q{>>Matched production: [predicate /SELECTIVITY/i]<<},
 513                                           Parse::RecDescent::_tracefirst($text),
 514                                           q{_alternation_1_of_production_2_of_rule_search_condition},
 515                                           $tracelevel)
 516                                                 if defined $::RD_TRACE;
 517                 $_matched = 1;
 518                 last;
 519         }
 520
 521
 522         while (!$_matched && !$commit)
 523         {
 524
 525                 Parse::RecDescent::_trace(q{Trying production: ['(' search_condition ')']},
 526                                           Parse::RecDescent::_tracefirst($_[1]),
 527                                           q{_alternation_1_of_production_2_of_rule_search_condition},
 528                                           $tracelevel)
 529                                                 if defined $::RD_TRACE;
 530                 my $thisprod = $thisrule->{"prods"}[1];
 531                 $text = $_[1];
 532                 my $_savetext;
 533                 @item = (q{_alternation_1_of_production_2_of_rule_search_condition});
 534                 %item = (__RULE__ => q{_alternation_1_of_production_2_of_rule_search_condition});
 535                 my $repcount = 0;
 536
 537
 538                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
 539                                           Parse::RecDescent::_tracefirst($text),
 540                                           q{_alternation_1_of_production_2_of_rule_search_condition},
 541                                           $tracelevel)
 542                                                 if defined $::RD_TRACE;
 543                 $lastsep = "";
 544                 $expectation->is(q{})->at($text);
 545
 546
 547                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
 548                 {
 549
 550                         $expectation->failed();
 551                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
 552                                                   Parse::RecDescent::_tracefirst($text))
 553                                                         if defined $::RD_TRACE;
 554                         last;
 555                 }
 556                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
 557                                                 . $& . q{])},
 558                                                   Parse::RecDescent::_tracefirst($text))
 559                                                         if defined $::RD_TRACE;
 560                 push @item, $item{__STRING1__}=$&;
 561
 562
 563                 Parse::RecDescent::_trace(q{Trying subrule: [search_condition]},
 564                                   Parse::RecDescent::_tracefirst($text),
 565                                   q{_alternation_1_of_production_2_of_rule_search_condition},
 566                                   $tracelevel)
 567                                         if defined $::RD_TRACE;
 568                 if (1) { no strict qw{refs};
 569                 $expectation->is(q{search_condition})->at($text);
 570                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::search_condition($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
 571                 {
 572
 573                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [search_condition]>>},
 574                                                   Parse::RecDescent::_tracefirst($text),
 575                                                   q{_alternation_1_of_production_2_of_rule_search_condition},
 576                                                   $tracelevel)
 577                                                         if defined $::RD_TRACE;
 578                         $expectation->failed();
 579                         last;
 580                 }
 581                 Parse::RecDescent::_trace(q{>>Matched subrule: [search_condition]<< (return value: [}
 582                                         . $_tok . q{]},
 583
 584                                           Parse::RecDescent::_tracefirst($text),
 585                                           q{_alternation_1_of_production_2_of_rule_search_condition},
 586                                           $tracelevel)
 587                                                 if defined $::RD_TRACE;
 588                 $item{q{search_condition}} = $_tok;
 589                 push @item, $_tok;
 590
 591                 }
 592
 593                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
 594                                           Parse::RecDescent::_tracefirst($text),
 595                                           q{_alternation_1_of_production_2_of_rule_search_condition},
 596                                           $tracelevel)
 597                                                 if defined $::RD_TRACE;
 598                 $lastsep = "";
 599                 $expectation->is(q{')'})->at($text);
 600
 601
 602                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
 603                 {
 604
 605                         $expectation->failed();
 606                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
 607                                                   Parse::RecDescent::_tracefirst($text))
 608                                                         if defined $::RD_TRACE;
 609                         last;
 610                 }
 611                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
 612                                                 . $& . q{])},
 613                                                   Parse::RecDescent::_tracefirst($text))
 614                                                         if defined $::RD_TRACE;
 615                 push @item, $item{__STRING2__}=$&;
 616
 617
 618
 619                 Parse::RecDescent::_trace(q{>>Matched production: ['(' search_condition ')']<<},
 620                                           Parse::RecDescent::_tracefirst($text),
 621                                           q{_alternation_1_of_production_2_of_rule_search_condition},
 622                                           $tracelevel)
 623                                                 if defined $::RD_TRACE;
 624                 $_matched = 1;
 625                 last;
 626         }
 627
 628
 629         unless ( $_matched || defined($return) || defined($score) )
 630         {
 631
 632
 633                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
 634                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
 635                                          Parse::RecDescent::_tracefirst($_[1]),
 636                                          q{_alternation_1_of_production_2_of_rule_search_condition},
 637                                          $tracelevel)
 638                                         if defined $::RD_TRACE;
 639                 return undef;
 640         }
 641         if (!defined($return) && defined($score))
 642         {
 643                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
 644                                           q{_alternation_1_of_production_2_of_rule_search_condition},
 645                                           $tracelevel)
 646                                                 if defined $::RD_TRACE;
 647                 $return = $score_return;
 648         }
 649         splice @{$thisparser->{errors}}, $err_at;
 650         $return = $item[$#item] unless defined $return;
 651         if (defined $::RD_TRACE)
 652         {
 653                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
 654                                           $return . q{])}, "",
 655                                           q{_alternation_1_of_production_2_of_rule_search_condition},
 656                                           $tracelevel);
 657                 Parse::RecDescent::_trace(q{(consumed: [} .
 658                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
 659                                           Parse::RecDescent::_tracefirst($text),
 660                                           , q{_alternation_1_of_production_2_of_rule_search_condition},
 661                                           $tracelevel)
 662         }
 663         $_[1] = $text;
 664         return $return;
 665 }
 666
 667 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
 668 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::name1
 669 {
 670         my $thisparser = $_[0];
 671         use vars q{$tracelevel};
 672         local $tracelevel = ($tracelevel||0)+1;
 673         $ERRORS = 0;
 674         my $thisrule = $thisparser->{"rules"}{"name1"};
 675
 676         Parse::RecDescent::_trace(q{Trying rule: [name1]},
 677                                   Parse::RecDescent::_tracefirst($_[1]),
 678                                   q{name1},
 679                                   $tracelevel)
 680                                         if defined $::RD_TRACE;
 681
 682
 683         my $err_at = @{$thisparser->{errors}};
 684
 685         my $score;
 686         my $score_return;
 687         my $_tok;
 688         my $return = undef;
 689         my $_matched=0;
 690         my $commit=0;
 691         my @item = ();
 692         my %item = ();
 693         my $repeating =  defined($_[2]) && $_[2];
 694         my $_noactions = defined($_[3]) && $_[3];
 695         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
 696         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
 697         my $text;
 698         my $lastsep="";
 699         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
 700         $expectation->at($_[1]);
 701
 702         my $thisline;
 703         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
 704
 705
 706
 707         while (!$_matched && !$commit)
 708         {
 709
 710                 Parse::RecDescent::_trace(q{Trying production: [NAME]},
 711                                           Parse::RecDescent::_tracefirst($_[1]),
 712                                           q{name1},
 713                                           $tracelevel)
 714                                                 if defined $::RD_TRACE;
 715                 my $thisprod = $thisrule->{"prods"}[0];
 716                 $text = $_[1];
 717                 my $_savetext;
 718                 @item = (q{name1});
 719                 %item = (__RULE__ => q{name1});
 720                 my $repcount = 0;
 721
 722
 723                 Parse::RecDescent::_trace(q{Trying subrule: [NAME]},
 724                                   Parse::RecDescent::_tracefirst($text),
 725                                   q{name1},
 726                                   $tracelevel)
 727                                         if defined $::RD_TRACE;
 728                 if (1) { no strict qw{refs};
 729                 $expectation->is(q{})->at($text);
 730                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::NAME($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
 731                 {
 732
 733                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [NAME]>>},
 734                                                   Parse::RecDescent::_tracefirst($text),
 735                                                   q{name1},
 736                                                   $tracelevel)
 737                                                         if defined $::RD_TRACE;
 738                         $expectation->failed();
 739                         last;
 740                 }
 741                 Parse::RecDescent::_trace(q{>>Matched subrule: [NAME]<< (return value: [}
 742                                         . $_tok . q{]},
 743
 744                                           Parse::RecDescent::_tracefirst($text),
 745                                           q{name1},
 746                                           $tracelevel)
 747                                                 if defined $::RD_TRACE;
 748                 $item{q{NAME}} = $_tok;
 749                 push @item, $_tok;
 750
 751                 }
 752
 753
 754                 Parse::RecDescent::_trace(q{>>Matched production: [NAME]<<},
 755                                           Parse::RecDescent::_tracefirst($text),
 756                                           q{name1},
 757                                           $tracelevel)
 758                                                 if defined $::RD_TRACE;
 759                 $_matched = 1;
 760                 last;
 761         }
 762
 763
 764         unless ( $_matched || defined($return) || defined($score) )
 765         {
 766
 767
 768                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
 769                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
 770                                          Parse::RecDescent::_tracefirst($_[1]),
 771                                          q{name1},
 772                                          $tracelevel)
 773                                         if defined $::RD_TRACE;
 774                 return undef;
 775         }
 776         if (!defined($return) && defined($score))
 777         {
 778                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
 779                                           q{name1},
 780                                           $tracelevel)
 781                                                 if defined $::RD_TRACE;
 782                 $return = $score_return;
 783         }
 784         splice @{$thisparser->{errors}}, $err_at;
 785         $return = $item[$#item] unless defined $return;
 786         if (defined $::RD_TRACE)
 787         {
 788                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
 789                                           $return . q{])}, "",
 790                                           q{name1},
 791                                           $tracelevel);
 792                 Parse::RecDescent::_trace(q{(consumed: [} .
 793                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
 794                                           Parse::RecDescent::_tracefirst($text),
 795                                           , q{name1},
 796                                           $tracelevel)
 797         }
 798         $_[1] = $text;
 799         return $return;
 800 }
 801
 802 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
 803 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_2_of_production_1_of_rule_cond
 804 {
 805         my $thisparser = $_[0];
 806         use vars q{$tracelevel};
 807         local $tracelevel = ($tracelevel||0)+1;
 808         $ERRORS = 0;
 809         my $thisrule = $thisparser->{"rules"}{"_alternation_2_of_production_1_of_rule_cond"};
 810
 811         Parse::RecDescent::_trace(q{Trying rule: [_alternation_2_of_production_1_of_rule_cond]},
 812                                   Parse::RecDescent::_tracefirst($_[1]),
 813                                   q{_alternation_2_of_production_1_of_rule_cond},
 814                                   $tracelevel)
 815                                         if defined $::RD_TRACE;
 816
 817
 818         my $err_at = @{$thisparser->{errors}};
 819
 820         my $score;
 821         my $score_return;
 822         my $_tok;
 823         my $return = undef;
 824         my $_matched=0;
 825         my $commit=0;
 826         my @item = ();
 827         my %item = ();
 828         my $repeating =  defined($_[2]) && $_[2];
 829         my $_noactions = defined($_[3]) && $_[3];
 830         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
 831         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
 832         my $text;
 833         my $lastsep="";
 834         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
 835         $expectation->at($_[1]);
 836
 837         my $thisline;
 838         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
 839
 840
 841
 842         while (!$_matched && !$commit)
 843         {
 844
 845                 Parse::RecDescent::_trace(q{Trying production: [predicate /SELECTIVITY/i]},
 846                                           Parse::RecDescent::_tracefirst($_[1]),
 847                                           q{_alternation_2_of_production_1_of_rule_cond},
 848                                           $tracelevel)
 849                                                 if defined $::RD_TRACE;
 850                 my $thisprod = $thisrule->{"prods"}[0];
 851                 $text = $_[1];
 852                 my $_savetext;
 853                 @item = (q{_alternation_2_of_production_1_of_rule_cond});
 854                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule_cond});
 855                 my $repcount = 0;
 856
 857
 858                 Parse::RecDescent::_trace(q{Trying subrule: [predicate]},
 859                                   Parse::RecDescent::_tracefirst($text),
 860                                   q{_alternation_2_of_production_1_of_rule_cond},
 861                                   $tracelevel)
 862                                         if defined $::RD_TRACE;
 863                 if (1) { no strict qw{refs};
 864                 $expectation->is(q{})->at($text);
 865                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::predicate($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
 866                 {
 867
 868                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [predicate]>>},
 869                                                   Parse::RecDescent::_tracefirst($text),
 870                                                   q{_alternation_2_of_production_1_of_rule_cond},
 871                                                   $tracelevel)
 872                                                         if defined $::RD_TRACE;
 873                         $expectation->failed();
 874                         last;
 875                 }
 876                 Parse::RecDescent::_trace(q{>>Matched subrule: [predicate]<< (return value: [}
 877                                         . $_tok . q{]},
 878
 879                                           Parse::RecDescent::_tracefirst($text),
 880                                           q{_alternation_2_of_production_1_of_rule_cond},
 881                                           $tracelevel)
 882                                                 if defined $::RD_TRACE;
 883                 $item{q{predicate}} = $_tok;
 884                 push @item, $_tok;
 885
 886                 }
 887
 888                 Parse::RecDescent::_trace(q{Trying repeated subrule: [/SELECTIVITY/i]},
 889                                   Parse::RecDescent::_tracefirst($text),
 890                                   q{_alternation_2_of_production_1_of_rule_cond},
 891                                   $tracelevel)
 892                                         if defined $::RD_TRACE;
 893                 $expectation->is(q{/SELECTIVITY/i})->at($text);
 894
 895                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond, 0, 1, $_noactions,$expectation,undef)))
 896                 {
 897                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [/SELECTIVITY/i]>>},
 898                                                   Parse::RecDescent::_tracefirst($text),
 899                                                   q{_alternation_2_of_production_1_of_rule_cond},
 900                                                   $tracelevel)
 901                                                         if defined $::RD_TRACE;
 902                         last;
 903                 }
 904                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond]<< (}
 905                                         . @$_tok . q{ times)},
 906
 907                                           Parse::RecDescent::_tracefirst($text),
 908                                           q{_alternation_2_of_production_1_of_rule_cond},
 909                                           $tracelevel)
 910                                                 if defined $::RD_TRACE;
 911                 $item{q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond(?)}} = $_tok;
 912                 push @item, $_tok;
 913
 914
 915
 916
 917                 Parse::RecDescent::_trace(q{>>Matched production: [predicate /SELECTIVITY/i]<<},
 918                                           Parse::RecDescent::_tracefirst($text),
 919                                           q{_alternation_2_of_production_1_of_rule_cond},
 920                                           $tracelevel)
 921                                                 if defined $::RD_TRACE;
 922                 $_matched = 1;
 923                 last;
 924         }
 925
 926
 927         while (!$_matched && !$commit)
 928         {
 929
 930                 Parse::RecDescent::_trace(q{Trying production: ['(' search_condition ')']},
 931                                           Parse::RecDescent::_tracefirst($_[1]),
 932                                           q{_alternation_2_of_production_1_of_rule_cond},
 933                                           $tracelevel)
 934                                                 if defined $::RD_TRACE;
 935                 my $thisprod = $thisrule->{"prods"}[1];
 936                 $text = $_[1];
 937                 my $_savetext;
 938                 @item = (q{_alternation_2_of_production_1_of_rule_cond});
 939                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule_cond});
 940                 my $repcount = 0;
 941
 942
 943                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
 944                                           Parse::RecDescent::_tracefirst($text),
 945                                           q{_alternation_2_of_production_1_of_rule_cond},
 946                                           $tracelevel)
 947                                                 if defined $::RD_TRACE;
 948                 $lastsep = "";
 949                 $expectation->is(q{})->at($text);
 950
 951
 952                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
 953                 {
 954
 955                         $expectation->failed();
 956                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
 957                                                   Parse::RecDescent::_tracefirst($text))
 958                                                         if defined $::RD_TRACE;
 959                         last;
 960                 }
 961                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
 962                                                 . $& . q{])},
 963                                                   Parse::RecDescent::_tracefirst($text))
 964                                                         if defined $::RD_TRACE;
 965                 push @item, $item{__STRING1__}=$&;
 966
 967
 968                 Parse::RecDescent::_trace(q{Trying subrule: [search_condition]},
 969                                   Parse::RecDescent::_tracefirst($text),
 970                                   q{_alternation_2_of_production_1_of_rule_cond},
 971                                   $tracelevel)
 972                                         if defined $::RD_TRACE;
 973                 if (1) { no strict qw{refs};
 974                 $expectation->is(q{search_condition})->at($text);
 975                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::search_condition($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
 976                 {
 977
 978                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [search_condition]>>},
 979                                                   Parse::RecDescent::_tracefirst($text),
 980                                                   q{_alternation_2_of_production_1_of_rule_cond},
 981                                                   $tracelevel)
 982                                                         if defined $::RD_TRACE;
 983                         $expectation->failed();
 984                         last;
 985                 }
 986                 Parse::RecDescent::_trace(q{>>Matched subrule: [search_condition]<< (return value: [}
 987                                         . $_tok . q{]},
 988
 989                                           Parse::RecDescent::_tracefirst($text),
 990                                           q{_alternation_2_of_production_1_of_rule_cond},
 991                                           $tracelevel)
 992                                                 if defined $::RD_TRACE;
 993                 $item{q{search_condition}} = $_tok;
 994                 push @item, $_tok;
 995
 996                 }
 997
 998                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
 999                                           Parse::RecDescent::_tracefirst($text),
1000                                           q{_alternation_2_of_production_1_of_rule_cond},
1001                                           $tracelevel)
1002                                                 if defined $::RD_TRACE;
1003                 $lastsep = "";
1004                 $expectation->is(q{')'})->at($text);
1005
1006
1007                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
1008                 {
1009
1010                         $expectation->failed();
1011                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
1012                                                   Parse::RecDescent::_tracefirst($text))
1013                                                         if defined $::RD_TRACE;
1014                         last;
1015                 }
1016                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
1017                                                 . $& . q{])},
1018                                                   Parse::RecDescent::_tracefirst($text))
1019                                                         if defined $::RD_TRACE;
1020                 push @item, $item{__STRING2__}=$&;
1021
1022
1023
1024                 Parse::RecDescent::_trace(q{>>Matched production: ['(' search_condition ')']<<},
1025                                           Parse::RecDescent::_tracefirst($text),
1026                                           q{_alternation_2_of_production_1_of_rule_cond},
1027                                           $tracelevel)
1028                                                 if defined $::RD_TRACE;
1029                 $_matched = 1;
1030                 last;
1031         }
1032
1033
1034         unless ( $_matched || defined($return) || defined($score) )
1035         {
1036
1037
1038                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
1039                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
1040                                          Parse::RecDescent::_tracefirst($_[1]),
1041                                          q{_alternation_2_of_production_1_of_rule_cond},
1042                                          $tracelevel)
1043                                         if defined $::RD_TRACE;
1044                 return undef;
1045         }
1046         if (!defined($return) && defined($score))
1047         {
1048                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
1049                                           q{_alternation_2_of_production_1_of_rule_cond},
1050                                           $tracelevel)
1051                                                 if defined $::RD_TRACE;
1052                 $return = $score_return;
1053         }
1054         splice @{$thisparser->{errors}}, $err_at;
1055         $return = $item[$#item] unless defined $return;
1056         if (defined $::RD_TRACE)
1057         {
1058                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
1059                                           $return . q{])}, "",
1060                                           q{_alternation_2_of_production_1_of_rule_cond},
1061                                           $tracelevel);
1062                 Parse::RecDescent::_trace(q{(consumed: [} .
1063                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
1064                                           Parse::RecDescent::_tracefirst($text),
1065                                           , q{_alternation_2_of_production_1_of_rule_cond},
1066                                           $tracelevel)
1067         }
1068         $_[1] = $text;
1069         return $return;
1070 }
1071
1072 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
1073 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_expression
1074 {
1075         my $thisparser = $_[0];
1076         use vars q{$tracelevel};
1077         local $tracelevel = ($tracelevel||0)+1;
1078         $ERRORS = 0;
1079         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_expression"};
1080
1081         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_expression]},
1082                                   Parse::RecDescent::_tracefirst($_[1]),
1083                                   q{_alternation_1_of_production_1_of_rule_expression},
1084                                   $tracelevel)
1085                                         if defined $::RD_TRACE;
1086
1087
1088         my $err_at = @{$thisparser->{errors}};
1089
1090         my $score;
1091         my $score_return;
1092         my $_tok;
1093         my $return = undef;
1094         my $_matched=0;
1095         my $commit=0;
1096         my @item = ();
1097         my %item = ();
1098         my $repeating =  defined($_[2]) && $_[2];
1099         my $_noactions = defined($_[3]) && $_[3];
1100         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
1101         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
1102         my $text;
1103         my $lastsep="";
1104         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
1105         $expectation->at($_[1]);
1106
1107         my $thisline;
1108         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
1109
1110
1111
1112         while (!$_matched && !$commit)
1113         {
1114
1115                 Parse::RecDescent::_trace(q{Trying production: ['+', or '-' function, or '(', or constant, or column_name, or host_variable, or special_register, or labeled_duration, or case_expression, or cast_specification, or OLAP_function, or method_invocation, or subtype_treatment, or sequence_reference]},
1116                                           Parse::RecDescent::_tracefirst($_[1]),
1117                                           q{_alternation_1_of_production_1_of_rule_expression},
1118                                           $tracelevel)
1119                                                 if defined $::RD_TRACE;
1120                 my $thisprod = $thisrule->{"prods"}[0];
1121                 $text = $_[1];
1122                 my $_savetext;
1123                 @item = (q{_alternation_1_of_production_1_of_rule_expression});
1124                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_expression});
1125                 my $repcount = 0;
1126
1127
1128                 Parse::RecDescent::_trace(q{Trying repeated subrule: ['+', or '-']},
1129                                   Parse::RecDescent::_tracefirst($text),
1130                                   q{_alternation_1_of_production_1_of_rule_expression},
1131                                   $tracelevel)
1132                                         if defined $::RD_TRACE;
1133                 $expectation->is(q{})->at($text);
1134
1135                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression, 0, 1, $_noactions,$expectation,undef)))
1136                 {
1137                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: ['+', or '-']>>},
1138                                                   Parse::RecDescent::_tracefirst($text),
1139                                                   q{_alternation_1_of_production_1_of_rule_expression},
1140                                                   $tracelevel)
1141                                                         if defined $::RD_TRACE;
1142                         last;
1143                 }
1144                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression]<< (}
1145                                         . @$_tok . q{ times)},
1146
1147                                           Parse::RecDescent::_tracefirst($text),
1148                                           q{_alternation_1_of_production_1_of_rule_expression},
1149                                           $tracelevel)
1150                                                 if defined $::RD_TRACE;
1151                 $item{q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression(?)}} = $_tok;
1152                 push @item, $_tok;
1153
1154
1155
1156                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression]},
1157                                   Parse::RecDescent::_tracefirst($text),
1158                                   q{_alternation_1_of_production_1_of_rule_expression},
1159                                   $tracelevel)
1160                                         if defined $::RD_TRACE;
1161                 if (1) { no strict qw{refs};
1162                 $expectation->is(q{function, or '(', or constant, or column_name, or host_variable, or special_register, or labeled_duration, or case_expression, or cast_specification, or OLAP_function, or method_invocation, or subtype_treatment, or sequence_reference})->at($text);
1163                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
1164                 {
1165
1166                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression]>>},
1167                                                   Parse::RecDescent::_tracefirst($text),
1168                                                   q{_alternation_1_of_production_1_of_rule_expression},
1169                                                   $tracelevel)
1170                                                         if defined $::RD_TRACE;
1171                         $expectation->failed();
1172                         last;
1173                 }
1174                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression]<< (return value: [}
1175                                         . $_tok . q{]},
1176
1177                                           Parse::RecDescent::_tracefirst($text),
1178                                           q{_alternation_1_of_production_1_of_rule_expression},
1179                                           $tracelevel)
1180                                                 if defined $::RD_TRACE;
1181                 $item{q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression}} = $_tok;
1182                 push @item, $_tok;
1183
1184                 }
1185
1186
1187                 Parse::RecDescent::_trace(q{>>Matched production: ['+', or '-' function, or '(', or constant, or column_name, or host_variable, or special_register, or labeled_duration, or case_expression, or cast_specification, or OLAP_function, or method_invocation, or subtype_treatment, or sequence_reference]<<},
1188                                           Parse::RecDescent::_tracefirst($text),
1189                                           q{_alternation_1_of_production_1_of_rule_expression},
1190                                           $tracelevel)
1191                                                 if defined $::RD_TRACE;
1192                 $_matched = 1;
1193                 last;
1194         }
1195
1196
1197         unless ( $_matched || defined($return) || defined($score) )
1198         {
1199
1200
1201                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
1202                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
1203                                          Parse::RecDescent::_tracefirst($_[1]),
1204                                          q{_alternation_1_of_production_1_of_rule_expression},
1205                                          $tracelevel)
1206                                         if defined $::RD_TRACE;
1207                 return undef;
1208         }
1209         if (!defined($return) && defined($score))
1210         {
1211                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
1212                                           q{_alternation_1_of_production_1_of_rule_expression},
1213                                           $tracelevel)
1214                                                 if defined $::RD_TRACE;
1215                 $return = $score_return;
1216         }
1217         splice @{$thisparser->{errors}}, $err_at;
1218         $return = $item[$#item] unless defined $return;
1219         if (defined $::RD_TRACE)
1220         {
1221                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
1222                                           $return . q{])}, "",
1223                                           q{_alternation_1_of_production_1_of_rule_expression},
1224                                           $tracelevel);
1225                 Parse::RecDescent::_trace(q{(consumed: [} .
1226                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
1227                                           Parse::RecDescent::_tracefirst($text),
1228                                           , q{_alternation_1_of_production_1_of_rule_expression},
1229                                           $tracelevel)
1230         }
1231         $_[1] = $text;
1232         return $return;
1233 }
1234
1235 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
1236 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::SCHEMA
1237 {
1238         my $thisparser = $_[0];
1239         use vars q{$tracelevel};
1240         local $tracelevel = ($tracelevel||0)+1;
1241         $ERRORS = 0;
1242         my $thisrule = $thisparser->{"rules"}{"SCHEMA"};
1243
1244         Parse::RecDescent::_trace(q{Trying rule: [SCHEMA]},
1245                                   Parse::RecDescent::_tracefirst($_[1]),
1246                                   q{SCHEMA},
1247                                   $tracelevel)
1248                                         if defined $::RD_TRACE;
1249
1250
1251         my $err_at = @{$thisparser->{errors}};
1252
1253         my $score;
1254         my $score_return;
1255         my $_tok;
1256         my $return = undef;
1257         my $_matched=0;
1258         my $commit=0;
1259         my @item = ();
1260         my %item = ();
1261         my $repeating =  defined($_[2]) && $_[2];
1262         my $_noactions = defined($_[3]) && $_[3];
1263         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
1264         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
1265         my $text;
1266         my $lastsep="";
1267         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
1268         $expectation->at($_[1]);
1269
1270         my $thisline;
1271         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
1272
1273
1274
1275         while (!$_matched && !$commit)
1276         {
1277
1278                 Parse::RecDescent::_trace(q{Trying production: [/\\w+/]},
1279                                           Parse::RecDescent::_tracefirst($_[1]),
1280                                           q{SCHEMA},
1281                                           $tracelevel)
1282                                                 if defined $::RD_TRACE;
1283                 my $thisprod = $thisrule->{"prods"}[0];
1284                 $text = $_[1];
1285                 my $_savetext;
1286                 @item = (q{SCHEMA});
1287                 %item = (__RULE__ => q{SCHEMA});
1288                 my $repcount = 0;
1289
1290
1291                 Parse::RecDescent::_trace(q{Trying terminal: [/\\w+/]}, Parse::RecDescent::_tracefirst($text),
1292                                           q{SCHEMA},
1293                                           $tracelevel)
1294                                                 if defined $::RD_TRACE;
1295                 $lastsep = "";
1296                 $expectation->is(q{})->at($text);
1297
1298
1299                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:\w+)//)
1300                 {
1301
1302                         $expectation->failed();
1303                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
1304                                                   Parse::RecDescent::_tracefirst($text))
1305                                         if defined $::RD_TRACE;
1306
1307                         last;
1308                 }
1309                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
1310                                                 . $& . q{])},
1311                                                   Parse::RecDescent::_tracefirst($text))
1312                                         if defined $::RD_TRACE;
1313                 push @item, $item{__PATTERN1__}=$&;
1314
1315
1316
1317                 Parse::RecDescent::_trace(q{>>Matched production: [/\\w+/]<<},
1318                                           Parse::RecDescent::_tracefirst($text),
1319                                           q{SCHEMA},
1320                                           $tracelevel)
1321                                                 if defined $::RD_TRACE;
1322                 $_matched = 1;
1323                 last;
1324         }
1325
1326
1327         while (!$_matched && !$commit)
1328         {
1329
1330                 Parse::RecDescent::_trace(q{Trying production: [/\\w\{1,128\}/]},
1331                                           Parse::RecDescent::_tracefirst($_[1]),
1332                                           q{SCHEMA},
1333                                           $tracelevel)
1334                                                 if defined $::RD_TRACE;
1335                 my $thisprod = $thisrule->{"prods"}[1];
1336                 $text = $_[1];
1337                 my $_savetext;
1338                 @item = (q{SCHEMA});
1339                 %item = (__RULE__ => q{SCHEMA});
1340                 my $repcount = 0;
1341
1342
1343                 Parse::RecDescent::_trace(q{Trying terminal: [/\\w\{1,128\}/]}, Parse::RecDescent::_tracefirst($text),
1344                                           q{SCHEMA},
1345                                           $tracelevel)
1346                                                 if defined $::RD_TRACE;
1347                 $lastsep = "";
1348                 $expectation->is(q{})->at($text);
1349
1350
1351                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:\w{1,128})//)
1352                 {
1353
1354                         $expectation->failed();
1355                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
1356                                                   Parse::RecDescent::_tracefirst($text))
1357                                         if defined $::RD_TRACE;
1358
1359                         last;
1360                 }
1361                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
1362                                                 . $& . q{])},
1363                                                   Parse::RecDescent::_tracefirst($text))
1364                                         if defined $::RD_TRACE;
1365                 push @item, $item{__PATTERN1__}=$&;
1366
1367
1368
1369                 Parse::RecDescent::_trace(q{>>Matched production: [/\\w\{1,128\}/]<<},
1370                                           Parse::RecDescent::_tracefirst($text),
1371                                           q{SCHEMA},
1372                                           $tracelevel)
1373                                                 if defined $::RD_TRACE;
1374                 $_matched = 1;
1375                 last;
1376         }
1377
1378
1379         unless ( $_matched || defined($return) || defined($score) )
1380         {
1381
1382
1383                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
1384                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
1385                                          Parse::RecDescent::_tracefirst($_[1]),
1386                                          q{SCHEMA},
1387                                          $tracelevel)
1388                                         if defined $::RD_TRACE;
1389                 return undef;
1390         }
1391         if (!defined($return) && defined($score))
1392         {
1393                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
1394                                           q{SCHEMA},
1395                                           $tracelevel)
1396                                                 if defined $::RD_TRACE;
1397                 $return = $score_return;
1398         }
1399         splice @{$thisparser->{errors}}, $err_at;
1400         $return = $item[$#item] unless defined $return;
1401         if (defined $::RD_TRACE)
1402         {
1403                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
1404                                           $return . q{])}, "",
1405                                           q{SCHEMA},
1406                                           $tracelevel);
1407                 Parse::RecDescent::_trace(q{(consumed: [} .
1408                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
1409                                           Parse::RecDescent::_tracefirst($text),
1410                                           , q{SCHEMA},
1411                                           $tracelevel)
1412         }
1413         $_[1] = $text;
1414         return $return;
1415 }
1416
1417 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
1418 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_87_of_rule_sysibm_function
1419 {
1420         my $thisparser = $_[0];
1421         use vars q{$tracelevel};
1422         local $tracelevel = ($tracelevel||0)+1;
1423         $ERRORS = 0;
1424         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_87_of_rule_sysibm_function"};
1425
1426         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_87_of_rule_sysibm_function]},
1427                                   Parse::RecDescent::_tracefirst($_[1]),
1428                                   q{_alternation_1_of_production_87_of_rule_sysibm_function},
1429                                   $tracelevel)
1430                                         if defined $::RD_TRACE;
1431
1432
1433         my $err_at = @{$thisparser->{errors}};
1434
1435         my $score;
1436         my $score_return;
1437         my $_tok;
1438         my $return = undef;
1439         my $_matched=0;
1440         my $commit=0;
1441         my @item = ();
1442         my %item = ();
1443         my $repeating =  defined($_[2]) && $_[2];
1444         my $_noactions = defined($_[3]) && $_[3];
1445         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
1446         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
1447         my $text;
1448         my $lastsep="";
1449         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
1450         $expectation->at($_[1]);
1451
1452         my $thisline;
1453         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
1454
1455
1456
1457         while (!$_matched && !$commit)
1458         {
1459
1460                 Parse::RecDescent::_trace(q{Trying production: [/VARIANCE/i]},
1461                                           Parse::RecDescent::_tracefirst($_[1]),
1462                                           q{_alternation_1_of_production_87_of_rule_sysibm_function},
1463                                           $tracelevel)
1464                                                 if defined $::RD_TRACE;
1465                 my $thisprod = $thisrule->{"prods"}[0];
1466                 $text = $_[1];
1467                 my $_savetext;
1468                 @item = (q{_alternation_1_of_production_87_of_rule_sysibm_function});
1469                 %item = (__RULE__ => q{_alternation_1_of_production_87_of_rule_sysibm_function});
1470                 my $repcount = 0;
1471
1472
1473                 Parse::RecDescent::_trace(q{Trying terminal: [/VARIANCE/i]}, Parse::RecDescent::_tracefirst($text),
1474                                           q{_alternation_1_of_production_87_of_rule_sysibm_function},
1475                                           $tracelevel)
1476                                                 if defined $::RD_TRACE;
1477                 $lastsep = "";
1478                 $expectation->is(q{})->at($text);
1479
1480
1481                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:VARIANCE)//i)
1482                 {
1483
1484                         $expectation->failed();
1485                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
1486                                                   Parse::RecDescent::_tracefirst($text))
1487                                         if defined $::RD_TRACE;
1488
1489                         last;
1490                 }
1491                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
1492                                                 . $& . q{])},
1493                                                   Parse::RecDescent::_tracefirst($text))
1494                                         if defined $::RD_TRACE;
1495                 push @item, $item{__PATTERN1__}=$&;
1496
1497
1498
1499                 Parse::RecDescent::_trace(q{>>Matched production: [/VARIANCE/i]<<},
1500                                           Parse::RecDescent::_tracefirst($text),
1501                                           q{_alternation_1_of_production_87_of_rule_sysibm_function},
1502                                           $tracelevel)
1503                                                 if defined $::RD_TRACE;
1504                 $_matched = 1;
1505                 last;
1506         }
1507
1508
1509         while (!$_matched && !$commit)
1510         {
1511
1512                 Parse::RecDescent::_trace(q{Trying production: [/VAR/i]},
1513                                           Parse::RecDescent::_tracefirst($_[1]),
1514                                           q{_alternation_1_of_production_87_of_rule_sysibm_function},
1515                                           $tracelevel)
1516                                                 if defined $::RD_TRACE;
1517                 my $thisprod = $thisrule->{"prods"}[1];
1518                 $text = $_[1];
1519                 my $_savetext;
1520                 @item = (q{_alternation_1_of_production_87_of_rule_sysibm_function});
1521                 %item = (__RULE__ => q{_alternation_1_of_production_87_of_rule_sysibm_function});
1522                 my $repcount = 0;
1523
1524
1525                 Parse::RecDescent::_trace(q{Trying terminal: [/VAR/i]}, Parse::RecDescent::_tracefirst($text),
1526                                           q{_alternation_1_of_production_87_of_rule_sysibm_function},
1527                                           $tracelevel)
1528                                                 if defined $::RD_TRACE;
1529                 $lastsep = "";
1530                 $expectation->is(q{})->at($text);
1531
1532
1533                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:VAR)//i)
1534                 {
1535
1536                         $expectation->failed();
1537                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
1538                                                   Parse::RecDescent::_tracefirst($text))
1539                                         if defined $::RD_TRACE;
1540
1541                         last;
1542                 }
1543                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
1544                                                 . $& . q{])},
1545                                                   Parse::RecDescent::_tracefirst($text))
1546                                         if defined $::RD_TRACE;
1547                 push @item, $item{__PATTERN1__}=$&;
1548
1549
1550
1551                 Parse::RecDescent::_trace(q{>>Matched production: [/VAR/i]<<},
1552                                           Parse::RecDescent::_tracefirst($text),
1553                                           q{_alternation_1_of_production_87_of_rule_sysibm_function},
1554                                           $tracelevel)
1555                                                 if defined $::RD_TRACE;
1556                 $_matched = 1;
1557                 last;
1558         }
1559
1560
1561         unless ( $_matched || defined($return) || defined($score) )
1562         {
1563
1564
1565                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
1566                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
1567                                          Parse::RecDescent::_tracefirst($_[1]),
1568                                          q{_alternation_1_of_production_87_of_rule_sysibm_function},
1569                                          $tracelevel)
1570                                         if defined $::RD_TRACE;
1571                 return undef;
1572         }
1573         if (!defined($return) && defined($score))
1574         {
1575                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
1576                                           q{_alternation_1_of_production_87_of_rule_sysibm_function},
1577                                           $tracelevel)
1578                                                 if defined $::RD_TRACE;
1579                 $return = $score_return;
1580         }
1581         splice @{$thisparser->{errors}}, $err_at;
1582         $return = $item[$#item] unless defined $return;
1583         if (defined $::RD_TRACE)
1584         {
1585                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
1586                                           $return . q{])}, "",
1587                                           q{_alternation_1_of_production_87_of_rule_sysibm_function},
1588                                           $tracelevel);
1589                 Parse::RecDescent::_trace(q{(consumed: [} .
1590                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
1591                                           Parse::RecDescent::_tracefirst($text),
1592                                           , q{_alternation_1_of_production_87_of_rule_sysibm_function},
1593                                           $tracelevel)
1594         }
1595         $_[1] = $text;
1596         return $return;
1597 }
1598
1599 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
1600 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression
1601 {
1602         my $thisparser = $_[0];
1603         use vars q{$tracelevel};
1604         local $tracelevel = ($tracelevel||0)+1;
1605         $ERRORS = 0;
1606         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression"};
1607
1608         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression]},
1609                                   Parse::RecDescent::_tracefirst($_[1]),
1610                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
1611                                   $tracelevel)
1612                                         if defined $::RD_TRACE;
1613
1614
1615         my $err_at = @{$thisparser->{errors}};
1616
1617         my $score;
1618         my $score_return;
1619         my $_tok;
1620         my $return = undef;
1621         my $_matched=0;
1622         my $commit=0;
1623         my @item = ();
1624         my %item = ();
1625         my $repeating =  defined($_[2]) && $_[2];
1626         my $_noactions = defined($_[3]) && $_[3];
1627         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
1628         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
1629         my $text;
1630         my $lastsep="";
1631         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
1632         $expectation->at($_[1]);
1633
1634         my $thisline;
1635         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
1636
1637
1638
1639         while (!$_matched && !$commit)
1640         {
1641
1642                 Parse::RecDescent::_trace(q{Trying production: ['+']},
1643                                           Parse::RecDescent::_tracefirst($_[1]),
1644                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
1645                                           $tracelevel)
1646                                                 if defined $::RD_TRACE;
1647                 my $thisprod = $thisrule->{"prods"}[0];
1648                 $text = $_[1];
1649                 my $_savetext;
1650                 @item = (q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
1651                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
1652                 my $repcount = 0;
1653
1654
1655                 Parse::RecDescent::_trace(q{Trying terminal: ['+']},
1656                                           Parse::RecDescent::_tracefirst($text),
1657                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
1658                                           $tracelevel)
1659                                                 if defined $::RD_TRACE;
1660                 $lastsep = "";
1661                 $expectation->is(q{})->at($text);
1662
1663
1664                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\+//)
1665                 {
1666
1667                         $expectation->failed();
1668                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
1669                                                   Parse::RecDescent::_tracefirst($text))
1670                                                         if defined $::RD_TRACE;
1671                         last;
1672                 }
1673                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
1674                                                 . $& . q{])},
1675                                                   Parse::RecDescent::_tracefirst($text))
1676                                                         if defined $::RD_TRACE;
1677                 push @item, $item{__STRING1__}=$&;
1678
1679
1680
1681                 Parse::RecDescent::_trace(q{>>Matched production: ['+']<<},
1682                                           Parse::RecDescent::_tracefirst($text),
1683                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
1684                                           $tracelevel)
1685                                                 if defined $::RD_TRACE;
1686                 $_matched = 1;
1687                 last;
1688         }
1689
1690
1691         while (!$_matched && !$commit)
1692         {
1693
1694                 Parse::RecDescent::_trace(q{Trying production: ['-']},
1695                                           Parse::RecDescent::_tracefirst($_[1]),
1696                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
1697                                           $tracelevel)
1698                                                 if defined $::RD_TRACE;
1699                 my $thisprod = $thisrule->{"prods"}[1];
1700                 $text = $_[1];
1701                 my $_savetext;
1702                 @item = (q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
1703                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
1704                 my $repcount = 0;
1705
1706
1707                 Parse::RecDescent::_trace(q{Trying terminal: ['-']},
1708                                           Parse::RecDescent::_tracefirst($text),
1709                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
1710                                           $tracelevel)
1711                                                 if defined $::RD_TRACE;
1712                 $lastsep = "";
1713                 $expectation->is(q{})->at($text);
1714
1715
1716                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\-//)
1717                 {
1718
1719                         $expectation->failed();
1720                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
1721                                                   Parse::RecDescent::_tracefirst($text))
1722                                                         if defined $::RD_TRACE;
1723                         last;
1724                 }
1725                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
1726                                                 . $& . q{])},
1727                                                   Parse::RecDescent::_tracefirst($text))
1728                                                         if defined $::RD_TRACE;
1729                 push @item, $item{__STRING1__}=$&;
1730
1731
1732
1733                 Parse::RecDescent::_trace(q{>>Matched production: ['-']<<},
1734                                           Parse::RecDescent::_tracefirst($text),
1735                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
1736                                           $tracelevel)
1737                                                 if defined $::RD_TRACE;
1738                 $_matched = 1;
1739                 last;
1740         }
1741
1742
1743         unless ( $_matched || defined($return) || defined($score) )
1744         {
1745
1746
1747                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
1748                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
1749                                          Parse::RecDescent::_tracefirst($_[1]),
1750                                          q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
1751                                          $tracelevel)
1752                                         if defined $::RD_TRACE;
1753                 return undef;
1754         }
1755         if (!defined($return) && defined($score))
1756         {
1757                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
1758                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
1759                                           $tracelevel)
1760                                                 if defined $::RD_TRACE;
1761                 $return = $score_return;
1762         }
1763         splice @{$thisparser->{errors}}, $err_at;
1764         $return = $item[$#item] unless defined $return;
1765         if (defined $::RD_TRACE)
1766         {
1767                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
1768                                           $return . q{])}, "",
1769                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
1770                                           $tracelevel);
1771                 Parse::RecDescent::_trace(q{(consumed: [} .
1772                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
1773                                           Parse::RecDescent::_tracefirst($text),
1774                                           , q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
1775                                           $tracelevel)
1776         }
1777         $_[1] = $text;
1778         return $return;
1779 }
1780
1781 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
1782 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::get_bracketed
1783 {
1784         my $thisparser = $_[0];
1785         use vars q{$tracelevel};
1786         local $tracelevel = ($tracelevel||0)+1;
1787         $ERRORS = 0;
1788         my $thisrule = $thisparser->{"rules"}{"get_bracketed"};
1789
1790         Parse::RecDescent::_trace(q{Trying rule: [get_bracketed]},
1791                                   Parse::RecDescent::_tracefirst($_[1]),
1792                                   q{get_bracketed},
1793                                   $tracelevel)
1794                                         if defined $::RD_TRACE;
1795
1796
1797         my $err_at = @{$thisparser->{errors}};
1798
1799         my $score;
1800         my $score_return;
1801         my $_tok;
1802         my $return = undef;
1803         my $_matched=0;
1804         my $commit=0;
1805         my @item = ();
1806         my %item = ();
1807         my $repeating =  defined($_[2]) && $_[2];
1808         my $_noactions = defined($_[3]) && $_[3];
1809         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
1810         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
1811         my $text;
1812         my $lastsep="";
1813         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
1814         $expectation->at($_[1]);
1815
1816         my $thisline;
1817         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
1818
1819
1820
1821         while (!$_matched && !$commit)
1822         {
1823
1824                 Parse::RecDescent::_trace(q{Trying production: []},
1825                                           Parse::RecDescent::_tracefirst($_[1]),
1826                                           q{get_bracketed},
1827                                           $tracelevel)
1828                                                 if defined $::RD_TRACE;
1829                 my $thisprod = $thisrule->{"prods"}[0];
1830                 $text = $_[1];
1831                 my $_savetext;
1832                 @item = (q{get_bracketed});
1833                 %item = (__RULE__ => q{get_bracketed});
1834                 my $repcount = 0;
1835
1836
1837                 Parse::RecDescent::_trace(q{Trying action},
1838                                           Parse::RecDescent::_tracefirst($text),
1839                                           q{get_bracketed},
1840                                           $tracelevel)
1841                                                 if defined $::RD_TRACE;
1842
1843
1844                 $_tok = ($_noactions) ? 0 : do {
1845     extract_bracketed($text, '(');
1846 };
1847                 unless (defined $_tok)
1848                 {
1849                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
1850                                         if defined $::RD_TRACE;
1851                         last;
1852                 }
1853                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
1854                                           . $_tok . q{])},
1855                                           Parse::RecDescent::_tracefirst($text))
1856                                                 if defined $::RD_TRACE;
1857                 push @item, $_tok;
1858                 $item{__ACTION1__}=$_tok;
1859
1860
1861
1862                 Parse::RecDescent::_trace(q{>>Matched production: []<<},
1863                                           Parse::RecDescent::_tracefirst($text),
1864                                           q{get_bracketed},
1865                                           $tracelevel)
1866                                                 if defined $::RD_TRACE;
1867                 $_matched = 1;
1868                 last;
1869         }
1870
1871
1872         unless ( $_matched || defined($return) || defined($score) )
1873         {
1874
1875
1876                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
1877                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
1878                                          Parse::RecDescent::_tracefirst($_[1]),
1879                                          q{get_bracketed},
1880                                          $tracelevel)
1881                                         if defined $::RD_TRACE;
1882                 return undef;
1883         }
1884         if (!defined($return) && defined($score))
1885         {
1886                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
1887                                           q{get_bracketed},
1888                                           $tracelevel)
1889                                                 if defined $::RD_TRACE;
1890                 $return = $score_return;
1891         }
1892         splice @{$thisparser->{errors}}, $err_at;
1893         $return = $item[$#item] unless defined $return;
1894         if (defined $::RD_TRACE)
1895         {
1896                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
1897                                           $return . q{])}, "",
1898                                           q{get_bracketed},
1899                                           $tracelevel);
1900                 Parse::RecDescent::_trace(q{(consumed: [} .
1901                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
1902                                           Parse::RecDescent::_tracefirst($text),
1903                                           , q{get_bracketed},
1904                                           $tracelevel)
1905         }
1906         $_[1] = $text;
1907         return $return;
1908 }
1909
1910 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
1911 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::labeled_duration
1912 {
1913         my $thisparser = $_[0];
1914         use vars q{$tracelevel};
1915         local $tracelevel = ($tracelevel||0)+1;
1916         $ERRORS = 0;
1917         my $thisrule = $thisparser->{"rules"}{"labeled_duration"};
1918
1919         Parse::RecDescent::_trace(q{Trying rule: [labeled_duration]},
1920                                   Parse::RecDescent::_tracefirst($_[1]),
1921                                   q{labeled_duration},
1922                                   $tracelevel)
1923                                         if defined $::RD_TRACE;
1924
1925
1926         my $err_at = @{$thisparser->{errors}};
1927
1928         my $score;
1929         my $score_return;
1930         my $_tok;
1931         my $return = undef;
1932         my $_matched=0;
1933         my $commit=0;
1934         my @item = ();
1935         my %item = ();
1936         my $repeating =  defined($_[2]) && $_[2];
1937         my $_noactions = defined($_[3]) && $_[3];
1938         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
1939         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
1940         my $text;
1941         my $lastsep="";
1942         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
1943         $expectation->at($_[1]);
1944
1945         my $thisline;
1946         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
1947
1948
1949
1950         while (!$_matched && !$commit)
1951         {
1952
1953                 Parse::RecDescent::_trace(q{Trying production: [ld_type ld_duration]},
1954                                           Parse::RecDescent::_tracefirst($_[1]),
1955                                           q{labeled_duration},
1956                                           $tracelevel)
1957                                                 if defined $::RD_TRACE;
1958                 my $thisprod = $thisrule->{"prods"}[0];
1959                 $text = $_[1];
1960                 my $_savetext;
1961                 @item = (q{labeled_duration});
1962                 %item = (__RULE__ => q{labeled_duration});
1963                 my $repcount = 0;
1964
1965
1966                 Parse::RecDescent::_trace(q{Trying subrule: [ld_type]},
1967                                   Parse::RecDescent::_tracefirst($text),
1968                                   q{labeled_duration},
1969                                   $tracelevel)
1970                                         if defined $::RD_TRACE;
1971                 if (1) { no strict qw{refs};
1972                 $expectation->is(q{})->at($text);
1973                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::ld_type($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
1974                 {
1975
1976                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [ld_type]>>},
1977                                                   Parse::RecDescent::_tracefirst($text),
1978                                                   q{labeled_duration},
1979                                                   $tracelevel)
1980                                                         if defined $::RD_TRACE;
1981                         $expectation->failed();
1982                         last;
1983                 }
1984                 Parse::RecDescent::_trace(q{>>Matched subrule: [ld_type]<< (return value: [}
1985                                         . $_tok . q{]},
1986
1987                                           Parse::RecDescent::_tracefirst($text),
1988                                           q{labeled_duration},
1989                                           $tracelevel)
1990                                                 if defined $::RD_TRACE;
1991                 $item{q{ld_type}} = $_tok;
1992                 push @item, $_tok;
1993
1994                 }
1995
1996                 Parse::RecDescent::_trace(q{Trying subrule: [ld_duration]},
1997                                   Parse::RecDescent::_tracefirst($text),
1998                                   q{labeled_duration},
1999                                   $tracelevel)
2000                                         if defined $::RD_TRACE;
2001                 if (1) { no strict qw{refs};
2002                 $expectation->is(q{ld_duration})->at($text);
2003                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::ld_duration($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
2004                 {
2005
2006                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [ld_duration]>>},
2007                                                   Parse::RecDescent::_tracefirst($text),
2008                                                   q{labeled_duration},
2009                                                   $tracelevel)
2010                                                         if defined $::RD_TRACE;
2011                         $expectation->failed();
2012                         last;
2013                 }
2014                 Parse::RecDescent::_trace(q{>>Matched subrule: [ld_duration]<< (return value: [}
2015                                         . $_tok . q{]},
2016
2017                                           Parse::RecDescent::_tracefirst($text),
2018                                           q{labeled_duration},
2019                                           $tracelevel)
2020                                                 if defined $::RD_TRACE;
2021                 $item{q{ld_duration}} = $_tok;
2022                 push @item, $_tok;
2023
2024                 }
2025
2026
2027                 Parse::RecDescent::_trace(q{>>Matched production: [ld_type ld_duration]<<},
2028                                           Parse::RecDescent::_tracefirst($text),
2029                                           q{labeled_duration},
2030                                           $tracelevel)
2031                                                 if defined $::RD_TRACE;
2032                 $_matched = 1;
2033                 last;
2034         }
2035
2036
2037         unless ( $_matched || defined($return) || defined($score) )
2038         {
2039
2040
2041                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
2042                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
2043                                          Parse::RecDescent::_tracefirst($_[1]),
2044                                          q{labeled_duration},
2045                                          $tracelevel)
2046                                         if defined $::RD_TRACE;
2047                 return undef;
2048         }
2049         if (!defined($return) && defined($score))
2050         {
2051                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
2052                                           q{labeled_duration},
2053                                           $tracelevel)
2054                                                 if defined $::RD_TRACE;
2055                 $return = $score_return;
2056         }
2057         splice @{$thisparser->{errors}}, $err_at;
2058         $return = $item[$#item] unless defined $return;
2059         if (defined $::RD_TRACE)
2060         {
2061                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
2062                                           $return . q{])}, "",
2063                                           q{labeled_duration},
2064                                           $tracelevel);
2065                 Parse::RecDescent::_trace(q{(consumed: [} .
2066                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
2067                                           Parse::RecDescent::_tracefirst($text),
2068                                           , q{labeled_duration},
2069                                           $tracelevel)
2070         }
2071         $_[1] = $text;
2072         return $return;
2073 }
2074
2075 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
2076 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::group_end
2077 {
2078         my $thisparser = $_[0];
2079         use vars q{$tracelevel};
2080         local $tracelevel = ($tracelevel||0)+1;
2081         $ERRORS = 0;
2082         my $thisrule = $thisparser->{"rules"}{"group_end"};
2083
2084         Parse::RecDescent::_trace(q{Trying rule: [group_end]},
2085                                   Parse::RecDescent::_tracefirst($_[1]),
2086                                   q{group_end},
2087                                   $tracelevel)
2088                                         if defined $::RD_TRACE;
2089
2090
2091         my $err_at = @{$thisparser->{errors}};
2092
2093         my $score;
2094         my $score_return;
2095         my $_tok;
2096         my $return = undef;
2097         my $_matched=0;
2098         my $commit=0;
2099         my @item = ();
2100         my %item = ();
2101         my $repeating =  defined($_[2]) && $_[2];
2102         my $_noactions = defined($_[3]) && $_[3];
2103         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
2104         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
2105         my $text;
2106         my $lastsep="";
2107         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
2108         $expectation->at($_[1]);
2109
2110         my $thisline;
2111         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
2112
2113
2114
2115         while (!$_matched && !$commit)
2116         {
2117
2118                 Parse::RecDescent::_trace(q{Trying production: [/UNBOUNDED\\s+PRECEDING/i]},
2119                                           Parse::RecDescent::_tracefirst($_[1]),
2120                                           q{group_end},
2121                                           $tracelevel)
2122                                                 if defined $::RD_TRACE;
2123                 my $thisprod = $thisrule->{"prods"}[0];
2124                 $text = $_[1];
2125                 my $_savetext;
2126                 @item = (q{group_end});
2127                 %item = (__RULE__ => q{group_end});
2128                 my $repcount = 0;
2129
2130
2131                 Parse::RecDescent::_trace(q{Trying terminal: [/UNBOUNDED\\s+PRECEDING/i]}, Parse::RecDescent::_tracefirst($text),
2132                                           q{group_end},
2133                                           $tracelevel)
2134                                                 if defined $::RD_TRACE;
2135                 $lastsep = "";
2136                 $expectation->is(q{})->at($text);
2137
2138
2139                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:UNBOUNDED\s+PRECEDING)//i)
2140                 {
2141
2142                         $expectation->failed();
2143                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
2144                                                   Parse::RecDescent::_tracefirst($text))
2145                                         if defined $::RD_TRACE;
2146
2147                         last;
2148                 }
2149                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
2150                                                 . $& . q{])},
2151                                                   Parse::RecDescent::_tracefirst($text))
2152                                         if defined $::RD_TRACE;
2153                 push @item, $item{__PATTERN1__}=$&;
2154
2155
2156
2157                 Parse::RecDescent::_trace(q{>>Matched production: [/UNBOUNDED\\s+PRECEDING/i]<<},
2158                                           Parse::RecDescent::_tracefirst($text),
2159                                           q{group_end},
2160                                           $tracelevel)
2161                                                 if defined $::RD_TRACE;
2162                 $_matched = 1;
2163                 last;
2164         }
2165
2166
2167         while (!$_matched && !$commit)
2168         {
2169
2170                 Parse::RecDescent::_trace(q{Trying production: [unsigned_constant /FOLLOWING/i]},
2171                                           Parse::RecDescent::_tracefirst($_[1]),
2172                                           q{group_end},
2173                                           $tracelevel)
2174                                                 if defined $::RD_TRACE;
2175                 my $thisprod = $thisrule->{"prods"}[1];
2176                 $text = $_[1];
2177                 my $_savetext;
2178                 @item = (q{group_end});
2179                 %item = (__RULE__ => q{group_end});
2180                 my $repcount = 0;
2181
2182
2183                 Parse::RecDescent::_trace(q{Trying subrule: [unsigned_constant]},
2184                                   Parse::RecDescent::_tracefirst($text),
2185                                   q{group_end},
2186                                   $tracelevel)
2187                                         if defined $::RD_TRACE;
2188                 if (1) { no strict qw{refs};
2189                 $expectation->is(q{})->at($text);
2190                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::unsigned_constant($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
2191                 {
2192
2193                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [unsigned_constant]>>},
2194                                                   Parse::RecDescent::_tracefirst($text),
2195                                                   q{group_end},
2196                                                   $tracelevel)
2197                                                         if defined $::RD_TRACE;
2198                         $expectation->failed();
2199                         last;
2200                 }
2201                 Parse::RecDescent::_trace(q{>>Matched subrule: [unsigned_constant]<< (return value: [}
2202                                         . $_tok . q{]},
2203
2204                                           Parse::RecDescent::_tracefirst($text),
2205                                           q{group_end},
2206                                           $tracelevel)
2207                                                 if defined $::RD_TRACE;
2208                 $item{q{unsigned_constant}} = $_tok;
2209                 push @item, $_tok;
2210
2211                 }
2212
2213                 Parse::RecDescent::_trace(q{Trying terminal: [/FOLLOWING/i]}, Parse::RecDescent::_tracefirst($text),
2214                                           q{group_end},
2215                                           $tracelevel)
2216                                                 if defined $::RD_TRACE;
2217                 $lastsep = "";
2218                 $expectation->is(q{/FOLLOWING/i})->at($text);
2219
2220
2221                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:FOLLOWING)//i)
2222                 {
2223
2224                         $expectation->failed();
2225                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
2226                                                   Parse::RecDescent::_tracefirst($text))
2227                                         if defined $::RD_TRACE;
2228
2229                         last;
2230                 }
2231                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
2232                                                 . $& . q{])},
2233                                                   Parse::RecDescent::_tracefirst($text))
2234                                         if defined $::RD_TRACE;
2235                 push @item, $item{__PATTERN1__}=$&;
2236
2237
2238
2239                 Parse::RecDescent::_trace(q{>>Matched production: [unsigned_constant /FOLLOWING/i]<<},
2240                                           Parse::RecDescent::_tracefirst($text),
2241                                           q{group_end},
2242                                           $tracelevel)
2243                                                 if defined $::RD_TRACE;
2244                 $_matched = 1;
2245                 last;
2246         }
2247
2248
2249         unless ( $_matched || defined($return) || defined($score) )
2250         {
2251
2252
2253                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
2254                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
2255                                          Parse::RecDescent::_tracefirst($_[1]),
2256                                          q{group_end},
2257                                          $tracelevel)
2258                                         if defined $::RD_TRACE;
2259                 return undef;
2260         }
2261         if (!defined($return) && defined($score))
2262         {
2263                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
2264                                           q{group_end},
2265                                           $tracelevel)
2266                                                 if defined $::RD_TRACE;
2267                 $return = $score_return;
2268         }
2269         splice @{$thisparser->{errors}}, $err_at;
2270         $return = $item[$#item] unless defined $return;
2271         if (defined $::RD_TRACE)
2272         {
2273                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
2274                                           $return . q{])}, "",
2275                                           q{group_end},
2276                                           $tracelevel);
2277                 Parse::RecDescent::_trace(q{(consumed: [} .
2278                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
2279                                           Parse::RecDescent::_tracefirst($text),
2280                                           , q{group_end},
2281                                           $tracelevel)
2282         }
2283         $_[1] = $text;
2284         return $return;
2285 }
2286
2287 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
2288 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::statement
2289 {
2290         my $thisparser = $_[0];
2291         use vars q{$tracelevel};
2292         local $tracelevel = ($tracelevel||0)+1;
2293         $ERRORS = 0;
2294         my $thisrule = $thisparser->{"rules"}{"statement"};
2295
2296         Parse::RecDescent::_trace(q{Trying rule: [statement]},
2297                                   Parse::RecDescent::_tracefirst($_[1]),
2298                                   q{statement},
2299                                   $tracelevel)
2300                                         if defined $::RD_TRACE;
2301
2302
2303         my $err_at = @{$thisparser->{errors}};
2304
2305         my $score;
2306         my $score_return;
2307         my $_tok;
2308         my $return = undef;
2309         my $_matched=0;
2310         my $commit=0;
2311         my @item = ();
2312         my %item = ();
2313         my $repeating =  defined($_[2]) && $_[2];
2314         my $_noactions = defined($_[3]) && $_[3];
2315         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
2316         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
2317         my $text;
2318         my $lastsep="";
2319         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
2320         $expectation->at($_[1]);
2321
2322         my $thisline;
2323         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
2324
2325
2326
2327         while (!$_matched && !$commit)
2328         {
2329
2330                 Parse::RecDescent::_trace(q{Trying production: [comment]},
2331                                           Parse::RecDescent::_tracefirst($_[1]),
2332                                           q{statement},
2333                                           $tracelevel)
2334                                                 if defined $::RD_TRACE;
2335                 my $thisprod = $thisrule->{"prods"}[0];
2336                 $text = $_[1];
2337                 my $_savetext;
2338                 @item = (q{statement});
2339                 %item = (__RULE__ => q{statement});
2340                 my $repcount = 0;
2341
2342
2343                 Parse::RecDescent::_trace(q{Trying subrule: [comment]},
2344                                   Parse::RecDescent::_tracefirst($text),
2345                                   q{statement},
2346                                   $tracelevel)
2347                                         if defined $::RD_TRACE;
2348                 if (1) { no strict qw{refs};
2349                 $expectation->is(q{})->at($text);
2350                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::comment($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
2351                 {
2352
2353                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [comment]>>},
2354                                                   Parse::RecDescent::_tracefirst($text),
2355                                                   q{statement},
2356                                                   $tracelevel)
2357                                                         if defined $::RD_TRACE;
2358                         $expectation->failed();
2359                         last;
2360                 }
2361                 Parse::RecDescent::_trace(q{>>Matched subrule: [comment]<< (return value: [}
2362                                         . $_tok . q{]},
2363
2364                                           Parse::RecDescent::_tracefirst($text),
2365                                           q{statement},
2366                                           $tracelevel)
2367                                                 if defined $::RD_TRACE;
2368                 $item{q{comment}} = $_tok;
2369                 push @item, $_tok;
2370
2371                 }
2372
2373
2374                 Parse::RecDescent::_trace(q{>>Matched production: [comment]<<},
2375                                           Parse::RecDescent::_tracefirst($text),
2376                                           q{statement},
2377                                           $tracelevel)
2378                                                 if defined $::RD_TRACE;
2379                 $_matched = 1;
2380                 last;
2381         }
2382
2383
2384         while (!$_matched && !$commit)
2385         {
2386
2387                 Parse::RecDescent::_trace(q{Trying production: [create]},
2388                                           Parse::RecDescent::_tracefirst($_[1]),
2389                                           q{statement},
2390                                           $tracelevel)
2391                                                 if defined $::RD_TRACE;
2392                 my $thisprod = $thisrule->{"prods"}[1];
2393                 $text = $_[1];
2394                 my $_savetext;
2395                 @item = (q{statement});
2396                 %item = (__RULE__ => q{statement});
2397                 my $repcount = 0;
2398
2399
2400                 Parse::RecDescent::_trace(q{Trying subrule: [create]},
2401                                   Parse::RecDescent::_tracefirst($text),
2402                                   q{statement},
2403                                   $tracelevel)
2404                                         if defined $::RD_TRACE;
2405                 if (1) { no strict qw{refs};
2406                 $expectation->is(q{})->at($text);
2407                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::create($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
2408                 {
2409
2410                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [create]>>},
2411                                                   Parse::RecDescent::_tracefirst($text),
2412                                                   q{statement},
2413                                                   $tracelevel)
2414                                                         if defined $::RD_TRACE;
2415                         $expectation->failed();
2416                         last;
2417                 }
2418                 Parse::RecDescent::_trace(q{>>Matched subrule: [create]<< (return value: [}
2419                                         . $_tok . q{]},
2420
2421                                           Parse::RecDescent::_tracefirst($text),
2422                                           q{statement},
2423                                           $tracelevel)
2424                                                 if defined $::RD_TRACE;
2425                 $item{q{create}} = $_tok;
2426                 push @item, $_tok;
2427
2428                 }
2429
2430
2431                 Parse::RecDescent::_trace(q{>>Matched production: [create]<<},
2432                                           Parse::RecDescent::_tracefirst($text),
2433                                           q{statement},
2434                                           $tracelevel)
2435                                                 if defined $::RD_TRACE;
2436                 $_matched = 1;
2437                 last;
2438         }
2439
2440
2441         while (!$_matched)
2442         {
2443
2444                 Parse::RecDescent::_trace(q{Trying production: [<error...>]},
2445                                           Parse::RecDescent::_tracefirst($_[1]),
2446                                           q{statement},
2447                                           $tracelevel)
2448                                                 if defined $::RD_TRACE;
2449                 my $thisprod = $thisrule->{"prods"}[2];
2450
2451                 my $_savetext;
2452                 @item = (q{statement});
2453                 %item = (__RULE__ => q{statement});
2454                 my $repcount = 0;
2455
2456
2457
2458
2459                 Parse::RecDescent::_trace(q{Trying directive: [<error...>]},
2460                                         Parse::RecDescent::_tracefirst($text),
2461                                           q{statement},
2462                                           $tracelevel)
2463                                                 if defined $::RD_TRACE;
2464                 $_tok = do { if (1) { do {
2465                 my $rule = $item[0];
2466                    $rule =~ s/_/ /g;
2467                 #WAS: Parse::RecDescent::_error("Invalid $rule: " . $expectation->message() ,$thisline);
2468                 push @{$thisparser->{errors}}, ["Invalid $rule: " . $expectation->message() ,$thisline];
2469                 } unless  $_noactions; undef } else {0} };
2470                 if (defined($_tok))
2471                 {
2472                         Parse::RecDescent::_trace(q{>>Matched directive<< (return value: [}
2473                                                 . $_tok . q{])},
2474                                                 Parse::RecDescent::_tracefirst($text))
2475                                                         if defined $::RD_TRACE;
2476                 }
2477                 else
2478                 {
2479                         Parse::RecDescent::_trace(q{<<Didn't match directive>>},
2480                                                 Parse::RecDescent::_tracefirst($text))
2481                                                         if defined $::RD_TRACE;
2482                 }
2483
2484                 last unless defined $_tok;
2485                 push @item, $item{__DIRECTIVE1__}=$_tok;
2486
2487
2488
2489                 Parse::RecDescent::_trace(q{>>Matched production: [<error...>]<<},
2490                                           Parse::RecDescent::_tracefirst($text),
2491                                           q{statement},
2492                                           $tracelevel)
2493                                                 if defined $::RD_TRACE;
2494                 $_matched = 1;
2495                 last;
2496         }
2497
2498
2499         unless ( $_matched || defined($return) || defined($score) )
2500         {
2501
2502
2503                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
2504                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
2505                                          Parse::RecDescent::_tracefirst($_[1]),
2506                                          q{statement},
2507                                          $tracelevel)
2508                                         if defined $::RD_TRACE;
2509                 return undef;
2510         }
2511         if (!defined($return) && defined($score))
2512         {
2513                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
2514                                           q{statement},
2515                                           $tracelevel)
2516                                                 if defined $::RD_TRACE;
2517                 $return = $score_return;
2518         }
2519         splice @{$thisparser->{errors}}, $err_at;
2520         $return = $item[$#item] unless defined $return;
2521         if (defined $::RD_TRACE)
2522         {
2523                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
2524                                           $return . q{])}, "",
2525                                           q{statement},
2526                                           $tracelevel);
2527                 Parse::RecDescent::_trace(q{(consumed: [} .
2528                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
2529                                           Parse::RecDescent::_tracefirst($text),
2530                                           , q{statement},
2531                                           $tracelevel)
2532         }
2533         $_[1] = $text;
2534         return $return;
2535 }
2536
2537 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
2538 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause
2539 {
2540         my $thisparser = $_[0];
2541         use vars q{$tracelevel};
2542         local $tracelevel = ($tracelevel||0)+1;
2543         $ERRORS = 0;
2544         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause"};
2545
2546         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause]},
2547                                   Parse::RecDescent::_tracefirst($_[1]),
2548                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause},
2549                                   $tracelevel)
2550                                         if defined $::RD_TRACE;
2551
2552
2553         my $err_at = @{$thisparser->{errors}};
2554
2555         my $score;
2556         my $score_return;
2557         my $_tok;
2558         my $return = undef;
2559         my $_matched=0;
2560         my $commit=0;
2561         my @item = ();
2562         my %item = ();
2563         my $repeating =  defined($_[2]) && $_[2];
2564         my $_noactions = defined($_[3]) && $_[3];
2565         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
2566         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
2567         my $text;
2568         my $lastsep="";
2569         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
2570         $expectation->at($_[1]);
2571
2572         my $thisline;
2573         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
2574
2575
2576
2577         while (!$_matched && !$commit)
2578         {
2579
2580                 Parse::RecDescent::_trace(q{Trying production: [result_expression]},
2581                                           Parse::RecDescent::_tracefirst($_[1]),
2582                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause},
2583                                           $tracelevel)
2584                                                 if defined $::RD_TRACE;
2585                 my $thisprod = $thisrule->{"prods"}[0];
2586                 $text = $_[1];
2587                 my $_savetext;
2588                 @item = (q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause});
2589                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause});
2590                 my $repcount = 0;
2591
2592
2593                 Parse::RecDescent::_trace(q{Trying subrule: [result_expression]},
2594                                   Parse::RecDescent::_tracefirst($text),
2595                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause},
2596                                   $tracelevel)
2597                                         if defined $::RD_TRACE;
2598                 if (1) { no strict qw{refs};
2599                 $expectation->is(q{})->at($text);
2600                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::result_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
2601                 {
2602
2603                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [result_expression]>>},
2604                                                   Parse::RecDescent::_tracefirst($text),
2605                                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause},
2606                                                   $tracelevel)
2607                                                         if defined $::RD_TRACE;
2608                         $expectation->failed();
2609                         last;
2610                 }
2611                 Parse::RecDescent::_trace(q{>>Matched subrule: [result_expression]<< (return value: [}
2612                                         . $_tok . q{]},
2613
2614                                           Parse::RecDescent::_tracefirst($text),
2615                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause},
2616                                           $tracelevel)
2617                                                 if defined $::RD_TRACE;
2618                 $item{q{result_expression}} = $_tok;
2619                 push @item, $_tok;
2620
2621                 }
2622
2623
2624                 Parse::RecDescent::_trace(q{>>Matched production: [result_expression]<<},
2625                                           Parse::RecDescent::_tracefirst($text),
2626                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause},
2627                                           $tracelevel)
2628                                                 if defined $::RD_TRACE;
2629                 $_matched = 1;
2630                 last;
2631         }
2632
2633
2634         while (!$_matched && !$commit)
2635         {
2636
2637                 Parse::RecDescent::_trace(q{Trying production: [/NULL/i]},
2638                                           Parse::RecDescent::_tracefirst($_[1]),
2639                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause},
2640                                           $tracelevel)
2641                                                 if defined $::RD_TRACE;
2642                 my $thisprod = $thisrule->{"prods"}[1];
2643                 $text = $_[1];
2644                 my $_savetext;
2645                 @item = (q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause});
2646                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause});
2647                 my $repcount = 0;
2648
2649
2650                 Parse::RecDescent::_trace(q{Trying terminal: [/NULL/i]}, Parse::RecDescent::_tracefirst($text),
2651                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause},
2652                                           $tracelevel)
2653                                                 if defined $::RD_TRACE;
2654                 $lastsep = "";
2655                 $expectation->is(q{})->at($text);
2656
2657
2658                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NULL)//i)
2659                 {
2660
2661                         $expectation->failed();
2662                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
2663                                                   Parse::RecDescent::_tracefirst($text))
2664                                         if defined $::RD_TRACE;
2665
2666                         last;
2667                 }
2668                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
2669                                                 . $& . q{])},
2670                                                   Parse::RecDescent::_tracefirst($text))
2671                                         if defined $::RD_TRACE;
2672                 push @item, $item{__PATTERN1__}=$&;
2673
2674
2675
2676                 Parse::RecDescent::_trace(q{>>Matched production: [/NULL/i]<<},
2677                                           Parse::RecDescent::_tracefirst($text),
2678                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause},
2679                                           $tracelevel)
2680                                                 if defined $::RD_TRACE;
2681                 $_matched = 1;
2682                 last;
2683         }
2684
2685
2686         unless ( $_matched || defined($return) || defined($score) )
2687         {
2688
2689
2690                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
2691                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
2692                                          Parse::RecDescent::_tracefirst($_[1]),
2693                                          q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause},
2694                                          $tracelevel)
2695                                         if defined $::RD_TRACE;
2696                 return undef;
2697         }
2698         if (!defined($return) && defined($score))
2699         {
2700                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
2701                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause},
2702                                           $tracelevel)
2703                                                 if defined $::RD_TRACE;
2704                 $return = $score_return;
2705         }
2706         splice @{$thisparser->{errors}}, $err_at;
2707         $return = $item[$#item] unless defined $return;
2708         if (defined $::RD_TRACE)
2709         {
2710                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
2711                                           $return . q{])}, "",
2712                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause},
2713                                           $tracelevel);
2714                 Parse::RecDescent::_trace(q{(consumed: [} .
2715                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
2716                                           Parse::RecDescent::_tracefirst($text),
2717                                           , q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause},
2718                                           $tracelevel)
2719         }
2720         $_[1] = $text;
2721         return $return;
2722 }
2723
2724 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
2725 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_2_of_production_1_of_rule_case_expression
2726 {
2727         my $thisparser = $_[0];
2728         use vars q{$tracelevel};
2729         local $tracelevel = ($tracelevel||0)+1;
2730         $ERRORS = 0;
2731         my $thisrule = $thisparser->{"rules"}{"_alternation_2_of_production_1_of_rule_case_expression"};
2732
2733         Parse::RecDescent::_trace(q{Trying rule: [_alternation_2_of_production_1_of_rule_case_expression]},
2734                                   Parse::RecDescent::_tracefirst($_[1]),
2735                                   q{_alternation_2_of_production_1_of_rule_case_expression},
2736                                   $tracelevel)
2737                                         if defined $::RD_TRACE;
2738
2739
2740         my $err_at = @{$thisparser->{errors}};
2741
2742         my $score;
2743         my $score_return;
2744         my $_tok;
2745         my $return = undef;
2746         my $_matched=0;
2747         my $commit=0;
2748         my @item = ();
2749         my %item = ();
2750         my $repeating =  defined($_[2]) && $_[2];
2751         my $_noactions = defined($_[3]) && $_[3];
2752         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
2753         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
2754         my $text;
2755         my $lastsep="";
2756         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
2757         $expectation->at($_[1]);
2758
2759         my $thisline;
2760         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
2761
2762
2763
2764         while (!$_matched && !$commit)
2765         {
2766
2767                 Parse::RecDescent::_trace(q{Trying production: [/ELSE\\s+NULL/i]},
2768                                           Parse::RecDescent::_tracefirst($_[1]),
2769                                           q{_alternation_2_of_production_1_of_rule_case_expression},
2770                                           $tracelevel)
2771                                                 if defined $::RD_TRACE;
2772                 my $thisprod = $thisrule->{"prods"}[0];
2773                 $text = $_[1];
2774                 my $_savetext;
2775                 @item = (q{_alternation_2_of_production_1_of_rule_case_expression});
2776                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule_case_expression});
2777                 my $repcount = 0;
2778
2779
2780                 Parse::RecDescent::_trace(q{Trying terminal: [/ELSE\\s+NULL/i]}, Parse::RecDescent::_tracefirst($text),
2781                                           q{_alternation_2_of_production_1_of_rule_case_expression},
2782                                           $tracelevel)
2783                                                 if defined $::RD_TRACE;
2784                 $lastsep = "";
2785                 $expectation->is(q{})->at($text);
2786
2787
2788                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ELSE\s+NULL)//i)
2789                 {
2790
2791                         $expectation->failed();
2792                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
2793                                                   Parse::RecDescent::_tracefirst($text))
2794                                         if defined $::RD_TRACE;
2795
2796                         last;
2797                 }
2798                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
2799                                                 . $& . q{])},
2800                                                   Parse::RecDescent::_tracefirst($text))
2801                                         if defined $::RD_TRACE;
2802                 push @item, $item{__PATTERN1__}=$&;
2803
2804
2805
2806                 Parse::RecDescent::_trace(q{>>Matched production: [/ELSE\\s+NULL/i]<<},
2807                                           Parse::RecDescent::_tracefirst($text),
2808                                           q{_alternation_2_of_production_1_of_rule_case_expression},
2809                                           $tracelevel)
2810                                                 if defined $::RD_TRACE;
2811                 $_matched = 1;
2812                 last;
2813         }
2814
2815
2816         while (!$_matched && !$commit)
2817         {
2818
2819                 Parse::RecDescent::_trace(q{Trying production: [/ELSE/i result_expression]},
2820                                           Parse::RecDescent::_tracefirst($_[1]),
2821                                           q{_alternation_2_of_production_1_of_rule_case_expression},
2822                                           $tracelevel)
2823                                                 if defined $::RD_TRACE;
2824                 my $thisprod = $thisrule->{"prods"}[1];
2825                 $text = $_[1];
2826                 my $_savetext;
2827                 @item = (q{_alternation_2_of_production_1_of_rule_case_expression});
2828                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule_case_expression});
2829                 my $repcount = 0;
2830
2831
2832                 Parse::RecDescent::_trace(q{Trying terminal: [/ELSE/i]}, Parse::RecDescent::_tracefirst($text),
2833                                           q{_alternation_2_of_production_1_of_rule_case_expression},
2834                                           $tracelevel)
2835                                                 if defined $::RD_TRACE;
2836                 $lastsep = "";
2837                 $expectation->is(q{})->at($text);
2838
2839
2840                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ELSE)//i)
2841                 {
2842
2843                         $expectation->failed();
2844                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
2845                                                   Parse::RecDescent::_tracefirst($text))
2846                                         if defined $::RD_TRACE;
2847
2848                         last;
2849                 }
2850                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
2851                                                 . $& . q{])},
2852                                                   Parse::RecDescent::_tracefirst($text))
2853                                         if defined $::RD_TRACE;
2854                 push @item, $item{__PATTERN1__}=$&;
2855
2856
2857                 Parse::RecDescent::_trace(q{Trying subrule: [result_expression]},
2858                                   Parse::RecDescent::_tracefirst($text),
2859                                   q{_alternation_2_of_production_1_of_rule_case_expression},
2860                                   $tracelevel)
2861                                         if defined $::RD_TRACE;
2862                 if (1) { no strict qw{refs};
2863                 $expectation->is(q{result_expression})->at($text);
2864                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::result_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
2865                 {
2866
2867                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [result_expression]>>},
2868                                                   Parse::RecDescent::_tracefirst($text),
2869                                                   q{_alternation_2_of_production_1_of_rule_case_expression},
2870                                                   $tracelevel)
2871                                                         if defined $::RD_TRACE;
2872                         $expectation->failed();
2873                         last;
2874                 }
2875                 Parse::RecDescent::_trace(q{>>Matched subrule: [result_expression]<< (return value: [}
2876                                         . $_tok . q{]},
2877
2878                                           Parse::RecDescent::_tracefirst($text),
2879                                           q{_alternation_2_of_production_1_of_rule_case_expression},
2880                                           $tracelevel)
2881                                                 if defined $::RD_TRACE;
2882                 $item{q{result_expression}} = $_tok;
2883                 push @item, $_tok;
2884
2885                 }
2886
2887
2888                 Parse::RecDescent::_trace(q{>>Matched production: [/ELSE/i result_expression]<<},
2889                                           Parse::RecDescent::_tracefirst($text),
2890                                           q{_alternation_2_of_production_1_of_rule_case_expression},
2891                                           $tracelevel)
2892                                                 if defined $::RD_TRACE;
2893                 $_matched = 1;
2894                 last;
2895         }
2896
2897
2898         unless ( $_matched || defined($return) || defined($score) )
2899         {
2900
2901
2902                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
2903                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
2904                                          Parse::RecDescent::_tracefirst($_[1]),
2905                                          q{_alternation_2_of_production_1_of_rule_case_expression},
2906                                          $tracelevel)
2907                                         if defined $::RD_TRACE;
2908                 return undef;
2909         }
2910         if (!defined($return) && defined($score))
2911         {
2912                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
2913                                           q{_alternation_2_of_production_1_of_rule_case_expression},
2914                                           $tracelevel)
2915                                                 if defined $::RD_TRACE;
2916                 $return = $score_return;
2917         }
2918         splice @{$thisparser->{errors}}, $err_at;
2919         $return = $item[$#item] unless defined $return;
2920         if (defined $::RD_TRACE)
2921         {
2922                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
2923                                           $return . q{])}, "",
2924                                           q{_alternation_2_of_production_1_of_rule_case_expression},
2925                                           $tracelevel);
2926                 Parse::RecDescent::_trace(q{(consumed: [} .
2927                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
2928                                           Parse::RecDescent::_tracefirst($text),
2929                                           , q{_alternation_2_of_production_1_of_rule_case_expression},
2930                                           $tracelevel)
2931         }
2932         $_[1] = $text;
2933         return $return;
2934 }
2935
2936 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
2937 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::subject_expression
2938 {
2939         my $thisparser = $_[0];
2940         use vars q{$tracelevel};
2941         local $tracelevel = ($tracelevel||0)+1;
2942         $ERRORS = 0;
2943         my $thisrule = $thisparser->{"rules"}{"subject_expression"};
2944
2945         Parse::RecDescent::_trace(q{Trying rule: [subject_expression]},
2946                                   Parse::RecDescent::_tracefirst($_[1]),
2947                                   q{subject_expression},
2948                                   $tracelevel)
2949                                         if defined $::RD_TRACE;
2950
2951
2952         my $err_at = @{$thisparser->{errors}};
2953
2954         my $score;
2955         my $score_return;
2956         my $_tok;
2957         my $return = undef;
2958         my $_matched=0;
2959         my $commit=0;
2960         my @item = ();
2961         my %item = ();
2962         my $repeating =  defined($_[2]) && $_[2];
2963         my $_noactions = defined($_[3]) && $_[3];
2964         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
2965         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
2966         my $text;
2967         my $lastsep="";
2968         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
2969         $expectation->at($_[1]);
2970
2971         my $thisline;
2972         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
2973
2974
2975
2976         while (!$_matched && !$commit)
2977         {
2978
2979                 Parse::RecDescent::_trace(q{Trying production: [expression]},
2980                                           Parse::RecDescent::_tracefirst($_[1]),
2981                                           q{subject_expression},
2982                                           $tracelevel)
2983                                                 if defined $::RD_TRACE;
2984                 my $thisprod = $thisrule->{"prods"}[0];
2985                 $text = $_[1];
2986                 my $_savetext;
2987                 @item = (q{subject_expression});
2988                 %item = (__RULE__ => q{subject_expression});
2989                 my $repcount = 0;
2990
2991
2992                 Parse::RecDescent::_trace(q{Trying subrule: [expression]},
2993                                   Parse::RecDescent::_tracefirst($text),
2994                                   q{subject_expression},
2995                                   $tracelevel)
2996                                         if defined $::RD_TRACE;
2997                 if (1) { no strict qw{refs};
2998                 $expectation->is(q{})->at($text);
2999                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
3000                 {
3001
3002                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [expression]>>},
3003                                                   Parse::RecDescent::_tracefirst($text),
3004                                                   q{subject_expression},
3005                                                   $tracelevel)
3006                                                         if defined $::RD_TRACE;
3007                         $expectation->failed();
3008                         last;
3009                 }
3010                 Parse::RecDescent::_trace(q{>>Matched subrule: [expression]<< (return value: [}
3011                                         . $_tok . q{]},
3012
3013                                           Parse::RecDescent::_tracefirst($text),
3014                                           q{subject_expression},
3015                                           $tracelevel)
3016                                                 if defined $::RD_TRACE;
3017                 $item{q{expression}} = $_tok;
3018                 push @item, $_tok;
3019
3020                 }
3021
3022                 Parse::RecDescent::_trace(q{Trying action},
3023                                           Parse::RecDescent::_tracefirst($text),
3024                                           q{subject_expression},
3025                                           $tracelevel)
3026                                                 if defined $::RD_TRACE;
3027
3028
3029                 $_tok = ($_noactions) ? 0 : do { # with static result type that is a used-defined struct type
3030 };
3031                 unless (defined $_tok)
3032                 {
3033                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
3034                                         if defined $::RD_TRACE;
3035                         last;
3036                 }
3037                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
3038                                           . $_tok . q{])},
3039                                           Parse::RecDescent::_tracefirst($text))
3040                                                 if defined $::RD_TRACE;
3041                 push @item, $_tok;
3042                 $item{__ACTION1__}=$_tok;
3043
3044
3045
3046                 Parse::RecDescent::_trace(q{>>Matched production: [expression]<<},
3047                                           Parse::RecDescent::_tracefirst($text),
3048                                           q{subject_expression},
3049                                           $tracelevel)
3050                                                 if defined $::RD_TRACE;
3051                 $_matched = 1;
3052                 last;
3053         }
3054
3055
3056         unless ( $_matched || defined($return) || defined($score) )
3057         {
3058
3059
3060                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
3061                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
3062                                          Parse::RecDescent::_tracefirst($_[1]),
3063                                          q{subject_expression},
3064                                          $tracelevel)
3065                                         if defined $::RD_TRACE;
3066                 return undef;
3067         }
3068         if (!defined($return) && defined($score))
3069         {
3070                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
3071                                           q{subject_expression},
3072                                           $tracelevel)
3073                                                 if defined $::RD_TRACE;
3074                 $return = $score_return;
3075         }
3076         splice @{$thisparser->{errors}}, $err_at;
3077         $return = $item[$#item] unless defined $return;
3078         if (defined $::RD_TRACE)
3079         {
3080                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
3081                                           $return . q{])}, "",
3082                                           q{subject_expression},
3083                                           $tracelevel);
3084                 Parse::RecDescent::_trace(q{(consumed: [} .
3085                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
3086                                           Parse::RecDescent::_tracefirst($text),
3087                                           , q{subject_expression},
3088                                           $tracelevel)
3089         }
3090         $_[1] = $text;
3091         return $return;
3092 }
3093
3094 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
3095 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_desc_option
3096 {
3097         my $thisparser = $_[0];
3098         use vars q{$tracelevel};
3099         local $tracelevel = ($tracelevel||0)+1;
3100         $ERRORS = 0;
3101         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_desc_option"};
3102
3103         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_desc_option]},
3104                                   Parse::RecDescent::_tracefirst($_[1]),
3105                                   q{_alternation_1_of_production_1_of_rule_desc_option},
3106                                   $tracelevel)
3107                                         if defined $::RD_TRACE;
3108
3109
3110         my $err_at = @{$thisparser->{errors}};
3111
3112         my $score;
3113         my $score_return;
3114         my $_tok;
3115         my $return = undef;
3116         my $_matched=0;
3117         my $commit=0;
3118         my @item = ();
3119         my %item = ();
3120         my $repeating =  defined($_[2]) && $_[2];
3121         my $_noactions = defined($_[3]) && $_[3];
3122         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
3123         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
3124         my $text;
3125         my $lastsep="";
3126         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
3127         $expectation->at($_[1]);
3128
3129         my $thisline;
3130         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
3131
3132
3133
3134         while (!$_matched && !$commit)
3135         {
3136
3137                 Parse::RecDescent::_trace(q{Trying production: [/NULLS\\s+FIRST/i]},
3138                                           Parse::RecDescent::_tracefirst($_[1]),
3139                                           q{_alternation_1_of_production_1_of_rule_desc_option},
3140                                           $tracelevel)
3141                                                 if defined $::RD_TRACE;
3142                 my $thisprod = $thisrule->{"prods"}[0];
3143                 $text = $_[1];
3144                 my $_savetext;
3145                 @item = (q{_alternation_1_of_production_1_of_rule_desc_option});
3146                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_desc_option});
3147                 my $repcount = 0;
3148
3149
3150                 Parse::RecDescent::_trace(q{Trying terminal: [/NULLS\\s+FIRST/i]}, Parse::RecDescent::_tracefirst($text),
3151                                           q{_alternation_1_of_production_1_of_rule_desc_option},
3152                                           $tracelevel)
3153                                                 if defined $::RD_TRACE;
3154                 $lastsep = "";
3155                 $expectation->is(q{})->at($text);
3156
3157
3158                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NULLS\s+FIRST)//i)
3159                 {
3160
3161                         $expectation->failed();
3162                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
3163                                                   Parse::RecDescent::_tracefirst($text))
3164                                         if defined $::RD_TRACE;
3165
3166                         last;
3167                 }
3168                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
3169                                                 . $& . q{])},
3170                                                   Parse::RecDescent::_tracefirst($text))
3171                                         if defined $::RD_TRACE;
3172                 push @item, $item{__PATTERN1__}=$&;
3173
3174
3175
3176                 Parse::RecDescent::_trace(q{>>Matched production: [/NULLS\\s+FIRST/i]<<},
3177                                           Parse::RecDescent::_tracefirst($text),
3178                                           q{_alternation_1_of_production_1_of_rule_desc_option},
3179                                           $tracelevel)
3180                                                 if defined $::RD_TRACE;
3181                 $_matched = 1;
3182                 last;
3183         }
3184
3185
3186         while (!$_matched && !$commit)
3187         {
3188
3189                 Parse::RecDescent::_trace(q{Trying production: [/NULLS\\s+LAST/i]},
3190                                           Parse::RecDescent::_tracefirst($_[1]),
3191                                           q{_alternation_1_of_production_1_of_rule_desc_option},
3192                                           $tracelevel)
3193                                                 if defined $::RD_TRACE;
3194                 my $thisprod = $thisrule->{"prods"}[1];
3195                 $text = $_[1];
3196                 my $_savetext;
3197                 @item = (q{_alternation_1_of_production_1_of_rule_desc_option});
3198                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_desc_option});
3199                 my $repcount = 0;
3200
3201
3202                 Parse::RecDescent::_trace(q{Trying terminal: [/NULLS\\s+LAST/i]}, Parse::RecDescent::_tracefirst($text),
3203                                           q{_alternation_1_of_production_1_of_rule_desc_option},
3204                                           $tracelevel)
3205                                                 if defined $::RD_TRACE;
3206                 $lastsep = "";
3207                 $expectation->is(q{})->at($text);
3208
3209
3210                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NULLS\s+LAST)//i)
3211                 {
3212
3213                         $expectation->failed();
3214                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
3215                                                   Parse::RecDescent::_tracefirst($text))
3216                                         if defined $::RD_TRACE;
3217
3218                         last;
3219                 }
3220                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
3221                                                 . $& . q{])},
3222                                                   Parse::RecDescent::_tracefirst($text))
3223                                         if defined $::RD_TRACE;
3224                 push @item, $item{__PATTERN1__}=$&;
3225
3226
3227
3228                 Parse::RecDescent::_trace(q{>>Matched production: [/NULLS\\s+LAST/i]<<},
3229                                           Parse::RecDescent::_tracefirst($text),
3230                                           q{_alternation_1_of_production_1_of_rule_desc_option},
3231                                           $tracelevel)
3232                                                 if defined $::RD_TRACE;
3233                 $_matched = 1;
3234                 last;
3235         }
3236
3237
3238         unless ( $_matched || defined($return) || defined($score) )
3239         {
3240
3241
3242                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
3243                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
3244                                          Parse::RecDescent::_tracefirst($_[1]),
3245                                          q{_alternation_1_of_production_1_of_rule_desc_option},
3246                                          $tracelevel)
3247                                         if defined $::RD_TRACE;
3248                 return undef;
3249         }
3250         if (!defined($return) && defined($score))
3251         {
3252                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
3253                                           q{_alternation_1_of_production_1_of_rule_desc_option},
3254                                           $tracelevel)
3255                                                 if defined $::RD_TRACE;
3256                 $return = $score_return;
3257         }
3258         splice @{$thisparser->{errors}}, $err_at;
3259         $return = $item[$#item] unless defined $return;
3260         if (defined $::RD_TRACE)
3261         {
3262                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
3263                                           $return . q{])}, "",
3264                                           q{_alternation_1_of_production_1_of_rule_desc_option},
3265                                           $tracelevel);
3266                 Parse::RecDescent::_trace(q{(consumed: [} .
3267                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
3268                                           Parse::RecDescent::_tracefirst($text),
3269                                           , q{_alternation_1_of_production_1_of_rule_desc_option},
3270                                           $tracelevel)
3271         }
3272         $_[1] = $text;
3273         return $return;
3274 }
3275
3276 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
3277 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::view_name
3278 {
3279         my $thisparser = $_[0];
3280         use vars q{$tracelevel};
3281         local $tracelevel = ($tracelevel||0)+1;
3282         $ERRORS = 0;
3283         my $thisrule = $thisparser->{"rules"}{"view_name"};
3284
3285         Parse::RecDescent::_trace(q{Trying rule: [view_name]},
3286                                   Parse::RecDescent::_tracefirst($_[1]),
3287                                   q{view_name},
3288                                   $tracelevel)
3289                                         if defined $::RD_TRACE;
3290
3291
3292         my $err_at = @{$thisparser->{errors}};
3293
3294         my $score;
3295         my $score_return;
3296         my $_tok;
3297         my $return = undef;
3298         my $_matched=0;
3299         my $commit=0;
3300         my @item = ();
3301         my %item = ();
3302         my $repeating =  defined($_[2]) && $_[2];
3303         my $_noactions = defined($_[3]) && $_[3];
3304         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
3305         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
3306         my $text;
3307         my $lastsep="";
3308         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
3309         $expectation->at($_[1]);
3310
3311         my $thisline;
3312         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
3313
3314
3315
3316         while (!$_matched && !$commit)
3317         {
3318
3319                 Parse::RecDescent::_trace(q{Trying production: [SCHEMA '.' NAME]},
3320                                           Parse::RecDescent::_tracefirst($_[1]),
3321                                           q{view_name},
3322                                           $tracelevel)
3323                                                 if defined $::RD_TRACE;
3324                 my $thisprod = $thisrule->{"prods"}[0];
3325                 $text = $_[1];
3326                 my $_savetext;
3327                 @item = (q{view_name});
3328                 %item = (__RULE__ => q{view_name});
3329                 my $repcount = 0;
3330
3331
3332                 Parse::RecDescent::_trace(q{Trying subrule: [SCHEMA]},
3333                                   Parse::RecDescent::_tracefirst($text),
3334                                   q{view_name},
3335                                   $tracelevel)
3336                                         if defined $::RD_TRACE;
3337                 if (1) { no strict qw{refs};
3338                 $expectation->is(q{})->at($text);
3339                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::SCHEMA($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
3340                 {
3341
3342                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [SCHEMA]>>},
3343                                                   Parse::RecDescent::_tracefirst($text),
3344                                                   q{view_name},
3345                                                   $tracelevel)
3346                                                         if defined $::RD_TRACE;
3347                         $expectation->failed();
3348                         last;
3349                 }
3350                 Parse::RecDescent::_trace(q{>>Matched subrule: [SCHEMA]<< (return value: [}
3351                                         . $_tok . q{]},
3352
3353                                           Parse::RecDescent::_tracefirst($text),
3354                                           q{view_name},
3355                                           $tracelevel)
3356                                                 if defined $::RD_TRACE;
3357                 $item{q{SCHEMA}} = $_tok;
3358                 push @item, $_tok;
3359
3360                 }
3361
3362                 Parse::RecDescent::_trace(q{Trying terminal: ['.']},
3363                                           Parse::RecDescent::_tracefirst($text),
3364                                           q{view_name},
3365                                           $tracelevel)
3366                                                 if defined $::RD_TRACE;
3367                 $lastsep = "";
3368                 $expectation->is(q{'.'})->at($text);
3369
3370
3371                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\.//)
3372                 {
3373
3374                         $expectation->failed();
3375                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
3376                                                   Parse::RecDescent::_tracefirst($text))
3377                                                         if defined $::RD_TRACE;
3378                         last;
3379                 }
3380                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
3381                                                 . $& . q{])},
3382                                                   Parse::RecDescent::_tracefirst($text))
3383                                                         if defined $::RD_TRACE;
3384                 push @item, $item{__STRING1__}=$&;
3385
3386
3387                 Parse::RecDescent::_trace(q{Trying subrule: [NAME]},
3388                                   Parse::RecDescent::_tracefirst($text),
3389                                   q{view_name},
3390                                   $tracelevel)
3391                                         if defined $::RD_TRACE;
3392                 if (1) { no strict qw{refs};
3393                 $expectation->is(q{NAME})->at($text);
3394                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::NAME($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
3395                 {
3396
3397                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [NAME]>>},
3398                                                   Parse::RecDescent::_tracefirst($text),
3399                                                   q{view_name},
3400                                                   $tracelevel)
3401                                                         if defined $::RD_TRACE;
3402                         $expectation->failed();
3403                         last;
3404                 }
3405                 Parse::RecDescent::_trace(q{>>Matched subrule: [NAME]<< (return value: [}
3406                                         . $_tok . q{]},
3407
3408                                           Parse::RecDescent::_tracefirst($text),
3409                                           q{view_name},
3410                                           $tracelevel)
3411                                                 if defined $::RD_TRACE;
3412                 $item{q{NAME}} = $_tok;
3413                 push @item, $_tok;
3414
3415                 }
3416
3417                 Parse::RecDescent::_trace(q{Trying action},
3418                                           Parse::RecDescent::_tracefirst($text),
3419                                           q{view_name},
3420                                           $tracelevel)
3421                                                 if defined $::RD_TRACE;
3422
3423
3424                 $_tok = ($_noactions) ? 0 : do { $return = { schema => $item[1], name => $item[3] } };
3425                 unless (defined $_tok)
3426                 {
3427                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
3428                                         if defined $::RD_TRACE;
3429                         last;
3430                 }
3431                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
3432                                           . $_tok . q{])},
3433                                           Parse::RecDescent::_tracefirst($text))
3434                                                 if defined $::RD_TRACE;
3435                 push @item, $_tok;
3436                 $item{__ACTION1__}=$_tok;
3437
3438
3439
3440                 Parse::RecDescent::_trace(q{>>Matched production: [SCHEMA '.' NAME]<<},
3441                                           Parse::RecDescent::_tracefirst($text),
3442                                           q{view_name},
3443                                           $tracelevel)
3444                                                 if defined $::RD_TRACE;
3445                 $_matched = 1;
3446                 last;
3447         }
3448
3449
3450         while (!$_matched && !$commit)
3451         {
3452
3453                 Parse::RecDescent::_trace(q{Trying production: [NAME]},
3454                                           Parse::RecDescent::_tracefirst($_[1]),
3455                                           q{view_name},
3456                                           $tracelevel)
3457                                                 if defined $::RD_TRACE;
3458                 my $thisprod = $thisrule->{"prods"}[1];
3459                 $text = $_[1];
3460                 my $_savetext;
3461                 @item = (q{view_name});
3462                 %item = (__RULE__ => q{view_name});
3463                 my $repcount = 0;
3464
3465
3466                 Parse::RecDescent::_trace(q{Trying subrule: [NAME]},
3467                                   Parse::RecDescent::_tracefirst($text),
3468                                   q{view_name},
3469                                   $tracelevel)
3470                                         if defined $::RD_TRACE;
3471                 if (1) { no strict qw{refs};
3472                 $expectation->is(q{})->at($text);
3473                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::NAME($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
3474                 {
3475
3476                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [NAME]>>},
3477                                                   Parse::RecDescent::_tracefirst($text),
3478                                                   q{view_name},
3479                                                   $tracelevel)
3480                                                         if defined $::RD_TRACE;
3481                         $expectation->failed();
3482                         last;
3483                 }
3484                 Parse::RecDescent::_trace(q{>>Matched subrule: [NAME]<< (return value: [}
3485                                         . $_tok . q{]},
3486
3487                                           Parse::RecDescent::_tracefirst($text),
3488                                           q{view_name},
3489                                           $tracelevel)
3490                                                 if defined $::RD_TRACE;
3491                 $item{q{NAME}} = $_tok;
3492                 push @item, $_tok;
3493
3494                 }
3495
3496                 Parse::RecDescent::_trace(q{Trying action},
3497                                           Parse::RecDescent::_tracefirst($text),
3498                                           q{view_name},
3499                                           $tracelevel)
3500                                                 if defined $::RD_TRACE;
3501
3502
3503                 $_tok = ($_noactions) ? 0 : do { $return = { name => $item[1] } };
3504                 unless (defined $_tok)
3505                 {
3506                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
3507                                         if defined $::RD_TRACE;
3508                         last;
3509                 }
3510                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
3511                                           . $_tok . q{])},
3512                                           Parse::RecDescent::_tracefirst($text))
3513                                                 if defined $::RD_TRACE;
3514                 push @item, $_tok;
3515                 $item{__ACTION1__}=$_tok;
3516
3517
3518
3519                 Parse::RecDescent::_trace(q{>>Matched production: [NAME]<<},
3520                                           Parse::RecDescent::_tracefirst($text),
3521                                           q{view_name},
3522                                           $tracelevel)
3523                                                 if defined $::RD_TRACE;
3524                 $_matched = 1;
3525                 last;
3526         }
3527
3528
3529         unless ( $_matched || defined($return) || defined($score) )
3530         {
3531
3532
3533                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
3534                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
3535                                          Parse::RecDescent::_tracefirst($_[1]),
3536                                          q{view_name},
3537                                          $tracelevel)
3538                                         if defined $::RD_TRACE;
3539                 return undef;
3540         }
3541         if (!defined($return) && defined($score))
3542         {
3543                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
3544                                           q{view_name},
3545                                           $tracelevel)
3546                                                 if defined $::RD_TRACE;
3547                 $return = $score_return;
3548         }
3549         splice @{$thisparser->{errors}}, $err_at;
3550         $return = $item[$#item] unless defined $return;
3551         if (defined $::RD_TRACE)
3552         {
3553                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
3554                                           $return . q{])}, "",
3555                                           q{view_name},
3556                                           $tracelevel);
3557                 Parse::RecDescent::_trace(q{(consumed: [} .
3558                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
3559                                           Parse::RecDescent::_tracefirst($text),
3560                                           , q{view_name},
3561                                           $tracelevel)
3562         }
3563         $_[1] = $text;
3564         return $return;
3565 }
3566
3567 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
3568 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_cond
3569 {
3570         my $thisparser = $_[0];
3571         use vars q{$tracelevel};
3572         local $tracelevel = ($tracelevel||0)+1;
3573         $ERRORS = 0;
3574         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_cond"};
3575
3576         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_cond]},
3577                                   Parse::RecDescent::_tracefirst($_[1]),
3578                                   q{_alternation_1_of_production_1_of_rule_cond},
3579                                   $tracelevel)
3580                                         if defined $::RD_TRACE;
3581
3582
3583         my $err_at = @{$thisparser->{errors}};
3584
3585         my $score;
3586         my $score_return;
3587         my $_tok;
3588         my $return = undef;
3589         my $_matched=0;
3590         my $commit=0;
3591         my @item = ();
3592         my %item = ();
3593         my $repeating =  defined($_[2]) && $_[2];
3594         my $_noactions = defined($_[3]) && $_[3];
3595         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
3596         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
3597         my $text;
3598         my $lastsep="";
3599         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
3600         $expectation->at($_[1]);
3601
3602         my $thisline;
3603         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
3604
3605
3606
3607         while (!$_matched && !$commit)
3608         {
3609
3610                 Parse::RecDescent::_trace(q{Trying production: [/AND/i]},
3611                                           Parse::RecDescent::_tracefirst($_[1]),
3612                                           q{_alternation_1_of_production_1_of_rule_cond},
3613                                           $tracelevel)
3614                                                 if defined $::RD_TRACE;
3615                 my $thisprod = $thisrule->{"prods"}[0];
3616                 $text = $_[1];
3617                 my $_savetext;
3618                 @item = (q{_alternation_1_of_production_1_of_rule_cond});
3619                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_cond});
3620                 my $repcount = 0;
3621
3622
3623                 Parse::RecDescent::_trace(q{Trying terminal: [/AND/i]}, Parse::RecDescent::_tracefirst($text),
3624                                           q{_alternation_1_of_production_1_of_rule_cond},
3625                                           $tracelevel)
3626                                                 if defined $::RD_TRACE;
3627                 $lastsep = "";
3628                 $expectation->is(q{})->at($text);
3629
3630
3631                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:AND)//i)
3632                 {
3633
3634                         $expectation->failed();
3635                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
3636                                                   Parse::RecDescent::_tracefirst($text))
3637                                         if defined $::RD_TRACE;
3638
3639                         last;
3640                 }
3641                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
3642                                                 . $& . q{])},
3643                                                   Parse::RecDescent::_tracefirst($text))
3644                                         if defined $::RD_TRACE;
3645                 push @item, $item{__PATTERN1__}=$&;
3646
3647
3648
3649                 Parse::RecDescent::_trace(q{>>Matched production: [/AND/i]<<},
3650                                           Parse::RecDescent::_tracefirst($text),
3651                                           q{_alternation_1_of_production_1_of_rule_cond},
3652                                           $tracelevel)
3653                                                 if defined $::RD_TRACE;
3654                 $_matched = 1;
3655                 last;
3656         }
3657
3658
3659         while (!$_matched && !$commit)
3660         {
3661
3662                 Parse::RecDescent::_trace(q{Trying production: [/OR/i]},
3663                                           Parse::RecDescent::_tracefirst($_[1]),
3664                                           q{_alternation_1_of_production_1_of_rule_cond},
3665                                           $tracelevel)
3666                                                 if defined $::RD_TRACE;
3667                 my $thisprod = $thisrule->{"prods"}[1];
3668                 $text = $_[1];
3669                 my $_savetext;
3670                 @item = (q{_alternation_1_of_production_1_of_rule_cond});
3671                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_cond});
3672                 my $repcount = 0;
3673
3674
3675                 Parse::RecDescent::_trace(q{Trying terminal: [/OR/i]}, Parse::RecDescent::_tracefirst($text),
3676                                           q{_alternation_1_of_production_1_of_rule_cond},
3677                                           $tracelevel)
3678                                                 if defined $::RD_TRACE;
3679                 $lastsep = "";
3680                 $expectation->is(q{})->at($text);
3681
3682
3683                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:OR)//i)
3684                 {
3685
3686                         $expectation->failed();
3687                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
3688                                                   Parse::RecDescent::_tracefirst($text))
3689                                         if defined $::RD_TRACE;
3690
3691                         last;
3692                 }
3693                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
3694                                                 . $& . q{])},
3695                                                   Parse::RecDescent::_tracefirst($text))
3696                                         if defined $::RD_TRACE;
3697                 push @item, $item{__PATTERN1__}=$&;
3698
3699
3700
3701                 Parse::RecDescent::_trace(q{>>Matched production: [/OR/i]<<},
3702                                           Parse::RecDescent::_tracefirst($text),
3703                                           q{_alternation_1_of_production_1_of_rule_cond},
3704                                           $tracelevel)
3705                                                 if defined $::RD_TRACE;
3706                 $_matched = 1;
3707                 last;
3708         }
3709
3710
3711         unless ( $_matched || defined($return) || defined($score) )
3712         {
3713
3714
3715                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
3716                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
3717                                          Parse::RecDescent::_tracefirst($_[1]),
3718                                          q{_alternation_1_of_production_1_of_rule_cond},
3719                                          $tracelevel)
3720                                         if defined $::RD_TRACE;
3721                 return undef;
3722         }
3723         if (!defined($return) && defined($score))
3724         {
3725                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
3726                                           q{_alternation_1_of_production_1_of_rule_cond},
3727                                           $tracelevel)
3728                                                 if defined $::RD_TRACE;
3729                 $return = $score_return;
3730         }
3731         splice @{$thisparser->{errors}}, $err_at;
3732         $return = $item[$#item] unless defined $return;
3733         if (defined $::RD_TRACE)
3734         {
3735                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
3736                                           $return . q{])}, "",
3737                                           q{_alternation_1_of_production_1_of_rule_cond},
3738                                           $tracelevel);
3739                 Parse::RecDescent::_trace(q{(consumed: [} .
3740                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
3741                                           Parse::RecDescent::_tracefirst($text),
3742                                           , q{_alternation_1_of_production_1_of_rule_cond},
3743                                           $tracelevel)
3744         }
3745         $_[1] = $text;
3746         return $return;
3747 }
3748
3749 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
3750 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::numbering_function
3751 {
3752         my $thisparser = $_[0];
3753         use vars q{$tracelevel};
3754         local $tracelevel = ($tracelevel||0)+1;
3755         $ERRORS = 0;
3756         my $thisrule = $thisparser->{"rules"}{"numbering_function"};
3757
3758         Parse::RecDescent::_trace(q{Trying rule: [numbering_function]},
3759                                   Parse::RecDescent::_tracefirst($_[1]),
3760                                   q{numbering_function},
3761                                   $tracelevel)
3762                                         if defined $::RD_TRACE;
3763
3764
3765         my $err_at = @{$thisparser->{errors}};
3766
3767         my $score;
3768         my $score_return;
3769         my $_tok;
3770         my $return = undef;
3771         my $_matched=0;
3772         my $commit=0;
3773         my @item = ();
3774         my %item = ();
3775         my $repeating =  defined($_[2]) && $_[2];
3776         my $_noactions = defined($_[3]) && $_[3];
3777         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
3778         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
3779         my $text;
3780         my $lastsep="";
3781         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
3782         $expectation->at($_[1]);
3783
3784         my $thisline;
3785         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
3786
3787
3788
3789         while (!$_matched && !$commit)
3790         {
3791
3792                 Parse::RecDescent::_trace(q{Trying production: [/ROW_NUMBER|ROWNUMBER/i '()' /OVER/i '(' window_partition_clause window_order_clause /RANGE\\s+BETWEEN\\s+UNBOUNDED\\s+PRECEDING\\s+AND\\s+UNBBOUNDED\\s+FOLLOWING/i, or window_aggregation_group_clause ')']},
3793                                           Parse::RecDescent::_tracefirst($_[1]),
3794                                           q{numbering_function},
3795                                           $tracelevel)
3796                                                 if defined $::RD_TRACE;
3797                 my $thisprod = $thisrule->{"prods"}[0];
3798                 $text = $_[1];
3799                 my $_savetext;
3800                 @item = (q{numbering_function});
3801                 %item = (__RULE__ => q{numbering_function});
3802                 my $repcount = 0;
3803
3804
3805                 Parse::RecDescent::_trace(q{Trying terminal: [/ROW_NUMBER|ROWNUMBER/i]}, Parse::RecDescent::_tracefirst($text),
3806                                           q{numbering_function},
3807                                           $tracelevel)
3808                                                 if defined $::RD_TRACE;
3809                 $lastsep = "";
3810                 $expectation->is(q{})->at($text);
3811
3812
3813                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ROW_NUMBER|ROWNUMBER)//i)
3814                 {
3815
3816                         $expectation->failed();
3817                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
3818                                                   Parse::RecDescent::_tracefirst($text))
3819                                         if defined $::RD_TRACE;
3820
3821                         last;
3822                 }
3823                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
3824                                                 . $& . q{])},
3825                                                   Parse::RecDescent::_tracefirst($text))
3826                                         if defined $::RD_TRACE;
3827                 push @item, $item{__PATTERN1__}=$&;
3828
3829
3830                 Parse::RecDescent::_trace(q{Trying terminal: ['()']},
3831                                           Parse::RecDescent::_tracefirst($text),
3832                                           q{numbering_function},
3833                                           $tracelevel)
3834                                                 if defined $::RD_TRACE;
3835                 $lastsep = "";
3836                 $expectation->is(q{'()'})->at($text);
3837
3838
3839                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(\)//)
3840                 {
3841
3842                         $expectation->failed();
3843                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
3844                                                   Parse::RecDescent::_tracefirst($text))
3845                                                         if defined $::RD_TRACE;
3846                         last;
3847                 }
3848                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
3849                                                 . $& . q{])},
3850                                                   Parse::RecDescent::_tracefirst($text))
3851                                                         if defined $::RD_TRACE;
3852                 push @item, $item{__STRING1__}=$&;
3853
3854
3855                 Parse::RecDescent::_trace(q{Trying terminal: [/OVER/i]}, Parse::RecDescent::_tracefirst($text),
3856                                           q{numbering_function},
3857                                           $tracelevel)
3858                                                 if defined $::RD_TRACE;
3859                 $lastsep = "";
3860                 $expectation->is(q{/OVER/i})->at($text);
3861
3862
3863                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:OVER)//i)
3864                 {
3865
3866                         $expectation->failed();
3867                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
3868                                                   Parse::RecDescent::_tracefirst($text))
3869                                         if defined $::RD_TRACE;
3870
3871                         last;
3872                 }
3873                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
3874                                                 . $& . q{])},
3875                                                   Parse::RecDescent::_tracefirst($text))
3876                                         if defined $::RD_TRACE;
3877                 push @item, $item{__PATTERN2__}=$&;
3878
3879
3880                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
3881                                           Parse::RecDescent::_tracefirst($text),
3882                                           q{numbering_function},
3883                                           $tracelevel)
3884                                                 if defined $::RD_TRACE;
3885                 $lastsep = "";
3886                 $expectation->is(q{'('})->at($text);
3887
3888
3889                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
3890                 {
3891
3892                         $expectation->failed();
3893                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
3894                                                   Parse::RecDescent::_tracefirst($text))
3895                                                         if defined $::RD_TRACE;
3896                         last;
3897                 }
3898                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
3899                                                 . $& . q{])},
3900                                                   Parse::RecDescent::_tracefirst($text))
3901                                                         if defined $::RD_TRACE;
3902                 push @item, $item{__STRING2__}=$&;
3903
3904
3905                 Parse::RecDescent::_trace(q{Trying repeated subrule: [window_partition_clause]},
3906                                   Parse::RecDescent::_tracefirst($text),
3907                                   q{numbering_function},
3908                                   $tracelevel)
3909                                         if defined $::RD_TRACE;
3910                 $expectation->is(q{window_partition_clause})->at($text);
3911
3912                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::window_partition_clause, 0, 1, $_noactions,$expectation,undef)))
3913                 {
3914                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [window_partition_clause]>>},
3915                                                   Parse::RecDescent::_tracefirst($text),
3916                                                   q{numbering_function},
3917                                                   $tracelevel)
3918                                                         if defined $::RD_TRACE;
3919                         last;
3920                 }
3921                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [window_partition_clause]<< (}
3922                                         . @$_tok . q{ times)},
3923
3924                                           Parse::RecDescent::_tracefirst($text),
3925                                           q{numbering_function},
3926                                           $tracelevel)
3927                                                 if defined $::RD_TRACE;
3928                 $item{q{window_partition_clause(?)}} = $_tok;
3929                 push @item, $_tok;
3930
3931
3932
3933                 Parse::RecDescent::_trace(q{Trying repeated subrule: [window_order_clause]},
3934                                   Parse::RecDescent::_tracefirst($text),
3935                                   q{numbering_function},
3936                                   $tracelevel)
3937                                         if defined $::RD_TRACE;
3938                 $expectation->is(q{window_order_clause})->at($text);
3939
3940                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_numbering_function, 0, 1, $_noactions,$expectation,undef)))
3941                 {
3942                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [window_order_clause]>>},
3943                                                   Parse::RecDescent::_tracefirst($text),
3944                                                   q{numbering_function},
3945                                                   $tracelevel)
3946                                                         if defined $::RD_TRACE;
3947                         last;
3948                 }
3949                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [_alternation_1_of_production_1_of_rule_numbering_function]<< (}
3950                                         . @$_tok . q{ times)},
3951
3952                                           Parse::RecDescent::_tracefirst($text),
3953                                           q{numbering_function},
3954                                           $tracelevel)
3955                                                 if defined $::RD_TRACE;
3956                 $item{q{_alternation_1_of_production_1_of_rule_numbering_function(?)}} = $_tok;
3957                 push @item, $_tok;
3958
3959
3960
3961                 Parse::RecDescent::_trace(q{Trying repeated subrule: [/RANGE\\s+BETWEEN\\s+UNBOUNDED\\s+PRECEDING\\s+AND\\s+UNBBOUNDED\\s+FOLLOWING/i, or window_aggregation_group_clause]},
3962                                   Parse::RecDescent::_tracefirst($text),
3963                                   q{numbering_function},
3964                                   $tracelevel)
3965                                         if defined $::RD_TRACE;
3966                 $expectation->is(q{/RANGE\\s+BETWEEN\\s+UNBOUNDED\\s+PRECEDING\\s+AND\\s+UNBBOUNDED\\s+FOLLOWING/i, or window_aggregation_group_clause})->at($text);
3967
3968                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_2_of_production_1_of_rule_numbering_function, 0, 1, $_noactions,$expectation,undef)))
3969                 {
3970                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [/RANGE\\s+BETWEEN\\s+UNBOUNDED\\s+PRECEDING\\s+AND\\s+UNBBOUNDED\\s+FOLLOWING/i, or window_aggregation_group_clause]>>},
3971                                                   Parse::RecDescent::_tracefirst($text),
3972                                                   q{numbering_function},
3973                                                   $tracelevel)
3974                                                         if defined $::RD_TRACE;
3975                         last;
3976                 }
3977                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [_alternation_2_of_production_1_of_rule_numbering_function]<< (}
3978                                         . @$_tok . q{ times)},
3979
3980                                           Parse::RecDescent::_tracefirst($text),
3981                                           q{numbering_function},
3982                                           $tracelevel)
3983                                                 if defined $::RD_TRACE;
3984                 $item{q{_alternation_2_of_production_1_of_rule_numbering_function(?)}} = $_tok;
3985                 push @item, $_tok;
3986
3987
3988
3989                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
3990                                           Parse::RecDescent::_tracefirst($text),
3991                                           q{numbering_function},
3992                                           $tracelevel)
3993                                                 if defined $::RD_TRACE;
3994                 $lastsep = "";
3995                 $expectation->is(q{')'})->at($text);
3996
3997
3998                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
3999                 {
4000
4001                         $expectation->failed();
4002                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
4003                                                   Parse::RecDescent::_tracefirst($text))
4004                                                         if defined $::RD_TRACE;
4005                         last;
4006                 }
4007                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4008                                                 . $& . q{])},
4009                                                   Parse::RecDescent::_tracefirst($text))
4010                                                         if defined $::RD_TRACE;
4011                 push @item, $item{__STRING3__}=$&;
4012
4013
4014
4015                 Parse::RecDescent::_trace(q{>>Matched production: [/ROW_NUMBER|ROWNUMBER/i '()' /OVER/i '(' window_partition_clause window_order_clause /RANGE\\s+BETWEEN\\s+UNBOUNDED\\s+PRECEDING\\s+AND\\s+UNBBOUNDED\\s+FOLLOWING/i, or window_aggregation_group_clause ')']<<},
4016                                           Parse::RecDescent::_tracefirst($text),
4017                                           q{numbering_function},
4018                                           $tracelevel)
4019                                                 if defined $::RD_TRACE;
4020                 $_matched = 1;
4021                 last;
4022         }
4023
4024
4025         unless ( $_matched || defined($return) || defined($score) )
4026         {
4027
4028
4029                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
4030                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
4031                                          Parse::RecDescent::_tracefirst($_[1]),
4032                                          q{numbering_function},
4033                                          $tracelevel)
4034                                         if defined $::RD_TRACE;
4035                 return undef;
4036         }
4037         if (!defined($return) && defined($score))
4038         {
4039                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
4040                                           q{numbering_function},
4041                                           $tracelevel)
4042                                                 if defined $::RD_TRACE;
4043                 $return = $score_return;
4044         }
4045         splice @{$thisparser->{errors}}, $err_at;
4046         $return = $item[$#item] unless defined $return;
4047         if (defined $::RD_TRACE)
4048         {
4049                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
4050                                           $return . q{])}, "",
4051                                           q{numbering_function},
4052                                           $tracelevel);
4053                 Parse::RecDescent::_trace(q{(consumed: [} .
4054                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
4055                                           Parse::RecDescent::_tracefirst($text),
4056                                           , q{numbering_function},
4057                                           $tracelevel)
4058         }
4059         $_[1] = $text;
4060         return $return;
4061 }
4062
4063 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
4064 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_window_aggregation_group_clause
4065 {
4066         my $thisparser = $_[0];
4067         use vars q{$tracelevel};
4068         local $tracelevel = ($tracelevel||0)+1;
4069         $ERRORS = 0;
4070         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_window_aggregation_group_clause"};
4071
4072         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_window_aggregation_group_clause]},
4073                                   Parse::RecDescent::_tracefirst($_[1]),
4074                                   q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause},
4075                                   $tracelevel)
4076                                         if defined $::RD_TRACE;
4077
4078
4079         my $err_at = @{$thisparser->{errors}};
4080
4081         my $score;
4082         my $score_return;
4083         my $_tok;
4084         my $return = undef;
4085         my $_matched=0;
4086         my $commit=0;
4087         my @item = ();
4088         my %item = ();
4089         my $repeating =  defined($_[2]) && $_[2];
4090         my $_noactions = defined($_[3]) && $_[3];
4091         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
4092         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
4093         my $text;
4094         my $lastsep="";
4095         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
4096         $expectation->at($_[1]);
4097
4098         my $thisline;
4099         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
4100
4101
4102
4103         while (!$_matched && !$commit)
4104         {
4105
4106                 Parse::RecDescent::_trace(q{Trying production: [/ROWS/i]},
4107                                           Parse::RecDescent::_tracefirst($_[1]),
4108                                           q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause},
4109                                           $tracelevel)
4110                                                 if defined $::RD_TRACE;
4111                 my $thisprod = $thisrule->{"prods"}[0];
4112                 $text = $_[1];
4113                 my $_savetext;
4114                 @item = (q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause});
4115                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause});
4116                 my $repcount = 0;
4117
4118
4119                 Parse::RecDescent::_trace(q{Trying terminal: [/ROWS/i]}, Parse::RecDescent::_tracefirst($text),
4120                                           q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause},
4121                                           $tracelevel)
4122                                                 if defined $::RD_TRACE;
4123                 $lastsep = "";
4124                 $expectation->is(q{})->at($text);
4125
4126
4127                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ROWS)//i)
4128                 {
4129
4130                         $expectation->failed();
4131                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
4132                                                   Parse::RecDescent::_tracefirst($text))
4133                                         if defined $::RD_TRACE;
4134
4135                         last;
4136                 }
4137                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4138                                                 . $& . q{])},
4139                                                   Parse::RecDescent::_tracefirst($text))
4140                                         if defined $::RD_TRACE;
4141                 push @item, $item{__PATTERN1__}=$&;
4142
4143
4144
4145                 Parse::RecDescent::_trace(q{>>Matched production: [/ROWS/i]<<},
4146                                           Parse::RecDescent::_tracefirst($text),
4147                                           q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause},
4148                                           $tracelevel)
4149                                                 if defined $::RD_TRACE;
4150                 $_matched = 1;
4151                 last;
4152         }
4153
4154
4155         while (!$_matched && !$commit)
4156         {
4157
4158                 Parse::RecDescent::_trace(q{Trying production: [/RANGE/i]},
4159                                           Parse::RecDescent::_tracefirst($_[1]),
4160                                           q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause},
4161                                           $tracelevel)
4162                                                 if defined $::RD_TRACE;
4163                 my $thisprod = $thisrule->{"prods"}[1];
4164                 $text = $_[1];
4165                 my $_savetext;
4166                 @item = (q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause});
4167                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause});
4168                 my $repcount = 0;
4169
4170
4171                 Parse::RecDescent::_trace(q{Trying terminal: [/RANGE/i]}, Parse::RecDescent::_tracefirst($text),
4172                                           q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause},
4173                                           $tracelevel)
4174                                                 if defined $::RD_TRACE;
4175                 $lastsep = "";
4176                 $expectation->is(q{})->at($text);
4177
4178
4179                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:RANGE)//i)
4180                 {
4181
4182                         $expectation->failed();
4183                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
4184                                                   Parse::RecDescent::_tracefirst($text))
4185                                         if defined $::RD_TRACE;
4186
4187                         last;
4188                 }
4189                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4190                                                 . $& . q{])},
4191                                                   Parse::RecDescent::_tracefirst($text))
4192                                         if defined $::RD_TRACE;
4193                 push @item, $item{__PATTERN1__}=$&;
4194
4195
4196
4197                 Parse::RecDescent::_trace(q{>>Matched production: [/RANGE/i]<<},
4198                                           Parse::RecDescent::_tracefirst($text),
4199                                           q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause},
4200                                           $tracelevel)
4201                                                 if defined $::RD_TRACE;
4202                 $_matched = 1;
4203                 last;
4204         }
4205
4206
4207         unless ( $_matched || defined($return) || defined($score) )
4208         {
4209
4210
4211                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
4212                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
4213                                          Parse::RecDescent::_tracefirst($_[1]),
4214                                          q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause},
4215                                          $tracelevel)
4216                                         if defined $::RD_TRACE;
4217                 return undef;
4218         }
4219         if (!defined($return) && defined($score))
4220         {
4221                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
4222                                           q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause},
4223                                           $tracelevel)
4224                                                 if defined $::RD_TRACE;
4225                 $return = $score_return;
4226         }
4227         splice @{$thisparser->{errors}}, $err_at;
4228         $return = $item[$#item] unless defined $return;
4229         if (defined $::RD_TRACE)
4230         {
4231                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
4232                                           $return . q{])}, "",
4233                                           q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause},
4234                                           $tracelevel);
4235                 Parse::RecDescent::_trace(q{(consumed: [} .
4236                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
4237                                           Parse::RecDescent::_tracefirst($text),
4238                                           , q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause},
4239                                           $tracelevel)
4240         }
4241         $_[1] = $text;
4242         return $return;
4243 }
4244
4245 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
4246 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::group_bound1
4247 {
4248         my $thisparser = $_[0];
4249         use vars q{$tracelevel};
4250         local $tracelevel = ($tracelevel||0)+1;
4251         $ERRORS = 0;
4252         my $thisrule = $thisparser->{"rules"}{"group_bound1"};
4253
4254         Parse::RecDescent::_trace(q{Trying rule: [group_bound1]},
4255                                   Parse::RecDescent::_tracefirst($_[1]),
4256                                   q{group_bound1},
4257                                   $tracelevel)
4258                                         if defined $::RD_TRACE;
4259
4260
4261         my $err_at = @{$thisparser->{errors}};
4262
4263         my $score;
4264         my $score_return;
4265         my $_tok;
4266         my $return = undef;
4267         my $_matched=0;
4268         my $commit=0;
4269         my @item = ();
4270         my %item = ();
4271         my $repeating =  defined($_[2]) && $_[2];
4272         my $_noactions = defined($_[3]) && $_[3];
4273         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
4274         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
4275         my $text;
4276         my $lastsep="";
4277         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
4278         $expectation->at($_[1]);
4279
4280         my $thisline;
4281         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
4282
4283
4284
4285         while (!$_matched && !$commit)
4286         {
4287
4288                 Parse::RecDescent::_trace(q{Trying production: [/UNBOUNDED\\s+PRECEDING/i]},
4289                                           Parse::RecDescent::_tracefirst($_[1]),
4290                                           q{group_bound1},
4291                                           $tracelevel)
4292                                                 if defined $::RD_TRACE;
4293                 my $thisprod = $thisrule->{"prods"}[0];
4294                 $text = $_[1];
4295                 my $_savetext;
4296                 @item = (q{group_bound1});
4297                 %item = (__RULE__ => q{group_bound1});
4298                 my $repcount = 0;
4299
4300
4301                 Parse::RecDescent::_trace(q{Trying terminal: [/UNBOUNDED\\s+PRECEDING/i]}, Parse::RecDescent::_tracefirst($text),
4302                                           q{group_bound1},
4303                                           $tracelevel)
4304                                                 if defined $::RD_TRACE;
4305                 $lastsep = "";
4306                 $expectation->is(q{})->at($text);
4307
4308
4309                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:UNBOUNDED\s+PRECEDING)//i)
4310                 {
4311
4312                         $expectation->failed();
4313                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
4314                                                   Parse::RecDescent::_tracefirst($text))
4315                                         if defined $::RD_TRACE;
4316
4317                         last;
4318                 }
4319                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4320                                                 . $& . q{])},
4321                                                   Parse::RecDescent::_tracefirst($text))
4322                                         if defined $::RD_TRACE;
4323                 push @item, $item{__PATTERN1__}=$&;
4324
4325
4326
4327                 Parse::RecDescent::_trace(q{>>Matched production: [/UNBOUNDED\\s+PRECEDING/i]<<},
4328                                           Parse::RecDescent::_tracefirst($text),
4329                                           q{group_bound1},
4330                                           $tracelevel)
4331                                                 if defined $::RD_TRACE;
4332                 $_matched = 1;
4333                 last;
4334         }
4335
4336
4337         while (!$_matched && !$commit)
4338         {
4339
4340                 Parse::RecDescent::_trace(q{Trying production: [unsigned_constant /PRECEDING/i]},
4341                                           Parse::RecDescent::_tracefirst($_[1]),
4342                                           q{group_bound1},
4343                                           $tracelevel)
4344                                                 if defined $::RD_TRACE;
4345                 my $thisprod = $thisrule->{"prods"}[1];
4346                 $text = $_[1];
4347                 my $_savetext;
4348                 @item = (q{group_bound1});
4349                 %item = (__RULE__ => q{group_bound1});
4350                 my $repcount = 0;
4351
4352
4353                 Parse::RecDescent::_trace(q{Trying subrule: [unsigned_constant]},
4354                                   Parse::RecDescent::_tracefirst($text),
4355                                   q{group_bound1},
4356                                   $tracelevel)
4357                                         if defined $::RD_TRACE;
4358                 if (1) { no strict qw{refs};
4359                 $expectation->is(q{})->at($text);
4360                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::unsigned_constant($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
4361                 {
4362
4363                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [unsigned_constant]>>},
4364                                                   Parse::RecDescent::_tracefirst($text),
4365                                                   q{group_bound1},
4366                                                   $tracelevel)
4367                                                         if defined $::RD_TRACE;
4368                         $expectation->failed();
4369                         last;
4370                 }
4371                 Parse::RecDescent::_trace(q{>>Matched subrule: [unsigned_constant]<< (return value: [}
4372                                         . $_tok . q{]},
4373
4374                                           Parse::RecDescent::_tracefirst($text),
4375                                           q{group_bound1},
4376                                           $tracelevel)
4377                                                 if defined $::RD_TRACE;
4378                 $item{q{unsigned_constant}} = $_tok;
4379                 push @item, $_tok;
4380
4381                 }
4382
4383                 Parse::RecDescent::_trace(q{Trying terminal: [/PRECEDING/i]}, Parse::RecDescent::_tracefirst($text),
4384                                           q{group_bound1},
4385                                           $tracelevel)
4386                                                 if defined $::RD_TRACE;
4387                 $lastsep = "";
4388                 $expectation->is(q{/PRECEDING/i})->at($text);
4389
4390
4391                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:PRECEDING)//i)
4392                 {
4393
4394                         $expectation->failed();
4395                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
4396                                                   Parse::RecDescent::_tracefirst($text))
4397                                         if defined $::RD_TRACE;
4398
4399                         last;
4400                 }
4401                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4402                                                 . $& . q{])},
4403                                                   Parse::RecDescent::_tracefirst($text))
4404                                         if defined $::RD_TRACE;
4405                 push @item, $item{__PATTERN1__}=$&;
4406
4407
4408
4409                 Parse::RecDescent::_trace(q{>>Matched production: [unsigned_constant /PRECEDING/i]<<},
4410                                           Parse::RecDescent::_tracefirst($text),
4411                                           q{group_bound1},
4412                                           $tracelevel)
4413                                                 if defined $::RD_TRACE;
4414                 $_matched = 1;
4415                 last;
4416         }
4417
4418
4419         while (!$_matched && !$commit)
4420         {
4421
4422                 Parse::RecDescent::_trace(q{Trying production: [unsigned_constant /FOLLOWING/i]},
4423                                           Parse::RecDescent::_tracefirst($_[1]),
4424                                           q{group_bound1},
4425                                           $tracelevel)
4426                                                 if defined $::RD_TRACE;
4427                 my $thisprod = $thisrule->{"prods"}[2];
4428                 $text = $_[1];
4429                 my $_savetext;
4430                 @item = (q{group_bound1});
4431                 %item = (__RULE__ => q{group_bound1});
4432                 my $repcount = 0;
4433
4434
4435                 Parse::RecDescent::_trace(q{Trying subrule: [unsigned_constant]},
4436                                   Parse::RecDescent::_tracefirst($text),
4437                                   q{group_bound1},
4438                                   $tracelevel)
4439                                         if defined $::RD_TRACE;
4440                 if (1) { no strict qw{refs};
4441                 $expectation->is(q{})->at($text);
4442                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::unsigned_constant($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
4443                 {
4444
4445                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [unsigned_constant]>>},
4446                                                   Parse::RecDescent::_tracefirst($text),
4447                                                   q{group_bound1},
4448                                                   $tracelevel)
4449                                                         if defined $::RD_TRACE;
4450                         $expectation->failed();
4451                         last;
4452                 }
4453                 Parse::RecDescent::_trace(q{>>Matched subrule: [unsigned_constant]<< (return value: [}
4454                                         . $_tok . q{]},
4455
4456                                           Parse::RecDescent::_tracefirst($text),
4457                                           q{group_bound1},
4458                                           $tracelevel)
4459                                                 if defined $::RD_TRACE;
4460                 $item{q{unsigned_constant}} = $_tok;
4461                 push @item, $_tok;
4462
4463                 }
4464
4465                 Parse::RecDescent::_trace(q{Trying terminal: [/FOLLOWING/i]}, Parse::RecDescent::_tracefirst($text),
4466                                           q{group_bound1},
4467                                           $tracelevel)
4468                                                 if defined $::RD_TRACE;
4469                 $lastsep = "";
4470                 $expectation->is(q{/FOLLOWING/i})->at($text);
4471
4472
4473                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:FOLLOWING)//i)
4474                 {
4475
4476                         $expectation->failed();
4477                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
4478                                                   Parse::RecDescent::_tracefirst($text))
4479                                         if defined $::RD_TRACE;
4480
4481                         last;
4482                 }
4483                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4484                                                 . $& . q{])},
4485                                                   Parse::RecDescent::_tracefirst($text))
4486                                         if defined $::RD_TRACE;
4487                 push @item, $item{__PATTERN1__}=$&;
4488
4489
4490
4491                 Parse::RecDescent::_trace(q{>>Matched production: [unsigned_constant /FOLLOWING/i]<<},
4492                                           Parse::RecDescent::_tracefirst($text),
4493                                           q{group_bound1},
4494                                           $tracelevel)
4495                                                 if defined $::RD_TRACE;
4496                 $_matched = 1;
4497                 last;
4498         }
4499
4500
4501         while (!$_matched && !$commit)
4502         {
4503
4504                 Parse::RecDescent::_trace(q{Trying production: [/CURRENT\\s+ROW/i]},
4505                                           Parse::RecDescent::_tracefirst($_[1]),
4506                                           q{group_bound1},
4507                                           $tracelevel)
4508                                                 if defined $::RD_TRACE;
4509                 my $thisprod = $thisrule->{"prods"}[3];
4510                 $text = $_[1];
4511                 my $_savetext;
4512                 @item = (q{group_bound1});
4513                 %item = (__RULE__ => q{group_bound1});
4514                 my $repcount = 0;
4515
4516
4517                 Parse::RecDescent::_trace(q{Trying terminal: [/CURRENT\\s+ROW/i]}, Parse::RecDescent::_tracefirst($text),
4518                                           q{group_bound1},
4519                                           $tracelevel)
4520                                                 if defined $::RD_TRACE;
4521                 $lastsep = "";
4522                 $expectation->is(q{})->at($text);
4523
4524
4525                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CURRENT\s+ROW)//i)
4526                 {
4527
4528                         $expectation->failed();
4529                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
4530                                                   Parse::RecDescent::_tracefirst($text))
4531                                         if defined $::RD_TRACE;
4532
4533                         last;
4534                 }
4535                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4536                                                 . $& . q{])},
4537                                                   Parse::RecDescent::_tracefirst($text))
4538                                         if defined $::RD_TRACE;
4539                 push @item, $item{__PATTERN1__}=$&;
4540
4541
4542
4543                 Parse::RecDescent::_trace(q{>>Matched production: [/CURRENT\\s+ROW/i]<<},
4544                                           Parse::RecDescent::_tracefirst($text),
4545                                           q{group_bound1},
4546                                           $tracelevel)
4547                                                 if defined $::RD_TRACE;
4548                 $_matched = 1;
4549                 last;
4550         }
4551
4552
4553         unless ( $_matched || defined($return) || defined($score) )
4554         {
4555
4556
4557                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
4558                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
4559                                          Parse::RecDescent::_tracefirst($_[1]),
4560                                          q{group_bound1},
4561                                          $tracelevel)
4562                                         if defined $::RD_TRACE;
4563                 return undef;
4564         }
4565         if (!defined($return) && defined($score))
4566         {
4567                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
4568                                           q{group_bound1},
4569                                           $tracelevel)
4570                                                 if defined $::RD_TRACE;
4571                 $return = $score_return;
4572         }
4573         splice @{$thisparser->{errors}}, $err_at;
4574         $return = $item[$#item] unless defined $return;
4575         if (defined $::RD_TRACE)
4576         {
4577                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
4578                                           $return . q{])}, "",
4579                                           q{group_bound1},
4580                                           $tracelevel);
4581                 Parse::RecDescent::_trace(q{(consumed: [} .
4582                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
4583                                           Parse::RecDescent::_tracefirst($text),
4584                                           , q{group_bound1},
4585                                           $tracelevel)
4586         }
4587         $_[1] = $text;
4588         return $return;
4589 }
4590
4591 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
4592 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::OLAP_function
4593 {
4594         my $thisparser = $_[0];
4595         use vars q{$tracelevel};
4596         local $tracelevel = ($tracelevel||0)+1;
4597         $ERRORS = 0;
4598         my $thisrule = $thisparser->{"rules"}{"OLAP_function"};
4599
4600         Parse::RecDescent::_trace(q{Trying rule: [OLAP_function]},
4601                                   Parse::RecDescent::_tracefirst($_[1]),
4602                                   q{OLAP_function},
4603                                   $tracelevel)
4604                                         if defined $::RD_TRACE;
4605
4606
4607         my $err_at = @{$thisparser->{errors}};
4608
4609         my $score;
4610         my $score_return;
4611         my $_tok;
4612         my $return = undef;
4613         my $_matched=0;
4614         my $commit=0;
4615         my @item = ();
4616         my %item = ();
4617         my $repeating =  defined($_[2]) && $_[2];
4618         my $_noactions = defined($_[3]) && $_[3];
4619         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
4620         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
4621         my $text;
4622         my $lastsep="";
4623         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
4624         $expectation->at($_[1]);
4625
4626         my $thisline;
4627         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
4628
4629
4630
4631         while (!$_matched && !$commit)
4632         {
4633
4634                 Parse::RecDescent::_trace(q{Trying production: [ranking_function]},
4635                                           Parse::RecDescent::_tracefirst($_[1]),
4636                                           q{OLAP_function},
4637                                           $tracelevel)
4638                                                 if defined $::RD_TRACE;
4639                 my $thisprod = $thisrule->{"prods"}[0];
4640                 $text = $_[1];
4641                 my $_savetext;
4642                 @item = (q{OLAP_function});
4643                 %item = (__RULE__ => q{OLAP_function});
4644                 my $repcount = 0;
4645
4646
4647                 Parse::RecDescent::_trace(q{Trying subrule: [ranking_function]},
4648                                   Parse::RecDescent::_tracefirst($text),
4649                                   q{OLAP_function},
4650                                   $tracelevel)
4651                                         if defined $::RD_TRACE;
4652                 if (1) { no strict qw{refs};
4653                 $expectation->is(q{})->at($text);
4654                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::ranking_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
4655                 {
4656
4657                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [ranking_function]>>},
4658                                                   Parse::RecDescent::_tracefirst($text),
4659                                                   q{OLAP_function},
4660                                                   $tracelevel)
4661                                                         if defined $::RD_TRACE;
4662                         $expectation->failed();
4663                         last;
4664                 }
4665                 Parse::RecDescent::_trace(q{>>Matched subrule: [ranking_function]<< (return value: [}
4666                                         . $_tok . q{]},
4667
4668                                           Parse::RecDescent::_tracefirst($text),
4669                                           q{OLAP_function},
4670                                           $tracelevel)
4671                                                 if defined $::RD_TRACE;
4672                 $item{q{ranking_function}} = $_tok;
4673                 push @item, $_tok;
4674
4675                 }
4676
4677
4678                 Parse::RecDescent::_trace(q{>>Matched production: [ranking_function]<<},
4679                                           Parse::RecDescent::_tracefirst($text),
4680                                           q{OLAP_function},
4681                                           $tracelevel)
4682                                                 if defined $::RD_TRACE;
4683                 $_matched = 1;
4684                 last;
4685         }
4686
4687
4688         while (!$_matched && !$commit)
4689         {
4690
4691                 Parse::RecDescent::_trace(q{Trying production: [numbering_function]},
4692                                           Parse::RecDescent::_tracefirst($_[1]),
4693                                           q{OLAP_function},
4694                                           $tracelevel)
4695                                                 if defined $::RD_TRACE;
4696                 my $thisprod = $thisrule->{"prods"}[1];
4697                 $text = $_[1];
4698                 my $_savetext;
4699                 @item = (q{OLAP_function});
4700                 %item = (__RULE__ => q{OLAP_function});
4701                 my $repcount = 0;
4702
4703
4704                 Parse::RecDescent::_trace(q{Trying subrule: [numbering_function]},
4705                                   Parse::RecDescent::_tracefirst($text),
4706                                   q{OLAP_function},
4707                                   $tracelevel)
4708                                         if defined $::RD_TRACE;
4709                 if (1) { no strict qw{refs};
4710                 $expectation->is(q{})->at($text);
4711                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::numbering_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
4712                 {
4713
4714                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [numbering_function]>>},
4715                                                   Parse::RecDescent::_tracefirst($text),
4716                                                   q{OLAP_function},
4717                                                   $tracelevel)
4718                                                         if defined $::RD_TRACE;
4719                         $expectation->failed();
4720                         last;
4721                 }
4722                 Parse::RecDescent::_trace(q{>>Matched subrule: [numbering_function]<< (return value: [}
4723                                         . $_tok . q{]},
4724
4725                                           Parse::RecDescent::_tracefirst($text),
4726                                           q{OLAP_function},
4727                                           $tracelevel)
4728                                                 if defined $::RD_TRACE;
4729                 $item{q{numbering_function}} = $_tok;
4730                 push @item, $_tok;
4731
4732                 }
4733
4734
4735                 Parse::RecDescent::_trace(q{>>Matched production: [numbering_function]<<},
4736                                           Parse::RecDescent::_tracefirst($text),
4737                                           q{OLAP_function},
4738                                           $tracelevel)
4739                                                 if defined $::RD_TRACE;
4740                 $_matched = 1;
4741                 last;
4742         }
4743
4744
4745         while (!$_matched && !$commit)
4746         {
4747
4748                 Parse::RecDescent::_trace(q{Trying production: [aggregation_function]},
4749                                           Parse::RecDescent::_tracefirst($_[1]),
4750                                           q{OLAP_function},
4751                                           $tracelevel)
4752                                                 if defined $::RD_TRACE;
4753                 my $thisprod = $thisrule->{"prods"}[2];
4754                 $text = $_[1];
4755                 my $_savetext;
4756                 @item = (q{OLAP_function});
4757                 %item = (__RULE__ => q{OLAP_function});
4758                 my $repcount = 0;
4759
4760
4761                 Parse::RecDescent::_trace(q{Trying subrule: [aggregation_function]},
4762                                   Parse::RecDescent::_tracefirst($text),
4763                                   q{OLAP_function},
4764                                   $tracelevel)
4765                                         if defined $::RD_TRACE;
4766                 if (1) { no strict qw{refs};
4767                 $expectation->is(q{})->at($text);
4768                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::aggregation_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
4769                 {
4770
4771                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [aggregation_function]>>},
4772                                                   Parse::RecDescent::_tracefirst($text),
4773                                                   q{OLAP_function},
4774                                                   $tracelevel)
4775                                                         if defined $::RD_TRACE;
4776                         $expectation->failed();
4777                         last;
4778                 }
4779                 Parse::RecDescent::_trace(q{>>Matched subrule: [aggregation_function]<< (return value: [}
4780                                         . $_tok . q{]},
4781
4782                                           Parse::RecDescent::_tracefirst($text),
4783                                           q{OLAP_function},
4784                                           $tracelevel)
4785                                                 if defined $::RD_TRACE;
4786                 $item{q{aggregation_function}} = $_tok;
4787                 push @item, $_tok;
4788
4789                 }
4790
4791
4792                 Parse::RecDescent::_trace(q{>>Matched production: [aggregation_function]<<},
4793                                           Parse::RecDescent::_tracefirst($text),
4794                                           q{OLAP_function},
4795                                           $tracelevel)
4796                                                 if defined $::RD_TRACE;
4797                 $_matched = 1;
4798                 last;
4799         }
4800
4801
4802         unless ( $_matched || defined($return) || defined($score) )
4803         {
4804
4805
4806                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
4807                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
4808                                          Parse::RecDescent::_tracefirst($_[1]),
4809                                          q{OLAP_function},
4810                                          $tracelevel)
4811                                         if defined $::RD_TRACE;
4812                 return undef;
4813         }
4814         if (!defined($return) && defined($score))
4815         {
4816                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
4817                                           q{OLAP_function},
4818                                           $tracelevel)
4819                                                 if defined $::RD_TRACE;
4820                 $return = $score_return;
4821         }
4822         splice @{$thisparser->{errors}}, $err_at;
4823         $return = $item[$#item] unless defined $return;
4824         if (defined $::RD_TRACE)
4825         {
4826                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
4827                                           $return . q{])}, "",
4828                                           q{OLAP_function},
4829                                           $tracelevel);
4830                 Parse::RecDescent::_trace(q{(consumed: [} .
4831                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
4832                                           Parse::RecDescent::_tracefirst($text),
4833                                           , q{OLAP_function},
4834                                           $tracelevel)
4835         }
4836         $_[1] = $text;
4837         return $return;
4838 }
4839
4840 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
4841 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_30_of_rule_sysibm_function
4842 {
4843         my $thisparser = $_[0];
4844         use vars q{$tracelevel};
4845         local $tracelevel = ($tracelevel||0)+1;
4846         $ERRORS = 0;
4847         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_30_of_rule_sysibm_function"};
4848
4849         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_30_of_rule_sysibm_function]},
4850                                   Parse::RecDescent::_tracefirst($_[1]),
4851                                   q{_alternation_1_of_production_30_of_rule_sysibm_function},
4852                                   $tracelevel)
4853                                         if defined $::RD_TRACE;
4854
4855
4856         my $err_at = @{$thisparser->{errors}};
4857
4858         my $score;
4859         my $score_return;
4860         my $_tok;
4861         my $return = undef;
4862         my $_matched=0;
4863         my $commit=0;
4864         my @item = ();
4865         my %item = ();
4866         my $repeating =  defined($_[2]) && $_[2];
4867         my $_noactions = defined($_[3]) && $_[3];
4868         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
4869         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
4870         my $text;
4871         my $lastsep="";
4872         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
4873         $expectation->at($_[1]);
4874
4875         my $thisline;
4876         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
4877
4878
4879
4880         while (!$_matched && !$commit)
4881         {
4882
4883                 Parse::RecDescent::_trace(q{Trying production: [/DOUBLE/i]},
4884                                           Parse::RecDescent::_tracefirst($_[1]),
4885                                           q{_alternation_1_of_production_30_of_rule_sysibm_function},
4886                                           $tracelevel)
4887                                                 if defined $::RD_TRACE;
4888                 my $thisprod = $thisrule->{"prods"}[0];
4889                 $text = $_[1];
4890                 my $_savetext;
4891                 @item = (q{_alternation_1_of_production_30_of_rule_sysibm_function});
4892                 %item = (__RULE__ => q{_alternation_1_of_production_30_of_rule_sysibm_function});
4893                 my $repcount = 0;
4894
4895
4896                 Parse::RecDescent::_trace(q{Trying terminal: [/DOUBLE/i]}, Parse::RecDescent::_tracefirst($text),
4897                                           q{_alternation_1_of_production_30_of_rule_sysibm_function},
4898                                           $tracelevel)
4899                                                 if defined $::RD_TRACE;
4900                 $lastsep = "";
4901                 $expectation->is(q{})->at($text);
4902
4903
4904                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DOUBLE)//i)
4905                 {
4906
4907                         $expectation->failed();
4908                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
4909                                                   Parse::RecDescent::_tracefirst($text))
4910                                         if defined $::RD_TRACE;
4911
4912                         last;
4913                 }
4914                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4915                                                 . $& . q{])},
4916                                                   Parse::RecDescent::_tracefirst($text))
4917                                         if defined $::RD_TRACE;
4918                 push @item, $item{__PATTERN1__}=$&;
4919
4920
4921
4922                 Parse::RecDescent::_trace(q{>>Matched production: [/DOUBLE/i]<<},
4923                                           Parse::RecDescent::_tracefirst($text),
4924                                           q{_alternation_1_of_production_30_of_rule_sysibm_function},
4925                                           $tracelevel)
4926                                                 if defined $::RD_TRACE;
4927                 $_matched = 1;
4928                 last;
4929         }
4930
4931
4932         while (!$_matched && !$commit)
4933         {
4934
4935                 Parse::RecDescent::_trace(q{Trying production: [/DOUBLE_PRECISION/i]},
4936                                           Parse::RecDescent::_tracefirst($_[1]),
4937                                           q{_alternation_1_of_production_30_of_rule_sysibm_function},
4938                                           $tracelevel)
4939                                                 if defined $::RD_TRACE;
4940                 my $thisprod = $thisrule->{"prods"}[1];
4941                 $text = $_[1];
4942                 my $_savetext;
4943                 @item = (q{_alternation_1_of_production_30_of_rule_sysibm_function});
4944                 %item = (__RULE__ => q{_alternation_1_of_production_30_of_rule_sysibm_function});
4945                 my $repcount = 0;
4946
4947
4948                 Parse::RecDescent::_trace(q{Trying terminal: [/DOUBLE_PRECISION/i]}, Parse::RecDescent::_tracefirst($text),
4949                                           q{_alternation_1_of_production_30_of_rule_sysibm_function},
4950                                           $tracelevel)
4951                                                 if defined $::RD_TRACE;
4952                 $lastsep = "";
4953                 $expectation->is(q{})->at($text);
4954
4955
4956                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DOUBLE_PRECISION)//i)
4957                 {
4958
4959                         $expectation->failed();
4960                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
4961                                                   Parse::RecDescent::_tracefirst($text))
4962                                         if defined $::RD_TRACE;
4963
4964                         last;
4965                 }
4966                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
4967                                                 . $& . q{])},
4968                                                   Parse::RecDescent::_tracefirst($text))
4969                                         if defined $::RD_TRACE;
4970                 push @item, $item{__PATTERN1__}=$&;
4971
4972
4973
4974                 Parse::RecDescent::_trace(q{>>Matched production: [/DOUBLE_PRECISION/i]<<},
4975                                           Parse::RecDescent::_tracefirst($text),
4976                                           q{_alternation_1_of_production_30_of_rule_sysibm_function},
4977                                           $tracelevel)
4978                                                 if defined $::RD_TRACE;
4979                 $_matched = 1;
4980                 last;
4981         }
4982
4983
4984         unless ( $_matched || defined($return) || defined($score) )
4985         {
4986
4987
4988                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
4989                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
4990                                          Parse::RecDescent::_tracefirst($_[1]),
4991                                          q{_alternation_1_of_production_30_of_rule_sysibm_function},
4992                                          $tracelevel)
4993                                         if defined $::RD_TRACE;
4994                 return undef;
4995         }
4996         if (!defined($return) && defined($score))
4997         {
4998                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
4999                                           q{_alternation_1_of_production_30_of_rule_sysibm_function},
5000                                           $tracelevel)
5001                                                 if defined $::RD_TRACE;
5002                 $return = $score_return;
5003         }
5004         splice @{$thisparser->{errors}}, $err_at;
5005         $return = $item[$#item] unless defined $return;
5006         if (defined $::RD_TRACE)
5007         {
5008                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
5009                                           $return . q{])}, "",
5010                                           q{_alternation_1_of_production_30_of_rule_sysibm_function},
5011                                           $tracelevel);
5012                 Parse::RecDescent::_trace(q{(consumed: [} .
5013                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
5014                                           Parse::RecDescent::_tracefirst($text),
5015                                           , q{_alternation_1_of_production_30_of_rule_sysibm_function},
5016                                           $tracelevel)
5017         }
5018         $_[1] = $text;
5019         return $return;
5020 }
5021
5022 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
5023 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::FULL
5024 {
5025         my $thisparser = $_[0];
5026         use vars q{$tracelevel};
5027         local $tracelevel = ($tracelevel||0)+1;
5028         $ERRORS = 0;
5029         my $thisrule = $thisparser->{"rules"}{"FULL"};
5030
5031         Parse::RecDescent::_trace(q{Trying rule: [FULL]},
5032                                   Parse::RecDescent::_tracefirst($_[1]),
5033                                   q{FULL},
5034                                   $tracelevel)
5035                                         if defined $::RD_TRACE;
5036
5037
5038         my $err_at = @{$thisparser->{errors}};
5039
5040         my $score;
5041         my $score_return;
5042         my $_tok;
5043         my $return = undef;
5044         my $_matched=0;
5045         my $commit=0;
5046         my @item = ();
5047         my %item = ();
5048         my $repeating =  defined($_[2]) && $_[2];
5049         my $_noactions = defined($_[3]) && $_[3];
5050         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
5051         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
5052         my $text;
5053         my $lastsep="";
5054         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
5055         $expectation->at($_[1]);
5056
5057         my $thisline;
5058         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
5059
5060
5061
5062         while (!$_matched && !$commit)
5063         {
5064
5065                 Parse::RecDescent::_trace(q{Trying production: [/full/i]},
5066                                           Parse::RecDescent::_tracefirst($_[1]),
5067                                           q{FULL},
5068                                           $tracelevel)
5069                                                 if defined $::RD_TRACE;
5070                 my $thisprod = $thisrule->{"prods"}[0];
5071                 $text = $_[1];
5072                 my $_savetext;
5073                 @item = (q{FULL});
5074                 %item = (__RULE__ => q{FULL});
5075                 my $repcount = 0;
5076
5077
5078                 Parse::RecDescent::_trace(q{Trying terminal: [/full/i]}, Parse::RecDescent::_tracefirst($text),
5079                                           q{FULL},
5080                                           $tracelevel)
5081                                                 if defined $::RD_TRACE;
5082                 $lastsep = "";
5083                 $expectation->is(q{})->at($text);
5084
5085
5086                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:full)//i)
5087                 {
5088
5089                         $expectation->failed();
5090                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
5091                                                   Parse::RecDescent::_tracefirst($text))
5092                                         if defined $::RD_TRACE;
5093
5094                         last;
5095                 }
5096                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5097                                                 . $& . q{])},
5098                                                   Parse::RecDescent::_tracefirst($text))
5099                                         if defined $::RD_TRACE;
5100                 push @item, $item{__PATTERN1__}=$&;
5101
5102
5103
5104                 Parse::RecDescent::_trace(q{>>Matched production: [/full/i]<<},
5105                                           Parse::RecDescent::_tracefirst($text),
5106                                           q{FULL},
5107                                           $tracelevel)
5108                                                 if defined $::RD_TRACE;
5109                 $_matched = 1;
5110                 last;
5111         }
5112
5113
5114         unless ( $_matched || defined($return) || defined($score) )
5115         {
5116
5117
5118                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
5119                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
5120                                          Parse::RecDescent::_tracefirst($_[1]),
5121                                          q{FULL},
5122                                          $tracelevel)
5123                                         if defined $::RD_TRACE;
5124                 return undef;
5125         }
5126         if (!defined($return) && defined($score))
5127         {
5128                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
5129                                           q{FULL},
5130                                           $tracelevel)
5131                                                 if defined $::RD_TRACE;
5132                 $return = $score_return;
5133         }
5134         splice @{$thisparser->{errors}}, $err_at;
5135         $return = $item[$#item] unless defined $return;
5136         if (defined $::RD_TRACE)
5137         {
5138                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
5139                                           $return . q{])}, "",
5140                                           q{FULL},
5141                                           $tracelevel);
5142                 Parse::RecDescent::_trace(q{(consumed: [} .
5143                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
5144                                           Parse::RecDescent::_tracefirst($text),
5145                                           , q{FULL},
5146                                           $tracelevel)
5147         }
5148         $_[1] = $text;
5149         return $return;
5150 }
5151
5152 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
5153 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_2_of_production_1_of_rule_cast_specification
5154 {
5155         my $thisparser = $_[0];
5156         use vars q{$tracelevel};
5157         local $tracelevel = ($tracelevel||0)+1;
5158         $ERRORS = 0;
5159         my $thisrule = $thisparser->{"rules"}{"_alternation_2_of_production_1_of_rule_cast_specification"};
5160
5161         Parse::RecDescent::_trace(q{Trying rule: [_alternation_2_of_production_1_of_rule_cast_specification]},
5162                                   Parse::RecDescent::_tracefirst($_[1]),
5163                                   q{_alternation_2_of_production_1_of_rule_cast_specification},
5164                                   $tracelevel)
5165                                         if defined $::RD_TRACE;
5166
5167
5168         my $err_at = @{$thisparser->{errors}};
5169
5170         my $score;
5171         my $score_return;
5172         my $_tok;
5173         my $return = undef;
5174         my $_matched=0;
5175         my $commit=0;
5176         my @item = ();
5177         my %item = ();
5178         my $repeating =  defined($_[2]) && $_[2];
5179         my $_noactions = defined($_[3]) && $_[3];
5180         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
5181         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
5182         my $text;
5183         my $lastsep="";
5184         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
5185         $expectation->at($_[1]);
5186
5187         my $thisline;
5188         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
5189
5190
5191
5192         while (!$_matched && !$commit)
5193         {
5194
5195                 Parse::RecDescent::_trace(q{Trying production: [/SCOPE/ typed_table_name, or typed_view_name]},
5196                                           Parse::RecDescent::_tracefirst($_[1]),
5197                                           q{_alternation_2_of_production_1_of_rule_cast_specification},
5198                                           $tracelevel)
5199                                                 if defined $::RD_TRACE;
5200                 my $thisprod = $thisrule->{"prods"}[0];
5201                 $text = $_[1];
5202                 my $_savetext;
5203                 @item = (q{_alternation_2_of_production_1_of_rule_cast_specification});
5204                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule_cast_specification});
5205                 my $repcount = 0;
5206
5207
5208                 Parse::RecDescent::_trace(q{Trying terminal: [/SCOPE/]}, Parse::RecDescent::_tracefirst($text),
5209                                           q{_alternation_2_of_production_1_of_rule_cast_specification},
5210                                           $tracelevel)
5211                                                 if defined $::RD_TRACE;
5212                 $lastsep = "";
5213                 $expectation->is(q{})->at($text);
5214
5215
5216                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SCOPE)//)
5217                 {
5218
5219                         $expectation->failed();
5220                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
5221                                                   Parse::RecDescent::_tracefirst($text))
5222                                         if defined $::RD_TRACE;
5223
5224                         last;
5225                 }
5226                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5227                                                 . $& . q{])},
5228                                                   Parse::RecDescent::_tracefirst($text))
5229                                         if defined $::RD_TRACE;
5230                 push @item, $item{__PATTERN1__}=$&;
5231
5232
5233                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification]},
5234                                   Parse::RecDescent::_tracefirst($text),
5235                                   q{_alternation_2_of_production_1_of_rule_cast_specification},
5236                                   $tracelevel)
5237                                         if defined $::RD_TRACE;
5238                 if (1) { no strict qw{refs};
5239                 $expectation->is(q{typed_table_name, or typed_view_name})->at($text);
5240                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
5241                 {
5242
5243                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification]>>},
5244                                                   Parse::RecDescent::_tracefirst($text),
5245                                                   q{_alternation_2_of_production_1_of_rule_cast_specification},
5246                                                   $tracelevel)
5247                                                         if defined $::RD_TRACE;
5248                         $expectation->failed();
5249                         last;
5250                 }
5251                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification]<< (return value: [}
5252                                         . $_tok . q{]},
5253
5254                                           Parse::RecDescent::_tracefirst($text),
5255                                           q{_alternation_2_of_production_1_of_rule_cast_specification},
5256                                           $tracelevel)
5257                                                 if defined $::RD_TRACE;
5258                 $item{q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification}} = $_tok;
5259                 push @item, $_tok;
5260
5261                 }
5262
5263
5264                 Parse::RecDescent::_trace(q{>>Matched production: [/SCOPE/ typed_table_name, or typed_view_name]<<},
5265                                           Parse::RecDescent::_tracefirst($text),
5266                                           q{_alternation_2_of_production_1_of_rule_cast_specification},
5267                                           $tracelevel)
5268                                                 if defined $::RD_TRACE;
5269                 $_matched = 1;
5270                 last;
5271         }
5272
5273
5274         unless ( $_matched || defined($return) || defined($score) )
5275         {
5276
5277
5278                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
5279                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
5280                                          Parse::RecDescent::_tracefirst($_[1]),
5281                                          q{_alternation_2_of_production_1_of_rule_cast_specification},
5282                                          $tracelevel)
5283                                         if defined $::RD_TRACE;
5284                 return undef;
5285         }
5286         if (!defined($return) && defined($score))
5287         {
5288                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
5289                                           q{_alternation_2_of_production_1_of_rule_cast_specification},
5290                                           $tracelevel)
5291                                                 if defined $::RD_TRACE;
5292                 $return = $score_return;
5293         }
5294         splice @{$thisparser->{errors}}, $err_at;
5295         $return = $item[$#item] unless defined $return;
5296         if (defined $::RD_TRACE)
5297         {
5298                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
5299                                           $return . q{])}, "",
5300                                           q{_alternation_2_of_production_1_of_rule_cast_specification},
5301                                           $tracelevel);
5302                 Parse::RecDescent::_trace(q{(consumed: [} .
5303                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
5304                                           Parse::RecDescent::_tracefirst($text),
5305                                           , q{_alternation_2_of_production_1_of_rule_cast_specification},
5306                                           $tracelevel)
5307         }
5308         $_[1] = $text;
5309         return $return;
5310 }
5311
5312 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
5313 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::case_expression
5314 {
5315         my $thisparser = $_[0];
5316         use vars q{$tracelevel};
5317         local $tracelevel = ($tracelevel||0)+1;
5318         $ERRORS = 0;
5319         my $thisrule = $thisparser->{"rules"}{"case_expression"};
5320
5321         Parse::RecDescent::_trace(q{Trying rule: [case_expression]},
5322                                   Parse::RecDescent::_tracefirst($_[1]),
5323                                   q{case_expression},
5324                                   $tracelevel)
5325                                         if defined $::RD_TRACE;
5326
5327
5328         my $err_at = @{$thisparser->{errors}};
5329
5330         my $score;
5331         my $score_return;
5332         my $_tok;
5333         my $return = undef;
5334         my $_matched=0;
5335         my $commit=0;
5336         my @item = ();
5337         my %item = ();
5338         my $repeating =  defined($_[2]) && $_[2];
5339         my $_noactions = defined($_[3]) && $_[3];
5340         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
5341         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
5342         my $text;
5343         my $lastsep="";
5344         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
5345         $expectation->at($_[1]);
5346
5347         my $thisline;
5348         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
5349
5350
5351
5352         while (!$_matched && !$commit)
5353         {
5354
5355                 Parse::RecDescent::_trace(q{Trying production: [/CASE/i searched_when_clause, or simple_when_clause /ELSE\\s+NULL/i, or /ELSE/i /END/i]},
5356                                           Parse::RecDescent::_tracefirst($_[1]),
5357                                           q{case_expression},
5358                                           $tracelevel)
5359                                                 if defined $::RD_TRACE;
5360                 my $thisprod = $thisrule->{"prods"}[0];
5361                 $text = $_[1];
5362                 my $_savetext;
5363                 @item = (q{case_expression});
5364                 %item = (__RULE__ => q{case_expression});
5365                 my $repcount = 0;
5366
5367
5368                 Parse::RecDescent::_trace(q{Trying terminal: [/CASE/i]}, Parse::RecDescent::_tracefirst($text),
5369                                           q{case_expression},
5370                                           $tracelevel)
5371                                                 if defined $::RD_TRACE;
5372                 $lastsep = "";
5373                 $expectation->is(q{})->at($text);
5374
5375
5376                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CASE)//i)
5377                 {
5378
5379                         $expectation->failed();
5380                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
5381                                                   Parse::RecDescent::_tracefirst($text))
5382                                         if defined $::RD_TRACE;
5383
5384                         last;
5385                 }
5386                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5387                                                 . $& . q{])},
5388                                                   Parse::RecDescent::_tracefirst($text))
5389                                         if defined $::RD_TRACE;
5390                 push @item, $item{__PATTERN1__}=$&;
5391
5392
5393                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule_case_expression]},
5394                                   Parse::RecDescent::_tracefirst($text),
5395                                   q{case_expression},
5396                                   $tracelevel)
5397                                         if defined $::RD_TRACE;
5398                 if (1) { no strict qw{refs};
5399                 $expectation->is(q{searched_when_clause, or simple_when_clause})->at($text);
5400                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_case_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
5401                 {
5402
5403                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule_case_expression]>>},
5404                                                   Parse::RecDescent::_tracefirst($text),
5405                                                   q{case_expression},
5406                                                   $tracelevel)
5407                                                         if defined $::RD_TRACE;
5408                         $expectation->failed();
5409                         last;
5410                 }
5411                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule_case_expression]<< (return value: [}
5412                                         . $_tok . q{]},
5413
5414                                           Parse::RecDescent::_tracefirst($text),
5415                                           q{case_expression},
5416                                           $tracelevel)
5417                                                 if defined $::RD_TRACE;
5418                 $item{q{_alternation_1_of_production_1_of_rule_case_expression}} = $_tok;
5419                 push @item, $_tok;
5420
5421                 }
5422
5423                 Parse::RecDescent::_trace(q{Trying repeated subrule: [/ELSE\\s+NULL/i, or /ELSE/i]},
5424                                   Parse::RecDescent::_tracefirst($text),
5425                                   q{case_expression},
5426                                   $tracelevel)
5427                                         if defined $::RD_TRACE;
5428                 $expectation->is(q{/ELSE\\s+NULL/i, or /ELSE/i})->at($text);
5429
5430                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_2_of_production_1_of_rule_case_expression, 0, 1, $_noactions,$expectation,undef)))
5431                 {
5432                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [/ELSE\\s+NULL/i, or /ELSE/i]>>},
5433                                                   Parse::RecDescent::_tracefirst($text),
5434                                                   q{case_expression},
5435                                                   $tracelevel)
5436                                                         if defined $::RD_TRACE;
5437                         last;
5438                 }
5439                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [_alternation_2_of_production_1_of_rule_case_expression]<< (}
5440                                         . @$_tok . q{ times)},
5441
5442                                           Parse::RecDescent::_tracefirst($text),
5443                                           q{case_expression},
5444                                           $tracelevel)
5445                                                 if defined $::RD_TRACE;
5446                 $item{q{_alternation_2_of_production_1_of_rule_case_expression(?)}} = $_tok;
5447                 push @item, $_tok;
5448
5449
5450
5451                 Parse::RecDescent::_trace(q{Trying terminal: [/END/i]}, Parse::RecDescent::_tracefirst($text),
5452                                           q{case_expression},
5453                                           $tracelevel)
5454                                                 if defined $::RD_TRACE;
5455                 $lastsep = "";
5456                 $expectation->is(q{/END/i})->at($text);
5457
5458
5459                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:END)//i)
5460                 {
5461
5462                         $expectation->failed();
5463                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
5464                                                   Parse::RecDescent::_tracefirst($text))
5465                                         if defined $::RD_TRACE;
5466
5467                         last;
5468                 }
5469                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5470                                                 . $& . q{])},
5471                                                   Parse::RecDescent::_tracefirst($text))
5472                                         if defined $::RD_TRACE;
5473                 push @item, $item{__PATTERN2__}=$&;
5474
5475
5476
5477                 Parse::RecDescent::_trace(q{>>Matched production: [/CASE/i searched_when_clause, or simple_when_clause /ELSE\\s+NULL/i, or /ELSE/i /END/i]<<},
5478                                           Parse::RecDescent::_tracefirst($text),
5479                                           q{case_expression},
5480                                           $tracelevel)
5481                                                 if defined $::RD_TRACE;
5482                 $_matched = 1;
5483                 last;
5484         }
5485
5486
5487         unless ( $_matched || defined($return) || defined($score) )
5488         {
5489
5490
5491                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
5492                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
5493                                          Parse::RecDescent::_tracefirst($_[1]),
5494                                          q{case_expression},
5495                                          $tracelevel)
5496                                         if defined $::RD_TRACE;
5497                 return undef;
5498         }
5499         if (!defined($return) && defined($score))
5500         {
5501                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
5502                                           q{case_expression},
5503                                           $tracelevel)
5504                                                 if defined $::RD_TRACE;
5505                 $return = $score_return;
5506         }
5507         splice @{$thisparser->{errors}}, $err_at;
5508         $return = $item[$#item] unless defined $return;
5509         if (defined $::RD_TRACE)
5510         {
5511                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
5512                                           $return . q{])}, "",
5513                                           q{case_expression},
5514                                           $tracelevel);
5515                 Parse::RecDescent::_trace(q{(consumed: [} .
5516                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
5517                                           Parse::RecDescent::_tracefirst($text),
5518                                           , q{case_expression},
5519                                           $tracelevel)
5520         }
5521         $_[1] = $text;
5522         return $return;
5523 }
5524
5525 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
5526 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::operator
5527 {
5528         my $thisparser = $_[0];
5529         use vars q{$tracelevel};
5530         local $tracelevel = ($tracelevel||0)+1;
5531         $ERRORS = 0;
5532         my $thisrule = $thisparser->{"rules"}{"operator"};
5533
5534         Parse::RecDescent::_trace(q{Trying rule: [operator]},
5535                                   Parse::RecDescent::_tracefirst($_[1]),
5536                                   q{operator},
5537                                   $tracelevel)
5538                                         if defined $::RD_TRACE;
5539
5540
5541         my $err_at = @{$thisparser->{errors}};
5542
5543         my $score;
5544         my $score_return;
5545         my $_tok;
5546         my $return = undef;
5547         my $_matched=0;
5548         my $commit=0;
5549         my @item = ();
5550         my %item = ();
5551         my $repeating =  defined($_[2]) && $_[2];
5552         my $_noactions = defined($_[3]) && $_[3];
5553         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
5554         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
5555         my $text;
5556         my $lastsep="";
5557         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
5558         $expectation->at($_[1]);
5559
5560         my $thisline;
5561         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
5562
5563
5564
5565         while (!$_matched && !$commit)
5566         {
5567
5568                 Parse::RecDescent::_trace(q{Trying production: [/CONCAT/i, or '||']},
5569                                           Parse::RecDescent::_tracefirst($_[1]),
5570                                           q{operator},
5571                                           $tracelevel)
5572                                                 if defined $::RD_TRACE;
5573                 my $thisprod = $thisrule->{"prods"}[0];
5574                 $text = $_[1];
5575                 my $_savetext;
5576                 @item = (q{operator});
5577                 %item = (__RULE__ => q{operator});
5578                 my $repcount = 0;
5579
5580
5581                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule_operator]},
5582                                   Parse::RecDescent::_tracefirst($text),
5583                                   q{operator},
5584                                   $tracelevel)
5585                                         if defined $::RD_TRACE;
5586                 if (1) { no strict qw{refs};
5587                 $expectation->is(q{})->at($text);
5588                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_operator($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
5589                 {
5590
5591                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule_operator]>>},
5592                                                   Parse::RecDescent::_tracefirst($text),
5593                                                   q{operator},
5594                                                   $tracelevel)
5595                                                         if defined $::RD_TRACE;
5596                         $expectation->failed();
5597                         last;
5598                 }
5599                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule_operator]<< (return value: [}
5600                                         . $_tok . q{]},
5601
5602                                           Parse::RecDescent::_tracefirst($text),
5603                                           q{operator},
5604                                           $tracelevel)
5605                                                 if defined $::RD_TRACE;
5606                 $item{q{_alternation_1_of_production_1_of_rule_operator}} = $_tok;
5607                 push @item, $_tok;
5608
5609                 }
5610
5611
5612                 Parse::RecDescent::_trace(q{>>Matched production: [/CONCAT/i, or '||']<<},
5613                                           Parse::RecDescent::_tracefirst($text),
5614                                           q{operator},
5615                                           $tracelevel)
5616                                                 if defined $::RD_TRACE;
5617                 $_matched = 1;
5618                 last;
5619         }
5620
5621
5622         while (!$_matched && !$commit)
5623         {
5624
5625                 Parse::RecDescent::_trace(q{Trying production: ['/']},
5626                                           Parse::RecDescent::_tracefirst($_[1]),
5627                                           q{operator},
5628                                           $tracelevel)
5629                                                 if defined $::RD_TRACE;
5630                 my $thisprod = $thisrule->{"prods"}[1];
5631                 $text = $_[1];
5632                 my $_savetext;
5633                 @item = (q{operator});
5634                 %item = (__RULE__ => q{operator});
5635                 my $repcount = 0;
5636
5637
5638                 Parse::RecDescent::_trace(q{Trying terminal: ['/']},
5639                                           Parse::RecDescent::_tracefirst($text),
5640                                           q{operator},
5641                                           $tracelevel)
5642                                                 if defined $::RD_TRACE;
5643                 $lastsep = "";
5644                 $expectation->is(q{})->at($text);
5645
5646
5647                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\///)
5648                 {
5649
5650                         $expectation->failed();
5651                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
5652                                                   Parse::RecDescent::_tracefirst($text))
5653                                                         if defined $::RD_TRACE;
5654                         last;
5655                 }
5656                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5657                                                 . $& . q{])},
5658                                                   Parse::RecDescent::_tracefirst($text))
5659                                                         if defined $::RD_TRACE;
5660                 push @item, $item{__STRING1__}=$&;
5661
5662
5663
5664                 Parse::RecDescent::_trace(q{>>Matched production: ['/']<<},
5665                                           Parse::RecDescent::_tracefirst($text),
5666                                           q{operator},
5667                                           $tracelevel)
5668                                                 if defined $::RD_TRACE;
5669                 $_matched = 1;
5670                 last;
5671         }
5672
5673
5674         while (!$_matched && !$commit)
5675         {
5676
5677                 Parse::RecDescent::_trace(q{Trying production: ['*']},
5678                                           Parse::RecDescent::_tracefirst($_[1]),
5679                                           q{operator},
5680                                           $tracelevel)
5681                                                 if defined $::RD_TRACE;
5682                 my $thisprod = $thisrule->{"prods"}[2];
5683                 $text = $_[1];
5684                 my $_savetext;
5685                 @item = (q{operator});
5686                 %item = (__RULE__ => q{operator});
5687                 my $repcount = 0;
5688
5689
5690                 Parse::RecDescent::_trace(q{Trying terminal: ['*']},
5691                                           Parse::RecDescent::_tracefirst($text),
5692                                           q{operator},
5693                                           $tracelevel)
5694                                                 if defined $::RD_TRACE;
5695                 $lastsep = "";
5696                 $expectation->is(q{})->at($text);
5697
5698
5699                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\*//)
5700                 {
5701
5702                         $expectation->failed();
5703                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
5704                                                   Parse::RecDescent::_tracefirst($text))
5705                                                         if defined $::RD_TRACE;
5706                         last;
5707                 }
5708                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5709                                                 . $& . q{])},
5710                                                   Parse::RecDescent::_tracefirst($text))
5711                                                         if defined $::RD_TRACE;
5712                 push @item, $item{__STRING1__}=$&;
5713
5714
5715
5716                 Parse::RecDescent::_trace(q{>>Matched production: ['*']<<},
5717                                           Parse::RecDescent::_tracefirst($text),
5718                                           q{operator},
5719                                           $tracelevel)
5720                                                 if defined $::RD_TRACE;
5721                 $_matched = 1;
5722                 last;
5723         }
5724
5725
5726         while (!$_matched && !$commit)
5727         {
5728
5729                 Parse::RecDescent::_trace(q{Trying production: ['+']},
5730                                           Parse::RecDescent::_tracefirst($_[1]),
5731                                           q{operator},
5732                                           $tracelevel)
5733                                                 if defined $::RD_TRACE;
5734                 my $thisprod = $thisrule->{"prods"}[3];
5735                 $text = $_[1];
5736                 my $_savetext;
5737                 @item = (q{operator});
5738                 %item = (__RULE__ => q{operator});
5739                 my $repcount = 0;
5740
5741
5742                 Parse::RecDescent::_trace(q{Trying terminal: ['+']},
5743                                           Parse::RecDescent::_tracefirst($text),
5744                                           q{operator},
5745                                           $tracelevel)
5746                                                 if defined $::RD_TRACE;
5747                 $lastsep = "";
5748                 $expectation->is(q{})->at($text);
5749
5750
5751                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\+//)
5752                 {
5753
5754                         $expectation->failed();
5755                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
5756                                                   Parse::RecDescent::_tracefirst($text))
5757                                                         if defined $::RD_TRACE;
5758                         last;
5759                 }
5760                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5761                                                 . $& . q{])},
5762                                                   Parse::RecDescent::_tracefirst($text))
5763                                                         if defined $::RD_TRACE;
5764                 push @item, $item{__STRING1__}=$&;
5765
5766
5767
5768                 Parse::RecDescent::_trace(q{>>Matched production: ['+']<<},
5769                                           Parse::RecDescent::_tracefirst($text),
5770                                           q{operator},
5771                                           $tracelevel)
5772                                                 if defined $::RD_TRACE;
5773                 $_matched = 1;
5774                 last;
5775         }
5776
5777
5778         while (!$_matched && !$commit)
5779         {
5780
5781                 Parse::RecDescent::_trace(q{Trying production: ['-']},
5782                                           Parse::RecDescent::_tracefirst($_[1]),
5783                                           q{operator},
5784                                           $tracelevel)
5785                                                 if defined $::RD_TRACE;
5786                 my $thisprod = $thisrule->{"prods"}[4];
5787                 $text = $_[1];
5788                 my $_savetext;
5789                 @item = (q{operator});
5790                 %item = (__RULE__ => q{operator});
5791                 my $repcount = 0;
5792
5793
5794                 Parse::RecDescent::_trace(q{Trying terminal: ['-']},
5795                                           Parse::RecDescent::_tracefirst($text),
5796                                           q{operator},
5797                                           $tracelevel)
5798                                                 if defined $::RD_TRACE;
5799                 $lastsep = "";
5800                 $expectation->is(q{})->at($text);
5801
5802
5803                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\-//)
5804                 {
5805
5806                         $expectation->failed();
5807                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
5808                                                   Parse::RecDescent::_tracefirst($text))
5809                                                         if defined $::RD_TRACE;
5810                         last;
5811                 }
5812                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5813                                                 . $& . q{])},
5814                                                   Parse::RecDescent::_tracefirst($text))
5815                                                         if defined $::RD_TRACE;
5816                 push @item, $item{__STRING1__}=$&;
5817
5818
5819
5820                 Parse::RecDescent::_trace(q{>>Matched production: ['-']<<},
5821                                           Parse::RecDescent::_tracefirst($text),
5822                                           q{operator},
5823                                           $tracelevel)
5824                                                 if defined $::RD_TRACE;
5825                 $_matched = 1;
5826                 last;
5827         }
5828
5829
5830         unless ( $_matched || defined($return) || defined($score) )
5831         {
5832
5833
5834                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
5835                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
5836                                          Parse::RecDescent::_tracefirst($_[1]),
5837                                          q{operator},
5838                                          $tracelevel)
5839                                         if defined $::RD_TRACE;
5840                 return undef;
5841         }
5842         if (!defined($return) && defined($score))
5843         {
5844                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
5845                                           q{operator},
5846                                           $tracelevel)
5847                                                 if defined $::RD_TRACE;
5848                 $return = $score_return;
5849         }
5850         splice @{$thisparser->{errors}}, $err_at;
5851         $return = $item[$#item] unless defined $return;
5852         if (defined $::RD_TRACE)
5853         {
5854                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
5855                                           $return . q{])}, "",
5856                                           q{operator},
5857                                           $tracelevel);
5858                 Parse::RecDescent::_trace(q{(consumed: [} .
5859                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
5860                                           Parse::RecDescent::_tracefirst($text),
5861                                           , q{operator},
5862                                           $tracelevel)
5863         }
5864         $_[1] = $text;
5865         return $return;
5866 }
5867
5868 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
5869 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_2_of_rule_type
5870 {
5871         my $thisparser = $_[0];
5872         use vars q{$tracelevel};
5873         local $tracelevel = ($tracelevel||0)+1;
5874         $ERRORS = 0;
5875         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_2_of_rule_type"};
5876
5877         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_2_of_rule_type]},
5878                                   Parse::RecDescent::_tracefirst($_[1]),
5879                                   q{_alternation_1_of_production_2_of_rule_type},
5880                                   $tracelevel)
5881                                         if defined $::RD_TRACE;
5882
5883
5884         my $err_at = @{$thisparser->{errors}};
5885
5886         my $score;
5887         my $score_return;
5888         my $_tok;
5889         my $return = undef;
5890         my $_matched=0;
5891         my $commit=0;
5892         my @item = ();
5893         my %item = ();
5894         my $repeating =  defined($_[2]) && $_[2];
5895         my $_noactions = defined($_[3]) && $_[3];
5896         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
5897         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
5898         my $text;
5899         my $lastsep="";
5900         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
5901         $expectation->at($_[1]);
5902
5903         my $thisline;
5904         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
5905
5906
5907
5908         while (!$_matched && !$commit)
5909         {
5910
5911                 Parse::RecDescent::_trace(q{Trying production: [/INSERT/i]},
5912                                           Parse::RecDescent::_tracefirst($_[1]),
5913                                           q{_alternation_1_of_production_2_of_rule_type},
5914                                           $tracelevel)
5915                                                 if defined $::RD_TRACE;
5916                 my $thisprod = $thisrule->{"prods"}[0];
5917                 $text = $_[1];
5918                 my $_savetext;
5919                 @item = (q{_alternation_1_of_production_2_of_rule_type});
5920                 %item = (__RULE__ => q{_alternation_1_of_production_2_of_rule_type});
5921                 my $repcount = 0;
5922
5923
5924                 Parse::RecDescent::_trace(q{Trying terminal: [/INSERT/i]}, Parse::RecDescent::_tracefirst($text),
5925                                           q{_alternation_1_of_production_2_of_rule_type},
5926                                           $tracelevel)
5927                                                 if defined $::RD_TRACE;
5928                 $lastsep = "";
5929                 $expectation->is(q{})->at($text);
5930
5931
5932                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:INSERT)//i)
5933                 {
5934
5935                         $expectation->failed();
5936                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
5937                                                   Parse::RecDescent::_tracefirst($text))
5938                                         if defined $::RD_TRACE;
5939
5940                         last;
5941                 }
5942                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5943                                                 . $& . q{])},
5944                                                   Parse::RecDescent::_tracefirst($text))
5945                                         if defined $::RD_TRACE;
5946                 push @item, $item{__PATTERN1__}=$&;
5947
5948
5949
5950                 Parse::RecDescent::_trace(q{>>Matched production: [/INSERT/i]<<},
5951                                           Parse::RecDescent::_tracefirst($text),
5952                                           q{_alternation_1_of_production_2_of_rule_type},
5953                                           $tracelevel)
5954                                                 if defined $::RD_TRACE;
5955                 $_matched = 1;
5956                 last;
5957         }
5958
5959
5960         while (!$_matched && !$commit)
5961         {
5962
5963                 Parse::RecDescent::_trace(q{Trying production: [/DELETE/i]},
5964                                           Parse::RecDescent::_tracefirst($_[1]),
5965                                           q{_alternation_1_of_production_2_of_rule_type},
5966                                           $tracelevel)
5967                                                 if defined $::RD_TRACE;
5968                 my $thisprod = $thisrule->{"prods"}[1];
5969                 $text = $_[1];
5970                 my $_savetext;
5971                 @item = (q{_alternation_1_of_production_2_of_rule_type});
5972                 %item = (__RULE__ => q{_alternation_1_of_production_2_of_rule_type});
5973                 my $repcount = 0;
5974
5975
5976                 Parse::RecDescent::_trace(q{Trying terminal: [/DELETE/i]}, Parse::RecDescent::_tracefirst($text),
5977                                           q{_alternation_1_of_production_2_of_rule_type},
5978                                           $tracelevel)
5979                                                 if defined $::RD_TRACE;
5980                 $lastsep = "";
5981                 $expectation->is(q{})->at($text);
5982
5983
5984                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DELETE)//i)
5985                 {
5986
5987                         $expectation->failed();
5988                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
5989                                                   Parse::RecDescent::_tracefirst($text))
5990                                         if defined $::RD_TRACE;
5991
5992                         last;
5993                 }
5994                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
5995                                                 . $& . q{])},
5996                                                   Parse::RecDescent::_tracefirst($text))
5997                                         if defined $::RD_TRACE;
5998                 push @item, $item{__PATTERN1__}=$&;
5999
6000
6001
6002                 Parse::RecDescent::_trace(q{>>Matched production: [/DELETE/i]<<},
6003                                           Parse::RecDescent::_tracefirst($text),
6004                                           q{_alternation_1_of_production_2_of_rule_type},
6005                                           $tracelevel)
6006                                                 if defined $::RD_TRACE;
6007                 $_matched = 1;
6008                 last;
6009         }
6010
6011
6012         while (!$_matched && !$commit)
6013         {
6014
6015                 Parse::RecDescent::_trace(q{Trying production: [/UPDATE/i]},
6016                                           Parse::RecDescent::_tracefirst($_[1]),
6017                                           q{_alternation_1_of_production_2_of_rule_type},
6018                                           $tracelevel)
6019                                                 if defined $::RD_TRACE;
6020                 my $thisprod = $thisrule->{"prods"}[2];
6021                 $text = $_[1];
6022                 my $_savetext;
6023                 @item = (q{_alternation_1_of_production_2_of_rule_type});
6024                 %item = (__RULE__ => q{_alternation_1_of_production_2_of_rule_type});
6025                 my $repcount = 0;
6026
6027
6028                 Parse::RecDescent::_trace(q{Trying terminal: [/UPDATE/i]}, Parse::RecDescent::_tracefirst($text),
6029                                           q{_alternation_1_of_production_2_of_rule_type},
6030                                           $tracelevel)
6031                                                 if defined $::RD_TRACE;
6032                 $lastsep = "";
6033                 $expectation->is(q{})->at($text);
6034
6035
6036                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:UPDATE)//i)
6037                 {
6038
6039                         $expectation->failed();
6040                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
6041                                                   Parse::RecDescent::_tracefirst($text))
6042                                         if defined $::RD_TRACE;
6043
6044                         last;
6045                 }
6046                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6047                                                 . $& . q{])},
6048                                                   Parse::RecDescent::_tracefirst($text))
6049                                         if defined $::RD_TRACE;
6050                 push @item, $item{__PATTERN1__}=$&;
6051
6052
6053
6054                 Parse::RecDescent::_trace(q{>>Matched production: [/UPDATE/i]<<},
6055                                           Parse::RecDescent::_tracefirst($text),
6056                                           q{_alternation_1_of_production_2_of_rule_type},
6057                                           $tracelevel)
6058                                                 if defined $::RD_TRACE;
6059                 $_matched = 1;
6060                 last;
6061         }
6062
6063
6064         unless ( $_matched || defined($return) || defined($score) )
6065         {
6066
6067
6068                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
6069                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
6070                                          Parse::RecDescent::_tracefirst($_[1]),
6071                                          q{_alternation_1_of_production_2_of_rule_type},
6072                                          $tracelevel)
6073                                         if defined $::RD_TRACE;
6074                 return undef;
6075         }
6076         if (!defined($return) && defined($score))
6077         {
6078                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
6079                                           q{_alternation_1_of_production_2_of_rule_type},
6080                                           $tracelevel)
6081                                                 if defined $::RD_TRACE;
6082                 $return = $score_return;
6083         }
6084         splice @{$thisparser->{errors}}, $err_at;
6085         $return = $item[$#item] unless defined $return;
6086         if (defined $::RD_TRACE)
6087         {
6088                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
6089                                           $return . q{])}, "",
6090                                           q{_alternation_1_of_production_2_of_rule_type},
6091                                           $tracelevel);
6092                 Parse::RecDescent::_trace(q{(consumed: [} .
6093                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
6094                                           Parse::RecDescent::_tracefirst($text),
6095                                           , q{_alternation_1_of_production_2_of_rule_type},
6096                                           $tracelevel)
6097         }
6098         $_[1] = $text;
6099         return $return;
6100 }
6101
6102 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
6103 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_8_of_rule_sysibm_function
6104 {
6105         my $thisparser = $_[0];
6106         use vars q{$tracelevel};
6107         local $tracelevel = ($tracelevel||0)+1;
6108         $ERRORS = 0;
6109         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_8_of_rule_sysibm_function"};
6110
6111         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_8_of_rule_sysibm_function]},
6112                                   Parse::RecDescent::_tracefirst($_[1]),
6113                                   q{_alternation_1_of_production_8_of_rule_sysibm_function},
6114                                   $tracelevel)
6115                                         if defined $::RD_TRACE;
6116
6117
6118         my $err_at = @{$thisparser->{errors}};
6119
6120         my $score;
6121         my $score_return;
6122         my $_tok;
6123         my $return = undef;
6124         my $_matched=0;
6125         my $commit=0;
6126         my @item = ();
6127         my %item = ();
6128         my $repeating =  defined($_[2]) && $_[2];
6129         my $_noactions = defined($_[3]) && $_[3];
6130         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
6131         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
6132         my $text;
6133         my $lastsep="";
6134         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
6135         $expectation->at($_[1]);
6136
6137         my $thisline;
6138         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
6139
6140
6141
6142         while (!$_matched && !$commit)
6143         {
6144
6145                 Parse::RecDescent::_trace(q{Trying production: [/CONCAT/]},
6146                                           Parse::RecDescent::_tracefirst($_[1]),
6147                                           q{_alternation_1_of_production_8_of_rule_sysibm_function},
6148                                           $tracelevel)
6149                                                 if defined $::RD_TRACE;
6150                 my $thisprod = $thisrule->{"prods"}[0];
6151                 $text = $_[1];
6152                 my $_savetext;
6153                 @item = (q{_alternation_1_of_production_8_of_rule_sysibm_function});
6154                 %item = (__RULE__ => q{_alternation_1_of_production_8_of_rule_sysibm_function});
6155                 my $repcount = 0;
6156
6157
6158                 Parse::RecDescent::_trace(q{Trying terminal: [/CONCAT/]}, Parse::RecDescent::_tracefirst($text),
6159                                           q{_alternation_1_of_production_8_of_rule_sysibm_function},
6160                                           $tracelevel)
6161                                                 if defined $::RD_TRACE;
6162                 $lastsep = "";
6163                 $expectation->is(q{})->at($text);
6164
6165
6166                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CONCAT)//)
6167                 {
6168
6169                         $expectation->failed();
6170                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
6171                                                   Parse::RecDescent::_tracefirst($text))
6172                                         if defined $::RD_TRACE;
6173
6174                         last;
6175                 }
6176                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6177                                                 . $& . q{])},
6178                                                   Parse::RecDescent::_tracefirst($text))
6179                                         if defined $::RD_TRACE;
6180                 push @item, $item{__PATTERN1__}=$&;
6181
6182
6183
6184                 Parse::RecDescent::_trace(q{>>Matched production: [/CONCAT/]<<},
6185                                           Parse::RecDescent::_tracefirst($text),
6186                                           q{_alternation_1_of_production_8_of_rule_sysibm_function},
6187                                           $tracelevel)
6188                                                 if defined $::RD_TRACE;
6189                 $_matched = 1;
6190                 last;
6191         }
6192
6193
6194         while (!$_matched && !$commit)
6195         {
6196
6197                 Parse::RecDescent::_trace(q{Trying production: ['||']},
6198                                           Parse::RecDescent::_tracefirst($_[1]),
6199                                           q{_alternation_1_of_production_8_of_rule_sysibm_function},
6200                                           $tracelevel)
6201                                                 if defined $::RD_TRACE;
6202                 my $thisprod = $thisrule->{"prods"}[1];
6203                 $text = $_[1];
6204                 my $_savetext;
6205                 @item = (q{_alternation_1_of_production_8_of_rule_sysibm_function});
6206                 %item = (__RULE__ => q{_alternation_1_of_production_8_of_rule_sysibm_function});
6207                 my $repcount = 0;
6208
6209
6210                 Parse::RecDescent::_trace(q{Trying terminal: ['||']},
6211                                           Parse::RecDescent::_tracefirst($text),
6212                                           q{_alternation_1_of_production_8_of_rule_sysibm_function},
6213                                           $tracelevel)
6214                                                 if defined $::RD_TRACE;
6215                 $lastsep = "";
6216                 $expectation->is(q{})->at($text);
6217
6218
6219                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\|\|//)
6220                 {
6221
6222                         $expectation->failed();
6223                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
6224                                                   Parse::RecDescent::_tracefirst($text))
6225                                                         if defined $::RD_TRACE;
6226                         last;
6227                 }
6228                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6229                                                 . $& . q{])},
6230                                                   Parse::RecDescent::_tracefirst($text))
6231                                                         if defined $::RD_TRACE;
6232                 push @item, $item{__STRING1__}=$&;
6233
6234
6235
6236                 Parse::RecDescent::_trace(q{>>Matched production: ['||']<<},
6237                                           Parse::RecDescent::_tracefirst($text),
6238                                           q{_alternation_1_of_production_8_of_rule_sysibm_function},
6239                                           $tracelevel)
6240                                                 if defined $::RD_TRACE;
6241                 $_matched = 1;
6242                 last;
6243         }
6244
6245
6246         unless ( $_matched || defined($return) || defined($score) )
6247         {
6248
6249
6250                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
6251                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
6252                                          Parse::RecDescent::_tracefirst($_[1]),
6253                                          q{_alternation_1_of_production_8_of_rule_sysibm_function},
6254                                          $tracelevel)
6255                                         if defined $::RD_TRACE;
6256                 return undef;
6257         }
6258         if (!defined($return) && defined($score))
6259         {
6260                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
6261                                           q{_alternation_1_of_production_8_of_rule_sysibm_function},
6262                                           $tracelevel)
6263                                                 if defined $::RD_TRACE;
6264                 $return = $score_return;
6265         }
6266         splice @{$thisparser->{errors}}, $err_at;
6267         $return = $item[$#item] unless defined $return;
6268         if (defined $::RD_TRACE)
6269         {
6270                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
6271                                           $return . q{])}, "",
6272                                           q{_alternation_1_of_production_8_of_rule_sysibm_function},
6273                                           $tracelevel);
6274                 Parse::RecDescent::_trace(q{(consumed: [} .
6275                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
6276                                           Parse::RecDescent::_tracefirst($text),
6277                                           , q{_alternation_1_of_production_8_of_rule_sysibm_function},
6278                                           $tracelevel)
6279         }
6280         $_[1] = $text;
6281         return $return;
6282 }
6283
6284 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
6285 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::sequence_reference
6286 {
6287         my $thisparser = $_[0];
6288         use vars q{$tracelevel};
6289         local $tracelevel = ($tracelevel||0)+1;
6290         $ERRORS = 0;
6291         my $thisrule = $thisparser->{"rules"}{"sequence_reference"};
6292
6293         Parse::RecDescent::_trace(q{Trying rule: [sequence_reference]},
6294                                   Parse::RecDescent::_tracefirst($_[1]),
6295                                   q{sequence_reference},
6296                                   $tracelevel)
6297                                         if defined $::RD_TRACE;
6298
6299
6300         my $err_at = @{$thisparser->{errors}};
6301
6302         my $score;
6303         my $score_return;
6304         my $_tok;
6305         my $return = undef;
6306         my $_matched=0;
6307         my $commit=0;
6308         my @item = ();
6309         my %item = ();
6310         my $repeating =  defined($_[2]) && $_[2];
6311         my $_noactions = defined($_[3]) && $_[3];
6312         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
6313         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
6314         my $text;
6315         my $lastsep="";
6316         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
6317         $expectation->at($_[1]);
6318
6319         my $thisline;
6320         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
6321
6322
6323
6324         while (!$_matched && !$commit)
6325         {
6326
6327                 Parse::RecDescent::_trace(q{Trying production: [nextval_expression]},
6328                                           Parse::RecDescent::_tracefirst($_[1]),
6329                                           q{sequence_reference},
6330                                           $tracelevel)
6331                                                 if defined $::RD_TRACE;
6332                 my $thisprod = $thisrule->{"prods"}[0];
6333                 $text = $_[1];
6334                 my $_savetext;
6335                 @item = (q{sequence_reference});
6336                 %item = (__RULE__ => q{sequence_reference});
6337                 my $repcount = 0;
6338
6339
6340                 Parse::RecDescent::_trace(q{Trying subrule: [nextval_expression]},
6341                                   Parse::RecDescent::_tracefirst($text),
6342                                   q{sequence_reference},
6343                                   $tracelevel)
6344                                         if defined $::RD_TRACE;
6345                 if (1) { no strict qw{refs};
6346                 $expectation->is(q{})->at($text);
6347                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::nextval_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
6348                 {
6349
6350                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [nextval_expression]>>},
6351                                                   Parse::RecDescent::_tracefirst($text),
6352                                                   q{sequence_reference},
6353                                                   $tracelevel)
6354                                                         if defined $::RD_TRACE;
6355                         $expectation->failed();
6356                         last;
6357                 }
6358                 Parse::RecDescent::_trace(q{>>Matched subrule: [nextval_expression]<< (return value: [}
6359                                         . $_tok . q{]},
6360
6361                                           Parse::RecDescent::_tracefirst($text),
6362                                           q{sequence_reference},
6363                                           $tracelevel)
6364                                                 if defined $::RD_TRACE;
6365                 $item{q{nextval_expression}} = $_tok;
6366                 push @item, $_tok;
6367
6368                 }
6369
6370
6371                 Parse::RecDescent::_trace(q{>>Matched production: [nextval_expression]<<},
6372                                           Parse::RecDescent::_tracefirst($text),
6373                                           q{sequence_reference},
6374                                           $tracelevel)
6375                                                 if defined $::RD_TRACE;
6376                 $_matched = 1;
6377                 last;
6378         }
6379
6380
6381         while (!$_matched && !$commit)
6382         {
6383
6384                 Parse::RecDescent::_trace(q{Trying production: [prevval_expression]},
6385                                           Parse::RecDescent::_tracefirst($_[1]),
6386                                           q{sequence_reference},
6387                                           $tracelevel)
6388                                                 if defined $::RD_TRACE;
6389                 my $thisprod = $thisrule->{"prods"}[1];
6390                 $text = $_[1];
6391                 my $_savetext;
6392                 @item = (q{sequence_reference});
6393                 %item = (__RULE__ => q{sequence_reference});
6394                 my $repcount = 0;
6395
6396
6397                 Parse::RecDescent::_trace(q{Trying subrule: [prevval_expression]},
6398                                   Parse::RecDescent::_tracefirst($text),
6399                                   q{sequence_reference},
6400                                   $tracelevel)
6401                                         if defined $::RD_TRACE;
6402                 if (1) { no strict qw{refs};
6403                 $expectation->is(q{})->at($text);
6404                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::prevval_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
6405                 {
6406
6407                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [prevval_expression]>>},
6408                                                   Parse::RecDescent::_tracefirst($text),
6409                                                   q{sequence_reference},
6410                                                   $tracelevel)
6411                                                         if defined $::RD_TRACE;
6412                         $expectation->failed();
6413                         last;
6414                 }
6415                 Parse::RecDescent::_trace(q{>>Matched subrule: [prevval_expression]<< (return value: [}
6416                                         . $_tok . q{]},
6417
6418                                           Parse::RecDescent::_tracefirst($text),
6419                                           q{sequence_reference},
6420                                           $tracelevel)
6421                                                 if defined $::RD_TRACE;
6422                 $item{q{prevval_expression}} = $_tok;
6423                 push @item, $_tok;
6424
6425                 }
6426
6427
6428                 Parse::RecDescent::_trace(q{>>Matched production: [prevval_expression]<<},
6429                                           Parse::RecDescent::_tracefirst($text),
6430                                           q{sequence_reference},
6431                                           $tracelevel)
6432                                                 if defined $::RD_TRACE;
6433                 $_matched = 1;
6434                 last;
6435         }
6436
6437
6438         unless ( $_matched || defined($return) || defined($score) )
6439         {
6440
6441
6442                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
6443                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
6444                                          Parse::RecDescent::_tracefirst($_[1]),
6445                                          q{sequence_reference},
6446                                          $tracelevel)
6447                                         if defined $::RD_TRACE;
6448                 return undef;
6449         }
6450         if (!defined($return) && defined($score))
6451         {
6452                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
6453                                           q{sequence_reference},
6454                                           $tracelevel)
6455                                                 if defined $::RD_TRACE;
6456                 $return = $score_return;
6457         }
6458         splice @{$thisparser->{errors}}, $err_at;
6459         $return = $item[$#item] unless defined $return;
6460         if (defined $::RD_TRACE)
6461         {
6462                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
6463                                           $return . q{])}, "",
6464                                           q{sequence_reference},
6465                                           $tracelevel);
6466                 Parse::RecDescent::_trace(q{(consumed: [} .
6467                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
6468                                           Parse::RecDescent::_tracefirst($text),
6469                                           , q{sequence_reference},
6470                                           $tracelevel)
6471         }
6472         $_[1] = $text;
6473         return $return;
6474 }
6475
6476 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
6477 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::sysibm_function
6478 {
6479         my $thisparser = $_[0];
6480         use vars q{$tracelevel};
6481         local $tracelevel = ($tracelevel||0)+1;
6482         $ERRORS = 0;
6483         my $thisrule = $thisparser->{"rules"}{"sysibm_function"};
6484
6485         Parse::RecDescent::_trace(q{Trying rule: [sysibm_function]},
6486                                   Parse::RecDescent::_tracefirst($_[1]),
6487                                   q{sysibm_function},
6488                                   $tracelevel)
6489                                         if defined $::RD_TRACE;
6490
6491
6492         my $err_at = @{$thisparser->{errors}};
6493
6494         my $score;
6495         my $score_return;
6496         my $_tok;
6497         my $return = undef;
6498         my $_matched=0;
6499         my $commit=0;
6500         my @item = ();
6501         my %item = ();
6502         my $repeating =  defined($_[2]) && $_[2];
6503         my $_noactions = defined($_[3]) && $_[3];
6504         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
6505         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
6506         my $text;
6507         my $lastsep="";
6508         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
6509         $expectation->at($_[1]);
6510
6511         my $thisline;
6512         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
6513
6514
6515
6516         while (!$_matched && !$commit)
6517         {
6518
6519                 Parse::RecDescent::_trace(q{Trying production: [/ABS/i, or /ABSVAL/i]},
6520                                           Parse::RecDescent::_tracefirst($_[1]),
6521                                           q{sysibm_function},
6522                                           $tracelevel)
6523                                                 if defined $::RD_TRACE;
6524                 my $thisprod = $thisrule->{"prods"}[0];
6525                 $text = $_[1];
6526                 my $_savetext;
6527                 @item = (q{sysibm_function});
6528                 %item = (__RULE__ => q{sysibm_function});
6529                 my $repcount = 0;
6530
6531
6532                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule_sysibm_function]},
6533                                   Parse::RecDescent::_tracefirst($text),
6534                                   q{sysibm_function},
6535                                   $tracelevel)
6536                                         if defined $::RD_TRACE;
6537                 if (1) { no strict qw{refs};
6538                 $expectation->is(q{})->at($text);
6539                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_sysibm_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
6540                 {
6541
6542                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule_sysibm_function]>>},
6543                                                   Parse::RecDescent::_tracefirst($text),
6544                                                   q{sysibm_function},
6545                                                   $tracelevel)
6546                                                         if defined $::RD_TRACE;
6547                         $expectation->failed();
6548                         last;
6549                 }
6550                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule_sysibm_function]<< (return value: [}
6551                                         . $_tok . q{]},
6552
6553                                           Parse::RecDescent::_tracefirst($text),
6554                                           q{sysibm_function},
6555                                           $tracelevel)
6556                                                 if defined $::RD_TRACE;
6557                 $item{q{_alternation_1_of_production_1_of_rule_sysibm_function}} = $_tok;
6558                 push @item, $_tok;
6559
6560                 }
6561
6562
6563                 Parse::RecDescent::_trace(q{>>Matched production: [/ABS/i, or /ABSVAL/i]<<},
6564                                           Parse::RecDescent::_tracefirst($text),
6565                                           q{sysibm_function},
6566                                           $tracelevel)
6567                                                 if defined $::RD_TRACE;
6568                 $_matched = 1;
6569                 last;
6570         }
6571
6572
6573         while (!$_matched && !$commit)
6574         {
6575
6576                 Parse::RecDescent::_trace(q{Trying production: [/AVG/i]},
6577                                           Parse::RecDescent::_tracefirst($_[1]),
6578                                           q{sysibm_function},
6579                                           $tracelevel)
6580                                                 if defined $::RD_TRACE;
6581                 my $thisprod = $thisrule->{"prods"}[1];
6582                 $text = $_[1];
6583                 my $_savetext;
6584                 @item = (q{sysibm_function});
6585                 %item = (__RULE__ => q{sysibm_function});
6586                 my $repcount = 0;
6587
6588
6589                 Parse::RecDescent::_trace(q{Trying terminal: [/AVG/i]}, Parse::RecDescent::_tracefirst($text),
6590                                           q{sysibm_function},
6591                                           $tracelevel)
6592                                                 if defined $::RD_TRACE;
6593                 $lastsep = "";
6594                 $expectation->is(q{})->at($text);
6595
6596
6597                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:AVG)//i)
6598                 {
6599
6600                         $expectation->failed();
6601                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
6602                                                   Parse::RecDescent::_tracefirst($text))
6603                                         if defined $::RD_TRACE;
6604
6605                         last;
6606                 }
6607                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6608                                                 . $& . q{])},
6609                                                   Parse::RecDescent::_tracefirst($text))
6610                                         if defined $::RD_TRACE;
6611                 push @item, $item{__PATTERN1__}=$&;
6612
6613
6614
6615                 Parse::RecDescent::_trace(q{>>Matched production: [/AVG/i]<<},
6616                                           Parse::RecDescent::_tracefirst($text),
6617                                           q{sysibm_function},
6618                                           $tracelevel)
6619                                                 if defined $::RD_TRACE;
6620                 $_matched = 1;
6621                 last;
6622         }
6623
6624
6625         while (!$_matched && !$commit)
6626         {
6627
6628                 Parse::RecDescent::_trace(q{Trying production: [/BIGINT/i]},
6629                                           Parse::RecDescent::_tracefirst($_[1]),
6630                                           q{sysibm_function},
6631                                           $tracelevel)
6632                                                 if defined $::RD_TRACE;
6633                 my $thisprod = $thisrule->{"prods"}[2];
6634                 $text = $_[1];
6635                 my $_savetext;
6636                 @item = (q{sysibm_function});
6637                 %item = (__RULE__ => q{sysibm_function});
6638                 my $repcount = 0;
6639
6640
6641                 Parse::RecDescent::_trace(q{Trying terminal: [/BIGINT/i]}, Parse::RecDescent::_tracefirst($text),
6642                                           q{sysibm_function},
6643                                           $tracelevel)
6644                                                 if defined $::RD_TRACE;
6645                 $lastsep = "";
6646                 $expectation->is(q{})->at($text);
6647
6648
6649                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:BIGINT)//i)
6650                 {
6651
6652                         $expectation->failed();
6653                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
6654                                                   Parse::RecDescent::_tracefirst($text))
6655                                         if defined $::RD_TRACE;
6656
6657                         last;
6658                 }
6659                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6660                                                 . $& . q{])},
6661                                                   Parse::RecDescent::_tracefirst($text))
6662                                         if defined $::RD_TRACE;
6663                 push @item, $item{__PATTERN1__}=$&;
6664
6665
6666
6667                 Parse::RecDescent::_trace(q{>>Matched production: [/BIGINT/i]<<},
6668                                           Parse::RecDescent::_tracefirst($text),
6669                                           q{sysibm_function},
6670                                           $tracelevel)
6671                                                 if defined $::RD_TRACE;
6672                 $_matched = 1;
6673                 last;
6674         }
6675
6676
6677         while (!$_matched && !$commit)
6678         {
6679
6680                 Parse::RecDescent::_trace(q{Trying production: [/BLOB/i]},
6681                                           Parse::RecDescent::_tracefirst($_[1]),
6682                                           q{sysibm_function},
6683                                           $tracelevel)
6684                                                 if defined $::RD_TRACE;
6685                 my $thisprod = $thisrule->{"prods"}[3];
6686                 $text = $_[1];
6687                 my $_savetext;
6688                 @item = (q{sysibm_function});
6689                 %item = (__RULE__ => q{sysibm_function});
6690                 my $repcount = 0;
6691
6692
6693                 Parse::RecDescent::_trace(q{Trying terminal: [/BLOB/i]}, Parse::RecDescent::_tracefirst($text),
6694                                           q{sysibm_function},
6695                                           $tracelevel)
6696                                                 if defined $::RD_TRACE;
6697                 $lastsep = "";
6698                 $expectation->is(q{})->at($text);
6699
6700
6701                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:BLOB)//i)
6702                 {
6703
6704                         $expectation->failed();
6705                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
6706                                                   Parse::RecDescent::_tracefirst($text))
6707                                         if defined $::RD_TRACE;
6708
6709                         last;
6710                 }
6711                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6712                                                 . $& . q{])},
6713                                                   Parse::RecDescent::_tracefirst($text))
6714                                         if defined $::RD_TRACE;
6715                 push @item, $item{__PATTERN1__}=$&;
6716
6717
6718
6719                 Parse::RecDescent::_trace(q{>>Matched production: [/BLOB/i]<<},
6720                                           Parse::RecDescent::_tracefirst($text),
6721                                           q{sysibm_function},
6722                                           $tracelevel)
6723                                                 if defined $::RD_TRACE;
6724                 $_matched = 1;
6725                 last;
6726         }
6727
6728
6729         while (!$_matched && !$commit)
6730         {
6731
6732                 Parse::RecDescent::_trace(q{Trying production: [/CHAR/i]},
6733                                           Parse::RecDescent::_tracefirst($_[1]),
6734                                           q{sysibm_function},
6735                                           $tracelevel)
6736                                                 if defined $::RD_TRACE;
6737                 my $thisprod = $thisrule->{"prods"}[4];
6738                 $text = $_[1];
6739                 my $_savetext;
6740                 @item = (q{sysibm_function});
6741                 %item = (__RULE__ => q{sysibm_function});
6742                 my $repcount = 0;
6743
6744
6745                 Parse::RecDescent::_trace(q{Trying terminal: [/CHAR/i]}, Parse::RecDescent::_tracefirst($text),
6746                                           q{sysibm_function},
6747                                           $tracelevel)
6748                                                 if defined $::RD_TRACE;
6749                 $lastsep = "";
6750                 $expectation->is(q{})->at($text);
6751
6752
6753                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CHAR)//i)
6754                 {
6755
6756                         $expectation->failed();
6757                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
6758                                                   Parse::RecDescent::_tracefirst($text))
6759                                         if defined $::RD_TRACE;
6760
6761                         last;
6762                 }
6763                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6764                                                 . $& . q{])},
6765                                                   Parse::RecDescent::_tracefirst($text))
6766                                         if defined $::RD_TRACE;
6767                 push @item, $item{__PATTERN1__}=$&;
6768
6769
6770
6771                 Parse::RecDescent::_trace(q{>>Matched production: [/CHAR/i]<<},
6772                                           Parse::RecDescent::_tracefirst($text),
6773                                           q{sysibm_function},
6774                                           $tracelevel)
6775                                                 if defined $::RD_TRACE;
6776                 $_matched = 1;
6777                 last;
6778         }
6779
6780
6781         while (!$_matched && !$commit)
6782         {
6783
6784                 Parse::RecDescent::_trace(q{Trying production: [/CLOB/i]},
6785                                           Parse::RecDescent::_tracefirst($_[1]),
6786                                           q{sysibm_function},
6787                                           $tracelevel)
6788                                                 if defined $::RD_TRACE;
6789                 my $thisprod = $thisrule->{"prods"}[5];
6790                 $text = $_[1];
6791                 my $_savetext;
6792                 @item = (q{sysibm_function});
6793                 %item = (__RULE__ => q{sysibm_function});
6794                 my $repcount = 0;
6795
6796
6797                 Parse::RecDescent::_trace(q{Trying terminal: [/CLOB/i]}, Parse::RecDescent::_tracefirst($text),
6798                                           q{sysibm_function},
6799                                           $tracelevel)
6800                                                 if defined $::RD_TRACE;
6801                 $lastsep = "";
6802                 $expectation->is(q{})->at($text);
6803
6804
6805                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CLOB)//i)
6806                 {
6807
6808                         $expectation->failed();
6809                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
6810                                                   Parse::RecDescent::_tracefirst($text))
6811                                         if defined $::RD_TRACE;
6812
6813                         last;
6814                 }
6815                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6816                                                 . $& . q{])},
6817                                                   Parse::RecDescent::_tracefirst($text))
6818                                         if defined $::RD_TRACE;
6819                 push @item, $item{__PATTERN1__}=$&;
6820
6821
6822
6823                 Parse::RecDescent::_trace(q{>>Matched production: [/CLOB/i]<<},
6824                                           Parse::RecDescent::_tracefirst($text),
6825                                           q{sysibm_function},
6826                                           $tracelevel)
6827                                                 if defined $::RD_TRACE;
6828                 $_matched = 1;
6829                 last;
6830         }
6831
6832
6833         while (!$_matched && !$commit)
6834         {
6835
6836                 Parse::RecDescent::_trace(q{Trying production: [/COALESCE/i]},
6837                                           Parse::RecDescent::_tracefirst($_[1]),
6838                                           q{sysibm_function},
6839                                           $tracelevel)
6840                                                 if defined $::RD_TRACE;
6841                 my $thisprod = $thisrule->{"prods"}[6];
6842                 $text = $_[1];
6843                 my $_savetext;
6844                 @item = (q{sysibm_function});
6845                 %item = (__RULE__ => q{sysibm_function});
6846                 my $repcount = 0;
6847
6848
6849                 Parse::RecDescent::_trace(q{Trying terminal: [/COALESCE/i]}, Parse::RecDescent::_tracefirst($text),
6850                                           q{sysibm_function},
6851                                           $tracelevel)
6852                                                 if defined $::RD_TRACE;
6853                 $lastsep = "";
6854                 $expectation->is(q{})->at($text);
6855
6856
6857                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:COALESCE)//i)
6858                 {
6859
6860                         $expectation->failed();
6861                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
6862                                                   Parse::RecDescent::_tracefirst($text))
6863                                         if defined $::RD_TRACE;
6864
6865                         last;
6866                 }
6867                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
6868                                                 . $& . q{])},
6869                                                   Parse::RecDescent::_tracefirst($text))
6870                                         if defined $::RD_TRACE;
6871                 push @item, $item{__PATTERN1__}=$&;
6872
6873
6874
6875                 Parse::RecDescent::_trace(q{>>Matched production: [/COALESCE/i]<<},
6876                                           Parse::RecDescent::_tracefirst($text),
6877                                           q{sysibm_function},
6878                                           $tracelevel)
6879                                                 if defined $::RD_TRACE;
6880                 $_matched = 1;
6881                 last;
6882         }
6883
6884
6885         while (!$_matched && !$commit)
6886         {
6887
6888                 Parse::RecDescent::_trace(q{Trying production: [/CONCAT/, or '||']},
6889                                           Parse::RecDescent::_tracefirst($_[1]),
6890                                           q{sysibm_function},
6891                                           $tracelevel)
6892                                                 if defined $::RD_TRACE;
6893                 my $thisprod = $thisrule->{"prods"}[7];
6894                 $text = $_[1];
6895                 my $_savetext;
6896                 @item = (q{sysibm_function});
6897                 %item = (__RULE__ => q{sysibm_function});
6898                 my $repcount = 0;
6899
6900
6901                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_8_of_rule_sysibm_function]},
6902                                   Parse::RecDescent::_tracefirst($text),
6903                                   q{sysibm_function},
6904                                   $tracelevel)
6905                                         if defined $::RD_TRACE;
6906                 if (1) { no strict qw{refs};
6907                 $expectation->is(q{})->at($text);
6908                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_8_of_rule_sysibm_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
6909                 {
6910
6911                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_8_of_rule_sysibm_function]>>},
6912                                                   Parse::RecDescent::_tracefirst($text),
6913                                                   q{sysibm_function},
6914                                                   $tracelevel)
6915                                                         if defined $::RD_TRACE;
6916                         $expectation->failed();
6917                         last;
6918                 }
6919                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_8_of_rule_sysibm_function]<< (return value: [}
6920                                         . $_tok . q{]},
6921
6922                                           Parse::RecDescent::_tracefirst($text),
6923                                           q{sysibm_function},
6924                                           $tracelevel)
6925                                                 if defined $::RD_TRACE;
6926                 $item{q{_alternation_1_of_production_8_of_rule_sysibm_function}} = $_tok;
6927                 push @item, $_tok;
6928
6929                 }
6930
6931
6932                 Parse::RecDescent::_trace(q{>>Matched production: [/CONCAT/, or '||']<<},
6933                                           Parse::RecDescent::_tracefirst($text),
6934                                           q{sysibm_function},
6935                                           $tracelevel)
6936                                                 if defined $::RD_TRACE;
6937                 $_matched = 1;
6938                 last;
6939         }
6940
6941
6942         while (!$_matched && !$commit)
6943         {
6944
6945                 Parse::RecDescent::_trace(q{Trying production: [/CORRELATION/i, or /CORR/]},
6946                                           Parse::RecDescent::_tracefirst($_[1]),
6947                                           q{sysibm_function},
6948                                           $tracelevel)
6949                                                 if defined $::RD_TRACE;
6950                 my $thisprod = $thisrule->{"prods"}[8];
6951                 $text = $_[1];
6952                 my $_savetext;
6953                 @item = (q{sysibm_function});
6954                 %item = (__RULE__ => q{sysibm_function});
6955                 my $repcount = 0;
6956
6957
6958                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_9_of_rule_sysibm_function]},
6959                                   Parse::RecDescent::_tracefirst($text),
6960                                   q{sysibm_function},
6961                                   $tracelevel)
6962                                         if defined $::RD_TRACE;
6963                 if (1) { no strict qw{refs};
6964                 $expectation->is(q{})->at($text);
6965                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_9_of_rule_sysibm_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
6966                 {
6967
6968                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_9_of_rule_sysibm_function]>>},
6969                                                   Parse::RecDescent::_tracefirst($text),
6970                                                   q{sysibm_function},
6971                                                   $tracelevel)
6972                                                         if defined $::RD_TRACE;
6973                         $expectation->failed();
6974                         last;
6975                 }
6976                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_9_of_rule_sysibm_function]<< (return value: [}
6977                                         . $_tok . q{]},
6978
6979                                           Parse::RecDescent::_tracefirst($text),
6980                                           q{sysibm_function},
6981                                           $tracelevel)
6982                                                 if defined $::RD_TRACE;
6983                 $item{q{_alternation_1_of_production_9_of_rule_sysibm_function}} = $_tok;
6984                 push @item, $_tok;
6985
6986                 }
6987
6988
6989                 Parse::RecDescent::_trace(q{>>Matched production: [/CORRELATION/i, or /CORR/]<<},
6990                                           Parse::RecDescent::_tracefirst($text),
6991                                           q{sysibm_function},
6992                                           $tracelevel)
6993                                                 if defined $::RD_TRACE;
6994                 $_matched = 1;
6995                 last;
6996         }
6997
6998
6999         while (!$_matched && !$commit)
7000         {
7001
7002                 Parse::RecDescent::_trace(q{Trying production: [/COUNT/i]},
7003                                           Parse::RecDescent::_tracefirst($_[1]),
7004                                           q{sysibm_function},
7005                                           $tracelevel)
7006                                                 if defined $::RD_TRACE;
7007                 my $thisprod = $thisrule->{"prods"}[9];
7008                 $text = $_[1];
7009                 my $_savetext;
7010                 @item = (q{sysibm_function});
7011                 %item = (__RULE__ => q{sysibm_function});
7012                 my $repcount = 0;
7013
7014
7015                 Parse::RecDescent::_trace(q{Trying terminal: [/COUNT/i]}, Parse::RecDescent::_tracefirst($text),
7016                                           q{sysibm_function},
7017                                           $tracelevel)
7018                                                 if defined $::RD_TRACE;
7019                 $lastsep = "";
7020                 $expectation->is(q{})->at($text);
7021
7022
7023                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:COUNT)//i)
7024                 {
7025
7026                         $expectation->failed();
7027                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7028                                                   Parse::RecDescent::_tracefirst($text))
7029                                         if defined $::RD_TRACE;
7030
7031                         last;
7032                 }
7033                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7034                                                 . $& . q{])},
7035                                                   Parse::RecDescent::_tracefirst($text))
7036                                         if defined $::RD_TRACE;
7037                 push @item, $item{__PATTERN1__}=$&;
7038
7039
7040
7041                 Parse::RecDescent::_trace(q{>>Matched production: [/COUNT/i]<<},
7042                                           Parse::RecDescent::_tracefirst($text),
7043                                           q{sysibm_function},
7044                                           $tracelevel)
7045                                                 if defined $::RD_TRACE;
7046                 $_matched = 1;
7047                 last;
7048         }
7049
7050
7051         while (!$_matched && !$commit)
7052         {
7053
7054                 Parse::RecDescent::_trace(q{Trying production: [/COUNT_BIG/i]},
7055                                           Parse::RecDescent::_tracefirst($_[1]),
7056                                           q{sysibm_function},
7057                                           $tracelevel)
7058                                                 if defined $::RD_TRACE;
7059                 my $thisprod = $thisrule->{"prods"}[10];
7060                 $text = $_[1];
7061                 my $_savetext;
7062                 @item = (q{sysibm_function});
7063                 %item = (__RULE__ => q{sysibm_function});
7064                 my $repcount = 0;
7065
7066
7067                 Parse::RecDescent::_trace(q{Trying terminal: [/COUNT_BIG/i]}, Parse::RecDescent::_tracefirst($text),
7068                                           q{sysibm_function},
7069                                           $tracelevel)
7070                                                 if defined $::RD_TRACE;
7071                 $lastsep = "";
7072                 $expectation->is(q{})->at($text);
7073
7074
7075                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:COUNT_BIG)//i)
7076                 {
7077
7078                         $expectation->failed();
7079                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7080                                                   Parse::RecDescent::_tracefirst($text))
7081                                         if defined $::RD_TRACE;
7082
7083                         last;
7084                 }
7085                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7086                                                 . $& . q{])},
7087                                                   Parse::RecDescent::_tracefirst($text))
7088                                         if defined $::RD_TRACE;
7089                 push @item, $item{__PATTERN1__}=$&;
7090
7091
7092
7093                 Parse::RecDescent::_trace(q{>>Matched production: [/COUNT_BIG/i]<<},
7094                                           Parse::RecDescent::_tracefirst($text),
7095                                           q{sysibm_function},
7096                                           $tracelevel)
7097                                                 if defined $::RD_TRACE;
7098                 $_matched = 1;
7099                 last;
7100         }
7101
7102
7103         while (!$_matched && !$commit)
7104         {
7105
7106                 Parse::RecDescent::_trace(q{Trying production: [/COVARIANCE/i, or /COVAR/i]},
7107                                           Parse::RecDescent::_tracefirst($_[1]),
7108                                           q{sysibm_function},
7109                                           $tracelevel)
7110                                                 if defined $::RD_TRACE;
7111                 my $thisprod = $thisrule->{"prods"}[11];
7112                 $text = $_[1];
7113                 my $_savetext;
7114                 @item = (q{sysibm_function});
7115                 %item = (__RULE__ => q{sysibm_function});
7116                 my $repcount = 0;
7117
7118
7119                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_12_of_rule_sysibm_function]},
7120                                   Parse::RecDescent::_tracefirst($text),
7121                                   q{sysibm_function},
7122                                   $tracelevel)
7123                                         if defined $::RD_TRACE;
7124                 if (1) { no strict qw{refs};
7125                 $expectation->is(q{})->at($text);
7126                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_12_of_rule_sysibm_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
7127                 {
7128
7129                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_12_of_rule_sysibm_function]>>},
7130                                                   Parse::RecDescent::_tracefirst($text),
7131                                                   q{sysibm_function},
7132                                                   $tracelevel)
7133                                                         if defined $::RD_TRACE;
7134                         $expectation->failed();
7135                         last;
7136                 }
7137                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_12_of_rule_sysibm_function]<< (return value: [}
7138                                         . $_tok . q{]},
7139
7140                                           Parse::RecDescent::_tracefirst($text),
7141                                           q{sysibm_function},
7142                                           $tracelevel)
7143                                                 if defined $::RD_TRACE;
7144                 $item{q{_alternation_1_of_production_12_of_rule_sysibm_function}} = $_tok;
7145                 push @item, $_tok;
7146
7147                 }
7148
7149
7150                 Parse::RecDescent::_trace(q{>>Matched production: [/COVARIANCE/i, or /COVAR/i]<<},
7151                                           Parse::RecDescent::_tracefirst($text),
7152                                           q{sysibm_function},
7153                                           $tracelevel)
7154                                                 if defined $::RD_TRACE;
7155                 $_matched = 1;
7156                 last;
7157         }
7158
7159
7160         while (!$_matched && !$commit)
7161         {
7162
7163                 Parse::RecDescent::_trace(q{Trying production: [/DATE/i]},
7164                                           Parse::RecDescent::_tracefirst($_[1]),
7165                                           q{sysibm_function},
7166                                           $tracelevel)
7167                                                 if defined $::RD_TRACE;
7168                 my $thisprod = $thisrule->{"prods"}[12];
7169                 $text = $_[1];
7170                 my $_savetext;
7171                 @item = (q{sysibm_function});
7172                 %item = (__RULE__ => q{sysibm_function});
7173                 my $repcount = 0;
7174
7175
7176                 Parse::RecDescent::_trace(q{Trying terminal: [/DATE/i]}, Parse::RecDescent::_tracefirst($text),
7177                                           q{sysibm_function},
7178                                           $tracelevel)
7179                                                 if defined $::RD_TRACE;
7180                 $lastsep = "";
7181                 $expectation->is(q{})->at($text);
7182
7183
7184                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DATE)//i)
7185                 {
7186
7187                         $expectation->failed();
7188                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7189                                                   Parse::RecDescent::_tracefirst($text))
7190                                         if defined $::RD_TRACE;
7191
7192                         last;
7193                 }
7194                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7195                                                 . $& . q{])},
7196                                                   Parse::RecDescent::_tracefirst($text))
7197                                         if defined $::RD_TRACE;
7198                 push @item, $item{__PATTERN1__}=$&;
7199
7200
7201
7202                 Parse::RecDescent::_trace(q{>>Matched production: [/DATE/i]<<},
7203                                           Parse::RecDescent::_tracefirst($text),
7204                                           q{sysibm_function},
7205                                           $tracelevel)
7206                                                 if defined $::RD_TRACE;
7207                 $_matched = 1;
7208                 last;
7209         }
7210
7211
7212         while (!$_matched && !$commit)
7213         {
7214
7215                 Parse::RecDescent::_trace(q{Trying production: [/DAY/i]},
7216                                           Parse::RecDescent::_tracefirst($_[1]),
7217                                           q{sysibm_function},
7218                                           $tracelevel)
7219                                                 if defined $::RD_TRACE;
7220                 my $thisprod = $thisrule->{"prods"}[13];
7221                 $text = $_[1];
7222                 my $_savetext;
7223                 @item = (q{sysibm_function});
7224                 %item = (__RULE__ => q{sysibm_function});
7225                 my $repcount = 0;
7226
7227
7228                 Parse::RecDescent::_trace(q{Trying terminal: [/DAY/i]}, Parse::RecDescent::_tracefirst($text),
7229                                           q{sysibm_function},
7230                                           $tracelevel)
7231                                                 if defined $::RD_TRACE;
7232                 $lastsep = "";
7233                 $expectation->is(q{})->at($text);
7234
7235
7236                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DAY)//i)
7237                 {
7238
7239                         $expectation->failed();
7240                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7241                                                   Parse::RecDescent::_tracefirst($text))
7242                                         if defined $::RD_TRACE;
7243
7244                         last;
7245                 }
7246                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7247                                                 . $& . q{])},
7248                                                   Parse::RecDescent::_tracefirst($text))
7249                                         if defined $::RD_TRACE;
7250                 push @item, $item{__PATTERN1__}=$&;
7251
7252
7253
7254                 Parse::RecDescent::_trace(q{>>Matched production: [/DAY/i]<<},
7255                                           Parse::RecDescent::_tracefirst($text),
7256                                           q{sysibm_function},
7257                                           $tracelevel)
7258                                                 if defined $::RD_TRACE;
7259                 $_matched = 1;
7260                 last;
7261         }
7262
7263
7264         while (!$_matched && !$commit)
7265         {
7266
7267                 Parse::RecDescent::_trace(q{Trying production: [/DAYS/i]},
7268                                           Parse::RecDescent::_tracefirst($_[1]),
7269                                           q{sysibm_function},
7270                                           $tracelevel)
7271                                                 if defined $::RD_TRACE;
7272                 my $thisprod = $thisrule->{"prods"}[14];
7273                 $text = $_[1];
7274                 my $_savetext;
7275                 @item = (q{sysibm_function});
7276                 %item = (__RULE__ => q{sysibm_function});
7277                 my $repcount = 0;
7278
7279
7280                 Parse::RecDescent::_trace(q{Trying terminal: [/DAYS/i]}, Parse::RecDescent::_tracefirst($text),
7281                                           q{sysibm_function},
7282                                           $tracelevel)
7283                                                 if defined $::RD_TRACE;
7284                 $lastsep = "";
7285                 $expectation->is(q{})->at($text);
7286
7287
7288                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DAYS)//i)
7289                 {
7290
7291                         $expectation->failed();
7292                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7293                                                   Parse::RecDescent::_tracefirst($text))
7294                                         if defined $::RD_TRACE;
7295
7296                         last;
7297                 }
7298                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7299                                                 . $& . q{])},
7300                                                   Parse::RecDescent::_tracefirst($text))
7301                                         if defined $::RD_TRACE;
7302                 push @item, $item{__PATTERN1__}=$&;
7303
7304
7305
7306                 Parse::RecDescent::_trace(q{>>Matched production: [/DAYS/i]<<},
7307                                           Parse::RecDescent::_tracefirst($text),
7308                                           q{sysibm_function},
7309                                           $tracelevel)
7310                                                 if defined $::RD_TRACE;
7311                 $_matched = 1;
7312                 last;
7313         }
7314
7315
7316         while (!$_matched && !$commit)
7317         {
7318
7319                 Parse::RecDescent::_trace(q{Trying production: [/DBCLOB/i]},
7320                                           Parse::RecDescent::_tracefirst($_[1]),
7321                                           q{sysibm_function},
7322                                           $tracelevel)
7323                                                 if defined $::RD_TRACE;
7324                 my $thisprod = $thisrule->{"prods"}[15];
7325                 $text = $_[1];
7326                 my $_savetext;
7327                 @item = (q{sysibm_function});
7328                 %item = (__RULE__ => q{sysibm_function});
7329                 my $repcount = 0;
7330
7331
7332                 Parse::RecDescent::_trace(q{Trying terminal: [/DBCLOB/i]}, Parse::RecDescent::_tracefirst($text),
7333                                           q{sysibm_function},
7334                                           $tracelevel)
7335                                                 if defined $::RD_TRACE;
7336                 $lastsep = "";
7337                 $expectation->is(q{})->at($text);
7338
7339
7340                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DBCLOB)//i)
7341                 {
7342
7343                         $expectation->failed();
7344                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7345                                                   Parse::RecDescent::_tracefirst($text))
7346                                         if defined $::RD_TRACE;
7347
7348                         last;
7349                 }
7350                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7351                                                 . $& . q{])},
7352                                                   Parse::RecDescent::_tracefirst($text))
7353                                         if defined $::RD_TRACE;
7354                 push @item, $item{__PATTERN1__}=$&;
7355
7356
7357
7358                 Parse::RecDescent::_trace(q{>>Matched production: [/DBCLOB/i]<<},
7359                                           Parse::RecDescent::_tracefirst($text),
7360                                           q{sysibm_function},
7361                                           $tracelevel)
7362                                                 if defined $::RD_TRACE;
7363                 $_matched = 1;
7364                 last;
7365         }
7366
7367
7368         while (!$_matched && !$commit)
7369         {
7370
7371                 Parse::RecDescent::_trace(q{Trying production: [/DECIMAL/i, or /DEC/i]},
7372                                           Parse::RecDescent::_tracefirst($_[1]),
7373                                           q{sysibm_function},
7374                                           $tracelevel)
7375                                                 if defined $::RD_TRACE;
7376                 my $thisprod = $thisrule->{"prods"}[16];
7377                 $text = $_[1];
7378                 my $_savetext;
7379                 @item = (q{sysibm_function});
7380                 %item = (__RULE__ => q{sysibm_function});
7381                 my $repcount = 0;
7382
7383
7384                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_17_of_rule_sysibm_function]},
7385                                   Parse::RecDescent::_tracefirst($text),
7386                                   q{sysibm_function},
7387                                   $tracelevel)
7388                                         if defined $::RD_TRACE;
7389                 if (1) { no strict qw{refs};
7390                 $expectation->is(q{})->at($text);
7391                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_17_of_rule_sysibm_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
7392                 {
7393
7394                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_17_of_rule_sysibm_function]>>},
7395                                                   Parse::RecDescent::_tracefirst($text),
7396                                                   q{sysibm_function},
7397                                                   $tracelevel)
7398                                                         if defined $::RD_TRACE;
7399                         $expectation->failed();
7400                         last;
7401                 }
7402                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_17_of_rule_sysibm_function]<< (return value: [}
7403                                         . $_tok . q{]},
7404
7405                                           Parse::RecDescent::_tracefirst($text),
7406                                           q{sysibm_function},
7407                                           $tracelevel)
7408                                                 if defined $::RD_TRACE;
7409                 $item{q{_alternation_1_of_production_17_of_rule_sysibm_function}} = $_tok;
7410                 push @item, $_tok;
7411
7412                 }
7413
7414
7415                 Parse::RecDescent::_trace(q{>>Matched production: [/DECIMAL/i, or /DEC/i]<<},
7416                                           Parse::RecDescent::_tracefirst($text),
7417                                           q{sysibm_function},
7418                                           $tracelevel)
7419                                                 if defined $::RD_TRACE;
7420                 $_matched = 1;
7421                 last;
7422         }
7423
7424
7425         while (!$_matched && !$commit)
7426         {
7427
7428                 Parse::RecDescent::_trace(q{Trying production: [/DECRYPT_BIN/i]},
7429                                           Parse::RecDescent::_tracefirst($_[1]),
7430                                           q{sysibm_function},
7431                                           $tracelevel)
7432                                                 if defined $::RD_TRACE;
7433                 my $thisprod = $thisrule->{"prods"}[17];
7434                 $text = $_[1];
7435                 my $_savetext;
7436                 @item = (q{sysibm_function});
7437                 %item = (__RULE__ => q{sysibm_function});
7438                 my $repcount = 0;
7439
7440
7441                 Parse::RecDescent::_trace(q{Trying terminal: [/DECRYPT_BIN/i]}, Parse::RecDescent::_tracefirst($text),
7442                                           q{sysibm_function},
7443                                           $tracelevel)
7444                                                 if defined $::RD_TRACE;
7445                 $lastsep = "";
7446                 $expectation->is(q{})->at($text);
7447
7448
7449                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DECRYPT_BIN)//i)
7450                 {
7451
7452                         $expectation->failed();
7453                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7454                                                   Parse::RecDescent::_tracefirst($text))
7455                                         if defined $::RD_TRACE;
7456
7457                         last;
7458                 }
7459                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7460                                                 . $& . q{])},
7461                                                   Parse::RecDescent::_tracefirst($text))
7462                                         if defined $::RD_TRACE;
7463                 push @item, $item{__PATTERN1__}=$&;
7464
7465
7466
7467                 Parse::RecDescent::_trace(q{>>Matched production: [/DECRYPT_BIN/i]<<},
7468                                           Parse::RecDescent::_tracefirst($text),
7469                                           q{sysibm_function},
7470                                           $tracelevel)
7471                                                 if defined $::RD_TRACE;
7472                 $_matched = 1;
7473                 last;
7474         }
7475
7476
7477         while (!$_matched && !$commit)
7478         {
7479
7480                 Parse::RecDescent::_trace(q{Trying production: [/DECRYPT_CHAR/i]},
7481                                           Parse::RecDescent::_tracefirst($_[1]),
7482                                           q{sysibm_function},
7483                                           $tracelevel)
7484                                                 if defined $::RD_TRACE;
7485                 my $thisprod = $thisrule->{"prods"}[18];
7486                 $text = $_[1];
7487                 my $_savetext;
7488                 @item = (q{sysibm_function});
7489                 %item = (__RULE__ => q{sysibm_function});
7490                 my $repcount = 0;
7491
7492
7493                 Parse::RecDescent::_trace(q{Trying terminal: [/DECRYPT_CHAR/i]}, Parse::RecDescent::_tracefirst($text),
7494                                           q{sysibm_function},
7495                                           $tracelevel)
7496                                                 if defined $::RD_TRACE;
7497                 $lastsep = "";
7498                 $expectation->is(q{})->at($text);
7499
7500
7501                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DECRYPT_CHAR)//i)
7502                 {
7503
7504                         $expectation->failed();
7505                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7506                                                   Parse::RecDescent::_tracefirst($text))
7507                                         if defined $::RD_TRACE;
7508
7509                         last;
7510                 }
7511                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7512                                                 . $& . q{])},
7513                                                   Parse::RecDescent::_tracefirst($text))
7514                                         if defined $::RD_TRACE;
7515                 push @item, $item{__PATTERN1__}=$&;
7516
7517
7518
7519                 Parse::RecDescent::_trace(q{>>Matched production: [/DECRYPT_CHAR/i]<<},
7520                                           Parse::RecDescent::_tracefirst($text),
7521                                           q{sysibm_function},
7522                                           $tracelevel)
7523                                                 if defined $::RD_TRACE;
7524                 $_matched = 1;
7525                 last;
7526         }
7527
7528
7529         while (!$_matched && !$commit)
7530         {
7531
7532                 Parse::RecDescent::_trace(q{Trying production: [/DEREF/i]},
7533                                           Parse::RecDescent::_tracefirst($_[1]),
7534                                           q{sysibm_function},
7535                                           $tracelevel)
7536                                                 if defined $::RD_TRACE;
7537                 my $thisprod = $thisrule->{"prods"}[19];
7538                 $text = $_[1];
7539                 my $_savetext;
7540                 @item = (q{sysibm_function});
7541                 %item = (__RULE__ => q{sysibm_function});
7542                 my $repcount = 0;
7543
7544
7545                 Parse::RecDescent::_trace(q{Trying terminal: [/DEREF/i]}, Parse::RecDescent::_tracefirst($text),
7546                                           q{sysibm_function},
7547                                           $tracelevel)
7548                                                 if defined $::RD_TRACE;
7549                 $lastsep = "";
7550                 $expectation->is(q{})->at($text);
7551
7552
7553                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DEREF)//i)
7554                 {
7555
7556                         $expectation->failed();
7557                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7558                                                   Parse::RecDescent::_tracefirst($text))
7559                                         if defined $::RD_TRACE;
7560
7561                         last;
7562                 }
7563                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7564                                                 . $& . q{])},
7565                                                   Parse::RecDescent::_tracefirst($text))
7566                                         if defined $::RD_TRACE;
7567                 push @item, $item{__PATTERN1__}=$&;
7568
7569
7570
7571                 Parse::RecDescent::_trace(q{>>Matched production: [/DEREF/i]<<},
7572                                           Parse::RecDescent::_tracefirst($text),
7573                                           q{sysibm_function},
7574                                           $tracelevel)
7575                                                 if defined $::RD_TRACE;
7576                 $_matched = 1;
7577                 last;
7578         }
7579
7580
7581         while (!$_matched && !$commit)
7582         {
7583
7584                 Parse::RecDescent::_trace(q{Trying production: [/DIGITS/i]},
7585                                           Parse::RecDescent::_tracefirst($_[1]),
7586                                           q{sysibm_function},
7587                                           $tracelevel)
7588                                                 if defined $::RD_TRACE;
7589                 my $thisprod = $thisrule->{"prods"}[20];
7590                 $text = $_[1];
7591                 my $_savetext;
7592                 @item = (q{sysibm_function});
7593                 %item = (__RULE__ => q{sysibm_function});
7594                 my $repcount = 0;
7595
7596
7597                 Parse::RecDescent::_trace(q{Trying terminal: [/DIGITS/i]}, Parse::RecDescent::_tracefirst($text),
7598                                           q{sysibm_function},
7599                                           $tracelevel)
7600                                                 if defined $::RD_TRACE;
7601                 $lastsep = "";
7602                 $expectation->is(q{})->at($text);
7603
7604
7605                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DIGITS)//i)
7606                 {
7607
7608                         $expectation->failed();
7609                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7610                                                   Parse::RecDescent::_tracefirst($text))
7611                                         if defined $::RD_TRACE;
7612
7613                         last;
7614                 }
7615                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7616                                                 . $& . q{])},
7617                                                   Parse::RecDescent::_tracefirst($text))
7618                                         if defined $::RD_TRACE;
7619                 push @item, $item{__PATTERN1__}=$&;
7620
7621
7622
7623                 Parse::RecDescent::_trace(q{>>Matched production: [/DIGITS/i]<<},
7624                                           Parse::RecDescent::_tracefirst($text),
7625                                           q{sysibm_function},
7626                                           $tracelevel)
7627                                                 if defined $::RD_TRACE;
7628                 $_matched = 1;
7629                 last;
7630         }
7631
7632
7633         while (!$_matched && !$commit)
7634         {
7635
7636                 Parse::RecDescent::_trace(q{Trying production: [/DLCOMMENT/i]},
7637                                           Parse::RecDescent::_tracefirst($_[1]),
7638                                           q{sysibm_function},
7639                                           $tracelevel)
7640                                                 if defined $::RD_TRACE;
7641                 my $thisprod = $thisrule->{"prods"}[21];
7642                 $text = $_[1];
7643                 my $_savetext;
7644                 @item = (q{sysibm_function});
7645                 %item = (__RULE__ => q{sysibm_function});
7646                 my $repcount = 0;
7647
7648
7649                 Parse::RecDescent::_trace(q{Trying terminal: [/DLCOMMENT/i]}, Parse::RecDescent::_tracefirst($text),
7650                                           q{sysibm_function},
7651                                           $tracelevel)
7652                                                 if defined $::RD_TRACE;
7653                 $lastsep = "";
7654                 $expectation->is(q{})->at($text);
7655
7656
7657                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DLCOMMENT)//i)
7658                 {
7659
7660                         $expectation->failed();
7661                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7662                                                   Parse::RecDescent::_tracefirst($text))
7663                                         if defined $::RD_TRACE;
7664
7665                         last;
7666                 }
7667                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7668                                                 . $& . q{])},
7669                                                   Parse::RecDescent::_tracefirst($text))
7670                                         if defined $::RD_TRACE;
7671                 push @item, $item{__PATTERN1__}=$&;
7672
7673
7674
7675                 Parse::RecDescent::_trace(q{>>Matched production: [/DLCOMMENT/i]<<},
7676                                           Parse::RecDescent::_tracefirst($text),
7677                                           q{sysibm_function},
7678                                           $tracelevel)
7679                                                 if defined $::RD_TRACE;
7680                 $_matched = 1;
7681                 last;
7682         }
7683
7684
7685         while (!$_matched && !$commit)
7686         {
7687
7688                 Parse::RecDescent::_trace(q{Trying production: [/DLLINKTYPE/i]},
7689                                           Parse::RecDescent::_tracefirst($_[1]),
7690                                           q{sysibm_function},
7691                                           $tracelevel)
7692                                                 if defined $::RD_TRACE;
7693                 my $thisprod = $thisrule->{"prods"}[22];
7694                 $text = $_[1];
7695                 my $_savetext;
7696                 @item = (q{sysibm_function});
7697                 %item = (__RULE__ => q{sysibm_function});
7698                 my $repcount = 0;
7699
7700
7701                 Parse::RecDescent::_trace(q{Trying terminal: [/DLLINKTYPE/i]}, Parse::RecDescent::_tracefirst($text),
7702                                           q{sysibm_function},
7703                                           $tracelevel)
7704                                                 if defined $::RD_TRACE;
7705                 $lastsep = "";
7706                 $expectation->is(q{})->at($text);
7707
7708
7709                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DLLINKTYPE)//i)
7710                 {
7711
7712                         $expectation->failed();
7713                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7714                                                   Parse::RecDescent::_tracefirst($text))
7715                                         if defined $::RD_TRACE;
7716
7717                         last;
7718                 }
7719                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7720                                                 . $& . q{])},
7721                                                   Parse::RecDescent::_tracefirst($text))
7722                                         if defined $::RD_TRACE;
7723                 push @item, $item{__PATTERN1__}=$&;
7724
7725
7726
7727                 Parse::RecDescent::_trace(q{>>Matched production: [/DLLINKTYPE/i]<<},
7728                                           Parse::RecDescent::_tracefirst($text),
7729                                           q{sysibm_function},
7730                                           $tracelevel)
7731                                                 if defined $::RD_TRACE;
7732                 $_matched = 1;
7733                 last;
7734         }
7735
7736
7737         while (!$_matched && !$commit)
7738         {
7739
7740                 Parse::RecDescent::_trace(q{Trying production: [/DLURLCOMPLETE/i]},
7741                                           Parse::RecDescent::_tracefirst($_[1]),
7742                                           q{sysibm_function},
7743                                           $tracelevel)
7744                                                 if defined $::RD_TRACE;
7745                 my $thisprod = $thisrule->{"prods"}[23];
7746                 $text = $_[1];
7747                 my $_savetext;
7748                 @item = (q{sysibm_function});
7749                 %item = (__RULE__ => q{sysibm_function});
7750                 my $repcount = 0;
7751
7752
7753                 Parse::RecDescent::_trace(q{Trying terminal: [/DLURLCOMPLETE/i]}, Parse::RecDescent::_tracefirst($text),
7754                                           q{sysibm_function},
7755                                           $tracelevel)
7756                                                 if defined $::RD_TRACE;
7757                 $lastsep = "";
7758                 $expectation->is(q{})->at($text);
7759
7760
7761                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DLURLCOMPLETE)//i)
7762                 {
7763
7764                         $expectation->failed();
7765                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7766                                                   Parse::RecDescent::_tracefirst($text))
7767                                         if defined $::RD_TRACE;
7768
7769                         last;
7770                 }
7771                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7772                                                 . $& . q{])},
7773                                                   Parse::RecDescent::_tracefirst($text))
7774                                         if defined $::RD_TRACE;
7775                 push @item, $item{__PATTERN1__}=$&;
7776
7777
7778
7779                 Parse::RecDescent::_trace(q{>>Matched production: [/DLURLCOMPLETE/i]<<},
7780                                           Parse::RecDescent::_tracefirst($text),
7781                                           q{sysibm_function},
7782                                           $tracelevel)
7783                                                 if defined $::RD_TRACE;
7784                 $_matched = 1;
7785                 last;
7786         }
7787
7788
7789         while (!$_matched && !$commit)
7790         {
7791
7792                 Parse::RecDescent::_trace(q{Trying production: [/DLURLPATH/i]},
7793                                           Parse::RecDescent::_tracefirst($_[1]),
7794                                           q{sysibm_function},
7795                                           $tracelevel)
7796                                                 if defined $::RD_TRACE;
7797                 my $thisprod = $thisrule->{"prods"}[24];
7798                 $text = $_[1];
7799                 my $_savetext;
7800                 @item = (q{sysibm_function});
7801                 %item = (__RULE__ => q{sysibm_function});
7802                 my $repcount = 0;
7803
7804
7805                 Parse::RecDescent::_trace(q{Trying terminal: [/DLURLPATH/i]}, Parse::RecDescent::_tracefirst($text),
7806                                           q{sysibm_function},
7807                                           $tracelevel)
7808                                                 if defined $::RD_TRACE;
7809                 $lastsep = "";
7810                 $expectation->is(q{})->at($text);
7811
7812
7813                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DLURLPATH)//i)
7814                 {
7815
7816                         $expectation->failed();
7817                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7818                                                   Parse::RecDescent::_tracefirst($text))
7819                                         if defined $::RD_TRACE;
7820
7821                         last;
7822                 }
7823                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7824                                                 . $& . q{])},
7825                                                   Parse::RecDescent::_tracefirst($text))
7826                                         if defined $::RD_TRACE;
7827                 push @item, $item{__PATTERN1__}=$&;
7828
7829
7830
7831                 Parse::RecDescent::_trace(q{>>Matched production: [/DLURLPATH/i]<<},
7832                                           Parse::RecDescent::_tracefirst($text),
7833                                           q{sysibm_function},
7834                                           $tracelevel)
7835                                                 if defined $::RD_TRACE;
7836                 $_matched = 1;
7837                 last;
7838         }
7839
7840
7841         while (!$_matched && !$commit)
7842         {
7843
7844                 Parse::RecDescent::_trace(q{Trying production: [/DLURLPATHONLY/i]},
7845                                           Parse::RecDescent::_tracefirst($_[1]),
7846                                           q{sysibm_function},
7847                                           $tracelevel)
7848                                                 if defined $::RD_TRACE;
7849                 my $thisprod = $thisrule->{"prods"}[25];
7850                 $text = $_[1];
7851                 my $_savetext;
7852                 @item = (q{sysibm_function});
7853                 %item = (__RULE__ => q{sysibm_function});
7854                 my $repcount = 0;
7855
7856
7857                 Parse::RecDescent::_trace(q{Trying terminal: [/DLURLPATHONLY/i]}, Parse::RecDescent::_tracefirst($text),
7858                                           q{sysibm_function},
7859                                           $tracelevel)
7860                                                 if defined $::RD_TRACE;
7861                 $lastsep = "";
7862                 $expectation->is(q{})->at($text);
7863
7864
7865                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DLURLPATHONLY)//i)
7866                 {
7867
7868                         $expectation->failed();
7869                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7870                                                   Parse::RecDescent::_tracefirst($text))
7871                                         if defined $::RD_TRACE;
7872
7873                         last;
7874                 }
7875                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7876                                                 . $& . q{])},
7877                                                   Parse::RecDescent::_tracefirst($text))
7878                                         if defined $::RD_TRACE;
7879                 push @item, $item{__PATTERN1__}=$&;
7880
7881
7882
7883                 Parse::RecDescent::_trace(q{>>Matched production: [/DLURLPATHONLY/i]<<},
7884                                           Parse::RecDescent::_tracefirst($text),
7885                                           q{sysibm_function},
7886                                           $tracelevel)
7887                                                 if defined $::RD_TRACE;
7888                 $_matched = 1;
7889                 last;
7890         }
7891
7892
7893         while (!$_matched && !$commit)
7894         {
7895
7896                 Parse::RecDescent::_trace(q{Trying production: [/DLURLSCHEME/i]},
7897                                           Parse::RecDescent::_tracefirst($_[1]),
7898                                           q{sysibm_function},
7899                                           $tracelevel)
7900                                                 if defined $::RD_TRACE;
7901                 my $thisprod = $thisrule->{"prods"}[26];
7902                 $text = $_[1];
7903                 my $_savetext;
7904                 @item = (q{sysibm_function});
7905                 %item = (__RULE__ => q{sysibm_function});
7906                 my $repcount = 0;
7907
7908
7909                 Parse::RecDescent::_trace(q{Trying terminal: [/DLURLSCHEME/i]}, Parse::RecDescent::_tracefirst($text),
7910                                           q{sysibm_function},
7911                                           $tracelevel)
7912                                                 if defined $::RD_TRACE;
7913                 $lastsep = "";
7914                 $expectation->is(q{})->at($text);
7915
7916
7917                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DLURLSCHEME)//i)
7918                 {
7919
7920                         $expectation->failed();
7921                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7922                                                   Parse::RecDescent::_tracefirst($text))
7923                                         if defined $::RD_TRACE;
7924
7925                         last;
7926                 }
7927                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7928                                                 . $& . q{])},
7929                                                   Parse::RecDescent::_tracefirst($text))
7930                                         if defined $::RD_TRACE;
7931                 push @item, $item{__PATTERN1__}=$&;
7932
7933
7934
7935                 Parse::RecDescent::_trace(q{>>Matched production: [/DLURLSCHEME/i]<<},
7936                                           Parse::RecDescent::_tracefirst($text),
7937                                           q{sysibm_function},
7938                                           $tracelevel)
7939                                                 if defined $::RD_TRACE;
7940                 $_matched = 1;
7941                 last;
7942         }
7943
7944
7945         while (!$_matched && !$commit)
7946         {
7947
7948                 Parse::RecDescent::_trace(q{Trying production: [/DLURLSERVER/i]},
7949                                           Parse::RecDescent::_tracefirst($_[1]),
7950                                           q{sysibm_function},
7951                                           $tracelevel)
7952                                                 if defined $::RD_TRACE;
7953                 my $thisprod = $thisrule->{"prods"}[27];
7954                 $text = $_[1];
7955                 my $_savetext;
7956                 @item = (q{sysibm_function});
7957                 %item = (__RULE__ => q{sysibm_function});
7958                 my $repcount = 0;
7959
7960
7961                 Parse::RecDescent::_trace(q{Trying terminal: [/DLURLSERVER/i]}, Parse::RecDescent::_tracefirst($text),
7962                                           q{sysibm_function},
7963                                           $tracelevel)
7964                                                 if defined $::RD_TRACE;
7965                 $lastsep = "";
7966                 $expectation->is(q{})->at($text);
7967
7968
7969                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DLURLSERVER)//i)
7970                 {
7971
7972                         $expectation->failed();
7973                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
7974                                                   Parse::RecDescent::_tracefirst($text))
7975                                         if defined $::RD_TRACE;
7976
7977                         last;
7978                 }
7979                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
7980                                                 . $& . q{])},
7981                                                   Parse::RecDescent::_tracefirst($text))
7982                                         if defined $::RD_TRACE;
7983                 push @item, $item{__PATTERN1__}=$&;
7984
7985
7986
7987                 Parse::RecDescent::_trace(q{>>Matched production: [/DLURLSERVER/i]<<},
7988                                           Parse::RecDescent::_tracefirst($text),
7989                                           q{sysibm_function},
7990                                           $tracelevel)
7991                                                 if defined $::RD_TRACE;
7992                 $_matched = 1;
7993                 last;
7994         }
7995
7996
7997         while (!$_matched && !$commit)
7998         {
7999
8000                 Parse::RecDescent::_trace(q{Trying production: [/DLVALUE/i]},
8001                                           Parse::RecDescent::_tracefirst($_[1]),
8002                                           q{sysibm_function},
8003                                           $tracelevel)
8004                                                 if defined $::RD_TRACE;
8005                 my $thisprod = $thisrule->{"prods"}[28];
8006                 $text = $_[1];
8007                 my $_savetext;
8008                 @item = (q{sysibm_function});
8009                 %item = (__RULE__ => q{sysibm_function});
8010                 my $repcount = 0;
8011
8012
8013                 Parse::RecDescent::_trace(q{Trying terminal: [/DLVALUE/i]}, Parse::RecDescent::_tracefirst($text),
8014                                           q{sysibm_function},
8015                                           $tracelevel)
8016                                                 if defined $::RD_TRACE;
8017                 $lastsep = "";
8018                 $expectation->is(q{})->at($text);
8019
8020
8021                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DLVALUE)//i)
8022                 {
8023
8024                         $expectation->failed();
8025                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8026                                                   Parse::RecDescent::_tracefirst($text))
8027                                         if defined $::RD_TRACE;
8028
8029                         last;
8030                 }
8031                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8032                                                 . $& . q{])},
8033                                                   Parse::RecDescent::_tracefirst($text))
8034                                         if defined $::RD_TRACE;
8035                 push @item, $item{__PATTERN1__}=$&;
8036
8037
8038
8039                 Parse::RecDescent::_trace(q{>>Matched production: [/DLVALUE/i]<<},
8040                                           Parse::RecDescent::_tracefirst($text),
8041                                           q{sysibm_function},
8042                                           $tracelevel)
8043                                                 if defined $::RD_TRACE;
8044                 $_matched = 1;
8045                 last;
8046         }
8047
8048
8049         while (!$_matched && !$commit)
8050         {
8051
8052                 Parse::RecDescent::_trace(q{Trying production: [/DOUBLE/i, or /DOUBLE_PRECISION/i]},
8053                                           Parse::RecDescent::_tracefirst($_[1]),
8054                                           q{sysibm_function},
8055                                           $tracelevel)
8056                                                 if defined $::RD_TRACE;
8057                 my $thisprod = $thisrule->{"prods"}[29];
8058                 $text = $_[1];
8059                 my $_savetext;
8060                 @item = (q{sysibm_function});
8061                 %item = (__RULE__ => q{sysibm_function});
8062                 my $repcount = 0;
8063
8064
8065                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_30_of_rule_sysibm_function]},
8066                                   Parse::RecDescent::_tracefirst($text),
8067                                   q{sysibm_function},
8068                                   $tracelevel)
8069                                         if defined $::RD_TRACE;
8070                 if (1) { no strict qw{refs};
8071                 $expectation->is(q{})->at($text);
8072                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_30_of_rule_sysibm_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
8073                 {
8074
8075                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_30_of_rule_sysibm_function]>>},
8076                                                   Parse::RecDescent::_tracefirst($text),
8077                                                   q{sysibm_function},
8078                                                   $tracelevel)
8079                                                         if defined $::RD_TRACE;
8080                         $expectation->failed();
8081                         last;
8082                 }
8083                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_30_of_rule_sysibm_function]<< (return value: [}
8084                                         . $_tok . q{]},
8085
8086                                           Parse::RecDescent::_tracefirst($text),
8087                                           q{sysibm_function},
8088                                           $tracelevel)
8089                                                 if defined $::RD_TRACE;
8090                 $item{q{_alternation_1_of_production_30_of_rule_sysibm_function}} = $_tok;
8091                 push @item, $_tok;
8092
8093                 }
8094
8095
8096                 Parse::RecDescent::_trace(q{>>Matched production: [/DOUBLE/i, or /DOUBLE_PRECISION/i]<<},
8097                                           Parse::RecDescent::_tracefirst($text),
8098                                           q{sysibm_function},
8099                                           $tracelevel)
8100                                                 if defined $::RD_TRACE;
8101                 $_matched = 1;
8102                 last;
8103         }
8104
8105
8106         while (!$_matched && !$commit)
8107         {
8108
8109                 Parse::RecDescent::_trace(q{Trying production: [/ENCRYPT/i]},
8110                                           Parse::RecDescent::_tracefirst($_[1]),
8111                                           q{sysibm_function},
8112                                           $tracelevel)
8113                                                 if defined $::RD_TRACE;
8114                 my $thisprod = $thisrule->{"prods"}[30];
8115                 $text = $_[1];
8116                 my $_savetext;
8117                 @item = (q{sysibm_function});
8118                 %item = (__RULE__ => q{sysibm_function});
8119                 my $repcount = 0;
8120
8121
8122                 Parse::RecDescent::_trace(q{Trying terminal: [/ENCRYPT/i]}, Parse::RecDescent::_tracefirst($text),
8123                                           q{sysibm_function},
8124                                           $tracelevel)
8125                                                 if defined $::RD_TRACE;
8126                 $lastsep = "";
8127                 $expectation->is(q{})->at($text);
8128
8129
8130                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ENCRYPT)//i)
8131                 {
8132
8133                         $expectation->failed();
8134                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8135                                                   Parse::RecDescent::_tracefirst($text))
8136                                         if defined $::RD_TRACE;
8137
8138                         last;
8139                 }
8140                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8141                                                 . $& . q{])},
8142                                                   Parse::RecDescent::_tracefirst($text))
8143                                         if defined $::RD_TRACE;
8144                 push @item, $item{__PATTERN1__}=$&;
8145
8146
8147
8148                 Parse::RecDescent::_trace(q{>>Matched production: [/ENCRYPT/i]<<},
8149                                           Parse::RecDescent::_tracefirst($text),
8150                                           q{sysibm_function},
8151                                           $tracelevel)
8152                                                 if defined $::RD_TRACE;
8153                 $_matched = 1;
8154                 last;
8155         }
8156
8157
8158         while (!$_matched && !$commit)
8159         {
8160
8161                 Parse::RecDescent::_trace(q{Trying production: [/EVENT_MON_STATE/i]},
8162                                           Parse::RecDescent::_tracefirst($_[1]),
8163                                           q{sysibm_function},
8164                                           $tracelevel)
8165                                                 if defined $::RD_TRACE;
8166                 my $thisprod = $thisrule->{"prods"}[31];
8167                 $text = $_[1];
8168                 my $_savetext;
8169                 @item = (q{sysibm_function});
8170                 %item = (__RULE__ => q{sysibm_function});
8171                 my $repcount = 0;
8172
8173
8174                 Parse::RecDescent::_trace(q{Trying terminal: [/EVENT_MON_STATE/i]}, Parse::RecDescent::_tracefirst($text),
8175                                           q{sysibm_function},
8176                                           $tracelevel)
8177                                                 if defined $::RD_TRACE;
8178                 $lastsep = "";
8179                 $expectation->is(q{})->at($text);
8180
8181
8182                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:EVENT_MON_STATE)//i)
8183                 {
8184
8185                         $expectation->failed();
8186                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8187                                                   Parse::RecDescent::_tracefirst($text))
8188                                         if defined $::RD_TRACE;
8189
8190                         last;
8191                 }
8192                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8193                                                 . $& . q{])},
8194                                                   Parse::RecDescent::_tracefirst($text))
8195                                         if defined $::RD_TRACE;
8196                 push @item, $item{__PATTERN1__}=$&;
8197
8198
8199
8200                 Parse::RecDescent::_trace(q{>>Matched production: [/EVENT_MON_STATE/i]<<},
8201                                           Parse::RecDescent::_tracefirst($text),
8202                                           q{sysibm_function},
8203                                           $tracelevel)
8204                                                 if defined $::RD_TRACE;
8205                 $_matched = 1;
8206                 last;
8207         }
8208
8209
8210         while (!$_matched && !$commit)
8211         {
8212
8213                 Parse::RecDescent::_trace(q{Trying production: [/FLOAT/i]},
8214                                           Parse::RecDescent::_tracefirst($_[1]),
8215                                           q{sysibm_function},
8216                                           $tracelevel)
8217                                                 if defined $::RD_TRACE;
8218                 my $thisprod = $thisrule->{"prods"}[32];
8219                 $text = $_[1];
8220                 my $_savetext;
8221                 @item = (q{sysibm_function});
8222                 %item = (__RULE__ => q{sysibm_function});
8223                 my $repcount = 0;
8224
8225
8226                 Parse::RecDescent::_trace(q{Trying terminal: [/FLOAT/i]}, Parse::RecDescent::_tracefirst($text),
8227                                           q{sysibm_function},
8228                                           $tracelevel)
8229                                                 if defined $::RD_TRACE;
8230                 $lastsep = "";
8231                 $expectation->is(q{})->at($text);
8232
8233
8234                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:FLOAT)//i)
8235                 {
8236
8237                         $expectation->failed();
8238                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8239                                                   Parse::RecDescent::_tracefirst($text))
8240                                         if defined $::RD_TRACE;
8241
8242                         last;
8243                 }
8244                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8245                                                 . $& . q{])},
8246                                                   Parse::RecDescent::_tracefirst($text))
8247                                         if defined $::RD_TRACE;
8248                 push @item, $item{__PATTERN1__}=$&;
8249
8250
8251
8252                 Parse::RecDescent::_trace(q{>>Matched production: [/FLOAT/i]<<},
8253                                           Parse::RecDescent::_tracefirst($text),
8254                                           q{sysibm_function},
8255                                           $tracelevel)
8256                                                 if defined $::RD_TRACE;
8257                 $_matched = 1;
8258                 last;
8259         }
8260
8261
8262         while (!$_matched && !$commit)
8263         {
8264
8265                 Parse::RecDescent::_trace(q{Trying production: [/GETHINT/i]},
8266                                           Parse::RecDescent::_tracefirst($_[1]),
8267                                           q{sysibm_function},
8268                                           $tracelevel)
8269                                                 if defined $::RD_TRACE;
8270                 my $thisprod = $thisrule->{"prods"}[33];
8271                 $text = $_[1];
8272                 my $_savetext;
8273                 @item = (q{sysibm_function});
8274                 %item = (__RULE__ => q{sysibm_function});
8275                 my $repcount = 0;
8276
8277
8278                 Parse::RecDescent::_trace(q{Trying terminal: [/GETHINT/i]}, Parse::RecDescent::_tracefirst($text),
8279                                           q{sysibm_function},
8280                                           $tracelevel)
8281                                                 if defined $::RD_TRACE;
8282                 $lastsep = "";
8283                 $expectation->is(q{})->at($text);
8284
8285
8286                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:GETHINT)//i)
8287                 {
8288
8289                         $expectation->failed();
8290                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8291                                                   Parse::RecDescent::_tracefirst($text))
8292                                         if defined $::RD_TRACE;
8293
8294                         last;
8295                 }
8296                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8297                                                 . $& . q{])},
8298                                                   Parse::RecDescent::_tracefirst($text))
8299                                         if defined $::RD_TRACE;
8300                 push @item, $item{__PATTERN1__}=$&;
8301
8302
8303
8304                 Parse::RecDescent::_trace(q{>>Matched production: [/GETHINT/i]<<},
8305                                           Parse::RecDescent::_tracefirst($text),
8306                                           q{sysibm_function},
8307                                           $tracelevel)
8308                                                 if defined $::RD_TRACE;
8309                 $_matched = 1;
8310                 last;
8311         }
8312
8313
8314         while (!$_matched && !$commit)
8315         {
8316
8317                 Parse::RecDescent::_trace(q{Trying production: [/GENERATE_UNIQUE/i]},
8318                                           Parse::RecDescent::_tracefirst($_[1]),
8319                                           q{sysibm_function},
8320                                           $tracelevel)
8321                                                 if defined $::RD_TRACE;
8322                 my $thisprod = $thisrule->{"prods"}[34];
8323                 $text = $_[1];
8324                 my $_savetext;
8325                 @item = (q{sysibm_function});
8326                 %item = (__RULE__ => q{sysibm_function});
8327                 my $repcount = 0;
8328
8329
8330                 Parse::RecDescent::_trace(q{Trying terminal: [/GENERATE_UNIQUE/i]}, Parse::RecDescent::_tracefirst($text),
8331                                           q{sysibm_function},
8332                                           $tracelevel)
8333                                                 if defined $::RD_TRACE;
8334                 $lastsep = "";
8335                 $expectation->is(q{})->at($text);
8336
8337
8338                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:GENERATE_UNIQUE)//i)
8339                 {
8340
8341                         $expectation->failed();
8342                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8343                                                   Parse::RecDescent::_tracefirst($text))
8344                                         if defined $::RD_TRACE;
8345
8346                         last;
8347                 }
8348                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8349                                                 . $& . q{])},
8350                                                   Parse::RecDescent::_tracefirst($text))
8351                                         if defined $::RD_TRACE;
8352                 push @item, $item{__PATTERN1__}=$&;
8353
8354
8355
8356                 Parse::RecDescent::_trace(q{>>Matched production: [/GENERATE_UNIQUE/i]<<},
8357                                           Parse::RecDescent::_tracefirst($text),
8358                                           q{sysibm_function},
8359                                           $tracelevel)
8360                                                 if defined $::RD_TRACE;
8361                 $_matched = 1;
8362                 last;
8363         }
8364
8365
8366         while (!$_matched && !$commit)
8367         {
8368
8369                 Parse::RecDescent::_trace(q{Trying production: [/GRAPHIC/i]},
8370                                           Parse::RecDescent::_tracefirst($_[1]),
8371                                           q{sysibm_function},
8372                                           $tracelevel)
8373                                                 if defined $::RD_TRACE;
8374                 my $thisprod = $thisrule->{"prods"}[35];
8375                 $text = $_[1];
8376                 my $_savetext;
8377                 @item = (q{sysibm_function});
8378                 %item = (__RULE__ => q{sysibm_function});
8379                 my $repcount = 0;
8380
8381
8382                 Parse::RecDescent::_trace(q{Trying terminal: [/GRAPHIC/i]}, Parse::RecDescent::_tracefirst($text),
8383                                           q{sysibm_function},
8384                                           $tracelevel)
8385                                                 if defined $::RD_TRACE;
8386                 $lastsep = "";
8387                 $expectation->is(q{})->at($text);
8388
8389
8390                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:GRAPHIC)//i)
8391                 {
8392
8393                         $expectation->failed();
8394                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8395                                                   Parse::RecDescent::_tracefirst($text))
8396                                         if defined $::RD_TRACE;
8397
8398                         last;
8399                 }
8400                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8401                                                 . $& . q{])},
8402                                                   Parse::RecDescent::_tracefirst($text))
8403                                         if defined $::RD_TRACE;
8404                 push @item, $item{__PATTERN1__}=$&;
8405
8406
8407
8408                 Parse::RecDescent::_trace(q{>>Matched production: [/GRAPHIC/i]<<},
8409                                           Parse::RecDescent::_tracefirst($text),
8410                                           q{sysibm_function},
8411                                           $tracelevel)
8412                                                 if defined $::RD_TRACE;
8413                 $_matched = 1;
8414                 last;
8415         }
8416
8417
8418         while (!$_matched && !$commit)
8419         {
8420
8421                 Parse::RecDescent::_trace(q{Trying production: [/GROUPING/i]},
8422                                           Parse::RecDescent::_tracefirst($_[1]),
8423                                           q{sysibm_function},
8424                                           $tracelevel)
8425                                                 if defined $::RD_TRACE;
8426                 my $thisprod = $thisrule->{"prods"}[36];
8427                 $text = $_[1];
8428                 my $_savetext;
8429                 @item = (q{sysibm_function});
8430                 %item = (__RULE__ => q{sysibm_function});
8431                 my $repcount = 0;
8432
8433
8434                 Parse::RecDescent::_trace(q{Trying terminal: [/GROUPING/i]}, Parse::RecDescent::_tracefirst($text),
8435                                           q{sysibm_function},
8436                                           $tracelevel)
8437                                                 if defined $::RD_TRACE;
8438                 $lastsep = "";
8439                 $expectation->is(q{})->at($text);
8440
8441
8442                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:GROUPING)//i)
8443                 {
8444
8445                         $expectation->failed();
8446                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8447                                                   Parse::RecDescent::_tracefirst($text))
8448                                         if defined $::RD_TRACE;
8449
8450                         last;
8451                 }
8452                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8453                                                 . $& . q{])},
8454                                                   Parse::RecDescent::_tracefirst($text))
8455                                         if defined $::RD_TRACE;
8456                 push @item, $item{__PATTERN1__}=$&;
8457
8458
8459
8460                 Parse::RecDescent::_trace(q{>>Matched production: [/GROUPING/i]<<},
8461                                           Parse::RecDescent::_tracefirst($text),
8462                                           q{sysibm_function},
8463                                           $tracelevel)
8464                                                 if defined $::RD_TRACE;
8465                 $_matched = 1;
8466                 last;
8467         }
8468
8469
8470         while (!$_matched && !$commit)
8471         {
8472
8473                 Parse::RecDescent::_trace(q{Trying production: [/HEX/i]},
8474                                           Parse::RecDescent::_tracefirst($_[1]),
8475                                           q{sysibm_function},
8476                                           $tracelevel)
8477                                                 if defined $::RD_TRACE;
8478                 my $thisprod = $thisrule->{"prods"}[37];
8479                 $text = $_[1];
8480                 my $_savetext;
8481                 @item = (q{sysibm_function});
8482                 %item = (__RULE__ => q{sysibm_function});
8483                 my $repcount = 0;
8484
8485
8486                 Parse::RecDescent::_trace(q{Trying terminal: [/HEX/i]}, Parse::RecDescent::_tracefirst($text),
8487                                           q{sysibm_function},
8488                                           $tracelevel)
8489                                                 if defined $::RD_TRACE;
8490                 $lastsep = "";
8491                 $expectation->is(q{})->at($text);
8492
8493
8494                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:HEX)//i)
8495                 {
8496
8497                         $expectation->failed();
8498                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8499                                                   Parse::RecDescent::_tracefirst($text))
8500                                         if defined $::RD_TRACE;
8501
8502                         last;
8503                 }
8504                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8505                                                 . $& . q{])},
8506                                                   Parse::RecDescent::_tracefirst($text))
8507                                         if defined $::RD_TRACE;
8508                 push @item, $item{__PATTERN1__}=$&;
8509
8510
8511
8512                 Parse::RecDescent::_trace(q{>>Matched production: [/HEX/i]<<},
8513                                           Parse::RecDescent::_tracefirst($text),
8514                                           q{sysibm_function},
8515                                           $tracelevel)
8516                                                 if defined $::RD_TRACE;
8517                 $_matched = 1;
8518                 last;
8519         }
8520
8521
8522         while (!$_matched && !$commit)
8523         {
8524
8525                 Parse::RecDescent::_trace(q{Trying production: [/HOUR/i]},
8526                                           Parse::RecDescent::_tracefirst($_[1]),
8527                                           q{sysibm_function},
8528                                           $tracelevel)
8529                                                 if defined $::RD_TRACE;
8530                 my $thisprod = $thisrule->{"prods"}[38];
8531                 $text = $_[1];
8532                 my $_savetext;
8533                 @item = (q{sysibm_function});
8534                 %item = (__RULE__ => q{sysibm_function});
8535                 my $repcount = 0;
8536
8537
8538                 Parse::RecDescent::_trace(q{Trying terminal: [/HOUR/i]}, Parse::RecDescent::_tracefirst($text),
8539                                           q{sysibm_function},
8540                                           $tracelevel)
8541                                                 if defined $::RD_TRACE;
8542                 $lastsep = "";
8543                 $expectation->is(q{})->at($text);
8544
8545
8546                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:HOUR)//i)
8547                 {
8548
8549                         $expectation->failed();
8550                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8551                                                   Parse::RecDescent::_tracefirst($text))
8552                                         if defined $::RD_TRACE;
8553
8554                         last;
8555                 }
8556                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8557                                                 . $& . q{])},
8558                                                   Parse::RecDescent::_tracefirst($text))
8559                                         if defined $::RD_TRACE;
8560                 push @item, $item{__PATTERN1__}=$&;
8561
8562
8563
8564                 Parse::RecDescent::_trace(q{>>Matched production: [/HOUR/i]<<},
8565                                           Parse::RecDescent::_tracefirst($text),
8566                                           q{sysibm_function},
8567                                           $tracelevel)
8568                                                 if defined $::RD_TRACE;
8569                 $_matched = 1;
8570                 last;
8571         }
8572
8573
8574         while (!$_matched && !$commit)
8575         {
8576
8577                 Parse::RecDescent::_trace(q{Trying production: [/IDENTITY_VAL_LOCAL/i]},
8578                                           Parse::RecDescent::_tracefirst($_[1]),
8579                                           q{sysibm_function},
8580                                           $tracelevel)
8581                                                 if defined $::RD_TRACE;
8582                 my $thisprod = $thisrule->{"prods"}[39];
8583                 $text = $_[1];
8584                 my $_savetext;
8585                 @item = (q{sysibm_function});
8586                 %item = (__RULE__ => q{sysibm_function});
8587                 my $repcount = 0;
8588
8589
8590                 Parse::RecDescent::_trace(q{Trying terminal: [/IDENTITY_VAL_LOCAL/i]}, Parse::RecDescent::_tracefirst($text),
8591                                           q{sysibm_function},
8592                                           $tracelevel)
8593                                                 if defined $::RD_TRACE;
8594                 $lastsep = "";
8595                 $expectation->is(q{})->at($text);
8596
8597
8598                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:IDENTITY_VAL_LOCAL)//i)
8599                 {
8600
8601                         $expectation->failed();
8602                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8603                                                   Parse::RecDescent::_tracefirst($text))
8604                                         if defined $::RD_TRACE;
8605
8606                         last;
8607                 }
8608                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8609                                                 . $& . q{])},
8610                                                   Parse::RecDescent::_tracefirst($text))
8611                                         if defined $::RD_TRACE;
8612                 push @item, $item{__PATTERN1__}=$&;
8613
8614
8615
8616                 Parse::RecDescent::_trace(q{>>Matched production: [/IDENTITY_VAL_LOCAL/i]<<},
8617                                           Parse::RecDescent::_tracefirst($text),
8618                                           q{sysibm_function},
8619                                           $tracelevel)
8620                                                 if defined $::RD_TRACE;
8621                 $_matched = 1;
8622                 last;
8623         }
8624
8625
8626         while (!$_matched && !$commit)
8627         {
8628
8629                 Parse::RecDescent::_trace(q{Trying production: [/INTEGER/i, or /INT/]},
8630                                           Parse::RecDescent::_tracefirst($_[1]),
8631                                           q{sysibm_function},
8632                                           $tracelevel)
8633                                                 if defined $::RD_TRACE;
8634                 my $thisprod = $thisrule->{"prods"}[40];
8635                 $text = $_[1];
8636                 my $_savetext;
8637                 @item = (q{sysibm_function});
8638                 %item = (__RULE__ => q{sysibm_function});
8639                 my $repcount = 0;
8640
8641
8642                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_41_of_rule_sysibm_function]},
8643                                   Parse::RecDescent::_tracefirst($text),
8644                                   q{sysibm_function},
8645                                   $tracelevel)
8646                                         if defined $::RD_TRACE;
8647                 if (1) { no strict qw{refs};
8648                 $expectation->is(q{})->at($text);
8649                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_41_of_rule_sysibm_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
8650                 {
8651
8652                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_41_of_rule_sysibm_function]>>},
8653                                                   Parse::RecDescent::_tracefirst($text),
8654                                                   q{sysibm_function},
8655                                                   $tracelevel)
8656                                                         if defined $::RD_TRACE;
8657                         $expectation->failed();
8658                         last;
8659                 }
8660                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_41_of_rule_sysibm_function]<< (return value: [}
8661                                         . $_tok . q{]},
8662
8663                                           Parse::RecDescent::_tracefirst($text),
8664                                           q{sysibm_function},
8665                                           $tracelevel)
8666                                                 if defined $::RD_TRACE;
8667                 $item{q{_alternation_1_of_production_41_of_rule_sysibm_function}} = $_tok;
8668                 push @item, $_tok;
8669
8670                 }
8671
8672
8673                 Parse::RecDescent::_trace(q{>>Matched production: [/INTEGER/i, or /INT/]<<},
8674                                           Parse::RecDescent::_tracefirst($text),
8675                                           q{sysibm_function},
8676                                           $tracelevel)
8677                                                 if defined $::RD_TRACE;
8678                 $_matched = 1;
8679                 last;
8680         }
8681
8682
8683         while (!$_matched && !$commit)
8684         {
8685
8686                 Parse::RecDescent::_trace(q{Trying production: [/LCASE/i, or /LOWER/]},
8687                                           Parse::RecDescent::_tracefirst($_[1]),
8688                                           q{sysibm_function},
8689                                           $tracelevel)
8690                                                 if defined $::RD_TRACE;
8691                 my $thisprod = $thisrule->{"prods"}[41];
8692                 $text = $_[1];
8693                 my $_savetext;
8694                 @item = (q{sysibm_function});
8695                 %item = (__RULE__ => q{sysibm_function});
8696                 my $repcount = 0;
8697
8698
8699                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_42_of_rule_sysibm_function]},
8700                                   Parse::RecDescent::_tracefirst($text),
8701                                   q{sysibm_function},
8702                                   $tracelevel)
8703                                         if defined $::RD_TRACE;
8704                 if (1) { no strict qw{refs};
8705                 $expectation->is(q{})->at($text);
8706                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_42_of_rule_sysibm_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
8707                 {
8708
8709                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_42_of_rule_sysibm_function]>>},
8710                                                   Parse::RecDescent::_tracefirst($text),
8711                                                   q{sysibm_function},
8712                                                   $tracelevel)
8713                                                         if defined $::RD_TRACE;
8714                         $expectation->failed();
8715                         last;
8716                 }
8717                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_42_of_rule_sysibm_function]<< (return value: [}
8718                                         . $_tok . q{]},
8719
8720                                           Parse::RecDescent::_tracefirst($text),
8721                                           q{sysibm_function},
8722                                           $tracelevel)
8723                                                 if defined $::RD_TRACE;
8724                 $item{q{_alternation_1_of_production_42_of_rule_sysibm_function}} = $_tok;
8725                 push @item, $_tok;
8726
8727                 }
8728
8729
8730                 Parse::RecDescent::_trace(q{>>Matched production: [/LCASE/i, or /LOWER/]<<},
8731                                           Parse::RecDescent::_tracefirst($text),
8732                                           q{sysibm_function},
8733                                           $tracelevel)
8734                                                 if defined $::RD_TRACE;
8735                 $_matched = 1;
8736                 last;
8737         }
8738
8739
8740         while (!$_matched && !$commit)
8741         {
8742
8743                 Parse::RecDescent::_trace(q{Trying production: [/LENGTH/i]},
8744                                           Parse::RecDescent::_tracefirst($_[1]),
8745                                           q{sysibm_function},
8746                                           $tracelevel)
8747                                                 if defined $::RD_TRACE;
8748                 my $thisprod = $thisrule->{"prods"}[42];
8749                 $text = $_[1];
8750                 my $_savetext;
8751                 @item = (q{sysibm_function});
8752                 %item = (__RULE__ => q{sysibm_function});
8753                 my $repcount = 0;
8754
8755
8756                 Parse::RecDescent::_trace(q{Trying terminal: [/LENGTH/i]}, Parse::RecDescent::_tracefirst($text),
8757                                           q{sysibm_function},
8758                                           $tracelevel)
8759                                                 if defined $::RD_TRACE;
8760                 $lastsep = "";
8761                 $expectation->is(q{})->at($text);
8762
8763
8764                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:LENGTH)//i)
8765                 {
8766
8767                         $expectation->failed();
8768                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8769                                                   Parse::RecDescent::_tracefirst($text))
8770                                         if defined $::RD_TRACE;
8771
8772                         last;
8773                 }
8774                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8775                                                 . $& . q{])},
8776                                                   Parse::RecDescent::_tracefirst($text))
8777                                         if defined $::RD_TRACE;
8778                 push @item, $item{__PATTERN1__}=$&;
8779
8780
8781
8782                 Parse::RecDescent::_trace(q{>>Matched production: [/LENGTH/i]<<},
8783                                           Parse::RecDescent::_tracefirst($text),
8784                                           q{sysibm_function},
8785                                           $tracelevel)
8786                                                 if defined $::RD_TRACE;
8787                 $_matched = 1;
8788                 last;
8789         }
8790
8791
8792         while (!$_matched && !$commit)
8793         {
8794
8795                 Parse::RecDescent::_trace(q{Trying production: [/LONG_VARCHAR/i]},
8796                                           Parse::RecDescent::_tracefirst($_[1]),
8797                                           q{sysibm_function},
8798                                           $tracelevel)
8799                                                 if defined $::RD_TRACE;
8800                 my $thisprod = $thisrule->{"prods"}[43];
8801                 $text = $_[1];
8802                 my $_savetext;
8803                 @item = (q{sysibm_function});
8804                 %item = (__RULE__ => q{sysibm_function});
8805                 my $repcount = 0;
8806
8807
8808                 Parse::RecDescent::_trace(q{Trying terminal: [/LONG_VARCHAR/i]}, Parse::RecDescent::_tracefirst($text),
8809                                           q{sysibm_function},
8810                                           $tracelevel)
8811                                                 if defined $::RD_TRACE;
8812                 $lastsep = "";
8813                 $expectation->is(q{})->at($text);
8814
8815
8816                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:LONG_VARCHAR)//i)
8817                 {
8818
8819                         $expectation->failed();
8820                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8821                                                   Parse::RecDescent::_tracefirst($text))
8822                                         if defined $::RD_TRACE;
8823
8824                         last;
8825                 }
8826                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8827                                                 . $& . q{])},
8828                                                   Parse::RecDescent::_tracefirst($text))
8829                                         if defined $::RD_TRACE;
8830                 push @item, $item{__PATTERN1__}=$&;
8831
8832
8833
8834                 Parse::RecDescent::_trace(q{>>Matched production: [/LONG_VARCHAR/i]<<},
8835                                           Parse::RecDescent::_tracefirst($text),
8836                                           q{sysibm_function},
8837                                           $tracelevel)
8838                                                 if defined $::RD_TRACE;
8839                 $_matched = 1;
8840                 last;
8841         }
8842
8843
8844         while (!$_matched && !$commit)
8845         {
8846
8847                 Parse::RecDescent::_trace(q{Trying production: [/LONG_VARGRAPHIC/i]},
8848                                           Parse::RecDescent::_tracefirst($_[1]),
8849                                           q{sysibm_function},
8850                                           $tracelevel)
8851                                                 if defined $::RD_TRACE;
8852                 my $thisprod = $thisrule->{"prods"}[44];
8853                 $text = $_[1];
8854                 my $_savetext;
8855                 @item = (q{sysibm_function});
8856                 %item = (__RULE__ => q{sysibm_function});
8857                 my $repcount = 0;
8858
8859
8860                 Parse::RecDescent::_trace(q{Trying terminal: [/LONG_VARGRAPHIC/i]}, Parse::RecDescent::_tracefirst($text),
8861                                           q{sysibm_function},
8862                                           $tracelevel)
8863                                                 if defined $::RD_TRACE;
8864                 $lastsep = "";
8865                 $expectation->is(q{})->at($text);
8866
8867
8868                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:LONG_VARGRAPHIC)//i)
8869                 {
8870
8871                         $expectation->failed();
8872                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8873                                                   Parse::RecDescent::_tracefirst($text))
8874                                         if defined $::RD_TRACE;
8875
8876                         last;
8877                 }
8878                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8879                                                 . $& . q{])},
8880                                                   Parse::RecDescent::_tracefirst($text))
8881                                         if defined $::RD_TRACE;
8882                 push @item, $item{__PATTERN1__}=$&;
8883
8884
8885
8886                 Parse::RecDescent::_trace(q{>>Matched production: [/LONG_VARGRAPHIC/i]<<},
8887                                           Parse::RecDescent::_tracefirst($text),
8888                                           q{sysibm_function},
8889                                           $tracelevel)
8890                                                 if defined $::RD_TRACE;
8891                 $_matched = 1;
8892                 last;
8893         }
8894
8895
8896         while (!$_matched && !$commit)
8897         {
8898
8899                 Parse::RecDescent::_trace(q{Trying production: [/LTRIM/i]},
8900                                           Parse::RecDescent::_tracefirst($_[1]),
8901                                           q{sysibm_function},
8902                                           $tracelevel)
8903                                                 if defined $::RD_TRACE;
8904                 my $thisprod = $thisrule->{"prods"}[45];
8905                 $text = $_[1];
8906                 my $_savetext;
8907                 @item = (q{sysibm_function});
8908                 %item = (__RULE__ => q{sysibm_function});
8909                 my $repcount = 0;
8910
8911
8912                 Parse::RecDescent::_trace(q{Trying terminal: [/LTRIM/i]}, Parse::RecDescent::_tracefirst($text),
8913                                           q{sysibm_function},
8914                                           $tracelevel)
8915                                                 if defined $::RD_TRACE;
8916                 $lastsep = "";
8917                 $expectation->is(q{})->at($text);
8918
8919
8920                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:LTRIM)//i)
8921                 {
8922
8923                         $expectation->failed();
8924                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8925                                                   Parse::RecDescent::_tracefirst($text))
8926                                         if defined $::RD_TRACE;
8927
8928                         last;
8929                 }
8930                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8931                                                 . $& . q{])},
8932                                                   Parse::RecDescent::_tracefirst($text))
8933                                         if defined $::RD_TRACE;
8934                 push @item, $item{__PATTERN1__}=$&;
8935
8936
8937
8938                 Parse::RecDescent::_trace(q{>>Matched production: [/LTRIM/i]<<},
8939                                           Parse::RecDescent::_tracefirst($text),
8940                                           q{sysibm_function},
8941                                           $tracelevel)
8942                                                 if defined $::RD_TRACE;
8943                 $_matched = 1;
8944                 last;
8945         }
8946
8947
8948         while (!$_matched && !$commit)
8949         {
8950
8951                 Parse::RecDescent::_trace(q{Trying production: [/MAX/i]},
8952                                           Parse::RecDescent::_tracefirst($_[1]),
8953                                           q{sysibm_function},
8954                                           $tracelevel)
8955                                                 if defined $::RD_TRACE;
8956                 my $thisprod = $thisrule->{"prods"}[46];
8957                 $text = $_[1];
8958                 my $_savetext;
8959                 @item = (q{sysibm_function});
8960                 %item = (__RULE__ => q{sysibm_function});
8961                 my $repcount = 0;
8962
8963
8964                 Parse::RecDescent::_trace(q{Trying terminal: [/MAX/i]}, Parse::RecDescent::_tracefirst($text),
8965                                           q{sysibm_function},
8966                                           $tracelevel)
8967                                                 if defined $::RD_TRACE;
8968                 $lastsep = "";
8969                 $expectation->is(q{})->at($text);
8970
8971
8972                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:MAX)//i)
8973                 {
8974
8975                         $expectation->failed();
8976                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
8977                                                   Parse::RecDescent::_tracefirst($text))
8978                                         if defined $::RD_TRACE;
8979
8980                         last;
8981                 }
8982                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
8983                                                 . $& . q{])},
8984                                                   Parse::RecDescent::_tracefirst($text))
8985                                         if defined $::RD_TRACE;
8986                 push @item, $item{__PATTERN1__}=$&;
8987
8988
8989
8990                 Parse::RecDescent::_trace(q{>>Matched production: [/MAX/i]<<},
8991                                           Parse::RecDescent::_tracefirst($text),
8992                                           q{sysibm_function},
8993                                           $tracelevel)
8994                                                 if defined $::RD_TRACE;
8995                 $_matched = 1;
8996                 last;
8997         }
8998
8999
9000         while (!$_matched && !$commit)
9001         {
9002
9003                 Parse::RecDescent::_trace(q{Trying production: [/MICROSECOND/i]},
9004                                           Parse::RecDescent::_tracefirst($_[1]),
9005                                           q{sysibm_function},
9006                                           $tracelevel)
9007                                                 if defined $::RD_TRACE;
9008                 my $thisprod = $thisrule->{"prods"}[47];
9009                 $text = $_[1];
9010                 my $_savetext;
9011                 @item = (q{sysibm_function});
9012                 %item = (__RULE__ => q{sysibm_function});
9013                 my $repcount = 0;
9014
9015
9016                 Parse::RecDescent::_trace(q{Trying terminal: [/MICROSECOND/i]}, Parse::RecDescent::_tracefirst($text),
9017                                           q{sysibm_function},
9018                                           $tracelevel)
9019                                                 if defined $::RD_TRACE;
9020                 $lastsep = "";
9021                 $expectation->is(q{})->at($text);
9022
9023
9024                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:MICROSECOND)//i)
9025                 {
9026
9027                         $expectation->failed();
9028                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9029                                                   Parse::RecDescent::_tracefirst($text))
9030                                         if defined $::RD_TRACE;
9031
9032                         last;
9033                 }
9034                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9035                                                 . $& . q{])},
9036                                                   Parse::RecDescent::_tracefirst($text))
9037                                         if defined $::RD_TRACE;
9038                 push @item, $item{__PATTERN1__}=$&;
9039
9040
9041
9042                 Parse::RecDescent::_trace(q{>>Matched production: [/MICROSECOND/i]<<},
9043                                           Parse::RecDescent::_tracefirst($text),
9044                                           q{sysibm_function},
9045                                           $tracelevel)
9046                                                 if defined $::RD_TRACE;
9047                 $_matched = 1;
9048                 last;
9049         }
9050
9051
9052         while (!$_matched && !$commit)
9053         {
9054
9055                 Parse::RecDescent::_trace(q{Trying production: [/MIN/i]},
9056                                           Parse::RecDescent::_tracefirst($_[1]),
9057                                           q{sysibm_function},
9058                                           $tracelevel)
9059                                                 if defined $::RD_TRACE;
9060                 my $thisprod = $thisrule->{"prods"}[48];
9061                 $text = $_[1];
9062                 my $_savetext;
9063                 @item = (q{sysibm_function});
9064                 %item = (__RULE__ => q{sysibm_function});
9065                 my $repcount = 0;
9066
9067
9068                 Parse::RecDescent::_trace(q{Trying terminal: [/MIN/i]}, Parse::RecDescent::_tracefirst($text),
9069                                           q{sysibm_function},
9070                                           $tracelevel)
9071                                                 if defined $::RD_TRACE;
9072                 $lastsep = "";
9073                 $expectation->is(q{})->at($text);
9074
9075
9076                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:MIN)//i)
9077                 {
9078
9079                         $expectation->failed();
9080                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9081                                                   Parse::RecDescent::_tracefirst($text))
9082                                         if defined $::RD_TRACE;
9083
9084                         last;
9085                 }
9086                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9087                                                 . $& . q{])},
9088                                                   Parse::RecDescent::_tracefirst($text))
9089                                         if defined $::RD_TRACE;
9090                 push @item, $item{__PATTERN1__}=$&;
9091
9092
9093
9094                 Parse::RecDescent::_trace(q{>>Matched production: [/MIN/i]<<},
9095                                           Parse::RecDescent::_tracefirst($text),
9096                                           q{sysibm_function},
9097                                           $tracelevel)
9098                                                 if defined $::RD_TRACE;
9099                 $_matched = 1;
9100                 last;
9101         }
9102
9103
9104         while (!$_matched && !$commit)
9105         {
9106
9107                 Parse::RecDescent::_trace(q{Trying production: [/MINUTE/i]},
9108                                           Parse::RecDescent::_tracefirst($_[1]),
9109                                           q{sysibm_function},
9110                                           $tracelevel)
9111                                                 if defined $::RD_TRACE;
9112                 my $thisprod = $thisrule->{"prods"}[49];
9113                 $text = $_[1];
9114                 my $_savetext;
9115                 @item = (q{sysibm_function});
9116                 %item = (__RULE__ => q{sysibm_function});
9117                 my $repcount = 0;
9118
9119
9120                 Parse::RecDescent::_trace(q{Trying terminal: [/MINUTE/i]}, Parse::RecDescent::_tracefirst($text),
9121                                           q{sysibm_function},
9122                                           $tracelevel)
9123                                                 if defined $::RD_TRACE;
9124                 $lastsep = "";
9125                 $expectation->is(q{})->at($text);
9126
9127
9128                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:MINUTE)//i)
9129                 {
9130
9131                         $expectation->failed();
9132                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9133                                                   Parse::RecDescent::_tracefirst($text))
9134                                         if defined $::RD_TRACE;
9135
9136                         last;
9137                 }
9138                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9139                                                 . $& . q{])},
9140                                                   Parse::RecDescent::_tracefirst($text))
9141                                         if defined $::RD_TRACE;
9142                 push @item, $item{__PATTERN1__}=$&;
9143
9144
9145
9146                 Parse::RecDescent::_trace(q{>>Matched production: [/MINUTE/i]<<},
9147                                           Parse::RecDescent::_tracefirst($text),
9148                                           q{sysibm_function},
9149                                           $tracelevel)
9150                                                 if defined $::RD_TRACE;
9151                 $_matched = 1;
9152                 last;
9153         }
9154
9155
9156         while (!$_matched && !$commit)
9157         {
9158
9159                 Parse::RecDescent::_trace(q{Trying production: [/MONTH/i]},
9160                                           Parse::RecDescent::_tracefirst($_[1]),
9161                                           q{sysibm_function},
9162                                           $tracelevel)
9163                                                 if defined $::RD_TRACE;
9164                 my $thisprod = $thisrule->{"prods"}[50];
9165                 $text = $_[1];
9166                 my $_savetext;
9167                 @item = (q{sysibm_function});
9168                 %item = (__RULE__ => q{sysibm_function});
9169                 my $repcount = 0;
9170
9171
9172                 Parse::RecDescent::_trace(q{Trying terminal: [/MONTH/i]}, Parse::RecDescent::_tracefirst($text),
9173                                           q{sysibm_function},
9174                                           $tracelevel)
9175                                                 if defined $::RD_TRACE;
9176                 $lastsep = "";
9177                 $expectation->is(q{})->at($text);
9178
9179
9180                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:MONTH)//i)
9181                 {
9182
9183                         $expectation->failed();
9184                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9185                                                   Parse::RecDescent::_tracefirst($text))
9186                                         if defined $::RD_TRACE;
9187
9188                         last;
9189                 }
9190                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9191                                                 . $& . q{])},
9192                                                   Parse::RecDescent::_tracefirst($text))
9193                                         if defined $::RD_TRACE;
9194                 push @item, $item{__PATTERN1__}=$&;
9195
9196
9197
9198                 Parse::RecDescent::_trace(q{>>Matched production: [/MONTH/i]<<},
9199                                           Parse::RecDescent::_tracefirst($text),
9200                                           q{sysibm_function},
9201                                           $tracelevel)
9202                                                 if defined $::RD_TRACE;
9203                 $_matched = 1;
9204                 last;
9205         }
9206
9207
9208         while (!$_matched && !$commit)
9209         {
9210
9211                 Parse::RecDescent::_trace(q{Trying production: [/MULTIPLY_ACT/i]},
9212                                           Parse::RecDescent::_tracefirst($_[1]),
9213                                           q{sysibm_function},
9214                                           $tracelevel)
9215                                                 if defined $::RD_TRACE;
9216                 my $thisprod = $thisrule->{"prods"}[51];
9217                 $text = $_[1];
9218                 my $_savetext;
9219                 @item = (q{sysibm_function});
9220                 %item = (__RULE__ => q{sysibm_function});
9221                 my $repcount = 0;
9222
9223
9224                 Parse::RecDescent::_trace(q{Trying terminal: [/MULTIPLY_ACT/i]}, Parse::RecDescent::_tracefirst($text),
9225                                           q{sysibm_function},
9226                                           $tracelevel)
9227                                                 if defined $::RD_TRACE;
9228                 $lastsep = "";
9229                 $expectation->is(q{})->at($text);
9230
9231
9232                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:MULTIPLY_ACT)//i)
9233                 {
9234
9235                         $expectation->failed();
9236                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9237                                                   Parse::RecDescent::_tracefirst($text))
9238                                         if defined $::RD_TRACE;
9239
9240                         last;
9241                 }
9242                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9243                                                 . $& . q{])},
9244                                                   Parse::RecDescent::_tracefirst($text))
9245                                         if defined $::RD_TRACE;
9246                 push @item, $item{__PATTERN1__}=$&;
9247
9248
9249
9250                 Parse::RecDescent::_trace(q{>>Matched production: [/MULTIPLY_ACT/i]<<},
9251                                           Parse::RecDescent::_tracefirst($text),
9252                                           q{sysibm_function},
9253                                           $tracelevel)
9254                                                 if defined $::RD_TRACE;
9255                 $_matched = 1;
9256                 last;
9257         }
9258
9259
9260         while (!$_matched && !$commit)
9261         {
9262
9263                 Parse::RecDescent::_trace(q{Trying production: [/NODENUMBER/i]},
9264                                           Parse::RecDescent::_tracefirst($_[1]),
9265                                           q{sysibm_function},
9266                                           $tracelevel)
9267                                                 if defined $::RD_TRACE;
9268                 my $thisprod = $thisrule->{"prods"}[52];
9269                 $text = $_[1];
9270                 my $_savetext;
9271                 @item = (q{sysibm_function});
9272                 %item = (__RULE__ => q{sysibm_function});
9273                 my $repcount = 0;
9274
9275
9276                 Parse::RecDescent::_trace(q{Trying terminal: [/NODENUMBER/i]}, Parse::RecDescent::_tracefirst($text),
9277                                           q{sysibm_function},
9278                                           $tracelevel)
9279                                                 if defined $::RD_TRACE;
9280                 $lastsep = "";
9281                 $expectation->is(q{})->at($text);
9282
9283
9284                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NODENUMBER)//i)
9285                 {
9286
9287                         $expectation->failed();
9288                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9289                                                   Parse::RecDescent::_tracefirst($text))
9290                                         if defined $::RD_TRACE;
9291
9292                         last;
9293                 }
9294                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9295                                                 . $& . q{])},
9296                                                   Parse::RecDescent::_tracefirst($text))
9297                                         if defined $::RD_TRACE;
9298                 push @item, $item{__PATTERN1__}=$&;
9299
9300
9301
9302                 Parse::RecDescent::_trace(q{>>Matched production: [/NODENUMBER/i]<<},
9303                                           Parse::RecDescent::_tracefirst($text),
9304                                           q{sysibm_function},
9305                                           $tracelevel)
9306                                                 if defined $::RD_TRACE;
9307                 $_matched = 1;
9308                 last;
9309         }
9310
9311
9312         while (!$_matched && !$commit)
9313         {
9314
9315                 Parse::RecDescent::_trace(q{Trying production: [/NULLIF/i]},
9316                                           Parse::RecDescent::_tracefirst($_[1]),
9317                                           q{sysibm_function},
9318                                           $tracelevel)
9319                                                 if defined $::RD_TRACE;
9320                 my $thisprod = $thisrule->{"prods"}[53];
9321                 $text = $_[1];
9322                 my $_savetext;
9323                 @item = (q{sysibm_function});
9324                 %item = (__RULE__ => q{sysibm_function});
9325                 my $repcount = 0;
9326
9327
9328                 Parse::RecDescent::_trace(q{Trying terminal: [/NULLIF/i]}, Parse::RecDescent::_tracefirst($text),
9329                                           q{sysibm_function},
9330                                           $tracelevel)
9331                                                 if defined $::RD_TRACE;
9332                 $lastsep = "";
9333                 $expectation->is(q{})->at($text);
9334
9335
9336                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NULLIF)//i)
9337                 {
9338
9339                         $expectation->failed();
9340                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9341                                                   Parse::RecDescent::_tracefirst($text))
9342                                         if defined $::RD_TRACE;
9343
9344                         last;
9345                 }
9346                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9347                                                 . $& . q{])},
9348                                                   Parse::RecDescent::_tracefirst($text))
9349                                         if defined $::RD_TRACE;
9350                 push @item, $item{__PATTERN1__}=$&;
9351
9352
9353
9354                 Parse::RecDescent::_trace(q{>>Matched production: [/NULLIF/i]<<},
9355                                           Parse::RecDescent::_tracefirst($text),
9356                                           q{sysibm_function},
9357                                           $tracelevel)
9358                                                 if defined $::RD_TRACE;
9359                 $_matched = 1;
9360                 last;
9361         }
9362
9363
9364         while (!$_matched && !$commit)
9365         {
9366
9367                 Parse::RecDescent::_trace(q{Trying production: [/PARTITON/i]},
9368                                           Parse::RecDescent::_tracefirst($_[1]),
9369                                           q{sysibm_function},
9370                                           $tracelevel)
9371                                                 if defined $::RD_TRACE;
9372                 my $thisprod = $thisrule->{"prods"}[54];
9373                 $text = $_[1];
9374                 my $_savetext;
9375                 @item = (q{sysibm_function});
9376                 %item = (__RULE__ => q{sysibm_function});
9377                 my $repcount = 0;
9378
9379
9380                 Parse::RecDescent::_trace(q{Trying terminal: [/PARTITON/i]}, Parse::RecDescent::_tracefirst($text),
9381                                           q{sysibm_function},
9382                                           $tracelevel)
9383                                                 if defined $::RD_TRACE;
9384                 $lastsep = "";
9385                 $expectation->is(q{})->at($text);
9386
9387
9388                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:PARTITON)//i)
9389                 {
9390
9391                         $expectation->failed();
9392                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9393                                                   Parse::RecDescent::_tracefirst($text))
9394                                         if defined $::RD_TRACE;
9395
9396                         last;
9397                 }
9398                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9399                                                 . $& . q{])},
9400                                                   Parse::RecDescent::_tracefirst($text))
9401                                         if defined $::RD_TRACE;
9402                 push @item, $item{__PATTERN1__}=$&;
9403
9404
9405
9406                 Parse::RecDescent::_trace(q{>>Matched production: [/PARTITON/i]<<},
9407                                           Parse::RecDescent::_tracefirst($text),
9408                                           q{sysibm_function},
9409                                           $tracelevel)
9410                                                 if defined $::RD_TRACE;
9411                 $_matched = 1;
9412                 last;
9413         }
9414
9415
9416         while (!$_matched && !$commit)
9417         {
9418
9419                 Parse::RecDescent::_trace(q{Trying production: [/POSSTR/i]},
9420                                           Parse::RecDescent::_tracefirst($_[1]),
9421                                           q{sysibm_function},
9422                                           $tracelevel)
9423                                                 if defined $::RD_TRACE;
9424                 my $thisprod = $thisrule->{"prods"}[55];
9425                 $text = $_[1];
9426                 my $_savetext;
9427                 @item = (q{sysibm_function});
9428                 %item = (__RULE__ => q{sysibm_function});
9429                 my $repcount = 0;
9430
9431
9432                 Parse::RecDescent::_trace(q{Trying terminal: [/POSSTR/i]}, Parse::RecDescent::_tracefirst($text),
9433                                           q{sysibm_function},
9434                                           $tracelevel)
9435                                                 if defined $::RD_TRACE;
9436                 $lastsep = "";
9437                 $expectation->is(q{})->at($text);
9438
9439
9440                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:POSSTR)//i)
9441                 {
9442
9443                         $expectation->failed();
9444                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9445                                                   Parse::RecDescent::_tracefirst($text))
9446                                         if defined $::RD_TRACE;
9447
9448                         last;
9449                 }
9450                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9451                                                 . $& . q{])},
9452                                                   Parse::RecDescent::_tracefirst($text))
9453                                         if defined $::RD_TRACE;
9454                 push @item, $item{__PATTERN1__}=$&;
9455
9456
9457
9458                 Parse::RecDescent::_trace(q{>>Matched production: [/POSSTR/i]<<},
9459                                           Parse::RecDescent::_tracefirst($text),
9460                                           q{sysibm_function},
9461                                           $tracelevel)
9462                                                 if defined $::RD_TRACE;
9463                 $_matched = 1;
9464                 last;
9465         }
9466
9467
9468         while (!$_matched && !$commit)
9469         {
9470
9471                 Parse::RecDescent::_trace(q{Trying production: [/RAISE_ERROR/i]},
9472                                           Parse::RecDescent::_tracefirst($_[1]),
9473                                           q{sysibm_function},
9474                                           $tracelevel)
9475                                                 if defined $::RD_TRACE;
9476                 my $thisprod = $thisrule->{"prods"}[56];
9477                 $text = $_[1];
9478                 my $_savetext;
9479                 @item = (q{sysibm_function});
9480                 %item = (__RULE__ => q{sysibm_function});
9481                 my $repcount = 0;
9482
9483
9484                 Parse::RecDescent::_trace(q{Trying terminal: [/RAISE_ERROR/i]}, Parse::RecDescent::_tracefirst($text),
9485                                           q{sysibm_function},
9486                                           $tracelevel)
9487                                                 if defined $::RD_TRACE;
9488                 $lastsep = "";
9489                 $expectation->is(q{})->at($text);
9490
9491
9492                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:RAISE_ERROR)//i)
9493                 {
9494
9495                         $expectation->failed();
9496                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9497                                                   Parse::RecDescent::_tracefirst($text))
9498                                         if defined $::RD_TRACE;
9499
9500                         last;
9501                 }
9502                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9503                                                 . $& . q{])},
9504                                                   Parse::RecDescent::_tracefirst($text))
9505                                         if defined $::RD_TRACE;
9506                 push @item, $item{__PATTERN1__}=$&;
9507
9508
9509
9510                 Parse::RecDescent::_trace(q{>>Matched production: [/RAISE_ERROR/i]<<},
9511                                           Parse::RecDescent::_tracefirst($text),
9512                                           q{sysibm_function},
9513                                           $tracelevel)
9514                                                 if defined $::RD_TRACE;
9515                 $_matched = 1;
9516                 last;
9517         }
9518
9519
9520         while (!$_matched && !$commit)
9521         {
9522
9523                 Parse::RecDescent::_trace(q{Trying production: [/REAL/i]},
9524                                           Parse::RecDescent::_tracefirst($_[1]),
9525                                           q{sysibm_function},
9526                                           $tracelevel)
9527                                                 if defined $::RD_TRACE;
9528                 my $thisprod = $thisrule->{"prods"}[57];
9529                 $text = $_[1];
9530                 my $_savetext;
9531                 @item = (q{sysibm_function});
9532                 %item = (__RULE__ => q{sysibm_function});
9533                 my $repcount = 0;
9534
9535
9536                 Parse::RecDescent::_trace(q{Trying terminal: [/REAL/i]}, Parse::RecDescent::_tracefirst($text),
9537                                           q{sysibm_function},
9538                                           $tracelevel)
9539                                                 if defined $::RD_TRACE;
9540                 $lastsep = "";
9541                 $expectation->is(q{})->at($text);
9542
9543
9544                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REAL)//i)
9545                 {
9546
9547                         $expectation->failed();
9548                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9549                                                   Parse::RecDescent::_tracefirst($text))
9550                                         if defined $::RD_TRACE;
9551
9552                         last;
9553                 }
9554                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9555                                                 . $& . q{])},
9556                                                   Parse::RecDescent::_tracefirst($text))
9557                                         if defined $::RD_TRACE;
9558                 push @item, $item{__PATTERN1__}=$&;
9559
9560
9561
9562                 Parse::RecDescent::_trace(q{>>Matched production: [/REAL/i]<<},
9563                                           Parse::RecDescent::_tracefirst($text),
9564                                           q{sysibm_function},
9565                                           $tracelevel)
9566                                                 if defined $::RD_TRACE;
9567                 $_matched = 1;
9568                 last;
9569         }
9570
9571
9572         while (!$_matched && !$commit)
9573         {
9574
9575                 Parse::RecDescent::_trace(q{Trying production: [/REC2XML/i]},
9576                                           Parse::RecDescent::_tracefirst($_[1]),
9577                                           q{sysibm_function},
9578                                           $tracelevel)
9579                                                 if defined $::RD_TRACE;
9580                 my $thisprod = $thisrule->{"prods"}[58];
9581                 $text = $_[1];
9582                 my $_savetext;
9583                 @item = (q{sysibm_function});
9584                 %item = (__RULE__ => q{sysibm_function});
9585                 my $repcount = 0;
9586
9587
9588                 Parse::RecDescent::_trace(q{Trying terminal: [/REC2XML/i]}, Parse::RecDescent::_tracefirst($text),
9589                                           q{sysibm_function},
9590                                           $tracelevel)
9591                                                 if defined $::RD_TRACE;
9592                 $lastsep = "";
9593                 $expectation->is(q{})->at($text);
9594
9595
9596                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REC2XML)//i)
9597                 {
9598
9599                         $expectation->failed();
9600                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9601                                                   Parse::RecDescent::_tracefirst($text))
9602                                         if defined $::RD_TRACE;
9603
9604                         last;
9605                 }
9606                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9607                                                 . $& . q{])},
9608                                                   Parse::RecDescent::_tracefirst($text))
9609                                         if defined $::RD_TRACE;
9610                 push @item, $item{__PATTERN1__}=$&;
9611
9612
9613
9614                 Parse::RecDescent::_trace(q{>>Matched production: [/REC2XML/i]<<},
9615                                           Parse::RecDescent::_tracefirst($text),
9616                                           q{sysibm_function},
9617                                           $tracelevel)
9618                                                 if defined $::RD_TRACE;
9619                 $_matched = 1;
9620                 last;
9621         }
9622
9623
9624         while (!$_matched && !$commit)
9625         {
9626
9627                 Parse::RecDescent::_trace(q{Trying production: [/REGR_AVGX/i]},
9628                                           Parse::RecDescent::_tracefirst($_[1]),
9629                                           q{sysibm_function},
9630                                           $tracelevel)
9631                                                 if defined $::RD_TRACE;
9632                 my $thisprod = $thisrule->{"prods"}[59];
9633                 $text = $_[1];
9634                 my $_savetext;
9635                 @item = (q{sysibm_function});
9636                 %item = (__RULE__ => q{sysibm_function});
9637                 my $repcount = 0;
9638
9639
9640                 Parse::RecDescent::_trace(q{Trying terminal: [/REGR_AVGX/i]}, Parse::RecDescent::_tracefirst($text),
9641                                           q{sysibm_function},
9642                                           $tracelevel)
9643                                                 if defined $::RD_TRACE;
9644                 $lastsep = "";
9645                 $expectation->is(q{})->at($text);
9646
9647
9648                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REGR_AVGX)//i)
9649                 {
9650
9651                         $expectation->failed();
9652                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9653                                                   Parse::RecDescent::_tracefirst($text))
9654                                         if defined $::RD_TRACE;
9655
9656                         last;
9657                 }
9658                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9659                                                 . $& . q{])},
9660                                                   Parse::RecDescent::_tracefirst($text))
9661                                         if defined $::RD_TRACE;
9662                 push @item, $item{__PATTERN1__}=$&;
9663
9664
9665
9666                 Parse::RecDescent::_trace(q{>>Matched production: [/REGR_AVGX/i]<<},
9667                                           Parse::RecDescent::_tracefirst($text),
9668                                           q{sysibm_function},
9669                                           $tracelevel)
9670                                                 if defined $::RD_TRACE;
9671                 $_matched = 1;
9672                 last;
9673         }
9674
9675
9676         while (!$_matched && !$commit)
9677         {
9678
9679                 Parse::RecDescent::_trace(q{Trying production: [/REGR_AVGY/i]},
9680                                           Parse::RecDescent::_tracefirst($_[1]),
9681                                           q{sysibm_function},
9682                                           $tracelevel)
9683                                                 if defined $::RD_TRACE;
9684                 my $thisprod = $thisrule->{"prods"}[60];
9685                 $text = $_[1];
9686                 my $_savetext;
9687                 @item = (q{sysibm_function});
9688                 %item = (__RULE__ => q{sysibm_function});
9689                 my $repcount = 0;
9690
9691
9692                 Parse::RecDescent::_trace(q{Trying terminal: [/REGR_AVGY/i]}, Parse::RecDescent::_tracefirst($text),
9693                                           q{sysibm_function},
9694                                           $tracelevel)
9695                                                 if defined $::RD_TRACE;
9696                 $lastsep = "";
9697                 $expectation->is(q{})->at($text);
9698
9699
9700                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REGR_AVGY)//i)
9701                 {
9702
9703                         $expectation->failed();
9704                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9705                                                   Parse::RecDescent::_tracefirst($text))
9706                                         if defined $::RD_TRACE;
9707
9708                         last;
9709                 }
9710                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9711                                                 . $& . q{])},
9712                                                   Parse::RecDescent::_tracefirst($text))
9713                                         if defined $::RD_TRACE;
9714                 push @item, $item{__PATTERN1__}=$&;
9715
9716
9717
9718                 Parse::RecDescent::_trace(q{>>Matched production: [/REGR_AVGY/i]<<},
9719                                           Parse::RecDescent::_tracefirst($text),
9720                                           q{sysibm_function},
9721                                           $tracelevel)
9722                                                 if defined $::RD_TRACE;
9723                 $_matched = 1;
9724                 last;
9725         }
9726
9727
9728         while (!$_matched && !$commit)
9729         {
9730
9731                 Parse::RecDescent::_trace(q{Trying production: [/REGR_COUNT/i]},
9732                                           Parse::RecDescent::_tracefirst($_[1]),
9733                                           q{sysibm_function},
9734                                           $tracelevel)
9735                                                 if defined $::RD_TRACE;
9736                 my $thisprod = $thisrule->{"prods"}[61];
9737                 $text = $_[1];
9738                 my $_savetext;
9739                 @item = (q{sysibm_function});
9740                 %item = (__RULE__ => q{sysibm_function});
9741                 my $repcount = 0;
9742
9743
9744                 Parse::RecDescent::_trace(q{Trying terminal: [/REGR_COUNT/i]}, Parse::RecDescent::_tracefirst($text),
9745                                           q{sysibm_function},
9746                                           $tracelevel)
9747                                                 if defined $::RD_TRACE;
9748                 $lastsep = "";
9749                 $expectation->is(q{})->at($text);
9750
9751
9752                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REGR_COUNT)//i)
9753                 {
9754
9755                         $expectation->failed();
9756                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9757                                                   Parse::RecDescent::_tracefirst($text))
9758                                         if defined $::RD_TRACE;
9759
9760                         last;
9761                 }
9762                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9763                                                 . $& . q{])},
9764                                                   Parse::RecDescent::_tracefirst($text))
9765                                         if defined $::RD_TRACE;
9766                 push @item, $item{__PATTERN1__}=$&;
9767
9768
9769
9770                 Parse::RecDescent::_trace(q{>>Matched production: [/REGR_COUNT/i]<<},
9771                                           Parse::RecDescent::_tracefirst($text),
9772                                           q{sysibm_function},
9773                                           $tracelevel)
9774                                                 if defined $::RD_TRACE;
9775                 $_matched = 1;
9776                 last;
9777         }
9778
9779
9780         while (!$_matched && !$commit)
9781         {
9782
9783                 Parse::RecDescent::_trace(q{Trying production: [/REGR_INTERCEPT/i, or /REGR_ICPT/i]},
9784                                           Parse::RecDescent::_tracefirst($_[1]),
9785                                           q{sysibm_function},
9786                                           $tracelevel)
9787                                                 if defined $::RD_TRACE;
9788                 my $thisprod = $thisrule->{"prods"}[62];
9789                 $text = $_[1];
9790                 my $_savetext;
9791                 @item = (q{sysibm_function});
9792                 %item = (__RULE__ => q{sysibm_function});
9793                 my $repcount = 0;
9794
9795
9796                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_63_of_rule_sysibm_function]},
9797                                   Parse::RecDescent::_tracefirst($text),
9798                                   q{sysibm_function},
9799                                   $tracelevel)
9800                                         if defined $::RD_TRACE;
9801                 if (1) { no strict qw{refs};
9802                 $expectation->is(q{})->at($text);
9803                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_63_of_rule_sysibm_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
9804                 {
9805
9806                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_63_of_rule_sysibm_function]>>},
9807                                                   Parse::RecDescent::_tracefirst($text),
9808                                                   q{sysibm_function},
9809                                                   $tracelevel)
9810                                                         if defined $::RD_TRACE;
9811                         $expectation->failed();
9812                         last;
9813                 }
9814                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_63_of_rule_sysibm_function]<< (return value: [}
9815                                         . $_tok . q{]},
9816
9817                                           Parse::RecDescent::_tracefirst($text),
9818                                           q{sysibm_function},
9819                                           $tracelevel)
9820                                                 if defined $::RD_TRACE;
9821                 $item{q{_alternation_1_of_production_63_of_rule_sysibm_function}} = $_tok;
9822                 push @item, $_tok;
9823
9824                 }
9825
9826
9827                 Parse::RecDescent::_trace(q{>>Matched production: [/REGR_INTERCEPT/i, or /REGR_ICPT/i]<<},
9828                                           Parse::RecDescent::_tracefirst($text),
9829                                           q{sysibm_function},
9830                                           $tracelevel)
9831                                                 if defined $::RD_TRACE;
9832                 $_matched = 1;
9833                 last;
9834         }
9835
9836
9837         while (!$_matched && !$commit)
9838         {
9839
9840                 Parse::RecDescent::_trace(q{Trying production: [/REGR_R2/i]},
9841                                           Parse::RecDescent::_tracefirst($_[1]),
9842                                           q{sysibm_function},
9843                                           $tracelevel)
9844                                                 if defined $::RD_TRACE;
9845                 my $thisprod = $thisrule->{"prods"}[63];
9846                 $text = $_[1];
9847                 my $_savetext;
9848                 @item = (q{sysibm_function});
9849                 %item = (__RULE__ => q{sysibm_function});
9850                 my $repcount = 0;
9851
9852
9853                 Parse::RecDescent::_trace(q{Trying terminal: [/REGR_R2/i]}, Parse::RecDescent::_tracefirst($text),
9854                                           q{sysibm_function},
9855                                           $tracelevel)
9856                                                 if defined $::RD_TRACE;
9857                 $lastsep = "";
9858                 $expectation->is(q{})->at($text);
9859
9860
9861                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REGR_R2)//i)
9862                 {
9863
9864                         $expectation->failed();
9865                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9866                                                   Parse::RecDescent::_tracefirst($text))
9867                                         if defined $::RD_TRACE;
9868
9869                         last;
9870                 }
9871                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9872                                                 . $& . q{])},
9873                                                   Parse::RecDescent::_tracefirst($text))
9874                                         if defined $::RD_TRACE;
9875                 push @item, $item{__PATTERN1__}=$&;
9876
9877
9878
9879                 Parse::RecDescent::_trace(q{>>Matched production: [/REGR_R2/i]<<},
9880                                           Parse::RecDescent::_tracefirst($text),
9881                                           q{sysibm_function},
9882                                           $tracelevel)
9883                                                 if defined $::RD_TRACE;
9884                 $_matched = 1;
9885                 last;
9886         }
9887
9888
9889         while (!$_matched && !$commit)
9890         {
9891
9892                 Parse::RecDescent::_trace(q{Trying production: [/REGR_SLOPE/i]},
9893                                           Parse::RecDescent::_tracefirst($_[1]),
9894                                           q{sysibm_function},
9895                                           $tracelevel)
9896                                                 if defined $::RD_TRACE;
9897                 my $thisprod = $thisrule->{"prods"}[64];
9898                 $text = $_[1];
9899                 my $_savetext;
9900                 @item = (q{sysibm_function});
9901                 %item = (__RULE__ => q{sysibm_function});
9902                 my $repcount = 0;
9903
9904
9905                 Parse::RecDescent::_trace(q{Trying terminal: [/REGR_SLOPE/i]}, Parse::RecDescent::_tracefirst($text),
9906                                           q{sysibm_function},
9907                                           $tracelevel)
9908                                                 if defined $::RD_TRACE;
9909                 $lastsep = "";
9910                 $expectation->is(q{})->at($text);
9911
9912
9913                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REGR_SLOPE)//i)
9914                 {
9915
9916                         $expectation->failed();
9917                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9918                                                   Parse::RecDescent::_tracefirst($text))
9919                                         if defined $::RD_TRACE;
9920
9921                         last;
9922                 }
9923                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9924                                                 . $& . q{])},
9925                                                   Parse::RecDescent::_tracefirst($text))
9926                                         if defined $::RD_TRACE;
9927                 push @item, $item{__PATTERN1__}=$&;
9928
9929
9930
9931                 Parse::RecDescent::_trace(q{>>Matched production: [/REGR_SLOPE/i]<<},
9932                                           Parse::RecDescent::_tracefirst($text),
9933                                           q{sysibm_function},
9934                                           $tracelevel)
9935                                                 if defined $::RD_TRACE;
9936                 $_matched = 1;
9937                 last;
9938         }
9939
9940
9941         while (!$_matched && !$commit)
9942         {
9943
9944                 Parse::RecDescent::_trace(q{Trying production: [/REGR_SXX/i]},
9945                                           Parse::RecDescent::_tracefirst($_[1]),
9946                                           q{sysibm_function},
9947                                           $tracelevel)
9948                                                 if defined $::RD_TRACE;
9949                 my $thisprod = $thisrule->{"prods"}[65];
9950                 $text = $_[1];
9951                 my $_savetext;
9952                 @item = (q{sysibm_function});
9953                 %item = (__RULE__ => q{sysibm_function});
9954                 my $repcount = 0;
9955
9956
9957                 Parse::RecDescent::_trace(q{Trying terminal: [/REGR_SXX/i]}, Parse::RecDescent::_tracefirst($text),
9958                                           q{sysibm_function},
9959                                           $tracelevel)
9960                                                 if defined $::RD_TRACE;
9961                 $lastsep = "";
9962                 $expectation->is(q{})->at($text);
9963
9964
9965                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REGR_SXX)//i)
9966                 {
9967
9968                         $expectation->failed();
9969                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
9970                                                   Parse::RecDescent::_tracefirst($text))
9971                                         if defined $::RD_TRACE;
9972
9973                         last;
9974                 }
9975                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
9976                                                 . $& . q{])},
9977                                                   Parse::RecDescent::_tracefirst($text))
9978                                         if defined $::RD_TRACE;
9979                 push @item, $item{__PATTERN1__}=$&;
9980
9981
9982
9983                 Parse::RecDescent::_trace(q{>>Matched production: [/REGR_SXX/i]<<},
9984                                           Parse::RecDescent::_tracefirst($text),
9985                                           q{sysibm_function},
9986                                           $tracelevel)
9987                                                 if defined $::RD_TRACE;
9988                 $_matched = 1;
9989                 last;
9990         }
9991
9992
9993         while (!$_matched && !$commit)
9994         {
9995
9996                 Parse::RecDescent::_trace(q{Trying production: [/REGR_SXY/i]},
9997                                           Parse::RecDescent::_tracefirst($_[1]),
9998                                           q{sysibm_function},
9999                                           $tracelevel)
10000                                                 if defined $::RD_TRACE;
10001                 my $thisprod = $thisrule->{"prods"}[66];
10002                 $text = $_[1];
10003                 my $_savetext;
10004                 @item = (q{sysibm_function});
10005                 %item = (__RULE__ => q{sysibm_function});
10006                 my $repcount = 0;
10007
10008
10009                 Parse::RecDescent::_trace(q{Trying terminal: [/REGR_SXY/i]}, Parse::RecDescent::_tracefirst($text),
10010                                           q{sysibm_function},
10011                                           $tracelevel)
10012                                                 if defined $::RD_TRACE;
10013                 $lastsep = "";
10014                 $expectation->is(q{})->at($text);
10015
10016
10017                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REGR_SXY)//i)
10018                 {
10019
10020                         $expectation->failed();
10021                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10022                                                   Parse::RecDescent::_tracefirst($text))
10023                                         if defined $::RD_TRACE;
10024
10025                         last;
10026                 }
10027                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10028                                                 . $& . q{])},
10029                                                   Parse::RecDescent::_tracefirst($text))
10030                                         if defined $::RD_TRACE;
10031                 push @item, $item{__PATTERN1__}=$&;
10032
10033
10034
10035                 Parse::RecDescent::_trace(q{>>Matched production: [/REGR_SXY/i]<<},
10036                                           Parse::RecDescent::_tracefirst($text),
10037                                           q{sysibm_function},
10038                                           $tracelevel)
10039                                                 if defined $::RD_TRACE;
10040                 $_matched = 1;
10041                 last;
10042         }
10043
10044
10045         while (!$_matched && !$commit)
10046         {
10047
10048                 Parse::RecDescent::_trace(q{Trying production: [/REGR_SYY/i]},
10049                                           Parse::RecDescent::_tracefirst($_[1]),
10050                                           q{sysibm_function},
10051                                           $tracelevel)
10052                                                 if defined $::RD_TRACE;
10053                 my $thisprod = $thisrule->{"prods"}[67];
10054                 $text = $_[1];
10055                 my $_savetext;
10056                 @item = (q{sysibm_function});
10057                 %item = (__RULE__ => q{sysibm_function});
10058                 my $repcount = 0;
10059
10060
10061                 Parse::RecDescent::_trace(q{Trying terminal: [/REGR_SYY/i]}, Parse::RecDescent::_tracefirst($text),
10062                                           q{sysibm_function},
10063                                           $tracelevel)
10064                                                 if defined $::RD_TRACE;
10065                 $lastsep = "";
10066                 $expectation->is(q{})->at($text);
10067
10068
10069                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REGR_SYY)//i)
10070                 {
10071
10072                         $expectation->failed();
10073                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10074                                                   Parse::RecDescent::_tracefirst($text))
10075                                         if defined $::RD_TRACE;
10076
10077                         last;
10078                 }
10079                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10080                                                 . $& . q{])},
10081                                                   Parse::RecDescent::_tracefirst($text))
10082                                         if defined $::RD_TRACE;
10083                 push @item, $item{__PATTERN1__}=$&;
10084
10085
10086
10087                 Parse::RecDescent::_trace(q{>>Matched production: [/REGR_SYY/i]<<},
10088                                           Parse::RecDescent::_tracefirst($text),
10089                                           q{sysibm_function},
10090                                           $tracelevel)
10091                                                 if defined $::RD_TRACE;
10092                 $_matched = 1;
10093                 last;
10094         }
10095
10096
10097         while (!$_matched && !$commit)
10098         {
10099
10100                 Parse::RecDescent::_trace(q{Trying production: [/RTRIM/i]},
10101                                           Parse::RecDescent::_tracefirst($_[1]),
10102                                           q{sysibm_function},
10103                                           $tracelevel)
10104                                                 if defined $::RD_TRACE;
10105                 my $thisprod = $thisrule->{"prods"}[68];
10106                 $text = $_[1];
10107                 my $_savetext;
10108                 @item = (q{sysibm_function});
10109                 %item = (__RULE__ => q{sysibm_function});
10110                 my $repcount = 0;
10111
10112
10113                 Parse::RecDescent::_trace(q{Trying terminal: [/RTRIM/i]}, Parse::RecDescent::_tracefirst($text),
10114                                           q{sysibm_function},
10115                                           $tracelevel)
10116                                                 if defined $::RD_TRACE;
10117                 $lastsep = "";
10118                 $expectation->is(q{})->at($text);
10119
10120
10121                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:RTRIM)//i)
10122                 {
10123
10124                         $expectation->failed();
10125                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10126                                                   Parse::RecDescent::_tracefirst($text))
10127                                         if defined $::RD_TRACE;
10128
10129                         last;
10130                 }
10131                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10132                                                 . $& . q{])},
10133                                                   Parse::RecDescent::_tracefirst($text))
10134                                         if defined $::RD_TRACE;
10135                 push @item, $item{__PATTERN1__}=$&;
10136
10137
10138
10139                 Parse::RecDescent::_trace(q{>>Matched production: [/RTRIM/i]<<},
10140                                           Parse::RecDescent::_tracefirst($text),
10141                                           q{sysibm_function},
10142                                           $tracelevel)
10143                                                 if defined $::RD_TRACE;
10144                 $_matched = 1;
10145                 last;
10146         }
10147
10148
10149         while (!$_matched && !$commit)
10150         {
10151
10152                 Parse::RecDescent::_trace(q{Trying production: [/SECOND/i]},
10153                                           Parse::RecDescent::_tracefirst($_[1]),
10154                                           q{sysibm_function},
10155                                           $tracelevel)
10156                                                 if defined $::RD_TRACE;
10157                 my $thisprod = $thisrule->{"prods"}[69];
10158                 $text = $_[1];
10159                 my $_savetext;
10160                 @item = (q{sysibm_function});
10161                 %item = (__RULE__ => q{sysibm_function});
10162                 my $repcount = 0;
10163
10164
10165                 Parse::RecDescent::_trace(q{Trying terminal: [/SECOND/i]}, Parse::RecDescent::_tracefirst($text),
10166                                           q{sysibm_function},
10167                                           $tracelevel)
10168                                                 if defined $::RD_TRACE;
10169                 $lastsep = "";
10170                 $expectation->is(q{})->at($text);
10171
10172
10173                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SECOND)//i)
10174                 {
10175
10176                         $expectation->failed();
10177                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10178                                                   Parse::RecDescent::_tracefirst($text))
10179                                         if defined $::RD_TRACE;
10180
10181                         last;
10182                 }
10183                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10184                                                 . $& . q{])},
10185                                                   Parse::RecDescent::_tracefirst($text))
10186                                         if defined $::RD_TRACE;
10187                 push @item, $item{__PATTERN1__}=$&;
10188
10189
10190
10191                 Parse::RecDescent::_trace(q{>>Matched production: [/SECOND/i]<<},
10192                                           Parse::RecDescent::_tracefirst($text),
10193                                           q{sysibm_function},
10194                                           $tracelevel)
10195                                                 if defined $::RD_TRACE;
10196                 $_matched = 1;
10197                 last;
10198         }
10199
10200
10201         while (!$_matched && !$commit)
10202         {
10203
10204                 Parse::RecDescent::_trace(q{Trying production: [/SMALLINT/i]},
10205                                           Parse::RecDescent::_tracefirst($_[1]),
10206                                           q{sysibm_function},
10207                                           $tracelevel)
10208                                                 if defined $::RD_TRACE;
10209                 my $thisprod = $thisrule->{"prods"}[70];
10210                 $text = $_[1];
10211                 my $_savetext;
10212                 @item = (q{sysibm_function});
10213                 %item = (__RULE__ => q{sysibm_function});
10214                 my $repcount = 0;
10215
10216
10217                 Parse::RecDescent::_trace(q{Trying terminal: [/SMALLINT/i]}, Parse::RecDescent::_tracefirst($text),
10218                                           q{sysibm_function},
10219                                           $tracelevel)
10220                                                 if defined $::RD_TRACE;
10221                 $lastsep = "";
10222                 $expectation->is(q{})->at($text);
10223
10224
10225                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SMALLINT)//i)
10226                 {
10227
10228                         $expectation->failed();
10229                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10230                                                   Parse::RecDescent::_tracefirst($text))
10231                                         if defined $::RD_TRACE;
10232
10233                         last;
10234                 }
10235                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10236                                                 . $& . q{])},
10237                                                   Parse::RecDescent::_tracefirst($text))
10238                                         if defined $::RD_TRACE;
10239                 push @item, $item{__PATTERN1__}=$&;
10240
10241
10242
10243                 Parse::RecDescent::_trace(q{>>Matched production: [/SMALLINT/i]<<},
10244                                           Parse::RecDescent::_tracefirst($text),
10245                                           q{sysibm_function},
10246                                           $tracelevel)
10247                                                 if defined $::RD_TRACE;
10248                 $_matched = 1;
10249                 last;
10250         }
10251
10252
10253         while (!$_matched && !$commit)
10254         {
10255
10256                 Parse::RecDescent::_trace(q{Trying production: [/STDDEV/i]},
10257                                           Parse::RecDescent::_tracefirst($_[1]),
10258                                           q{sysibm_function},
10259                                           $tracelevel)
10260                                                 if defined $::RD_TRACE;
10261                 my $thisprod = $thisrule->{"prods"}[71];
10262                 $text = $_[1];
10263                 my $_savetext;
10264                 @item = (q{sysibm_function});
10265                 %item = (__RULE__ => q{sysibm_function});
10266                 my $repcount = 0;
10267
10268
10269                 Parse::RecDescent::_trace(q{Trying terminal: [/STDDEV/i]}, Parse::RecDescent::_tracefirst($text),
10270                                           q{sysibm_function},
10271                                           $tracelevel)
10272                                                 if defined $::RD_TRACE;
10273                 $lastsep = "";
10274                 $expectation->is(q{})->at($text);
10275
10276
10277                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:STDDEV)//i)
10278                 {
10279
10280                         $expectation->failed();
10281                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10282                                                   Parse::RecDescent::_tracefirst($text))
10283                                         if defined $::RD_TRACE;
10284
10285                         last;
10286                 }
10287                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10288                                                 . $& . q{])},
10289                                                   Parse::RecDescent::_tracefirst($text))
10290                                         if defined $::RD_TRACE;
10291                 push @item, $item{__PATTERN1__}=$&;
10292
10293
10294
10295                 Parse::RecDescent::_trace(q{>>Matched production: [/STDDEV/i]<<},
10296                                           Parse::RecDescent::_tracefirst($text),
10297                                           q{sysibm_function},
10298                                           $tracelevel)
10299                                                 if defined $::RD_TRACE;
10300                 $_matched = 1;
10301                 last;
10302         }
10303
10304
10305         while (!$_matched && !$commit)
10306         {
10307
10308                 Parse::RecDescent::_trace(q{Trying production: [/SUBSTR/i]},
10309                                           Parse::RecDescent::_tracefirst($_[1]),
10310                                           q{sysibm_function},
10311                                           $tracelevel)
10312                                                 if defined $::RD_TRACE;
10313                 my $thisprod = $thisrule->{"prods"}[72];
10314                 $text = $_[1];
10315                 my $_savetext;
10316                 @item = (q{sysibm_function});
10317                 %item = (__RULE__ => q{sysibm_function});
10318                 my $repcount = 0;
10319
10320
10321                 Parse::RecDescent::_trace(q{Trying terminal: [/SUBSTR/i]}, Parse::RecDescent::_tracefirst($text),
10322                                           q{sysibm_function},
10323                                           $tracelevel)
10324                                                 if defined $::RD_TRACE;
10325                 $lastsep = "";
10326                 $expectation->is(q{})->at($text);
10327
10328
10329                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SUBSTR)//i)
10330                 {
10331
10332                         $expectation->failed();
10333                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10334                                                   Parse::RecDescent::_tracefirst($text))
10335                                         if defined $::RD_TRACE;
10336
10337                         last;
10338                 }
10339                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10340                                                 . $& . q{])},
10341                                                   Parse::RecDescent::_tracefirst($text))
10342                                         if defined $::RD_TRACE;
10343                 push @item, $item{__PATTERN1__}=$&;
10344
10345
10346
10347                 Parse::RecDescent::_trace(q{>>Matched production: [/SUBSTR/i]<<},
10348                                           Parse::RecDescent::_tracefirst($text),
10349                                           q{sysibm_function},
10350                                           $tracelevel)
10351                                                 if defined $::RD_TRACE;
10352                 $_matched = 1;
10353                 last;
10354         }
10355
10356
10357         while (!$_matched && !$commit)
10358         {
10359
10360                 Parse::RecDescent::_trace(q{Trying production: [/SUM/i]},
10361                                           Parse::RecDescent::_tracefirst($_[1]),
10362                                           q{sysibm_function},
10363                                           $tracelevel)
10364                                                 if defined $::RD_TRACE;
10365                 my $thisprod = $thisrule->{"prods"}[73];
10366                 $text = $_[1];
10367                 my $_savetext;
10368                 @item = (q{sysibm_function});
10369                 %item = (__RULE__ => q{sysibm_function});
10370                 my $repcount = 0;
10371
10372
10373                 Parse::RecDescent::_trace(q{Trying terminal: [/SUM/i]}, Parse::RecDescent::_tracefirst($text),
10374                                           q{sysibm_function},
10375                                           $tracelevel)
10376                                                 if defined $::RD_TRACE;
10377                 $lastsep = "";
10378                 $expectation->is(q{})->at($text);
10379
10380
10381                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SUM)//i)
10382                 {
10383
10384                         $expectation->failed();
10385                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10386                                                   Parse::RecDescent::_tracefirst($text))
10387                                         if defined $::RD_TRACE;
10388
10389                         last;
10390                 }
10391                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10392                                                 . $& . q{])},
10393                                                   Parse::RecDescent::_tracefirst($text))
10394                                         if defined $::RD_TRACE;
10395                 push @item, $item{__PATTERN1__}=$&;
10396
10397
10398
10399                 Parse::RecDescent::_trace(q{>>Matched production: [/SUM/i]<<},
10400                                           Parse::RecDescent::_tracefirst($text),
10401                                           q{sysibm_function},
10402                                           $tracelevel)
10403                                                 if defined $::RD_TRACE;
10404                 $_matched = 1;
10405                 last;
10406         }
10407
10408
10409         while (!$_matched && !$commit)
10410         {
10411
10412                 Parse::RecDescent::_trace(q{Trying production: [/TABLE_NAME/i]},
10413                                           Parse::RecDescent::_tracefirst($_[1]),
10414                                           q{sysibm_function},
10415                                           $tracelevel)
10416                                                 if defined $::RD_TRACE;
10417                 my $thisprod = $thisrule->{"prods"}[74];
10418                 $text = $_[1];
10419                 my $_savetext;
10420                 @item = (q{sysibm_function});
10421                 %item = (__RULE__ => q{sysibm_function});
10422                 my $repcount = 0;
10423
10424
10425                 Parse::RecDescent::_trace(q{Trying terminal: [/TABLE_NAME/i]}, Parse::RecDescent::_tracefirst($text),
10426                                           q{sysibm_function},
10427                                           $tracelevel)
10428                                                 if defined $::RD_TRACE;
10429                 $lastsep = "";
10430                 $expectation->is(q{})->at($text);
10431
10432
10433                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:TABLE_NAME)//i)
10434                 {
10435
10436                         $expectation->failed();
10437                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10438                                                   Parse::RecDescent::_tracefirst($text))
10439                                         if defined $::RD_TRACE;
10440
10441                         last;
10442                 }
10443                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10444                                                 . $& . q{])},
10445                                                   Parse::RecDescent::_tracefirst($text))
10446                                         if defined $::RD_TRACE;
10447                 push @item, $item{__PATTERN1__}=$&;
10448
10449
10450
10451                 Parse::RecDescent::_trace(q{>>Matched production: [/TABLE_NAME/i]<<},
10452                                           Parse::RecDescent::_tracefirst($text),
10453                                           q{sysibm_function},
10454                                           $tracelevel)
10455                                                 if defined $::RD_TRACE;
10456                 $_matched = 1;
10457                 last;
10458         }
10459
10460
10461         while (!$_matched && !$commit)
10462         {
10463
10464                 Parse::RecDescent::_trace(q{Trying production: [/TABLE_SCHEMA/i]},
10465                                           Parse::RecDescent::_tracefirst($_[1]),
10466                                           q{sysibm_function},
10467                                           $tracelevel)
10468                                                 if defined $::RD_TRACE;
10469                 my $thisprod = $thisrule->{"prods"}[75];
10470                 $text = $_[1];
10471                 my $_savetext;
10472                 @item = (q{sysibm_function});
10473                 %item = (__RULE__ => q{sysibm_function});
10474                 my $repcount = 0;
10475
10476
10477                 Parse::RecDescent::_trace(q{Trying terminal: [/TABLE_SCHEMA/i]}, Parse::RecDescent::_tracefirst($text),
10478                                           q{sysibm_function},
10479                                           $tracelevel)
10480                                                 if defined $::RD_TRACE;
10481                 $lastsep = "";
10482                 $expectation->is(q{})->at($text);
10483
10484
10485                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:TABLE_SCHEMA)//i)
10486                 {
10487
10488                         $expectation->failed();
10489                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10490                                                   Parse::RecDescent::_tracefirst($text))
10491                                         if defined $::RD_TRACE;
10492
10493                         last;
10494                 }
10495                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10496                                                 . $& . q{])},
10497                                                   Parse::RecDescent::_tracefirst($text))
10498                                         if defined $::RD_TRACE;
10499                 push @item, $item{__PATTERN1__}=$&;
10500
10501
10502
10503                 Parse::RecDescent::_trace(q{>>Matched production: [/TABLE_SCHEMA/i]<<},
10504                                           Parse::RecDescent::_tracefirst($text),
10505                                           q{sysibm_function},
10506                                           $tracelevel)
10507                                                 if defined $::RD_TRACE;
10508                 $_matched = 1;
10509                 last;
10510         }
10511
10512
10513         while (!$_matched && !$commit)
10514         {
10515
10516                 Parse::RecDescent::_trace(q{Trying production: [/TIME/i]},
10517                                           Parse::RecDescent::_tracefirst($_[1]),
10518                                           q{sysibm_function},
10519                                           $tracelevel)
10520                                                 if defined $::RD_TRACE;
10521                 my $thisprod = $thisrule->{"prods"}[76];
10522                 $text = $_[1];
10523                 my $_savetext;
10524                 @item = (q{sysibm_function});
10525                 %item = (__RULE__ => q{sysibm_function});
10526                 my $repcount = 0;
10527
10528
10529                 Parse::RecDescent::_trace(q{Trying terminal: [/TIME/i]}, Parse::RecDescent::_tracefirst($text),
10530                                           q{sysibm_function},
10531                                           $tracelevel)
10532                                                 if defined $::RD_TRACE;
10533                 $lastsep = "";
10534                 $expectation->is(q{})->at($text);
10535
10536
10537                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:TIME)//i)
10538                 {
10539
10540                         $expectation->failed();
10541                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10542                                                   Parse::RecDescent::_tracefirst($text))
10543                                         if defined $::RD_TRACE;
10544
10545                         last;
10546                 }
10547                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10548                                                 . $& . q{])},
10549                                                   Parse::RecDescent::_tracefirst($text))
10550                                         if defined $::RD_TRACE;
10551                 push @item, $item{__PATTERN1__}=$&;
10552
10553
10554
10555                 Parse::RecDescent::_trace(q{>>Matched production: [/TIME/i]<<},
10556                                           Parse::RecDescent::_tracefirst($text),
10557                                           q{sysibm_function},
10558                                           $tracelevel)
10559                                                 if defined $::RD_TRACE;
10560                 $_matched = 1;
10561                 last;
10562         }
10563
10564
10565         while (!$_matched && !$commit)
10566         {
10567
10568                 Parse::RecDescent::_trace(q{Trying production: [/TIMESTAMP/i]},
10569                                           Parse::RecDescent::_tracefirst($_[1]),
10570                                           q{sysibm_function},
10571                                           $tracelevel)
10572                                                 if defined $::RD_TRACE;
10573                 my $thisprod = $thisrule->{"prods"}[77];
10574                 $text = $_[1];
10575                 my $_savetext;
10576                 @item = (q{sysibm_function});
10577                 %item = (__RULE__ => q{sysibm_function});
10578                 my $repcount = 0;
10579
10580
10581                 Parse::RecDescent::_trace(q{Trying terminal: [/TIMESTAMP/i]}, Parse::RecDescent::_tracefirst($text),
10582                                           q{sysibm_function},
10583                                           $tracelevel)
10584                                                 if defined $::RD_TRACE;
10585                 $lastsep = "";
10586                 $expectation->is(q{})->at($text);
10587
10588
10589                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:TIMESTAMP)//i)
10590                 {
10591
10592                         $expectation->failed();
10593                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10594                                                   Parse::RecDescent::_tracefirst($text))
10595                                         if defined $::RD_TRACE;
10596
10597                         last;
10598                 }
10599                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10600                                                 . $& . q{])},
10601                                                   Parse::RecDescent::_tracefirst($text))
10602                                         if defined $::RD_TRACE;
10603                 push @item, $item{__PATTERN1__}=$&;
10604
10605
10606
10607                 Parse::RecDescent::_trace(q{>>Matched production: [/TIMESTAMP/i]<<},
10608                                           Parse::RecDescent::_tracefirst($text),
10609                                           q{sysibm_function},
10610                                           $tracelevel)
10611                                                 if defined $::RD_TRACE;
10612                 $_matched = 1;
10613                 last;
10614         }
10615
10616
10617         while (!$_matched && !$commit)
10618         {
10619
10620                 Parse::RecDescent::_trace(q{Trying production: [/TRANSLATE/i]},
10621                                           Parse::RecDescent::_tracefirst($_[1]),
10622                                           q{sysibm_function},
10623                                           $tracelevel)
10624                                                 if defined $::RD_TRACE;
10625                 my $thisprod = $thisrule->{"prods"}[78];
10626                 $text = $_[1];
10627                 my $_savetext;
10628                 @item = (q{sysibm_function});
10629                 %item = (__RULE__ => q{sysibm_function});
10630                 my $repcount = 0;
10631
10632
10633                 Parse::RecDescent::_trace(q{Trying terminal: [/TRANSLATE/i]}, Parse::RecDescent::_tracefirst($text),
10634                                           q{sysibm_function},
10635                                           $tracelevel)
10636                                                 if defined $::RD_TRACE;
10637                 $lastsep = "";
10638                 $expectation->is(q{})->at($text);
10639
10640
10641                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:TRANSLATE)//i)
10642                 {
10643
10644                         $expectation->failed();
10645                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10646                                                   Parse::RecDescent::_tracefirst($text))
10647                                         if defined $::RD_TRACE;
10648
10649                         last;
10650                 }
10651                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10652                                                 . $& . q{])},
10653                                                   Parse::RecDescent::_tracefirst($text))
10654                                         if defined $::RD_TRACE;
10655                 push @item, $item{__PATTERN1__}=$&;
10656
10657
10658
10659                 Parse::RecDescent::_trace(q{>>Matched production: [/TRANSLATE/i]<<},
10660                                           Parse::RecDescent::_tracefirst($text),
10661                                           q{sysibm_function},
10662                                           $tracelevel)
10663                                                 if defined $::RD_TRACE;
10664                 $_matched = 1;
10665                 last;
10666         }
10667
10668
10669         while (!$_matched && !$commit)
10670         {
10671
10672                 Parse::RecDescent::_trace(q{Trying production: [/TYPE_ID/i]},
10673                                           Parse::RecDescent::_tracefirst($_[1]),
10674                                           q{sysibm_function},
10675                                           $tracelevel)
10676                                                 if defined $::RD_TRACE;
10677                 my $thisprod = $thisrule->{"prods"}[79];
10678                 $text = $_[1];
10679                 my $_savetext;
10680                 @item = (q{sysibm_function});
10681                 %item = (__RULE__ => q{sysibm_function});
10682                 my $repcount = 0;
10683
10684
10685                 Parse::RecDescent::_trace(q{Trying terminal: [/TYPE_ID/i]}, Parse::RecDescent::_tracefirst($text),
10686                                           q{sysibm_function},
10687                                           $tracelevel)
10688                                                 if defined $::RD_TRACE;
10689                 $lastsep = "";
10690                 $expectation->is(q{})->at($text);
10691
10692
10693                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:TYPE_ID)//i)
10694                 {
10695
10696                         $expectation->failed();
10697                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10698                                                   Parse::RecDescent::_tracefirst($text))
10699                                         if defined $::RD_TRACE;
10700
10701                         last;
10702                 }
10703                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10704                                                 . $& . q{])},
10705                                                   Parse::RecDescent::_tracefirst($text))
10706                                         if defined $::RD_TRACE;
10707                 push @item, $item{__PATTERN1__}=$&;
10708
10709
10710
10711                 Parse::RecDescent::_trace(q{>>Matched production: [/TYPE_ID/i]<<},
10712                                           Parse::RecDescent::_tracefirst($text),
10713                                           q{sysibm_function},
10714                                           $tracelevel)
10715                                                 if defined $::RD_TRACE;
10716                 $_matched = 1;
10717                 last;
10718         }
10719
10720
10721         while (!$_matched && !$commit)
10722         {
10723
10724                 Parse::RecDescent::_trace(q{Trying production: [/TYPE_NAME/i]},
10725                                           Parse::RecDescent::_tracefirst($_[1]),
10726                                           q{sysibm_function},
10727                                           $tracelevel)
10728                                                 if defined $::RD_TRACE;
10729                 my $thisprod = $thisrule->{"prods"}[80];
10730                 $text = $_[1];
10731                 my $_savetext;
10732                 @item = (q{sysibm_function});
10733                 %item = (__RULE__ => q{sysibm_function});
10734                 my $repcount = 0;
10735
10736
10737                 Parse::RecDescent::_trace(q{Trying terminal: [/TYPE_NAME/i]}, Parse::RecDescent::_tracefirst($text),
10738                                           q{sysibm_function},
10739                                           $tracelevel)
10740                                                 if defined $::RD_TRACE;
10741                 $lastsep = "";
10742                 $expectation->is(q{})->at($text);
10743
10744
10745                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:TYPE_NAME)//i)
10746                 {
10747
10748                         $expectation->failed();
10749                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10750                                                   Parse::RecDescent::_tracefirst($text))
10751                                         if defined $::RD_TRACE;
10752
10753                         last;
10754                 }
10755                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10756                                                 . $& . q{])},
10757                                                   Parse::RecDescent::_tracefirst($text))
10758                                         if defined $::RD_TRACE;
10759                 push @item, $item{__PATTERN1__}=$&;
10760
10761
10762
10763                 Parse::RecDescent::_trace(q{>>Matched production: [/TYPE_NAME/i]<<},
10764                                           Parse::RecDescent::_tracefirst($text),
10765                                           q{sysibm_function},
10766                                           $tracelevel)
10767                                                 if defined $::RD_TRACE;
10768                 $_matched = 1;
10769                 last;
10770         }
10771
10772
10773         while (!$_matched && !$commit)
10774         {
10775
10776                 Parse::RecDescent::_trace(q{Trying production: [/TYPE_SCHEMA/i]},
10777                                           Parse::RecDescent::_tracefirst($_[1]),
10778                                           q{sysibm_function},
10779                                           $tracelevel)
10780                                                 if defined $::RD_TRACE;
10781                 my $thisprod = $thisrule->{"prods"}[81];
10782                 $text = $_[1];
10783                 my $_savetext;
10784                 @item = (q{sysibm_function});
10785                 %item = (__RULE__ => q{sysibm_function});
10786                 my $repcount = 0;
10787
10788
10789                 Parse::RecDescent::_trace(q{Trying terminal: [/TYPE_SCHEMA/i]}, Parse::RecDescent::_tracefirst($text),
10790                                           q{sysibm_function},
10791                                           $tracelevel)
10792                                                 if defined $::RD_TRACE;
10793                 $lastsep = "";
10794                 $expectation->is(q{})->at($text);
10795
10796
10797                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:TYPE_SCHEMA)//i)
10798                 {
10799
10800                         $expectation->failed();
10801                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10802                                                   Parse::RecDescent::_tracefirst($text))
10803                                         if defined $::RD_TRACE;
10804
10805                         last;
10806                 }
10807                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10808                                                 . $& . q{])},
10809                                                   Parse::RecDescent::_tracefirst($text))
10810                                         if defined $::RD_TRACE;
10811                 push @item, $item{__PATTERN1__}=$&;
10812
10813
10814
10815                 Parse::RecDescent::_trace(q{>>Matched production: [/TYPE_SCHEMA/i]<<},
10816                                           Parse::RecDescent::_tracefirst($text),
10817                                           q{sysibm_function},
10818                                           $tracelevel)
10819                                                 if defined $::RD_TRACE;
10820                 $_matched = 1;
10821                 last;
10822         }
10823
10824
10825         while (!$_matched && !$commit)
10826         {
10827
10828                 Parse::RecDescent::_trace(q{Trying production: [/UCASE/i, or /UPPER/i]},
10829                                           Parse::RecDescent::_tracefirst($_[1]),
10830                                           q{sysibm_function},
10831                                           $tracelevel)
10832                                                 if defined $::RD_TRACE;
10833                 my $thisprod = $thisrule->{"prods"}[82];
10834                 $text = $_[1];
10835                 my $_savetext;
10836                 @item = (q{sysibm_function});
10837                 %item = (__RULE__ => q{sysibm_function});
10838                 my $repcount = 0;
10839
10840
10841                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_83_of_rule_sysibm_function]},
10842                                   Parse::RecDescent::_tracefirst($text),
10843                                   q{sysibm_function},
10844                                   $tracelevel)
10845                                         if defined $::RD_TRACE;
10846                 if (1) { no strict qw{refs};
10847                 $expectation->is(q{})->at($text);
10848                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_83_of_rule_sysibm_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
10849                 {
10850
10851                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_83_of_rule_sysibm_function]>>},
10852                                                   Parse::RecDescent::_tracefirst($text),
10853                                                   q{sysibm_function},
10854                                                   $tracelevel)
10855                                                         if defined $::RD_TRACE;
10856                         $expectation->failed();
10857                         last;
10858                 }
10859                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_83_of_rule_sysibm_function]<< (return value: [}
10860                                         . $_tok . q{]},
10861
10862                                           Parse::RecDescent::_tracefirst($text),
10863                                           q{sysibm_function},
10864                                           $tracelevel)
10865                                                 if defined $::RD_TRACE;
10866                 $item{q{_alternation_1_of_production_83_of_rule_sysibm_function}} = $_tok;
10867                 push @item, $_tok;
10868
10869                 }
10870
10871
10872                 Parse::RecDescent::_trace(q{>>Matched production: [/UCASE/i, or /UPPER/i]<<},
10873                                           Parse::RecDescent::_tracefirst($text),
10874                                           q{sysibm_function},
10875                                           $tracelevel)
10876                                                 if defined $::RD_TRACE;
10877                 $_matched = 1;
10878                 last;
10879         }
10880
10881
10882         while (!$_matched && !$commit)
10883         {
10884
10885                 Parse::RecDescent::_trace(q{Trying production: [/VALUE/i]},
10886                                           Parse::RecDescent::_tracefirst($_[1]),
10887                                           q{sysibm_function},
10888                                           $tracelevel)
10889                                                 if defined $::RD_TRACE;
10890                 my $thisprod = $thisrule->{"prods"}[83];
10891                 $text = $_[1];
10892                 my $_savetext;
10893                 @item = (q{sysibm_function});
10894                 %item = (__RULE__ => q{sysibm_function});
10895                 my $repcount = 0;
10896
10897
10898                 Parse::RecDescent::_trace(q{Trying terminal: [/VALUE/i]}, Parse::RecDescent::_tracefirst($text),
10899                                           q{sysibm_function},
10900                                           $tracelevel)
10901                                                 if defined $::RD_TRACE;
10902                 $lastsep = "";
10903                 $expectation->is(q{})->at($text);
10904
10905
10906                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:VALUE)//i)
10907                 {
10908
10909                         $expectation->failed();
10910                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10911                                                   Parse::RecDescent::_tracefirst($text))
10912                                         if defined $::RD_TRACE;
10913
10914                         last;
10915                 }
10916                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10917                                                 . $& . q{])},
10918                                                   Parse::RecDescent::_tracefirst($text))
10919                                         if defined $::RD_TRACE;
10920                 push @item, $item{__PATTERN1__}=$&;
10921
10922
10923
10924                 Parse::RecDescent::_trace(q{>>Matched production: [/VALUE/i]<<},
10925                                           Parse::RecDescent::_tracefirst($text),
10926                                           q{sysibm_function},
10927                                           $tracelevel)
10928                                                 if defined $::RD_TRACE;
10929                 $_matched = 1;
10930                 last;
10931         }
10932
10933
10934         while (!$_matched && !$commit)
10935         {
10936
10937                 Parse::RecDescent::_trace(q{Trying production: [/VARCHAR/i]},
10938                                           Parse::RecDescent::_tracefirst($_[1]),
10939                                           q{sysibm_function},
10940                                           $tracelevel)
10941                                                 if defined $::RD_TRACE;
10942                 my $thisprod = $thisrule->{"prods"}[84];
10943                 $text = $_[1];
10944                 my $_savetext;
10945                 @item = (q{sysibm_function});
10946                 %item = (__RULE__ => q{sysibm_function});
10947                 my $repcount = 0;
10948
10949
10950                 Parse::RecDescent::_trace(q{Trying terminal: [/VARCHAR/i]}, Parse::RecDescent::_tracefirst($text),
10951                                           q{sysibm_function},
10952                                           $tracelevel)
10953                                                 if defined $::RD_TRACE;
10954                 $lastsep = "";
10955                 $expectation->is(q{})->at($text);
10956
10957
10958                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:VARCHAR)//i)
10959                 {
10960
10961                         $expectation->failed();
10962                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
10963                                                   Parse::RecDescent::_tracefirst($text))
10964                                         if defined $::RD_TRACE;
10965
10966                         last;
10967                 }
10968                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
10969                                                 . $& . q{])},
10970                                                   Parse::RecDescent::_tracefirst($text))
10971                                         if defined $::RD_TRACE;
10972                 push @item, $item{__PATTERN1__}=$&;
10973
10974
10975
10976                 Parse::RecDescent::_trace(q{>>Matched production: [/VARCHAR/i]<<},
10977                                           Parse::RecDescent::_tracefirst($text),
10978                                           q{sysibm_function},
10979                                           $tracelevel)
10980                                                 if defined $::RD_TRACE;
10981                 $_matched = 1;
10982                 last;
10983         }
10984
10985
10986         while (!$_matched && !$commit)
10987         {
10988
10989                 Parse::RecDescent::_trace(q{Trying production: [/VARGRAPHIC/i]},
10990                                           Parse::RecDescent::_tracefirst($_[1]),
10991                                           q{sysibm_function},
10992                                           $tracelevel)
10993                                                 if defined $::RD_TRACE;
10994                 my $thisprod = $thisrule->{"prods"}[85];
10995                 $text = $_[1];
10996                 my $_savetext;
10997                 @item = (q{sysibm_function});
10998                 %item = (__RULE__ => q{sysibm_function});
10999                 my $repcount = 0;
11000
11001
11002                 Parse::RecDescent::_trace(q{Trying terminal: [/VARGRAPHIC/i]}, Parse::RecDescent::_tracefirst($text),
11003                                           q{sysibm_function},
11004                                           $tracelevel)
11005                                                 if defined $::RD_TRACE;
11006                 $lastsep = "";
11007                 $expectation->is(q{})->at($text);
11008
11009
11010                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:VARGRAPHIC)//i)
11011                 {
11012
11013                         $expectation->failed();
11014                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
11015                                                   Parse::RecDescent::_tracefirst($text))
11016                                         if defined $::RD_TRACE;
11017
11018                         last;
11019                 }
11020                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
11021                                                 . $& . q{])},
11022                                                   Parse::RecDescent::_tracefirst($text))
11023                                         if defined $::RD_TRACE;
11024                 push @item, $item{__PATTERN1__}=$&;
11025
11026
11027
11028                 Parse::RecDescent::_trace(q{>>Matched production: [/VARGRAPHIC/i]<<},
11029                                           Parse::RecDescent::_tracefirst($text),
11030                                           q{sysibm_function},
11031                                           $tracelevel)
11032                                                 if defined $::RD_TRACE;
11033                 $_matched = 1;
11034                 last;
11035         }
11036
11037
11038         while (!$_matched && !$commit)
11039         {
11040
11041                 Parse::RecDescent::_trace(q{Trying production: [/VARIANCE/i, or /VAR/i]},
11042                                           Parse::RecDescent::_tracefirst($_[1]),
11043                                           q{sysibm_function},
11044                                           $tracelevel)
11045                                                 if defined $::RD_TRACE;
11046                 my $thisprod = $thisrule->{"prods"}[86];
11047                 $text = $_[1];
11048                 my $_savetext;
11049                 @item = (q{sysibm_function});
11050                 %item = (__RULE__ => q{sysibm_function});
11051                 my $repcount = 0;
11052
11053
11054                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_87_of_rule_sysibm_function]},
11055                                   Parse::RecDescent::_tracefirst($text),
11056                                   q{sysibm_function},
11057                                   $tracelevel)
11058                                         if defined $::RD_TRACE;
11059                 if (1) { no strict qw{refs};
11060                 $expectation->is(q{})->at($text);
11061                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_87_of_rule_sysibm_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
11062                 {
11063
11064                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_87_of_rule_sysibm_function]>>},
11065                                                   Parse::RecDescent::_tracefirst($text),
11066                                                   q{sysibm_function},
11067                                                   $tracelevel)
11068                                                         if defined $::RD_TRACE;
11069                         $expectation->failed();
11070                         last;
11071                 }
11072                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_87_of_rule_sysibm_function]<< (return value: [}
11073                                         . $_tok . q{]},
11074
11075                                           Parse::RecDescent::_tracefirst($text),
11076                                           q{sysibm_function},
11077                                           $tracelevel)
11078                                                 if defined $::RD_TRACE;
11079                 $item{q{_alternation_1_of_production_87_of_rule_sysibm_function}} = $_tok;
11080                 push @item, $_tok;
11081
11082                 }
11083
11084
11085                 Parse::RecDescent::_trace(q{>>Matched production: [/VARIANCE/i, or /VAR/i]<<},
11086                                           Parse::RecDescent::_tracefirst($text),
11087                                           q{sysibm_function},
11088                                           $tracelevel)
11089                                                 if defined $::RD_TRACE;
11090                 $_matched = 1;
11091                 last;
11092         }
11093
11094
11095         while (!$_matched && !$commit)
11096         {
11097
11098                 Parse::RecDescent::_trace(q{Trying production: [/YEAR/i]},
11099                                           Parse::RecDescent::_tracefirst($_[1]),
11100                                           q{sysibm_function},
11101                                           $tracelevel)
11102                                                 if defined $::RD_TRACE;
11103                 my $thisprod = $thisrule->{"prods"}[87];
11104                 $text = $_[1];
11105                 my $_savetext;
11106                 @item = (q{sysibm_function});
11107                 %item = (__RULE__ => q{sysibm_function});
11108                 my $repcount = 0;
11109
11110
11111                 Parse::RecDescent::_trace(q{Trying terminal: [/YEAR/i]}, Parse::RecDescent::_tracefirst($text),
11112                                           q{sysibm_function},
11113                                           $tracelevel)
11114                                                 if defined $::RD_TRACE;
11115                 $lastsep = "";
11116                 $expectation->is(q{})->at($text);
11117
11118
11119                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:YEAR)//i)
11120                 {
11121
11122                         $expectation->failed();
11123                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
11124                                                   Parse::RecDescent::_tracefirst($text))
11125                                         if defined $::RD_TRACE;
11126
11127                         last;
11128                 }
11129                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
11130                                                 . $& . q{])},
11131                                                   Parse::RecDescent::_tracefirst($text))
11132                                         if defined $::RD_TRACE;
11133                 push @item, $item{__PATTERN1__}=$&;
11134
11135
11136
11137                 Parse::RecDescent::_trace(q{>>Matched production: [/YEAR/i]<<},
11138                                           Parse::RecDescent::_tracefirst($text),
11139                                           q{sysibm_function},
11140                                           $tracelevel)
11141                                                 if defined $::RD_TRACE;
11142                 $_matched = 1;
11143                 last;
11144         }
11145
11146
11147         unless ( $_matched || defined($return) || defined($score) )
11148         {
11149
11150
11151                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
11152                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
11153                                          Parse::RecDescent::_tracefirst($_[1]),
11154                                          q{sysibm_function},
11155                                          $tracelevel)
11156                                         if defined $::RD_TRACE;
11157                 return undef;
11158         }
11159         if (!defined($return) && defined($score))
11160         {
11161                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
11162                                           q{sysibm_function},
11163                                           $tracelevel)
11164                                                 if defined $::RD_TRACE;
11165                 $return = $score_return;
11166         }
11167         splice @{$thisparser->{errors}}, $err_at;
11168         $return = $item[$#item] unless defined $return;
11169         if (defined $::RD_TRACE)
11170         {
11171                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
11172                                           $return . q{])}, "",
11173                                           q{sysibm_function},
11174                                           $tracelevel);
11175                 Parse::RecDescent::_trace(q{(consumed: [} .
11176                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
11177                                           Parse::RecDescent::_tracefirst($text),
11178                                           , q{sysibm_function},
11179                                           $tracelevel)
11180         }
11181         $_[1] = $text;
11182         return $return;
11183 }
11184
11185 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
11186 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::window_partition_clause
11187 {
11188         my $thisparser = $_[0];
11189         use vars q{$tracelevel};
11190         local $tracelevel = ($tracelevel||0)+1;
11191         $ERRORS = 0;
11192         my $thisrule = $thisparser->{"rules"}{"window_partition_clause"};
11193
11194         Parse::RecDescent::_trace(q{Trying rule: [window_partition_clause]},
11195                                   Parse::RecDescent::_tracefirst($_[1]),
11196                                   q{window_partition_clause},
11197                                   $tracelevel)
11198                                         if defined $::RD_TRACE;
11199
11200
11201         my $err_at = @{$thisparser->{errors}};
11202
11203         my $score;
11204         my $score_return;
11205         my $_tok;
11206         my $return = undef;
11207         my $_matched=0;
11208         my $commit=0;
11209         my @item = ();
11210         my %item = ();
11211         my $repeating =  defined($_[2]) && $_[2];
11212         my $_noactions = defined($_[3]) && $_[3];
11213         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
11214         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
11215         my $text;
11216         my $lastsep="";
11217         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
11218         $expectation->at($_[1]);
11219
11220         my $thisline;
11221         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
11222
11223
11224
11225         while (!$_matched && !$commit)
11226         {
11227
11228                 Parse::RecDescent::_trace(q{Trying production: [/PARTITION\\s+BY/i <leftop: partitioning_expression /,/ partitioning_expression>]},
11229                                           Parse::RecDescent::_tracefirst($_[1]),
11230                                           q{window_partition_clause},
11231                                           $tracelevel)
11232                                                 if defined $::RD_TRACE;
11233                 my $thisprod = $thisrule->{"prods"}[0];
11234                 $text = $_[1];
11235                 my $_savetext;
11236                 @item = (q{window_partition_clause});
11237                 %item = (__RULE__ => q{window_partition_clause});
11238                 my $repcount = 0;
11239
11240
11241                 Parse::RecDescent::_trace(q{Trying terminal: [/PARTITION\\s+BY/i]}, Parse::RecDescent::_tracefirst($text),
11242                                           q{window_partition_clause},
11243                                           $tracelevel)
11244                                                 if defined $::RD_TRACE;
11245                 $lastsep = "";
11246                 $expectation->is(q{})->at($text);
11247
11248
11249                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:PARTITION\s+BY)//i)
11250                 {
11251
11252                         $expectation->failed();
11253                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
11254                                                   Parse::RecDescent::_tracefirst($text))
11255                                         if defined $::RD_TRACE;
11256
11257                         last;
11258                 }
11259                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
11260                                                 . $& . q{])},
11261                                                   Parse::RecDescent::_tracefirst($text))
11262                                         if defined $::RD_TRACE;
11263                 push @item, $item{__PATTERN1__}=$&;
11264
11265
11266                 Parse::RecDescent::_trace(q{Trying operator: [<leftop: partitioning_expression /,/ partitioning_expression>]},
11267                                   Parse::RecDescent::_tracefirst($text),
11268                                   q{window_partition_clause},
11269                                   $tracelevel)
11270                                         if defined $::RD_TRACE;
11271                 $expectation->is(q{<leftop: partitioning_expression /,/ partitioning_expression>})->at($text);
11272
11273                 $_tok = undef;
11274                 OPLOOP: while (1)
11275                 {
11276                   $repcount = 0;
11277                   my  @item;
11278
11279                   # MATCH LEFTARG
11280
11281                 Parse::RecDescent::_trace(q{Trying subrule: [partitioning_expression]},
11282                                   Parse::RecDescent::_tracefirst($text),
11283                                   q{window_partition_clause},
11284                                   $tracelevel)
11285                                         if defined $::RD_TRACE;
11286                 if (1) { no strict qw{refs};
11287                 $expectation->is(q{partitioning_expression})->at($text);
11288                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::partitioning_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
11289                 {
11290
11291                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [partitioning_expression]>>},
11292                                                   Parse::RecDescent::_tracefirst($text),
11293                                                   q{window_partition_clause},
11294                                                   $tracelevel)
11295                                                         if defined $::RD_TRACE;
11296                         $expectation->failed();
11297                         last;
11298                 }
11299                 Parse::RecDescent::_trace(q{>>Matched subrule: [partitioning_expression]<< (return value: [}
11300                                         . $_tok . q{]},
11301
11302                                           Parse::RecDescent::_tracefirst($text),
11303                                           q{window_partition_clause},
11304                                           $tracelevel)
11305                                                 if defined $::RD_TRACE;
11306                 $item{q{partitioning_expression}} = $_tok;
11307                 push @item, $_tok;
11308
11309                 }
11310
11311
11312                   $repcount++;
11313
11314                   my $savetext = $text;
11315                   my $backtrack;
11316
11317                   # MATCH (OP RIGHTARG)(s)
11318                   while ($repcount < 100000000)
11319                   {
11320                         $backtrack = 0;
11321
11322                 Parse::RecDescent::_trace(q{Trying terminal: [/,/]}, Parse::RecDescent::_tracefirst($text),
11323                                           q{window_partition_clause},
11324                                           $tracelevel)
11325                                                 if defined $::RD_TRACE;
11326                 $lastsep = "";
11327                 $expectation->is(q{/,/})->at($text);
11328
11329
11330                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:,)//)
11331                 {
11332
11333                         $expectation->failed();
11334                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
11335                                                   Parse::RecDescent::_tracefirst($text))
11336                                         if defined $::RD_TRACE;
11337
11338                         last;
11339                 }
11340                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
11341                                                 . $& . q{])},
11342                                                   Parse::RecDescent::_tracefirst($text))
11343                                         if defined $::RD_TRACE;
11344                 push @item, $item{__PATTERN2__}=$&;
11345
11346
11347                         pop @item;
11348                         if (defined $1) {push @item, $item{'partitioning_expression(s)'}=$1; $backtrack=1;}
11349
11350                 Parse::RecDescent::_trace(q{Trying subrule: [partitioning_expression]},
11351                                   Parse::RecDescent::_tracefirst($text),
11352                                   q{window_partition_clause},
11353                                   $tracelevel)
11354                                         if defined $::RD_TRACE;
11355                 if (1) { no strict qw{refs};
11356                 $expectation->is(q{partitioning_expression})->at($text);
11357                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::partitioning_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
11358                 {
11359
11360                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [partitioning_expression]>>},
11361                                                   Parse::RecDescent::_tracefirst($text),
11362                                                   q{window_partition_clause},
11363                                                   $tracelevel)
11364                                                         if defined $::RD_TRACE;
11365                         $expectation->failed();
11366                         last;
11367                 }
11368                 Parse::RecDescent::_trace(q{>>Matched subrule: [partitioning_expression]<< (return value: [}
11369                                         . $_tok . q{]},
11370
11371                                           Parse::RecDescent::_tracefirst($text),
11372                                           q{window_partition_clause},
11373                                           $tracelevel)
11374                                                 if defined $::RD_TRACE;
11375                 $item{q{partitioning_expression}} = $_tok;
11376                 push @item, $_tok;
11377
11378                 }
11379
11380                         $savetext = $text;
11381                         $repcount++;
11382                   }
11383                   $text = $savetext;
11384                   pop @item if $backtrack;
11385
11386                   unless (@item) { undef $_tok; last }
11387                   $_tok = [ @item ];
11388                   last;
11389                 }
11390
11391                 unless ($repcount>=1)
11392                 {
11393                         Parse::RecDescent::_trace(q{<<Didn't match operator: [<leftop: partitioning_expression /,/ partitioning_expression>]>>},
11394                                                   Parse::RecDescent::_tracefirst($text),
11395                                                   q{window_partition_clause},
11396                                                   $tracelevel)
11397                                                         if defined $::RD_TRACE;
11398                         $expectation->failed();
11399                         last;
11400                 }
11401                 Parse::RecDescent::_trace(q{>>Matched operator: [<leftop: partitioning_expression /,/ partitioning_expression>]<< (return value: [}
11402                                           . qq{@{$_tok||[]}} . q{]},
11403                                           Parse::RecDescent::_tracefirst($text),
11404                                           q{window_partition_clause},
11405                                           $tracelevel)
11406                                                 if defined $::RD_TRACE;
11407
11408                 push @item, $item{'partitioning_expression(s)'}=$_tok||[];
11409
11410
11411
11412                 Parse::RecDescent::_trace(q{>>Matched production: [/PARTITION\\s+BY/i <leftop: partitioning_expression /,/ partitioning_expression>]<<},
11413                                           Parse::RecDescent::_tracefirst($text),
11414                                           q{window_partition_clause},
11415                                           $tracelevel)
11416                                                 if defined $::RD_TRACE;
11417                 $_matched = 1;
11418                 last;
11419         }
11420
11421
11422         unless ( $_matched || defined($return) || defined($score) )
11423         {
11424
11425
11426                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
11427                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
11428                                          Parse::RecDescent::_tracefirst($_[1]),
11429                                          q{window_partition_clause},
11430                                          $tracelevel)
11431                                         if defined $::RD_TRACE;
11432                 return undef;
11433         }
11434         if (!defined($return) && defined($score))
11435         {
11436                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
11437                                           q{window_partition_clause},
11438                                           $tracelevel)
11439                                                 if defined $::RD_TRACE;
11440                 $return = $score_return;
11441         }
11442         splice @{$thisparser->{errors}}, $err_at;
11443         $return = $item[$#item] unless defined $return;
11444         if (defined $::RD_TRACE)
11445         {
11446                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
11447                                           $return . q{])}, "",
11448                                           q{window_partition_clause},
11449                                           $tracelevel);
11450                 Parse::RecDescent::_trace(q{(consumed: [} .
11451                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
11452                                           Parse::RecDescent::_tracefirst($text),
11453                                           , q{window_partition_clause},
11454                                           $tracelevel)
11455         }
11456         $_[1] = $text;
11457         return $return;
11458 }
11459
11460 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
11461 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::WHERE
11462 {
11463         my $thisparser = $_[0];
11464         use vars q{$tracelevel};
11465         local $tracelevel = ($tracelevel||0)+1;
11466         $ERRORS = 0;
11467         my $thisrule = $thisparser->{"rules"}{"WHERE"};
11468
11469         Parse::RecDescent::_trace(q{Trying rule: [WHERE]},
11470                                   Parse::RecDescent::_tracefirst($_[1]),
11471                                   q{WHERE},
11472                                   $tracelevel)
11473                                         if defined $::RD_TRACE;
11474
11475
11476         my $err_at = @{$thisparser->{errors}};
11477
11478         my $score;
11479         my $score_return;
11480         my $_tok;
11481         my $return = undef;
11482         my $_matched=0;
11483         my $commit=0;
11484         my @item = ();
11485         my %item = ();
11486         my $repeating =  defined($_[2]) && $_[2];
11487         my $_noactions = defined($_[3]) && $_[3];
11488         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
11489         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
11490         my $text;
11491         my $lastsep="";
11492         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
11493         $expectation->at($_[1]);
11494
11495         my $thisline;
11496         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
11497
11498
11499
11500         while (!$_matched && !$commit)
11501         {
11502
11503                 Parse::RecDescent::_trace(q{Trying production: [/where/i]},
11504                                           Parse::RecDescent::_tracefirst($_[1]),
11505                                           q{WHERE},
11506                                           $tracelevel)
11507                                                 if defined $::RD_TRACE;
11508                 my $thisprod = $thisrule->{"prods"}[0];
11509                 $text = $_[1];
11510                 my $_savetext;
11511                 @item = (q{WHERE});
11512                 %item = (__RULE__ => q{WHERE});
11513                 my $repcount = 0;
11514
11515
11516                 Parse::RecDescent::_trace(q{Trying terminal: [/where/i]}, Parse::RecDescent::_tracefirst($text),
11517                                           q{WHERE},
11518                                           $tracelevel)
11519                                                 if defined $::RD_TRACE;
11520                 $lastsep = "";
11521                 $expectation->is(q{})->at($text);
11522
11523
11524                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:where)//i)
11525                 {
11526
11527                         $expectation->failed();
11528                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
11529                                                   Parse::RecDescent::_tracefirst($text))
11530                                         if defined $::RD_TRACE;
11531
11532                         last;
11533                 }
11534                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
11535                                                 . $& . q{])},
11536                                                   Parse::RecDescent::_tracefirst($text))
11537                                         if defined $::RD_TRACE;
11538                 push @item, $item{__PATTERN1__}=$&;
11539
11540
11541
11542                 Parse::RecDescent::_trace(q{>>Matched production: [/where/i]<<},
11543                                           Parse::RecDescent::_tracefirst($text),
11544                                           q{WHERE},
11545                                           $tracelevel)
11546                                                 if defined $::RD_TRACE;
11547                 $_matched = 1;
11548                 last;
11549         }
11550
11551
11552         unless ( $_matched || defined($return) || defined($score) )
11553         {
11554
11555
11556                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
11557                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
11558                                          Parse::RecDescent::_tracefirst($_[1]),
11559                                          q{WHERE},
11560                                          $tracelevel)
11561                                         if defined $::RD_TRACE;
11562                 return undef;
11563         }
11564         if (!defined($return) && defined($score))
11565         {
11566                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
11567                                           q{WHERE},
11568                                           $tracelevel)
11569                                                 if defined $::RD_TRACE;
11570                 $return = $score_return;
11571         }
11572         splice @{$thisparser->{errors}}, $err_at;
11573         $return = $item[$#item] unless defined $return;
11574         if (defined $::RD_TRACE)
11575         {
11576                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
11577                                           $return . q{])}, "",
11578                                           q{WHERE},
11579                                           $tracelevel);
11580                 Parse::RecDescent::_trace(q{(consumed: [} .
11581                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
11582                                           Parse::RecDescent::_tracefirst($text),
11583                                           , q{WHERE},
11584                                           $tracelevel)
11585         }
11586         $_[1] = $text;
11587         return $return;
11588 }
11589
11590 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
11591 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::CREATE
11592 {
11593         my $thisparser = $_[0];
11594         use vars q{$tracelevel};
11595         local $tracelevel = ($tracelevel||0)+1;
11596         $ERRORS = 0;
11597         my $thisrule = $thisparser->{"rules"}{"CREATE"};
11598
11599         Parse::RecDescent::_trace(q{Trying rule: [CREATE]},
11600                                   Parse::RecDescent::_tracefirst($_[1]),
11601                                   q{CREATE},
11602                                   $tracelevel)
11603                                         if defined $::RD_TRACE;
11604
11605
11606         my $err_at = @{$thisparser->{errors}};
11607
11608         my $score;
11609         my $score_return;
11610         my $_tok;
11611         my $return = undef;
11612         my $_matched=0;
11613         my $commit=0;
11614         my @item = ();
11615         my %item = ();
11616         my $repeating =  defined($_[2]) && $_[2];
11617         my $_noactions = defined($_[3]) && $_[3];
11618         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
11619         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
11620         my $text;
11621         my $lastsep="";
11622         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
11623         $expectation->at($_[1]);
11624
11625         my $thisline;
11626         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
11627
11628
11629
11630         while (!$_matched && !$commit)
11631         {
11632
11633                 Parse::RecDescent::_trace(q{Trying production: [/create/i]},
11634                                           Parse::RecDescent::_tracefirst($_[1]),
11635                                           q{CREATE},
11636                                           $tracelevel)
11637                                                 if defined $::RD_TRACE;
11638                 my $thisprod = $thisrule->{"prods"}[0];
11639                 $text = $_[1];
11640                 my $_savetext;
11641                 @item = (q{CREATE});
11642                 %item = (__RULE__ => q{CREATE});
11643                 my $repcount = 0;
11644
11645
11646                 Parse::RecDescent::_trace(q{Trying terminal: [/create/i]}, Parse::RecDescent::_tracefirst($text),
11647                                           q{CREATE},
11648                                           $tracelevel)
11649                                                 if defined $::RD_TRACE;
11650                 $lastsep = "";
11651                 $expectation->is(q{})->at($text);
11652
11653
11654                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:create)//i)
11655                 {
11656
11657                         $expectation->failed();
11658                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
11659                                                   Parse::RecDescent::_tracefirst($text))
11660                                         if defined $::RD_TRACE;
11661
11662                         last;
11663                 }
11664                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
11665                                                 . $& . q{])},
11666                                                   Parse::RecDescent::_tracefirst($text))
11667                                         if defined $::RD_TRACE;
11668                 push @item, $item{__PATTERN1__}=$&;
11669
11670
11671
11672                 Parse::RecDescent::_trace(q{>>Matched production: [/create/i]<<},
11673                                           Parse::RecDescent::_tracefirst($text),
11674                                           q{CREATE},
11675                                           $tracelevel)
11676                                                 if defined $::RD_TRACE;
11677                 $_matched = 1;
11678                 last;
11679         }
11680
11681
11682         unless ( $_matched || defined($return) || defined($score) )
11683         {
11684
11685
11686                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
11687                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
11688                                          Parse::RecDescent::_tracefirst($_[1]),
11689                                          q{CREATE},
11690                                          $tracelevel)
11691                                         if defined $::RD_TRACE;
11692                 return undef;
11693         }
11694         if (!defined($return) && defined($score))
11695         {
11696                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
11697                                           q{CREATE},
11698                                           $tracelevel)
11699                                                 if defined $::RD_TRACE;
11700                 $return = $score_return;
11701         }
11702         splice @{$thisparser->{errors}}, $err_at;
11703         $return = $item[$#item] unless defined $return;
11704         if (defined $::RD_TRACE)
11705         {
11706                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
11707                                           $return . q{])}, "",
11708                                           q{CREATE},
11709                                           $tracelevel);
11710                 Parse::RecDescent::_trace(q{(consumed: [} .
11711                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
11712                                           Parse::RecDescent::_tracefirst($text),
11713                                           , q{CREATE},
11714                                           $tracelevel)
11715         }
11716         $_[1] = $text;
11717         return $return;
11718 }
11719
11720 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
11721 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_sysfun
11722 {
11723         my $thisparser = $_[0];
11724         use vars q{$tracelevel};
11725         local $tracelevel = ($tracelevel||0)+1;
11726         $ERRORS = 0;
11727         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_sysfun"};
11728
11729         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_sysfun]},
11730                                   Parse::RecDescent::_tracefirst($_[1]),
11731                                   q{_alternation_1_of_production_1_of_rule_sysfun},
11732                                   $tracelevel)
11733                                         if defined $::RD_TRACE;
11734
11735
11736         my $err_at = @{$thisparser->{errors}};
11737
11738         my $score;
11739         my $score_return;
11740         my $_tok;
11741         my $return = undef;
11742         my $_matched=0;
11743         my $commit=0;
11744         my @item = ();
11745         my %item = ();
11746         my $repeating =  defined($_[2]) && $_[2];
11747         my $_noactions = defined($_[3]) && $_[3];
11748         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
11749         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
11750         my $text;
11751         my $lastsep="";
11752         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
11753         $expectation->at($_[1]);
11754
11755         my $thisline;
11756         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
11757
11758
11759
11760         while (!$_matched && !$commit)
11761         {
11762
11763                 Parse::RecDescent::_trace(q{Trying production: [/ABS/i]},
11764                                           Parse::RecDescent::_tracefirst($_[1]),
11765                                           q{_alternation_1_of_production_1_of_rule_sysfun},
11766                                           $tracelevel)
11767                                                 if defined $::RD_TRACE;
11768                 my $thisprod = $thisrule->{"prods"}[0];
11769                 $text = $_[1];
11770                 my $_savetext;
11771                 @item = (q{_alternation_1_of_production_1_of_rule_sysfun});
11772                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_sysfun});
11773                 my $repcount = 0;
11774
11775
11776                 Parse::RecDescent::_trace(q{Trying terminal: [/ABS/i]}, Parse::RecDescent::_tracefirst($text),
11777                                           q{_alternation_1_of_production_1_of_rule_sysfun},
11778                                           $tracelevel)
11779                                                 if defined $::RD_TRACE;
11780                 $lastsep = "";
11781                 $expectation->is(q{})->at($text);
11782
11783
11784                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ABS)//i)
11785                 {
11786
11787                         $expectation->failed();
11788                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
11789                                                   Parse::RecDescent::_tracefirst($text))
11790                                         if defined $::RD_TRACE;
11791
11792                         last;
11793                 }
11794                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
11795                                                 . $& . q{])},
11796                                                   Parse::RecDescent::_tracefirst($text))
11797                                         if defined $::RD_TRACE;
11798                 push @item, $item{__PATTERN1__}=$&;
11799
11800
11801
11802                 Parse::RecDescent::_trace(q{>>Matched production: [/ABS/i]<<},
11803                                           Parse::RecDescent::_tracefirst($text),
11804                                           q{_alternation_1_of_production_1_of_rule_sysfun},
11805                                           $tracelevel)
11806                                                 if defined $::RD_TRACE;
11807                 $_matched = 1;
11808                 last;
11809         }
11810
11811
11812         while (!$_matched && !$commit)
11813         {
11814
11815                 Parse::RecDescent::_trace(q{Trying production: [/ABSVAL/i]},
11816                                           Parse::RecDescent::_tracefirst($_[1]),
11817                                           q{_alternation_1_of_production_1_of_rule_sysfun},
11818                                           $tracelevel)
11819                                                 if defined $::RD_TRACE;
11820                 my $thisprod = $thisrule->{"prods"}[1];
11821                 $text = $_[1];
11822                 my $_savetext;
11823                 @item = (q{_alternation_1_of_production_1_of_rule_sysfun});
11824                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_sysfun});
11825                 my $repcount = 0;
11826
11827
11828                 Parse::RecDescent::_trace(q{Trying terminal: [/ABSVAL/i]}, Parse::RecDescent::_tracefirst($text),
11829                                           q{_alternation_1_of_production_1_of_rule_sysfun},
11830                                           $tracelevel)
11831                                                 if defined $::RD_TRACE;
11832                 $lastsep = "";
11833                 $expectation->is(q{})->at($text);
11834
11835
11836                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ABSVAL)//i)
11837                 {
11838
11839                         $expectation->failed();
11840                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
11841                                                   Parse::RecDescent::_tracefirst($text))
11842                                         if defined $::RD_TRACE;
11843
11844                         last;
11845                 }
11846                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
11847                                                 . $& . q{])},
11848                                                   Parse::RecDescent::_tracefirst($text))
11849                                         if defined $::RD_TRACE;
11850                 push @item, $item{__PATTERN1__}=$&;
11851
11852
11853
11854                 Parse::RecDescent::_trace(q{>>Matched production: [/ABSVAL/i]<<},
11855                                           Parse::RecDescent::_tracefirst($text),
11856                                           q{_alternation_1_of_production_1_of_rule_sysfun},
11857                                           $tracelevel)
11858                                                 if defined $::RD_TRACE;
11859                 $_matched = 1;
11860                 last;
11861         }
11862
11863
11864         unless ( $_matched || defined($return) || defined($score) )
11865         {
11866
11867
11868                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
11869                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
11870                                          Parse::RecDescent::_tracefirst($_[1]),
11871                                          q{_alternation_1_of_production_1_of_rule_sysfun},
11872                                          $tracelevel)
11873                                         if defined $::RD_TRACE;
11874                 return undef;
11875         }
11876         if (!defined($return) && defined($score))
11877         {
11878                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
11879                                           q{_alternation_1_of_production_1_of_rule_sysfun},
11880                                           $tracelevel)
11881                                                 if defined $::RD_TRACE;
11882                 $return = $score_return;
11883         }
11884         splice @{$thisparser->{errors}}, $err_at;
11885         $return = $item[$#item] unless defined $return;
11886         if (defined $::RD_TRACE)
11887         {
11888                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
11889                                           $return . q{])}, "",
11890                                           q{_alternation_1_of_production_1_of_rule_sysfun},
11891                                           $tracelevel);
11892                 Parse::RecDescent::_trace(q{(consumed: [} .
11893                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
11894                                           Parse::RecDescent::_tracefirst($text),
11895                                           , q{_alternation_1_of_production_1_of_rule_sysfun},
11896                                           $tracelevel)
11897         }
11898         $_[1] = $text;
11899         return $return;
11900 }
11901
11902 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
11903 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_function
11904 {
11905         my $thisparser = $_[0];
11906         use vars q{$tracelevel};
11907         local $tracelevel = ($tracelevel||0)+1;
11908         $ERRORS = 0;
11909         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_function"};
11910
11911         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_function]},
11912                                   Parse::RecDescent::_tracefirst($_[1]),
11913                                   q{_alternation_1_of_production_1_of_rule_function},
11914                                   $tracelevel)
11915                                         if defined $::RD_TRACE;
11916
11917
11918         my $err_at = @{$thisparser->{errors}};
11919
11920         my $score;
11921         my $score_return;
11922         my $_tok;
11923         my $return = undef;
11924         my $_matched=0;
11925         my $commit=0;
11926         my @item = ();
11927         my %item = ();
11928         my $repeating =  defined($_[2]) && $_[2];
11929         my $_noactions = defined($_[3]) && $_[3];
11930         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
11931         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
11932         my $text;
11933         my $lastsep="";
11934         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
11935         $expectation->at($_[1]);
11936
11937         my $thisline;
11938         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
11939
11940
11941
11942         while (!$_matched && !$commit)
11943         {
11944
11945                 Parse::RecDescent::_trace(q{Trying production: [/SYSIBM\\.|/i sysibm_function]},
11946                                           Parse::RecDescent::_tracefirst($_[1]),
11947                                           q{_alternation_1_of_production_1_of_rule_function},
11948                                           $tracelevel)
11949                                                 if defined $::RD_TRACE;
11950                 my $thisprod = $thisrule->{"prods"}[0];
11951                 $text = $_[1];
11952                 my $_savetext;
11953                 @item = (q{_alternation_1_of_production_1_of_rule_function});
11954                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_function});
11955                 my $repcount = 0;
11956
11957
11958                 Parse::RecDescent::_trace(q{Trying terminal: [/SYSIBM\\.|/i]}, Parse::RecDescent::_tracefirst($text),
11959                                           q{_alternation_1_of_production_1_of_rule_function},
11960                                           $tracelevel)
11961                                                 if defined $::RD_TRACE;
11962                 $lastsep = "";
11963                 $expectation->is(q{})->at($text);
11964
11965
11966                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SYSIBM\.|)//i)
11967                 {
11968
11969                         $expectation->failed();
11970                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
11971                                                   Parse::RecDescent::_tracefirst($text))
11972                                         if defined $::RD_TRACE;
11973
11974                         last;
11975                 }
11976                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
11977                                                 . $& . q{])},
11978                                                   Parse::RecDescent::_tracefirst($text))
11979                                         if defined $::RD_TRACE;
11980                 push @item, $item{__PATTERN1__}=$&;
11981
11982
11983                 Parse::RecDescent::_trace(q{Trying subrule: [sysibm_function]},
11984                                   Parse::RecDescent::_tracefirst($text),
11985                                   q{_alternation_1_of_production_1_of_rule_function},
11986                                   $tracelevel)
11987                                         if defined $::RD_TRACE;
11988                 if (1) { no strict qw{refs};
11989                 $expectation->is(q{sysibm_function})->at($text);
11990                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::sysibm_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
11991                 {
11992
11993                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [sysibm_function]>>},
11994                                                   Parse::RecDescent::_tracefirst($text),
11995                                                   q{_alternation_1_of_production_1_of_rule_function},
11996                                                   $tracelevel)
11997                                                         if defined $::RD_TRACE;
11998                         $expectation->failed();
11999                         last;
12000                 }
12001                 Parse::RecDescent::_trace(q{>>Matched subrule: [sysibm_function]<< (return value: [}
12002                                         . $_tok . q{]},
12003
12004                                           Parse::RecDescent::_tracefirst($text),
12005                                           q{_alternation_1_of_production_1_of_rule_function},
12006                                           $tracelevel)
12007                                                 if defined $::RD_TRACE;
12008                 $item{q{sysibm_function}} = $_tok;
12009                 push @item, $_tok;
12010
12011                 }
12012
12013
12014                 Parse::RecDescent::_trace(q{>>Matched production: [/SYSIBM\\.|/i sysibm_function]<<},
12015                                           Parse::RecDescent::_tracefirst($text),
12016                                           q{_alternation_1_of_production_1_of_rule_function},
12017                                           $tracelevel)
12018                                                 if defined $::RD_TRACE;
12019                 $_matched = 1;
12020                 last;
12021         }
12022
12023
12024         while (!$_matched && !$commit)
12025         {
12026
12027                 Parse::RecDescent::_trace(q{Trying production: [/SYSFUN\\.|/i sysfun_function]},
12028                                           Parse::RecDescent::_tracefirst($_[1]),
12029                                           q{_alternation_1_of_production_1_of_rule_function},
12030                                           $tracelevel)
12031                                                 if defined $::RD_TRACE;
12032                 my $thisprod = $thisrule->{"prods"}[1];
12033                 $text = $_[1];
12034                 my $_savetext;
12035                 @item = (q{_alternation_1_of_production_1_of_rule_function});
12036                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_function});
12037                 my $repcount = 0;
12038
12039
12040                 Parse::RecDescent::_trace(q{Trying terminal: [/SYSFUN\\.|/i]}, Parse::RecDescent::_tracefirst($text),
12041                                           q{_alternation_1_of_production_1_of_rule_function},
12042                                           $tracelevel)
12043                                                 if defined $::RD_TRACE;
12044                 $lastsep = "";
12045                 $expectation->is(q{})->at($text);
12046
12047
12048                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SYSFUN\.|)//i)
12049                 {
12050
12051                         $expectation->failed();
12052                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
12053                                                   Parse::RecDescent::_tracefirst($text))
12054                                         if defined $::RD_TRACE;
12055
12056                         last;
12057                 }
12058                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
12059                                                 . $& . q{])},
12060                                                   Parse::RecDescent::_tracefirst($text))
12061                                         if defined $::RD_TRACE;
12062                 push @item, $item{__PATTERN1__}=$&;
12063
12064
12065                 Parse::RecDescent::_trace(q{Trying subrule: [sysfun_function]},
12066                                   Parse::RecDescent::_tracefirst($text),
12067                                   q{_alternation_1_of_production_1_of_rule_function},
12068                                   $tracelevel)
12069                                         if defined $::RD_TRACE;
12070                 if (1) { no strict qw{refs};
12071                 $expectation->is(q{sysfun_function})->at($text);
12072                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::sysfun_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
12073                 {
12074
12075                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [sysfun_function]>>},
12076                                                   Parse::RecDescent::_tracefirst($text),
12077                                                   q{_alternation_1_of_production_1_of_rule_function},
12078                                                   $tracelevel)
12079                                                         if defined $::RD_TRACE;
12080                         $expectation->failed();
12081                         last;
12082                 }
12083                 Parse::RecDescent::_trace(q{>>Matched subrule: [sysfun_function]<< (return value: [}
12084                                         . $_tok . q{]},
12085
12086                                           Parse::RecDescent::_tracefirst($text),
12087                                           q{_alternation_1_of_production_1_of_rule_function},
12088                                           $tracelevel)
12089                                                 if defined $::RD_TRACE;
12090                 $item{q{sysfun_function}} = $_tok;
12091                 push @item, $_tok;
12092
12093                 }
12094
12095
12096                 Parse::RecDescent::_trace(q{>>Matched production: [/SYSFUN\\.|/i sysfun_function]<<},
12097                                           Parse::RecDescent::_tracefirst($text),
12098                                           q{_alternation_1_of_production_1_of_rule_function},
12099                                           $tracelevel)
12100                                                 if defined $::RD_TRACE;
12101                 $_matched = 1;
12102                 last;
12103         }
12104
12105
12106         while (!$_matched && !$commit)
12107         {
12108
12109                 Parse::RecDescent::_trace(q{Trying production: [userdefined_function]},
12110                                           Parse::RecDescent::_tracefirst($_[1]),
12111                                           q{_alternation_1_of_production_1_of_rule_function},
12112                                           $tracelevel)
12113                                                 if defined $::RD_TRACE;
12114                 my $thisprod = $thisrule->{"prods"}[2];
12115                 $text = $_[1];
12116                 my $_savetext;
12117                 @item = (q{_alternation_1_of_production_1_of_rule_function});
12118                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_function});
12119                 my $repcount = 0;
12120
12121
12122                 Parse::RecDescent::_trace(q{Trying subrule: [userdefined_function]},
12123                                   Parse::RecDescent::_tracefirst($text),
12124                                   q{_alternation_1_of_production_1_of_rule_function},
12125                                   $tracelevel)
12126                                         if defined $::RD_TRACE;
12127                 if (1) { no strict qw{refs};
12128                 $expectation->is(q{})->at($text);
12129                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::userdefined_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
12130                 {
12131
12132                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [userdefined_function]>>},
12133                                                   Parse::RecDescent::_tracefirst($text),
12134                                                   q{_alternation_1_of_production_1_of_rule_function},
12135                                                   $tracelevel)
12136                                                         if defined $::RD_TRACE;
12137                         $expectation->failed();
12138                         last;
12139                 }
12140                 Parse::RecDescent::_trace(q{>>Matched subrule: [userdefined_function]<< (return value: [}
12141                                         . $_tok . q{]},
12142
12143                                           Parse::RecDescent::_tracefirst($text),
12144                                           q{_alternation_1_of_production_1_of_rule_function},
12145                                           $tracelevel)
12146                                                 if defined $::RD_TRACE;
12147                 $item{q{userdefined_function}} = $_tok;
12148                 push @item, $_tok;
12149
12150                 }
12151
12152
12153                 Parse::RecDescent::_trace(q{>>Matched production: [userdefined_function]<<},
12154                                           Parse::RecDescent::_tracefirst($text),
12155                                           q{_alternation_1_of_production_1_of_rule_function},
12156                                           $tracelevel)
12157                                                 if defined $::RD_TRACE;
12158                 $_matched = 1;
12159                 last;
12160         }
12161
12162
12163         unless ( $_matched || defined($return) || defined($score) )
12164         {
12165
12166
12167                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
12168                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
12169                                          Parse::RecDescent::_tracefirst($_[1]),
12170                                          q{_alternation_1_of_production_1_of_rule_function},
12171                                          $tracelevel)
12172                                         if defined $::RD_TRACE;
12173                 return undef;
12174         }
12175         if (!defined($return) && defined($score))
12176         {
12177                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
12178                                           q{_alternation_1_of_production_1_of_rule_function},
12179                                           $tracelevel)
12180                                                 if defined $::RD_TRACE;
12181                 $return = $score_return;
12182         }
12183         splice @{$thisparser->{errors}}, $err_at;
12184         $return = $item[$#item] unless defined $return;
12185         if (defined $::RD_TRACE)
12186         {
12187                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
12188                                           $return . q{])}, "",
12189                                           q{_alternation_1_of_production_1_of_rule_function},
12190                                           $tracelevel);
12191                 Parse::RecDescent::_trace(q{(consumed: [} .
12192                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
12193                                           Parse::RecDescent::_tracefirst($text),
12194                                           , q{_alternation_1_of_production_1_of_rule_function},
12195                                           $tracelevel)
12196         }
12197         $_[1] = $text;
12198         return $return;
12199 }
12200
12201 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
12202 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::identifier
12203 {
12204         my $thisparser = $_[0];
12205         use vars q{$tracelevel};
12206         local $tracelevel = ($tracelevel||0)+1;
12207         $ERRORS = 0;
12208         my $thisrule = $thisparser->{"rules"}{"identifier"};
12209
12210         Parse::RecDescent::_trace(q{Trying rule: [identifier]},
12211                                   Parse::RecDescent::_tracefirst($_[1]),
12212                                   q{identifier},
12213                                   $tracelevel)
12214                                         if defined $::RD_TRACE;
12215
12216
12217         my $err_at = @{$thisparser->{errors}};
12218
12219         my $score;
12220         my $score_return;
12221         my $_tok;
12222         my $return = undef;
12223         my $_matched=0;
12224         my $commit=0;
12225         my @item = ();
12226         my %item = ();
12227         my $repeating =  defined($_[2]) && $_[2];
12228         my $_noactions = defined($_[3]) && $_[3];
12229         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
12230         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
12231         my $text;
12232         my $lastsep="";
12233         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
12234         $expectation->at($_[1]);
12235
12236         my $thisline;
12237         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
12238
12239
12240
12241         while (!$_matched && !$commit)
12242         {
12243
12244                 Parse::RecDescent::_trace(q{Trying production: [NAME]},
12245                                           Parse::RecDescent::_tracefirst($_[1]),
12246                                           q{identifier},
12247                                           $tracelevel)
12248                                                 if defined $::RD_TRACE;
12249                 my $thisprod = $thisrule->{"prods"}[0];
12250                 $text = $_[1];
12251                 my $_savetext;
12252                 @item = (q{identifier});
12253                 %item = (__RULE__ => q{identifier});
12254                 my $repcount = 0;
12255
12256
12257                 Parse::RecDescent::_trace(q{Trying subrule: [NAME]},
12258                                   Parse::RecDescent::_tracefirst($text),
12259                                   q{identifier},
12260                                   $tracelevel)
12261                                         if defined $::RD_TRACE;
12262                 if (1) { no strict qw{refs};
12263                 $expectation->is(q{})->at($text);
12264                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::NAME($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
12265                 {
12266
12267                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [NAME]>>},
12268                                                   Parse::RecDescent::_tracefirst($text),
12269                                                   q{identifier},
12270                                                   $tracelevel)
12271                                                         if defined $::RD_TRACE;
12272                         $expectation->failed();
12273                         last;
12274                 }
12275                 Parse::RecDescent::_trace(q{>>Matched subrule: [NAME]<< (return value: [}
12276                                         . $_tok . q{]},
12277
12278                                           Parse::RecDescent::_tracefirst($text),
12279                                           q{identifier},
12280                                           $tracelevel)
12281                                                 if defined $::RD_TRACE;
12282                 $item{q{NAME}} = $_tok;
12283                 push @item, $_tok;
12284
12285                 }
12286
12287
12288                 Parse::RecDescent::_trace(q{>>Matched production: [NAME]<<},
12289                                           Parse::RecDescent::_tracefirst($text),
12290                                           q{identifier},
12291                                           $tracelevel)
12292                                                 if defined $::RD_TRACE;
12293                 $_matched = 1;
12294                 last;
12295         }
12296
12297
12298         unless ( $_matched || defined($return) || defined($score) )
12299         {
12300
12301
12302                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
12303                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
12304                                          Parse::RecDescent::_tracefirst($_[1]),
12305                                          q{identifier},
12306                                          $tracelevel)
12307                                         if defined $::RD_TRACE;
12308                 return undef;
12309         }
12310         if (!defined($return) && defined($score))
12311         {
12312                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
12313                                           q{identifier},
12314                                           $tracelevel)
12315                                                 if defined $::RD_TRACE;
12316                 $return = $score_return;
12317         }
12318         splice @{$thisparser->{errors}}, $err_at;
12319         $return = $item[$#item] unless defined $return;
12320         if (defined $::RD_TRACE)
12321         {
12322                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
12323                                           $return . q{])}, "",
12324                                           q{identifier},
12325                                           $tracelevel);
12326                 Parse::RecDescent::_trace(q{(consumed: [} .
12327                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
12328                                           Parse::RecDescent::_tracefirst($text),
12329                                           , q{identifier},
12330                                           $tracelevel)
12331         }
12332         $_[1] = $text;
12333         return $return;
12334 }
12335
12336 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
12337 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause
12338 {
12339         my $thisparser = $_[0];
12340         use vars q{$tracelevel};
12341         local $tracelevel = ($tracelevel||0)+1;
12342         $ERRORS = 0;
12343         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause"};
12344
12345         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause]},
12346                                   Parse::RecDescent::_tracefirst($_[1]),
12347                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12348                                   $tracelevel)
12349                                         if defined $::RD_TRACE;
12350
12351
12352         my $err_at = @{$thisparser->{errors}};
12353
12354         my $score;
12355         my $score_return;
12356         my $_tok;
12357         my $return = undef;
12358         my $_matched=0;
12359         my $commit=0;
12360         my @item = ();
12361         my %item = ();
12362         my $repeating =  defined($_[2]) && $_[2];
12363         my $_noactions = defined($_[3]) && $_[3];
12364         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
12365         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
12366         my $text;
12367         my $lastsep="";
12368         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
12369         $expectation->at($_[1]);
12370
12371         my $thisline;
12372         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
12373
12374
12375
12376         while (!$_matched && !$commit)
12377         {
12378
12379                 Parse::RecDescent::_trace(q{Trying production: [asc_option]},
12380                                           Parse::RecDescent::_tracefirst($_[1]),
12381                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12382                                           $tracelevel)
12383                                                 if defined $::RD_TRACE;
12384                 my $thisprod = $thisrule->{"prods"}[0];
12385                 $text = $_[1];
12386                 my $_savetext;
12387                 @item = (q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause});
12388                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause});
12389                 my $repcount = 0;
12390
12391
12392                 Parse::RecDescent::_trace(q{Trying subrule: [asc_option]},
12393                                   Parse::RecDescent::_tracefirst($text),
12394                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12395                                   $tracelevel)
12396                                         if defined $::RD_TRACE;
12397                 if (1) { no strict qw{refs};
12398                 $expectation->is(q{})->at($text);
12399                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::asc_option($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
12400                 {
12401
12402                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [asc_option]>>},
12403                                                   Parse::RecDescent::_tracefirst($text),
12404                                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12405                                                   $tracelevel)
12406                                                         if defined $::RD_TRACE;
12407                         $expectation->failed();
12408                         last;
12409                 }
12410                 Parse::RecDescent::_trace(q{>>Matched subrule: [asc_option]<< (return value: [}
12411                                         . $_tok . q{]},
12412
12413                                           Parse::RecDescent::_tracefirst($text),
12414                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12415                                           $tracelevel)
12416                                                 if defined $::RD_TRACE;
12417                 $item{q{asc_option}} = $_tok;
12418                 push @item, $_tok;
12419
12420                 }
12421
12422
12423                 Parse::RecDescent::_trace(q{>>Matched production: [asc_option]<<},
12424                                           Parse::RecDescent::_tracefirst($text),
12425                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12426                                           $tracelevel)
12427                                                 if defined $::RD_TRACE;
12428                 $_matched = 1;
12429                 last;
12430         }
12431
12432
12433         while (!$_matched && !$commit)
12434         {
12435
12436                 Parse::RecDescent::_trace(q{Trying production: [desc_option]},
12437                                           Parse::RecDescent::_tracefirst($_[1]),
12438                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12439                                           $tracelevel)
12440                                                 if defined $::RD_TRACE;
12441                 my $thisprod = $thisrule->{"prods"}[1];
12442                 $text = $_[1];
12443                 my $_savetext;
12444                 @item = (q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause});
12445                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause});
12446                 my $repcount = 0;
12447
12448
12449                 Parse::RecDescent::_trace(q{Trying subrule: [desc_option]},
12450                                   Parse::RecDescent::_tracefirst($text),
12451                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12452                                   $tracelevel)
12453                                         if defined $::RD_TRACE;
12454                 if (1) { no strict qw{refs};
12455                 $expectation->is(q{})->at($text);
12456                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::desc_option($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
12457                 {
12458
12459                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [desc_option]>>},
12460                                                   Parse::RecDescent::_tracefirst($text),
12461                                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12462                                                   $tracelevel)
12463                                                         if defined $::RD_TRACE;
12464                         $expectation->failed();
12465                         last;
12466                 }
12467                 Parse::RecDescent::_trace(q{>>Matched subrule: [desc_option]<< (return value: [}
12468                                         . $_tok . q{]},
12469
12470                                           Parse::RecDescent::_tracefirst($text),
12471                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12472                                           $tracelevel)
12473                                                 if defined $::RD_TRACE;
12474                 $item{q{desc_option}} = $_tok;
12475                 push @item, $_tok;
12476
12477                 }
12478
12479
12480                 Parse::RecDescent::_trace(q{>>Matched production: [desc_option]<<},
12481                                           Parse::RecDescent::_tracefirst($text),
12482                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12483                                           $tracelevel)
12484                                                 if defined $::RD_TRACE;
12485                 $_matched = 1;
12486                 last;
12487         }
12488
12489
12490         unless ( $_matched || defined($return) || defined($score) )
12491         {
12492
12493
12494                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
12495                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
12496                                          Parse::RecDescent::_tracefirst($_[1]),
12497                                          q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12498                                          $tracelevel)
12499                                         if defined $::RD_TRACE;
12500                 return undef;
12501         }
12502         if (!defined($return) && defined($score))
12503         {
12504                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
12505                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12506                                           $tracelevel)
12507                                                 if defined $::RD_TRACE;
12508                 $return = $score_return;
12509         }
12510         splice @{$thisparser->{errors}}, $err_at;
12511         $return = $item[$#item] unless defined $return;
12512         if (defined $::RD_TRACE)
12513         {
12514                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
12515                                           $return . q{])}, "",
12516                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12517                                           $tracelevel);
12518                 Parse::RecDescent::_trace(q{(consumed: [} .
12519                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
12520                                           Parse::RecDescent::_tracefirst($text),
12521                                           , q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause},
12522                                           $tracelevel)
12523         }
12524         $_[1] = $text;
12525         return $return;
12526 }
12527
12528 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
12529 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::result_expression
12530 {
12531         my $thisparser = $_[0];
12532         use vars q{$tracelevel};
12533         local $tracelevel = ($tracelevel||0)+1;
12534         $ERRORS = 0;
12535         my $thisrule = $thisparser->{"rules"}{"result_expression"};
12536
12537         Parse::RecDescent::_trace(q{Trying rule: [result_expression]},
12538                                   Parse::RecDescent::_tracefirst($_[1]),
12539                                   q{result_expression},
12540                                   $tracelevel)
12541                                         if defined $::RD_TRACE;
12542
12543
12544         my $err_at = @{$thisparser->{errors}};
12545
12546         my $score;
12547         my $score_return;
12548         my $_tok;
12549         my $return = undef;
12550         my $_matched=0;
12551         my $commit=0;
12552         my @item = ();
12553         my %item = ();
12554         my $repeating =  defined($_[2]) && $_[2];
12555         my $_noactions = defined($_[3]) && $_[3];
12556         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
12557         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
12558         my $text;
12559         my $lastsep="";
12560         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
12561         $expectation->at($_[1]);
12562
12563         my $thisline;
12564         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
12565
12566
12567
12568         while (!$_matched && !$commit)
12569         {
12570
12571                 Parse::RecDescent::_trace(q{Trying production: [expression]},
12572                                           Parse::RecDescent::_tracefirst($_[1]),
12573                                           q{result_expression},
12574                                           $tracelevel)
12575                                                 if defined $::RD_TRACE;
12576                 my $thisprod = $thisrule->{"prods"}[0];
12577                 $text = $_[1];
12578                 my $_savetext;
12579                 @item = (q{result_expression});
12580                 %item = (__RULE__ => q{result_expression});
12581                 my $repcount = 0;
12582
12583
12584                 Parse::RecDescent::_trace(q{Trying subrule: [expression]},
12585                                   Parse::RecDescent::_tracefirst($text),
12586                                   q{result_expression},
12587                                   $tracelevel)
12588                                         if defined $::RD_TRACE;
12589                 if (1) { no strict qw{refs};
12590                 $expectation->is(q{})->at($text);
12591                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
12592                 {
12593
12594                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [expression]>>},
12595                                                   Parse::RecDescent::_tracefirst($text),
12596                                                   q{result_expression},
12597                                                   $tracelevel)
12598                                                         if defined $::RD_TRACE;
12599                         $expectation->failed();
12600                         last;
12601                 }
12602                 Parse::RecDescent::_trace(q{>>Matched subrule: [expression]<< (return value: [}
12603                                         . $_tok . q{]},
12604
12605                                           Parse::RecDescent::_tracefirst($text),
12606                                           q{result_expression},
12607                                           $tracelevel)
12608                                                 if defined $::RD_TRACE;
12609                 $item{q{expression}} = $_tok;
12610                 push @item, $_tok;
12611
12612                 }
12613
12614
12615                 Parse::RecDescent::_trace(q{>>Matched production: [expression]<<},
12616                                           Parse::RecDescent::_tracefirst($text),
12617                                           q{result_expression},
12618                                           $tracelevel)
12619                                                 if defined $::RD_TRACE;
12620                 $_matched = 1;
12621                 last;
12622         }
12623
12624
12625         unless ( $_matched || defined($return) || defined($score) )
12626         {
12627
12628
12629                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
12630                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
12631                                          Parse::RecDescent::_tracefirst($_[1]),
12632                                          q{result_expression},
12633                                          $tracelevel)
12634                                         if defined $::RD_TRACE;
12635                 return undef;
12636         }
12637         if (!defined($return) && defined($score))
12638         {
12639                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
12640                                           q{result_expression},
12641                                           $tracelevel)
12642                                                 if defined $::RD_TRACE;
12643                 $return = $score_return;
12644         }
12645         splice @{$thisparser->{errors}}, $err_at;
12646         $return = $item[$#item] unless defined $return;
12647         if (defined $::RD_TRACE)
12648         {
12649                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
12650                                           $return . q{])}, "",
12651                                           q{result_expression},
12652                                           $tracelevel);
12653                 Parse::RecDescent::_trace(q{(consumed: [} .
12654                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
12655                                           Parse::RecDescent::_tracefirst($text),
12656                                           , q{result_expression},
12657                                           $tracelevel)
12658         }
12659         $_[1] = $text;
12660         return $return;
12661 }
12662
12663 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
12664 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::scoped_reference_expression
12665 {
12666         my $thisparser = $_[0];
12667         use vars q{$tracelevel};
12668         local $tracelevel = ($tracelevel||0)+1;
12669         $ERRORS = 0;
12670         my $thisrule = $thisparser->{"rules"}{"scoped_reference_expression"};
12671
12672         Parse::RecDescent::_trace(q{Trying rule: [scoped_reference_expression]},
12673                                   Parse::RecDescent::_tracefirst($_[1]),
12674                                   q{scoped_reference_expression},
12675                                   $tracelevel)
12676                                         if defined $::RD_TRACE;
12677
12678
12679         my $err_at = @{$thisparser->{errors}};
12680
12681         my $score;
12682         my $score_return;
12683         my $_tok;
12684         my $return = undef;
12685         my $_matched=0;
12686         my $commit=0;
12687         my @item = ();
12688         my %item = ();
12689         my $repeating =  defined($_[2]) && $_[2];
12690         my $_noactions = defined($_[3]) && $_[3];
12691         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
12692         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
12693         my $text;
12694         my $lastsep="";
12695         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
12696         $expectation->at($_[1]);
12697
12698         my $thisline;
12699         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
12700
12701
12702
12703         while (!$_matched && !$commit)
12704         {
12705
12706                 Parse::RecDescent::_trace(q{Trying production: [expression]},
12707                                           Parse::RecDescent::_tracefirst($_[1]),
12708                                           q{scoped_reference_expression},
12709                                           $tracelevel)
12710                                                 if defined $::RD_TRACE;
12711                 my $thisprod = $thisrule->{"prods"}[0];
12712                 $text = $_[1];
12713                 my $_savetext;
12714                 @item = (q{scoped_reference_expression});
12715                 %item = (__RULE__ => q{scoped_reference_expression});
12716                 my $repcount = 0;
12717
12718
12719                 Parse::RecDescent::_trace(q{Trying subrule: [expression]},
12720                                   Parse::RecDescent::_tracefirst($text),
12721                                   q{scoped_reference_expression},
12722                                   $tracelevel)
12723                                         if defined $::RD_TRACE;
12724                 if (1) { no strict qw{refs};
12725                 $expectation->is(q{})->at($text);
12726                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
12727                 {
12728
12729                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [expression]>>},
12730                                                   Parse::RecDescent::_tracefirst($text),
12731                                                   q{scoped_reference_expression},
12732                                                   $tracelevel)
12733                                                         if defined $::RD_TRACE;
12734                         $expectation->failed();
12735                         last;
12736                 }
12737                 Parse::RecDescent::_trace(q{>>Matched subrule: [expression]<< (return value: [}
12738                                         . $_tok . q{]},
12739
12740                                           Parse::RecDescent::_tracefirst($text),
12741                                           q{scoped_reference_expression},
12742                                           $tracelevel)
12743                                                 if defined $::RD_TRACE;
12744                 $item{q{expression}} = $_tok;
12745                 push @item, $_tok;
12746
12747                 }
12748
12749                 Parse::RecDescent::_trace(q{Trying action},
12750                                           Parse::RecDescent::_tracefirst($text),
12751                                           q{scoped_reference_expression},
12752                                           $tracelevel)
12753                                                 if defined $::RD_TRACE;
12754
12755
12756                 $_tok = ($_noactions) ? 0 : do { # scoped, reference
12757 };
12758                 unless (defined $_tok)
12759                 {
12760                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
12761                                         if defined $::RD_TRACE;
12762                         last;
12763                 }
12764                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
12765                                           . $_tok . q{])},
12766                                           Parse::RecDescent::_tracefirst($text))
12767                                                 if defined $::RD_TRACE;
12768                 push @item, $_tok;
12769                 $item{__ACTION1__}=$_tok;
12770
12771
12772
12773                 Parse::RecDescent::_trace(q{>>Matched production: [expression]<<},
12774                                           Parse::RecDescent::_tracefirst($text),
12775                                           q{scoped_reference_expression},
12776                                           $tracelevel)
12777                                                 if defined $::RD_TRACE;
12778                 $_matched = 1;
12779                 last;
12780         }
12781
12782
12783         unless ( $_matched || defined($return) || defined($score) )
12784         {
12785
12786
12787                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
12788                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
12789                                          Parse::RecDescent::_tracefirst($_[1]),
12790                                          q{scoped_reference_expression},
12791                                          $tracelevel)
12792                                         if defined $::RD_TRACE;
12793                 return undef;
12794         }
12795         if (!defined($return) && defined($score))
12796         {
12797                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
12798                                           q{scoped_reference_expression},
12799                                           $tracelevel)
12800                                                 if defined $::RD_TRACE;
12801                 $return = $score_return;
12802         }
12803         splice @{$thisparser->{errors}}, $err_at;
12804         $return = $item[$#item] unless defined $return;
12805         if (defined $::RD_TRACE)
12806         {
12807                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
12808                                           $return . q{])}, "",
12809                                           q{scoped_reference_expression},
12810                                           $tracelevel);
12811                 Parse::RecDescent::_trace(q{(consumed: [} .
12812                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
12813                                           Parse::RecDescent::_tracefirst($text),
12814                                           , q{scoped_reference_expression},
12815                                           $tracelevel)
12816         }
12817         $_[1] = $text;
12818         return $return;
12819 }
12820
12821 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
12822 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification
12823 {
12824         my $thisparser = $_[0];
12825         use vars q{$tracelevel};
12826         local $tracelevel = ($tracelevel||0)+1;
12827         $ERRORS = 0;
12828         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification"};
12829
12830         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification]},
12831                                   Parse::RecDescent::_tracefirst($_[1]),
12832                                   q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
12833                                   $tracelevel)
12834                                         if defined $::RD_TRACE;
12835
12836
12837         my $err_at = @{$thisparser->{errors}};
12838
12839         my $score;
12840         my $score_return;
12841         my $_tok;
12842         my $return = undef;
12843         my $_matched=0;
12844         my $commit=0;
12845         my @item = ();
12846         my %item = ();
12847         my $repeating =  defined($_[2]) && $_[2];
12848         my $_noactions = defined($_[3]) && $_[3];
12849         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
12850         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
12851         my $text;
12852         my $lastsep="";
12853         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
12854         $expectation->at($_[1]);
12855
12856         my $thisline;
12857         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
12858
12859
12860
12861         while (!$_matched && !$commit)
12862         {
12863
12864                 Parse::RecDescent::_trace(q{Trying production: [typed_table_name]},
12865                                           Parse::RecDescent::_tracefirst($_[1]),
12866                                           q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
12867                                           $tracelevel)
12868                                                 if defined $::RD_TRACE;
12869                 my $thisprod = $thisrule->{"prods"}[0];
12870                 $text = $_[1];
12871                 my $_savetext;
12872                 @item = (q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification});
12873                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification});
12874                 my $repcount = 0;
12875
12876
12877                 Parse::RecDescent::_trace(q{Trying subrule: [typed_table_name]},
12878                                   Parse::RecDescent::_tracefirst($text),
12879                                   q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
12880                                   $tracelevel)
12881                                         if defined $::RD_TRACE;
12882                 if (1) { no strict qw{refs};
12883                 $expectation->is(q{})->at($text);
12884                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::typed_table_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
12885                 {
12886
12887                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [typed_table_name]>>},
12888                                                   Parse::RecDescent::_tracefirst($text),
12889                                                   q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
12890                                                   $tracelevel)
12891                                                         if defined $::RD_TRACE;
12892                         $expectation->failed();
12893                         last;
12894                 }
12895                 Parse::RecDescent::_trace(q{>>Matched subrule: [typed_table_name]<< (return value: [}
12896                                         . $_tok . q{]},
12897
12898                                           Parse::RecDescent::_tracefirst($text),
12899                                           q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
12900                                           $tracelevel)
12901                                                 if defined $::RD_TRACE;
12902                 $item{q{typed_table_name}} = $_tok;
12903                 push @item, $_tok;
12904
12905                 }
12906
12907
12908                 Parse::RecDescent::_trace(q{>>Matched production: [typed_table_name]<<},
12909                                           Parse::RecDescent::_tracefirst($text),
12910                                           q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
12911                                           $tracelevel)
12912                                                 if defined $::RD_TRACE;
12913                 $_matched = 1;
12914                 last;
12915         }
12916
12917
12918         while (!$_matched && !$commit)
12919         {
12920
12921                 Parse::RecDescent::_trace(q{Trying production: [typed_view_name]},
12922                                           Parse::RecDescent::_tracefirst($_[1]),
12923                                           q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
12924                                           $tracelevel)
12925                                                 if defined $::RD_TRACE;
12926                 my $thisprod = $thisrule->{"prods"}[1];
12927                 $text = $_[1];
12928                 my $_savetext;
12929                 @item = (q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification});
12930                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification});
12931                 my $repcount = 0;
12932
12933
12934                 Parse::RecDescent::_trace(q{Trying subrule: [typed_view_name]},
12935                                   Parse::RecDescent::_tracefirst($text),
12936                                   q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
12937                                   $tracelevel)
12938                                         if defined $::RD_TRACE;
12939                 if (1) { no strict qw{refs};
12940                 $expectation->is(q{})->at($text);
12941                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::typed_view_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
12942                 {
12943
12944                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [typed_view_name]>>},
12945                                                   Parse::RecDescent::_tracefirst($text),
12946                                                   q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
12947                                                   $tracelevel)
12948                                                         if defined $::RD_TRACE;
12949                         $expectation->failed();
12950                         last;
12951                 }
12952                 Parse::RecDescent::_trace(q{>>Matched subrule: [typed_view_name]<< (return value: [}
12953                                         . $_tok . q{]},
12954
12955                                           Parse::RecDescent::_tracefirst($text),
12956                                           q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
12957                                           $tracelevel)
12958                                                 if defined $::RD_TRACE;
12959                 $item{q{typed_view_name}} = $_tok;
12960                 push @item, $_tok;
12961
12962                 }
12963
12964
12965                 Parse::RecDescent::_trace(q{>>Matched production: [typed_view_name]<<},
12966                                           Parse::RecDescent::_tracefirst($text),
12967                                           q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
12968                                           $tracelevel)
12969                                                 if defined $::RD_TRACE;
12970                 $_matched = 1;
12971                 last;
12972         }
12973
12974
12975         unless ( $_matched || defined($return) || defined($score) )
12976         {
12977
12978
12979                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
12980                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
12981                                          Parse::RecDescent::_tracefirst($_[1]),
12982                                          q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
12983                                          $tracelevel)
12984                                         if defined $::RD_TRACE;
12985                 return undef;
12986         }
12987         if (!defined($return) && defined($score))
12988         {
12989                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
12990                                           q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
12991                                           $tracelevel)
12992                                                 if defined $::RD_TRACE;
12993                 $return = $score_return;
12994         }
12995         splice @{$thisparser->{errors}}, $err_at;
12996         $return = $item[$#item] unless defined $return;
12997         if (defined $::RD_TRACE)
12998         {
12999                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
13000                                           $return . q{])}, "",
13001                                           q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
13002                                           $tracelevel);
13003                 Parse::RecDescent::_trace(q{(consumed: [} .
13004                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
13005                                           Parse::RecDescent::_tracefirst($text),
13006                                           , q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification},
13007                                           $tracelevel)
13008         }
13009         $_[1] = $text;
13010         return $return;
13011 }
13012
13013 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
13014 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::when_clause
13015 {
13016         my $thisparser = $_[0];
13017         use vars q{$tracelevel};
13018         local $tracelevel = ($tracelevel||0)+1;
13019         $ERRORS = 0;
13020         my $thisrule = $thisparser->{"rules"}{"when_clause"};
13021
13022         Parse::RecDescent::_trace(q{Trying rule: [when_clause]},
13023                                   Parse::RecDescent::_tracefirst($_[1]),
13024                                   q{when_clause},
13025                                   $tracelevel)
13026                                         if defined $::RD_TRACE;
13027
13028
13029         my $err_at = @{$thisparser->{errors}};
13030
13031         my $score;
13032         my $score_return;
13033         my $_tok;
13034         my $return = undef;
13035         my $_matched=0;
13036         my $commit=0;
13037         my @item = ();
13038         my %item = ();
13039         my $repeating =  defined($_[2]) && $_[2];
13040         my $_noactions = defined($_[3]) && $_[3];
13041         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
13042         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
13043         my $text;
13044         my $lastsep="";
13045         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
13046         $expectation->at($_[1]);
13047
13048         my $thisline;
13049         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
13050
13051
13052
13053         while (!$_matched && !$commit)
13054         {
13055
13056                 Parse::RecDescent::_trace(q{Trying production: [/WHEN/i '(' search_condition ')']},
13057                                           Parse::RecDescent::_tracefirst($_[1]),
13058                                           q{when_clause},
13059                                           $tracelevel)
13060                                                 if defined $::RD_TRACE;
13061                 my $thisprod = $thisrule->{"prods"}[0];
13062                 $text = $_[1];
13063                 my $_savetext;
13064                 @item = (q{when_clause});
13065                 %item = (__RULE__ => q{when_clause});
13066                 my $repcount = 0;
13067
13068
13069                 Parse::RecDescent::_trace(q{Trying terminal: [/WHEN/i]}, Parse::RecDescent::_tracefirst($text),
13070                                           q{when_clause},
13071                                           $tracelevel)
13072                                                 if defined $::RD_TRACE;
13073                 $lastsep = "";
13074                 $expectation->is(q{})->at($text);
13075
13076
13077                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:WHEN)//i)
13078                 {
13079
13080                         $expectation->failed();
13081                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
13082                                                   Parse::RecDescent::_tracefirst($text))
13083                                         if defined $::RD_TRACE;
13084
13085                         last;
13086                 }
13087                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
13088                                                 . $& . q{])},
13089                                                   Parse::RecDescent::_tracefirst($text))
13090                                         if defined $::RD_TRACE;
13091                 push @item, $item{__PATTERN1__}=$&;
13092
13093
13094                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
13095                                           Parse::RecDescent::_tracefirst($text),
13096                                           q{when_clause},
13097                                           $tracelevel)
13098                                                 if defined $::RD_TRACE;
13099                 $lastsep = "";
13100                 $expectation->is(q{'('})->at($text);
13101
13102
13103                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
13104                 {
13105
13106                         $expectation->failed();
13107                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
13108                                                   Parse::RecDescent::_tracefirst($text))
13109                                                         if defined $::RD_TRACE;
13110                         last;
13111                 }
13112                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
13113                                                 . $& . q{])},
13114                                                   Parse::RecDescent::_tracefirst($text))
13115                                                         if defined $::RD_TRACE;
13116                 push @item, $item{__STRING1__}=$&;
13117
13118
13119                 Parse::RecDescent::_trace(q{Trying subrule: [search_condition]},
13120                                   Parse::RecDescent::_tracefirst($text),
13121                                   q{when_clause},
13122                                   $tracelevel)
13123                                         if defined $::RD_TRACE;
13124                 if (1) { no strict qw{refs};
13125                 $expectation->is(q{search_condition})->at($text);
13126                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::search_condition($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
13127                 {
13128
13129                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [search_condition]>>},
13130                                                   Parse::RecDescent::_tracefirst($text),
13131                                                   q{when_clause},
13132                                                   $tracelevel)
13133                                                         if defined $::RD_TRACE;
13134                         $expectation->failed();
13135                         last;
13136                 }
13137                 Parse::RecDescent::_trace(q{>>Matched subrule: [search_condition]<< (return value: [}
13138                                         . $_tok . q{]},
13139
13140                                           Parse::RecDescent::_tracefirst($text),
13141                                           q{when_clause},
13142                                           $tracelevel)
13143                                                 if defined $::RD_TRACE;
13144                 $item{q{search_condition}} = $_tok;
13145                 push @item, $_tok;
13146
13147                 }
13148
13149                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
13150                                           Parse::RecDescent::_tracefirst($text),
13151                                           q{when_clause},
13152                                           $tracelevel)
13153                                                 if defined $::RD_TRACE;
13154                 $lastsep = "";
13155                 $expectation->is(q{')'})->at($text);
13156
13157
13158                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
13159                 {
13160
13161                         $expectation->failed();
13162                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
13163                                                   Parse::RecDescent::_tracefirst($text))
13164                                                         if defined $::RD_TRACE;
13165                         last;
13166                 }
13167                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
13168                                                 . $& . q{])},
13169                                                   Parse::RecDescent::_tracefirst($text))
13170                                                         if defined $::RD_TRACE;
13171                 push @item, $item{__STRING2__}=$&;
13172
13173
13174                 Parse::RecDescent::_trace(q{Trying action},
13175                                           Parse::RecDescent::_tracefirst($text),
13176                                           q{when_clause},
13177                                           $tracelevel)
13178                                                 if defined $::RD_TRACE;
13179
13180
13181                 $_tok = ($_noactions) ? 0 : do {$return = $item[3]};
13182                 unless (defined $_tok)
13183                 {
13184                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
13185                                         if defined $::RD_TRACE;
13186                         last;
13187                 }
13188                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
13189                                           . $_tok . q{])},
13190                                           Parse::RecDescent::_tracefirst($text))
13191                                                 if defined $::RD_TRACE;
13192                 push @item, $_tok;
13193                 $item{__ACTION1__}=$_tok;
13194
13195
13196
13197                 Parse::RecDescent::_trace(q{>>Matched production: [/WHEN/i '(' search_condition ')']<<},
13198                                           Parse::RecDescent::_tracefirst($text),
13199                                           q{when_clause},
13200                                           $tracelevel)
13201                                                 if defined $::RD_TRACE;
13202                 $_matched = 1;
13203                 last;
13204         }
13205
13206
13207         unless ( $_matched || defined($return) || defined($score) )
13208         {
13209
13210
13211                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
13212                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
13213                                          Parse::RecDescent::_tracefirst($_[1]),
13214                                          q{when_clause},
13215                                          $tracelevel)
13216                                         if defined $::RD_TRACE;
13217                 return undef;
13218         }
13219         if (!defined($return) && defined($score))
13220         {
13221                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
13222                                           q{when_clause},
13223                                           $tracelevel)
13224                                                 if defined $::RD_TRACE;
13225                 $return = $score_return;
13226         }
13227         splice @{$thisparser->{errors}}, $err_at;
13228         $return = $item[$#item] unless defined $return;
13229         if (defined $::RD_TRACE)
13230         {
13231                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
13232                                           $return . q{])}, "",
13233                                           q{when_clause},
13234                                           $tracelevel);
13235                 Parse::RecDescent::_trace(q{(consumed: [} .
13236                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
13237                                           Parse::RecDescent::_tracefirst($text),
13238                                           , q{when_clause},
13239                                           $tracelevel)
13240         }
13241         $_[1] = $text;
13242         return $return;
13243 }
13244
13245 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
13246 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_asc_option
13247 {
13248         my $thisparser = $_[0];
13249         use vars q{$tracelevel};
13250         local $tracelevel = ($tracelevel||0)+1;
13251         $ERRORS = 0;
13252         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_asc_option"};
13253
13254         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_asc_option]},
13255                                   Parse::RecDescent::_tracefirst($_[1]),
13256                                   q{_alternation_1_of_production_1_of_rule_asc_option},
13257                                   $tracelevel)
13258                                         if defined $::RD_TRACE;
13259
13260
13261         my $err_at = @{$thisparser->{errors}};
13262
13263         my $score;
13264         my $score_return;
13265         my $_tok;
13266         my $return = undef;
13267         my $_matched=0;
13268         my $commit=0;
13269         my @item = ();
13270         my %item = ();
13271         my $repeating =  defined($_[2]) && $_[2];
13272         my $_noactions = defined($_[3]) && $_[3];
13273         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
13274         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
13275         my $text;
13276         my $lastsep="";
13277         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
13278         $expectation->at($_[1]);
13279
13280         my $thisline;
13281         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
13282
13283
13284
13285         while (!$_matched && !$commit)
13286         {
13287
13288                 Parse::RecDescent::_trace(q{Trying production: [/NULLS\\s+FIRST/i]},
13289                                           Parse::RecDescent::_tracefirst($_[1]),
13290                                           q{_alternation_1_of_production_1_of_rule_asc_option},
13291                                           $tracelevel)
13292                                                 if defined $::RD_TRACE;
13293                 my $thisprod = $thisrule->{"prods"}[0];
13294                 $text = $_[1];
13295                 my $_savetext;
13296                 @item = (q{_alternation_1_of_production_1_of_rule_asc_option});
13297                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_asc_option});
13298                 my $repcount = 0;
13299
13300
13301                 Parse::RecDescent::_trace(q{Trying terminal: [/NULLS\\s+FIRST/i]}, Parse::RecDescent::_tracefirst($text),
13302                                           q{_alternation_1_of_production_1_of_rule_asc_option},
13303                                           $tracelevel)
13304                                                 if defined $::RD_TRACE;
13305                 $lastsep = "";
13306                 $expectation->is(q{})->at($text);
13307
13308
13309                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NULLS\s+FIRST)//i)
13310                 {
13311
13312                         $expectation->failed();
13313                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
13314                                                   Parse::RecDescent::_tracefirst($text))
13315                                         if defined $::RD_TRACE;
13316
13317                         last;
13318                 }
13319                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
13320                                                 . $& . q{])},
13321                                                   Parse::RecDescent::_tracefirst($text))
13322                                         if defined $::RD_TRACE;
13323                 push @item, $item{__PATTERN1__}=$&;
13324
13325
13326
13327                 Parse::RecDescent::_trace(q{>>Matched production: [/NULLS\\s+FIRST/i]<<},
13328                                           Parse::RecDescent::_tracefirst($text),
13329                                           q{_alternation_1_of_production_1_of_rule_asc_option},
13330                                           $tracelevel)
13331                                                 if defined $::RD_TRACE;
13332                 $_matched = 1;
13333                 last;
13334         }
13335
13336
13337         while (!$_matched && !$commit)
13338         {
13339
13340                 Parse::RecDescent::_trace(q{Trying production: [/NULLS\\s+LAST/i]},
13341                                           Parse::RecDescent::_tracefirst($_[1]),
13342                                           q{_alternation_1_of_production_1_of_rule_asc_option},
13343                                           $tracelevel)
13344                                                 if defined $::RD_TRACE;
13345                 my $thisprod = $thisrule->{"prods"}[1];
13346                 $text = $_[1];
13347                 my $_savetext;
13348                 @item = (q{_alternation_1_of_production_1_of_rule_asc_option});
13349                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_asc_option});
13350                 my $repcount = 0;
13351
13352
13353                 Parse::RecDescent::_trace(q{Trying terminal: [/NULLS\\s+LAST/i]}, Parse::RecDescent::_tracefirst($text),
13354                                           q{_alternation_1_of_production_1_of_rule_asc_option},
13355                                           $tracelevel)
13356                                                 if defined $::RD_TRACE;
13357                 $lastsep = "";
13358                 $expectation->is(q{})->at($text);
13359
13360
13361                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NULLS\s+LAST)//i)
13362                 {
13363
13364                         $expectation->failed();
13365                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
13366                                                   Parse::RecDescent::_tracefirst($text))
13367                                         if defined $::RD_TRACE;
13368
13369                         last;
13370                 }
13371                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
13372                                                 . $& . q{])},
13373                                                   Parse::RecDescent::_tracefirst($text))
13374                                         if defined $::RD_TRACE;
13375                 push @item, $item{__PATTERN1__}=$&;
13376
13377
13378
13379                 Parse::RecDescent::_trace(q{>>Matched production: [/NULLS\\s+LAST/i]<<},
13380                                           Parse::RecDescent::_tracefirst($text),
13381                                           q{_alternation_1_of_production_1_of_rule_asc_option},
13382                                           $tracelevel)
13383                                                 if defined $::RD_TRACE;
13384                 $_matched = 1;
13385                 last;
13386         }
13387
13388
13389         unless ( $_matched || defined($return) || defined($score) )
13390         {
13391
13392
13393                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
13394                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
13395                                          Parse::RecDescent::_tracefirst($_[1]),
13396                                          q{_alternation_1_of_production_1_of_rule_asc_option},
13397                                          $tracelevel)
13398                                         if defined $::RD_TRACE;
13399                 return undef;
13400         }
13401         if (!defined($return) && defined($score))
13402         {
13403                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
13404                                           q{_alternation_1_of_production_1_of_rule_asc_option},
13405                                           $tracelevel)
13406                                                 if defined $::RD_TRACE;
13407                 $return = $score_return;
13408         }
13409         splice @{$thisparser->{errors}}, $err_at;
13410         $return = $item[$#item] unless defined $return;
13411         if (defined $::RD_TRACE)
13412         {
13413                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
13414                                           $return . q{])}, "",
13415                                           q{_alternation_1_of_production_1_of_rule_asc_option},
13416                                           $tracelevel);
13417                 Parse::RecDescent::_trace(q{(consumed: [} .
13418                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
13419                                           Parse::RecDescent::_tracefirst($text),
13420                                           , q{_alternation_1_of_production_1_of_rule_asc_option},
13421                                           $tracelevel)
13422         }
13423         $_[1] = $text;
13424         return $return;
13425 }
13426
13427 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
13428 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::sequence_name
13429 {
13430         my $thisparser = $_[0];
13431         use vars q{$tracelevel};
13432         local $tracelevel = ($tracelevel||0)+1;
13433         $ERRORS = 0;
13434         my $thisrule = $thisparser->{"rules"}{"sequence_name"};
13435
13436         Parse::RecDescent::_trace(q{Trying rule: [sequence_name]},
13437                                   Parse::RecDescent::_tracefirst($_[1]),
13438                                   q{sequence_name},
13439                                   $tracelevel)
13440                                         if defined $::RD_TRACE;
13441
13442
13443         my $err_at = @{$thisparser->{errors}};
13444
13445         my $score;
13446         my $score_return;
13447         my $_tok;
13448         my $return = undef;
13449         my $_matched=0;
13450         my $commit=0;
13451         my @item = ();
13452         my %item = ();
13453         my $repeating =  defined($_[2]) && $_[2];
13454         my $_noactions = defined($_[3]) && $_[3];
13455         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
13456         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
13457         my $text;
13458         my $lastsep="";
13459         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
13460         $expectation->at($_[1]);
13461
13462         my $thisline;
13463         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
13464
13465
13466
13467         while (!$_matched && !$commit)
13468         {
13469
13470                 Parse::RecDescent::_trace(q{Trying production: [NAME]},
13471                                           Parse::RecDescent::_tracefirst($_[1]),
13472                                           q{sequence_name},
13473                                           $tracelevel)
13474                                                 if defined $::RD_TRACE;
13475                 my $thisprod = $thisrule->{"prods"}[0];
13476                 $text = $_[1];
13477                 my $_savetext;
13478                 @item = (q{sequence_name});
13479                 %item = (__RULE__ => q{sequence_name});
13480                 my $repcount = 0;
13481
13482
13483                 Parse::RecDescent::_trace(q{Trying subrule: [NAME]},
13484                                   Parse::RecDescent::_tracefirst($text),
13485                                   q{sequence_name},
13486                                   $tracelevel)
13487                                         if defined $::RD_TRACE;
13488                 if (1) { no strict qw{refs};
13489                 $expectation->is(q{})->at($text);
13490                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::NAME($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
13491                 {
13492
13493                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [NAME]>>},
13494                                                   Parse::RecDescent::_tracefirst($text),
13495                                                   q{sequence_name},
13496                                                   $tracelevel)
13497                                                         if defined $::RD_TRACE;
13498                         $expectation->failed();
13499                         last;
13500                 }
13501                 Parse::RecDescent::_trace(q{>>Matched subrule: [NAME]<< (return value: [}
13502                                         . $_tok . q{]},
13503
13504                                           Parse::RecDescent::_tracefirst($text),
13505                                           q{sequence_name},
13506                                           $tracelevel)
13507                                                 if defined $::RD_TRACE;
13508                 $item{q{NAME}} = $_tok;
13509                 push @item, $_tok;
13510
13511                 }
13512
13513
13514                 Parse::RecDescent::_trace(q{>>Matched production: [NAME]<<},
13515                                           Parse::RecDescent::_tracefirst($text),
13516                                           q{sequence_name},
13517                                           $tracelevel)
13518                                                 if defined $::RD_TRACE;
13519                 $_matched = 1;
13520                 last;
13521         }
13522
13523
13524         unless ( $_matched || defined($return) || defined($score) )
13525         {
13526
13527
13528                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
13529                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
13530                                          Parse::RecDescent::_tracefirst($_[1]),
13531                                          q{sequence_name},
13532                                          $tracelevel)
13533                                         if defined $::RD_TRACE;
13534                 return undef;
13535         }
13536         if (!defined($return) && defined($score))
13537         {
13538                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
13539                                           q{sequence_name},
13540                                           $tracelevel)
13541                                                 if defined $::RD_TRACE;
13542                 $return = $score_return;
13543         }
13544         splice @{$thisparser->{errors}}, $err_at;
13545         $return = $item[$#item] unless defined $return;
13546         if (defined $::RD_TRACE)
13547         {
13548                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
13549                                           $return . q{])}, "",
13550                                           q{sequence_name},
13551                                           $tracelevel);
13552                 Parse::RecDescent::_trace(q{(consumed: [} .
13553                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
13554                                           Parse::RecDescent::_tracefirst($text),
13555                                           , q{sequence_name},
13556                                           $tracelevel)
13557         }
13558         $_[1] = $text;
13559         return $return;
13560 }
13561
13562 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
13563 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::ld_duration
13564 {
13565         my $thisparser = $_[0];
13566         use vars q{$tracelevel};
13567         local $tracelevel = ($tracelevel||0)+1;
13568         $ERRORS = 0;
13569         my $thisrule = $thisparser->{"rules"}{"ld_duration"};
13570
13571         Parse::RecDescent::_trace(q{Trying rule: [ld_duration]},
13572                                   Parse::RecDescent::_tracefirst($_[1]),
13573                                   q{ld_duration},
13574                                   $tracelevel)
13575                                         if defined $::RD_TRACE;
13576
13577
13578         my $err_at = @{$thisparser->{errors}};
13579
13580         my $score;
13581         my $score_return;
13582         my $_tok;
13583         my $return = undef;
13584         my $_matched=0;
13585         my $commit=0;
13586         my @item = ();
13587         my %item = ();
13588         my $repeating =  defined($_[2]) && $_[2];
13589         my $_noactions = defined($_[3]) && $_[3];
13590         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
13591         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
13592         my $text;
13593         my $lastsep="";
13594         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
13595         $expectation->at($_[1]);
13596
13597         my $thisline;
13598         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
13599
13600
13601
13602         while (!$_matched && !$commit)
13603         {
13604
13605                 Parse::RecDescent::_trace(q{Trying production: [/YEARS?/i]},
13606                                           Parse::RecDescent::_tracefirst($_[1]),
13607                                           q{ld_duration},
13608                                           $tracelevel)
13609                                                 if defined $::RD_TRACE;
13610                 my $thisprod = $thisrule->{"prods"}[0];
13611                 $text = $_[1];
13612                 my $_savetext;
13613                 @item = (q{ld_duration});
13614                 %item = (__RULE__ => q{ld_duration});
13615                 my $repcount = 0;
13616
13617
13618                 Parse::RecDescent::_trace(q{Trying terminal: [/YEARS?/i]}, Parse::RecDescent::_tracefirst($text),
13619                                           q{ld_duration},
13620                                           $tracelevel)
13621                                                 if defined $::RD_TRACE;
13622                 $lastsep = "";
13623                 $expectation->is(q{})->at($text);
13624
13625
13626                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:YEARS?)//i)
13627                 {
13628
13629                         $expectation->failed();
13630                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
13631                                                   Parse::RecDescent::_tracefirst($text))
13632                                         if defined $::RD_TRACE;
13633
13634                         last;
13635                 }
13636                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
13637                                                 . $& . q{])},
13638                                                   Parse::RecDescent::_tracefirst($text))
13639                                         if defined $::RD_TRACE;
13640                 push @item, $item{__PATTERN1__}=$&;
13641
13642
13643
13644                 Parse::RecDescent::_trace(q{>>Matched production: [/YEARS?/i]<<},
13645                                           Parse::RecDescent::_tracefirst($text),
13646                                           q{ld_duration},
13647                                           $tracelevel)
13648                                                 if defined $::RD_TRACE;
13649                 $_matched = 1;
13650                 last;
13651         }
13652
13653
13654         while (!$_matched && !$commit)
13655         {
13656
13657                 Parse::RecDescent::_trace(q{Trying production: [/MONTHS?/i]},
13658                                           Parse::RecDescent::_tracefirst($_[1]),
13659                                           q{ld_duration},
13660                                           $tracelevel)
13661                                                 if defined $::RD_TRACE;
13662                 my $thisprod = $thisrule->{"prods"}[1];
13663                 $text = $_[1];
13664                 my $_savetext;
13665                 @item = (q{ld_duration});
13666                 %item = (__RULE__ => q{ld_duration});
13667                 my $repcount = 0;
13668
13669
13670                 Parse::RecDescent::_trace(q{Trying terminal: [/MONTHS?/i]}, Parse::RecDescent::_tracefirst($text),
13671                                           q{ld_duration},
13672                                           $tracelevel)
13673                                                 if defined $::RD_TRACE;
13674                 $lastsep = "";
13675                 $expectation->is(q{})->at($text);
13676
13677
13678                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:MONTHS?)//i)
13679                 {
13680
13681                         $expectation->failed();
13682                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
13683                                                   Parse::RecDescent::_tracefirst($text))
13684                                         if defined $::RD_TRACE;
13685
13686                         last;
13687                 }
13688                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
13689                                                 . $& . q{])},
13690                                                   Parse::RecDescent::_tracefirst($text))
13691                                         if defined $::RD_TRACE;
13692                 push @item, $item{__PATTERN1__}=$&;
13693
13694
13695
13696                 Parse::RecDescent::_trace(q{>>Matched production: [/MONTHS?/i]<<},
13697                                           Parse::RecDescent::_tracefirst($text),
13698                                           q{ld_duration},
13699                                           $tracelevel)
13700                                                 if defined $::RD_TRACE;
13701                 $_matched = 1;
13702                 last;
13703         }
13704
13705
13706         while (!$_matched && !$commit)
13707         {
13708
13709                 Parse::RecDescent::_trace(q{Trying production: [/DAYS?/i]},
13710                                           Parse::RecDescent::_tracefirst($_[1]),
13711                                           q{ld_duration},
13712                                           $tracelevel)
13713                                                 if defined $::RD_TRACE;
13714                 my $thisprod = $thisrule->{"prods"}[2];
13715                 $text = $_[1];
13716                 my $_savetext;
13717                 @item = (q{ld_duration});
13718                 %item = (__RULE__ => q{ld_duration});
13719                 my $repcount = 0;
13720
13721
13722                 Parse::RecDescent::_trace(q{Trying terminal: [/DAYS?/i]}, Parse::RecDescent::_tracefirst($text),
13723                                           q{ld_duration},
13724                                           $tracelevel)
13725                                                 if defined $::RD_TRACE;
13726                 $lastsep = "";
13727                 $expectation->is(q{})->at($text);
13728
13729
13730                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DAYS?)//i)
13731                 {
13732
13733                         $expectation->failed();
13734                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
13735                                                   Parse::RecDescent::_tracefirst($text))
13736                                         if defined $::RD_TRACE;
13737
13738                         last;
13739                 }
13740                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
13741                                                 . $& . q{])},
13742                                                   Parse::RecDescent::_tracefirst($text))
13743                                         if defined $::RD_TRACE;
13744                 push @item, $item{__PATTERN1__}=$&;
13745
13746
13747
13748                 Parse::RecDescent::_trace(q{>>Matched production: [/DAYS?/i]<<},
13749                                           Parse::RecDescent::_tracefirst($text),
13750                                           q{ld_duration},
13751                                           $tracelevel)
13752                                                 if defined $::RD_TRACE;
13753                 $_matched = 1;
13754                 last;
13755         }
13756
13757
13758         while (!$_matched && !$commit)
13759         {
13760
13761                 Parse::RecDescent::_trace(q{Trying production: [/HOURS?/i]},
13762                                           Parse::RecDescent::_tracefirst($_[1]),
13763                                           q{ld_duration},
13764                                           $tracelevel)
13765                                                 if defined $::RD_TRACE;
13766                 my $thisprod = $thisrule->{"prods"}[3];
13767                 $text = $_[1];
13768                 my $_savetext;
13769                 @item = (q{ld_duration});
13770                 %item = (__RULE__ => q{ld_duration});
13771                 my $repcount = 0;
13772
13773
13774                 Parse::RecDescent::_trace(q{Trying terminal: [/HOURS?/i]}, Parse::RecDescent::_tracefirst($text),
13775                                           q{ld_duration},
13776                                           $tracelevel)
13777                                                 if defined $::RD_TRACE;
13778                 $lastsep = "";
13779                 $expectation->is(q{})->at($text);
13780
13781
13782                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:HOURS?)//i)
13783                 {
13784
13785                         $expectation->failed();
13786                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
13787                                                   Parse::RecDescent::_tracefirst($text))
13788                                         if defined $::RD_TRACE;
13789
13790                         last;
13791                 }
13792                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
13793                                                 . $& . q{])},
13794                                                   Parse::RecDescent::_tracefirst($text))
13795                                         if defined $::RD_TRACE;
13796                 push @item, $item{__PATTERN1__}=$&;
13797
13798
13799
13800                 Parse::RecDescent::_trace(q{>>Matched production: [/HOURS?/i]<<},
13801                                           Parse::RecDescent::_tracefirst($text),
13802                                           q{ld_duration},
13803                                           $tracelevel)
13804                                                 if defined $::RD_TRACE;
13805                 $_matched = 1;
13806                 last;
13807         }
13808
13809
13810         while (!$_matched && !$commit)
13811         {
13812
13813                 Parse::RecDescent::_trace(q{Trying production: [/MINUTES?/i]},
13814                                           Parse::RecDescent::_tracefirst($_[1]),
13815                                           q{ld_duration},
13816                                           $tracelevel)
13817                                                 if defined $::RD_TRACE;
13818                 my $thisprod = $thisrule->{"prods"}[4];
13819                 $text = $_[1];
13820                 my $_savetext;
13821                 @item = (q{ld_duration});
13822                 %item = (__RULE__ => q{ld_duration});
13823                 my $repcount = 0;
13824
13825
13826                 Parse::RecDescent::_trace(q{Trying terminal: [/MINUTES?/i]}, Parse::RecDescent::_tracefirst($text),
13827                                           q{ld_duration},
13828                                           $tracelevel)
13829                                                 if defined $::RD_TRACE;
13830                 $lastsep = "";
13831                 $expectation->is(q{})->at($text);
13832
13833
13834                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:MINUTES?)//i)
13835                 {
13836
13837                         $expectation->failed();
13838                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
13839                                                   Parse::RecDescent::_tracefirst($text))
13840                                         if defined $::RD_TRACE;
13841
13842                         last;
13843                 }
13844                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
13845                                                 . $& . q{])},
13846                                                   Parse::RecDescent::_tracefirst($text))
13847                                         if defined $::RD_TRACE;
13848                 push @item, $item{__PATTERN1__}=$&;
13849
13850
13851
13852                 Parse::RecDescent::_trace(q{>>Matched production: [/MINUTES?/i]<<},
13853                                           Parse::RecDescent::_tracefirst($text),
13854                                           q{ld_duration},
13855                                           $tracelevel)
13856                                                 if defined $::RD_TRACE;
13857                 $_matched = 1;
13858                 last;
13859         }
13860
13861
13862         while (!$_matched && !$commit)
13863         {
13864
13865                 Parse::RecDescent::_trace(q{Trying production: [/SECONDS?/i]},
13866                                           Parse::RecDescent::_tracefirst($_[1]),
13867                                           q{ld_duration},
13868                                           $tracelevel)
13869                                                 if defined $::RD_TRACE;
13870                 my $thisprod = $thisrule->{"prods"}[5];
13871                 $text = $_[1];
13872                 my $_savetext;
13873                 @item = (q{ld_duration});
13874                 %item = (__RULE__ => q{ld_duration});
13875                 my $repcount = 0;
13876
13877
13878                 Parse::RecDescent::_trace(q{Trying terminal: [/SECONDS?/i]}, Parse::RecDescent::_tracefirst($text),
13879                                           q{ld_duration},
13880                                           $tracelevel)
13881                                                 if defined $::RD_TRACE;
13882                 $lastsep = "";
13883                 $expectation->is(q{})->at($text);
13884
13885
13886                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SECONDS?)//i)
13887                 {
13888
13889                         $expectation->failed();
13890                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
13891                                                   Parse::RecDescent::_tracefirst($text))
13892                                         if defined $::RD_TRACE;
13893
13894                         last;
13895                 }
13896                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
13897                                                 . $& . q{])},
13898                                                   Parse::RecDescent::_tracefirst($text))
13899                                         if defined $::RD_TRACE;
13900                 push @item, $item{__PATTERN1__}=$&;
13901
13902
13903
13904                 Parse::RecDescent::_trace(q{>>Matched production: [/SECONDS?/i]<<},
13905                                           Parse::RecDescent::_tracefirst($text),
13906                                           q{ld_duration},
13907                                           $tracelevel)
13908                                                 if defined $::RD_TRACE;
13909                 $_matched = 1;
13910                 last;
13911         }
13912
13913
13914         while (!$_matched && !$commit)
13915         {
13916
13917                 Parse::RecDescent::_trace(q{Trying production: [/MICROSECONDS?/i]},
13918                                           Parse::RecDescent::_tracefirst($_[1]),
13919                                           q{ld_duration},
13920                                           $tracelevel)
13921                                                 if defined $::RD_TRACE;
13922                 my $thisprod = $thisrule->{"prods"}[6];
13923                 $text = $_[1];
13924                 my $_savetext;
13925                 @item = (q{ld_duration});
13926                 %item = (__RULE__ => q{ld_duration});
13927                 my $repcount = 0;
13928
13929
13930                 Parse::RecDescent::_trace(q{Trying terminal: [/MICROSECONDS?/i]}, Parse::RecDescent::_tracefirst($text),
13931                                           q{ld_duration},
13932                                           $tracelevel)
13933                                                 if defined $::RD_TRACE;
13934                 $lastsep = "";
13935                 $expectation->is(q{})->at($text);
13936
13937
13938                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:MICROSECONDS?)//i)
13939                 {
13940
13941                         $expectation->failed();
13942                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
13943                                                   Parse::RecDescent::_tracefirst($text))
13944                                         if defined $::RD_TRACE;
13945
13946                         last;
13947                 }
13948                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
13949                                                 . $& . q{])},
13950                                                   Parse::RecDescent::_tracefirst($text))
13951                                         if defined $::RD_TRACE;
13952                 push @item, $item{__PATTERN1__}=$&;
13953
13954
13955
13956                 Parse::RecDescent::_trace(q{>>Matched production: [/MICROSECONDS?/i]<<},
13957                                           Parse::RecDescent::_tracefirst($text),
13958                                           q{ld_duration},
13959                                           $tracelevel)
13960                                                 if defined $::RD_TRACE;
13961                 $_matched = 1;
13962                 last;
13963         }
13964
13965
13966         unless ( $_matched || defined($return) || defined($score) )
13967         {
13968
13969
13970                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
13971                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
13972                                          Parse::RecDescent::_tracefirst($_[1]),
13973                                          q{ld_duration},
13974                                          $tracelevel)
13975                                         if defined $::RD_TRACE;
13976                 return undef;
13977         }
13978         if (!defined($return) && defined($score))
13979         {
13980                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
13981                                           q{ld_duration},
13982                                           $tracelevel)
13983                                                 if defined $::RD_TRACE;
13984                 $return = $score_return;
13985         }
13986         splice @{$thisparser->{errors}}, $err_at;
13987         $return = $item[$#item] unless defined $return;
13988         if (defined $::RD_TRACE)
13989         {
13990                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
13991                                           $return . q{])}, "",
13992                                           q{ld_duration},
13993                                           $tracelevel);
13994                 Parse::RecDescent::_trace(q{(consumed: [} .
13995                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
13996                                           Parse::RecDescent::_tracefirst($text),
13997                                           , q{ld_duration},
13998                                           $tracelevel)
13999         }
14000         $_[1] = $text;
14001         return $return;
14002 }
14003
14004 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
14005 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::reference_a
14006 {
14007         my $thisparser = $_[0];
14008         use vars q{$tracelevel};
14009         local $tracelevel = ($tracelevel||0)+1;
14010         $ERRORS = 0;
14011         my $thisrule = $thisparser->{"rules"}{"reference_a"};
14012
14013         Parse::RecDescent::_trace(q{Trying rule: [reference_a]},
14014                                   Parse::RecDescent::_tracefirst($_[1]),
14015                                   q{reference_a},
14016                                   $tracelevel)
14017                                         if defined $::RD_TRACE;
14018
14019
14020         my $err_at = @{$thisparser->{errors}};
14021
14022         my $score;
14023         my $score_return;
14024         my $_tok;
14025         my $return = undef;
14026         my $_matched=0;
14027         my $commit=0;
14028         my @item = ();
14029         my %item = ();
14030         my $repeating =  defined($_[2]) && $_[2];
14031         my $_noactions = defined($_[3]) && $_[3];
14032         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
14033         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
14034         my $text;
14035         my $lastsep="";
14036         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
14037         $expectation->at($_[1]);
14038
14039         my $thisline;
14040         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
14041
14042
14043
14044         while (!$_matched && !$commit)
14045         {
14046
14047                 Parse::RecDescent::_trace(q{Trying production: [/REFERENCING/i old_new_corr old_new_table]},
14048                                           Parse::RecDescent::_tracefirst($_[1]),
14049                                           q{reference_a},
14050                                           $tracelevel)
14051                                                 if defined $::RD_TRACE;
14052                 my $thisprod = $thisrule->{"prods"}[0];
14053                 $text = $_[1];
14054                 my $_savetext;
14055                 @item = (q{reference_a});
14056                 %item = (__RULE__ => q{reference_a});
14057                 my $repcount = 0;
14058
14059
14060                 Parse::RecDescent::_trace(q{Trying terminal: [/REFERENCING/i]}, Parse::RecDescent::_tracefirst($text),
14061                                           q{reference_a},
14062                                           $tracelevel)
14063                                                 if defined $::RD_TRACE;
14064                 $lastsep = "";
14065                 $expectation->is(q{})->at($text);
14066
14067
14068                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REFERENCING)//i)
14069                 {
14070
14071                         $expectation->failed();
14072                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
14073                                                   Parse::RecDescent::_tracefirst($text))
14074                                         if defined $::RD_TRACE;
14075
14076                         last;
14077                 }
14078                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
14079                                                 . $& . q{])},
14080                                                   Parse::RecDescent::_tracefirst($text))
14081                                         if defined $::RD_TRACE;
14082                 push @item, $item{__PATTERN1__}=$&;
14083
14084
14085                 Parse::RecDescent::_trace(q{Trying repeated subrule: [old_new_corr]},
14086                                   Parse::RecDescent::_tracefirst($text),
14087                                   q{reference_a},
14088                                   $tracelevel)
14089                                         if defined $::RD_TRACE;
14090                 $expectation->is(q{old_new_corr})->at($text);
14091
14092                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::old_new_corr, 0, 2, $_noactions,$expectation,undef)))
14093                 {
14094                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [old_new_corr]>>},
14095                                                   Parse::RecDescent::_tracefirst($text),
14096                                                   q{reference_a},
14097                                                   $tracelevel)
14098                                                         if defined $::RD_TRACE;
14099                         last;
14100                 }
14101                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [old_new_corr]<< (}
14102                                         . @$_tok . q{ times)},
14103
14104                                           Parse::RecDescent::_tracefirst($text),
14105                                           q{reference_a},
14106                                           $tracelevel)
14107                                                 if defined $::RD_TRACE;
14108                 $item{q{old_new_corr(0..2)}} = $_tok;
14109                 push @item, $_tok;
14110
14111
14112
14113                 Parse::RecDescent::_trace(q{Trying repeated subrule: [old_new_table]},
14114                                   Parse::RecDescent::_tracefirst($text),
14115                                   q{reference_a},
14116                                   $tracelevel)
14117                                         if defined $::RD_TRACE;
14118                 $expectation->is(q{old_new_table})->at($text);
14119
14120                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::old_new_table, 0, 2, $_noactions,$expectation,undef)))
14121                 {
14122                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [old_new_table]>>},
14123                                                   Parse::RecDescent::_tracefirst($text),
14124                                                   q{reference_a},
14125                                                   $tracelevel)
14126                                                         if defined $::RD_TRACE;
14127                         last;
14128                 }
14129                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [old_new_table]<< (}
14130                                         . @$_tok . q{ times)},
14131
14132                                           Parse::RecDescent::_tracefirst($text),
14133                                           q{reference_a},
14134                                           $tracelevel)
14135                                                 if defined $::RD_TRACE;
14136                 $item{q{old_new_table(0..2)}} = $_tok;
14137                 push @item, $_tok;
14138
14139
14140
14141                 Parse::RecDescent::_trace(q{Trying action},
14142                                           Parse::RecDescent::_tracefirst($text),
14143                                           q{reference_a},
14144                                           $tracelevel)
14145                                                 if defined $::RD_TRACE;
14146
14147
14148                 $_tok = ($_noactions) ? 0 : do { $return = join(' ', $item[1], join(' ', @{$item[2]}), join(' ', @{$item[3]})  ) };
14149                 unless (defined $_tok)
14150                 {
14151                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
14152                                         if defined $::RD_TRACE;
14153                         last;
14154                 }
14155                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
14156                                           . $_tok . q{])},
14157                                           Parse::RecDescent::_tracefirst($text))
14158                                                 if defined $::RD_TRACE;
14159                 push @item, $_tok;
14160                 $item{__ACTION1__}=$_tok;
14161
14162
14163
14164                 Parse::RecDescent::_trace(q{>>Matched production: [/REFERENCING/i old_new_corr old_new_table]<<},
14165                                           Parse::RecDescent::_tracefirst($text),
14166                                           q{reference_a},
14167                                           $tracelevel)
14168                                                 if defined $::RD_TRACE;
14169                 $_matched = 1;
14170                 last;
14171         }
14172
14173
14174         unless ( $_matched || defined($return) || defined($score) )
14175         {
14176
14177
14178                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
14179                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
14180                                          Parse::RecDescent::_tracefirst($_[1]),
14181                                          q{reference_a},
14182                                          $tracelevel)
14183                                         if defined $::RD_TRACE;
14184                 return undef;
14185         }
14186         if (!defined($return) && defined($score))
14187         {
14188                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
14189                                           q{reference_a},
14190                                           $tracelevel)
14191                                                 if defined $::RD_TRACE;
14192                 $return = $score_return;
14193         }
14194         splice @{$thisparser->{errors}}, $err_at;
14195         $return = $item[$#item] unless defined $return;
14196         if (defined $::RD_TRACE)
14197         {
14198                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
14199                                           $return . q{])}, "",
14200                                           q{reference_a},
14201                                           $tracelevel);
14202                 Parse::RecDescent::_trace(q{(consumed: [} .
14203                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
14204                                           Parse::RecDescent::_tracefirst($text),
14205                                           , q{reference_a},
14206                                           $tracelevel)
14207         }
14208         $_[1] = $text;
14209         return $return;
14210 }
14211
14212 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
14213 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::cast_specification
14214 {
14215         my $thisparser = $_[0];
14216         use vars q{$tracelevel};
14217         local $tracelevel = ($tracelevel||0)+1;
14218         $ERRORS = 0;
14219         my $thisrule = $thisparser->{"rules"}{"cast_specification"};
14220
14221         Parse::RecDescent::_trace(q{Trying rule: [cast_specification]},
14222                                   Parse::RecDescent::_tracefirst($_[1]),
14223                                   q{cast_specification},
14224                                   $tracelevel)
14225                                         if defined $::RD_TRACE;
14226
14227
14228         my $err_at = @{$thisparser->{errors}};
14229
14230         my $score;
14231         my $score_return;
14232         my $_tok;
14233         my $return = undef;
14234         my $_matched=0;
14235         my $commit=0;
14236         my @item = ();
14237         my %item = ();
14238         my $repeating =  defined($_[2]) && $_[2];
14239         my $_noactions = defined($_[3]) && $_[3];
14240         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
14241         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
14242         my $text;
14243         my $lastsep="";
14244         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
14245         $expectation->at($_[1]);
14246
14247         my $thisline;
14248         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
14249
14250
14251
14252         while (!$_matched && !$commit)
14253         {
14254
14255                 Parse::RecDescent::_trace(q{Trying production: [/CAST/i '(' expression, or /NULL/i, or parameter_marker /AS/i data_type /SCOPE/ ')']},
14256                                           Parse::RecDescent::_tracefirst($_[1]),
14257                                           q{cast_specification},
14258                                           $tracelevel)
14259                                                 if defined $::RD_TRACE;
14260                 my $thisprod = $thisrule->{"prods"}[0];
14261                 $text = $_[1];
14262                 my $_savetext;
14263                 @item = (q{cast_specification});
14264                 %item = (__RULE__ => q{cast_specification});
14265                 my $repcount = 0;
14266
14267
14268                 Parse::RecDescent::_trace(q{Trying terminal: [/CAST/i]}, Parse::RecDescent::_tracefirst($text),
14269                                           q{cast_specification},
14270                                           $tracelevel)
14271                                                 if defined $::RD_TRACE;
14272                 $lastsep = "";
14273                 $expectation->is(q{})->at($text);
14274
14275
14276                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CAST)//i)
14277                 {
14278
14279                         $expectation->failed();
14280                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
14281                                                   Parse::RecDescent::_tracefirst($text))
14282                                         if defined $::RD_TRACE;
14283
14284                         last;
14285                 }
14286                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
14287                                                 . $& . q{])},
14288                                                   Parse::RecDescent::_tracefirst($text))
14289                                         if defined $::RD_TRACE;
14290                 push @item, $item{__PATTERN1__}=$&;
14291
14292
14293                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
14294                                           Parse::RecDescent::_tracefirst($text),
14295                                           q{cast_specification},
14296                                           $tracelevel)
14297                                                 if defined $::RD_TRACE;
14298                 $lastsep = "";
14299                 $expectation->is(q{'('})->at($text);
14300
14301
14302                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
14303                 {
14304
14305                         $expectation->failed();
14306                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
14307                                                   Parse::RecDescent::_tracefirst($text))
14308                                                         if defined $::RD_TRACE;
14309                         last;
14310                 }
14311                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
14312                                                 . $& . q{])},
14313                                                   Parse::RecDescent::_tracefirst($text))
14314                                                         if defined $::RD_TRACE;
14315                 push @item, $item{__STRING1__}=$&;
14316
14317
14318                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule_cast_specification]},
14319                                   Parse::RecDescent::_tracefirst($text),
14320                                   q{cast_specification},
14321                                   $tracelevel)
14322                                         if defined $::RD_TRACE;
14323                 if (1) { no strict qw{refs};
14324                 $expectation->is(q{expression, or /NULL/i, or parameter_marker})->at($text);
14325                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_cast_specification($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
14326                 {
14327
14328                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule_cast_specification]>>},
14329                                                   Parse::RecDescent::_tracefirst($text),
14330                                                   q{cast_specification},
14331                                                   $tracelevel)
14332                                                         if defined $::RD_TRACE;
14333                         $expectation->failed();
14334                         last;
14335                 }
14336                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule_cast_specification]<< (return value: [}
14337                                         . $_tok . q{]},
14338
14339                                           Parse::RecDescent::_tracefirst($text),
14340                                           q{cast_specification},
14341                                           $tracelevel)
14342                                                 if defined $::RD_TRACE;
14343                 $item{q{_alternation_1_of_production_1_of_rule_cast_specification}} = $_tok;
14344                 push @item, $_tok;
14345
14346                 }
14347
14348                 Parse::RecDescent::_trace(q{Trying terminal: [/AS/i]}, Parse::RecDescent::_tracefirst($text),
14349                                           q{cast_specification},
14350                                           $tracelevel)
14351                                                 if defined $::RD_TRACE;
14352                 $lastsep = "";
14353                 $expectation->is(q{/AS/i})->at($text);
14354
14355
14356                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:AS)//i)
14357                 {
14358
14359                         $expectation->failed();
14360                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
14361                                                   Parse::RecDescent::_tracefirst($text))
14362                                         if defined $::RD_TRACE;
14363
14364                         last;
14365                 }
14366                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
14367                                                 . $& . q{])},
14368                                                   Parse::RecDescent::_tracefirst($text))
14369                                         if defined $::RD_TRACE;
14370                 push @item, $item{__PATTERN2__}=$&;
14371
14372
14373                 Parse::RecDescent::_trace(q{Trying subrule: [data_type]},
14374                                   Parse::RecDescent::_tracefirst($text),
14375                                   q{cast_specification},
14376                                   $tracelevel)
14377                                         if defined $::RD_TRACE;
14378                 if (1) { no strict qw{refs};
14379                 $expectation->is(q{data_type})->at($text);
14380                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::data_type($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
14381                 {
14382
14383                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [data_type]>>},
14384                                                   Parse::RecDescent::_tracefirst($text),
14385                                                   q{cast_specification},
14386                                                   $tracelevel)
14387                                                         if defined $::RD_TRACE;
14388                         $expectation->failed();
14389                         last;
14390                 }
14391                 Parse::RecDescent::_trace(q{>>Matched subrule: [data_type]<< (return value: [}
14392                                         . $_tok . q{]},
14393
14394                                           Parse::RecDescent::_tracefirst($text),
14395                                           q{cast_specification},
14396                                           $tracelevel)
14397                                                 if defined $::RD_TRACE;
14398                 $item{q{data_type}} = $_tok;
14399                 push @item, $_tok;
14400
14401                 }
14402
14403                 Parse::RecDescent::_trace(q{Trying repeated subrule: [/SCOPE/]},
14404                                   Parse::RecDescent::_tracefirst($text),
14405                                   q{cast_specification},
14406                                   $tracelevel)
14407                                         if defined $::RD_TRACE;
14408                 $expectation->is(q{/SCOPE/})->at($text);
14409
14410                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_2_of_production_1_of_rule_cast_specification, 0, 1, $_noactions,$expectation,undef)))
14411                 {
14412                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [/SCOPE/]>>},
14413                                                   Parse::RecDescent::_tracefirst($text),
14414                                                   q{cast_specification},
14415                                                   $tracelevel)
14416                                                         if defined $::RD_TRACE;
14417                         last;
14418                 }
14419                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [_alternation_2_of_production_1_of_rule_cast_specification]<< (}
14420                                         . @$_tok . q{ times)},
14421
14422                                           Parse::RecDescent::_tracefirst($text),
14423                                           q{cast_specification},
14424                                           $tracelevel)
14425                                                 if defined $::RD_TRACE;
14426                 $item{q{_alternation_2_of_production_1_of_rule_cast_specification(?)}} = $_tok;
14427                 push @item, $_tok;
14428
14429
14430
14431                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
14432                                           Parse::RecDescent::_tracefirst($text),
14433                                           q{cast_specification},
14434                                           $tracelevel)
14435                                                 if defined $::RD_TRACE;
14436                 $lastsep = "";
14437                 $expectation->is(q{')'})->at($text);
14438
14439
14440                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
14441                 {
14442
14443                         $expectation->failed();
14444                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
14445                                                   Parse::RecDescent::_tracefirst($text))
14446                                                         if defined $::RD_TRACE;
14447                         last;
14448                 }
14449                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
14450                                                 . $& . q{])},
14451                                                   Parse::RecDescent::_tracefirst($text))
14452                                                         if defined $::RD_TRACE;
14453                 push @item, $item{__STRING2__}=$&;
14454
14455
14456
14457                 Parse::RecDescent::_trace(q{>>Matched production: [/CAST/i '(' expression, or /NULL/i, or parameter_marker /AS/i data_type /SCOPE/ ')']<<},
14458                                           Parse::RecDescent::_tracefirst($text),
14459                                           q{cast_specification},
14460                                           $tracelevel)
14461                                                 if defined $::RD_TRACE;
14462                 $_matched = 1;
14463                 last;
14464         }
14465
14466
14467         unless ( $_matched || defined($return) || defined($score) )
14468         {
14469
14470
14471                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
14472                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
14473                                          Parse::RecDescent::_tracefirst($_[1]),
14474                                          q{cast_specification},
14475                                          $tracelevel)
14476                                         if defined $::RD_TRACE;
14477                 return undef;
14478         }
14479         if (!defined($return) && defined($score))
14480         {
14481                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
14482                                           q{cast_specification},
14483                                           $tracelevel)
14484                                                 if defined $::RD_TRACE;
14485                 $return = $score_return;
14486         }
14487         splice @{$thisparser->{errors}}, $err_at;
14488         $return = $item[$#item] unless defined $return;
14489         if (defined $::RD_TRACE)
14490         {
14491                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
14492                                           $return . q{])}, "",
14493                                           q{cast_specification},
14494                                           $tracelevel);
14495                 Parse::RecDescent::_trace(q{(consumed: [} .
14496                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
14497                                           Parse::RecDescent::_tracefirst($text),
14498                                           , q{cast_specification},
14499                                           $tracelevel)
14500         }
14501         $_[1] = $text;
14502         return $return;
14503 }
14504
14505 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
14506 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::type
14507 {
14508         my $thisparser = $_[0];
14509         use vars q{$tracelevel};
14510         local $tracelevel = ($tracelevel||0)+1;
14511         $ERRORS = 0;
14512         my $thisrule = $thisparser->{"rules"}{"type"};
14513
14514         Parse::RecDescent::_trace(q{Trying rule: [type]},
14515                                   Parse::RecDescent::_tracefirst($_[1]),
14516                                   q{type},
14517                                   $tracelevel)
14518                                         if defined $::RD_TRACE;
14519
14520
14521         my $err_at = @{$thisparser->{errors}};
14522
14523         my $score;
14524         my $score_return;
14525         my $_tok;
14526         my $return = undef;
14527         my $_matched=0;
14528         my $commit=0;
14529         my @item = ();
14530         my %item = ();
14531         my $repeating =  defined($_[2]) && $_[2];
14532         my $_noactions = defined($_[3]) && $_[3];
14533         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
14534         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
14535         my $text;
14536         my $lastsep="";
14537         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
14538         $expectation->at($_[1]);
14539
14540         my $thisline;
14541         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
14542
14543
14544
14545         while (!$_matched && !$commit)
14546         {
14547
14548                 Parse::RecDescent::_trace(q{Trying production: [/UPDATE/i /OF/i <leftop: column_name /,/ column_name>]},
14549                                           Parse::RecDescent::_tracefirst($_[1]),
14550                                           q{type},
14551                                           $tracelevel)
14552                                                 if defined $::RD_TRACE;
14553                 my $thisprod = $thisrule->{"prods"}[0];
14554                 $text = $_[1];
14555                 my $_savetext;
14556                 @item = (q{type});
14557                 %item = (__RULE__ => q{type});
14558                 my $repcount = 0;
14559
14560
14561                 Parse::RecDescent::_trace(q{Trying terminal: [/UPDATE/i]}, Parse::RecDescent::_tracefirst($text),
14562                                           q{type},
14563                                           $tracelevel)
14564                                                 if defined $::RD_TRACE;
14565                 $lastsep = "";
14566                 $expectation->is(q{})->at($text);
14567
14568
14569                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:UPDATE)//i)
14570                 {
14571
14572                         $expectation->failed();
14573                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
14574                                                   Parse::RecDescent::_tracefirst($text))
14575                                         if defined $::RD_TRACE;
14576
14577                         last;
14578                 }
14579                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
14580                                                 . $& . q{])},
14581                                                   Parse::RecDescent::_tracefirst($text))
14582                                         if defined $::RD_TRACE;
14583                 push @item, $item{__PATTERN1__}=$&;
14584
14585
14586                 Parse::RecDescent::_trace(q{Trying terminal: [/OF/i]}, Parse::RecDescent::_tracefirst($text),
14587                                           q{type},
14588                                           $tracelevel)
14589                                                 if defined $::RD_TRACE;
14590                 $lastsep = "";
14591                 $expectation->is(q{/OF/i})->at($text);
14592
14593
14594                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:OF)//i)
14595                 {
14596
14597                         $expectation->failed();
14598                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
14599                                                   Parse::RecDescent::_tracefirst($text))
14600                                         if defined $::RD_TRACE;
14601
14602                         last;
14603                 }
14604                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
14605                                                 . $& . q{])},
14606                                                   Parse::RecDescent::_tracefirst($text))
14607                                         if defined $::RD_TRACE;
14608                 push @item, $item{__PATTERN2__}=$&;
14609
14610
14611                 Parse::RecDescent::_trace(q{Trying operator: [<leftop: column_name /,/ column_name>]},
14612                                   Parse::RecDescent::_tracefirst($text),
14613                                   q{type},
14614                                   $tracelevel)
14615                                         if defined $::RD_TRACE;
14616                 $expectation->is(q{<leftop: column_name /,/ column_name>})->at($text);
14617
14618                 $_tok = undef;
14619                 OPLOOP: while (1)
14620                 {
14621                   $repcount = 0;
14622                   my  @item;
14623
14624                   # MATCH LEFTARG
14625
14626                 Parse::RecDescent::_trace(q{Trying subrule: [column_name]},
14627                                   Parse::RecDescent::_tracefirst($text),
14628                                   q{type},
14629                                   $tracelevel)
14630                                         if defined $::RD_TRACE;
14631                 if (1) { no strict qw{refs};
14632                 $expectation->is(q{column_name})->at($text);
14633                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::column_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
14634                 {
14635
14636                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [column_name]>>},
14637                                                   Parse::RecDescent::_tracefirst($text),
14638                                                   q{type},
14639                                                   $tracelevel)
14640                                                         if defined $::RD_TRACE;
14641                         $expectation->failed();
14642                         last;
14643                 }
14644                 Parse::RecDescent::_trace(q{>>Matched subrule: [column_name]<< (return value: [}
14645                                         . $_tok . q{]},
14646
14647                                           Parse::RecDescent::_tracefirst($text),
14648                                           q{type},
14649                                           $tracelevel)
14650                                                 if defined $::RD_TRACE;
14651                 $item{q{column_name}} = $_tok;
14652                 push @item, $_tok;
14653
14654                 }
14655
14656
14657                   $repcount++;
14658
14659                   my $savetext = $text;
14660                   my $backtrack;
14661
14662                   # MATCH (OP RIGHTARG)(s)
14663                   while ($repcount < 100000000)
14664                   {
14665                         $backtrack = 0;
14666
14667                 Parse::RecDescent::_trace(q{Trying terminal: [/,/]}, Parse::RecDescent::_tracefirst($text),
14668                                           q{type},
14669                                           $tracelevel)
14670                                                 if defined $::RD_TRACE;
14671                 $lastsep = "";
14672                 $expectation->is(q{/,/})->at($text);
14673
14674
14675                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:,)//)
14676                 {
14677
14678                         $expectation->failed();
14679                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
14680                                                   Parse::RecDescent::_tracefirst($text))
14681                                         if defined $::RD_TRACE;
14682
14683                         last;
14684                 }
14685                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
14686                                                 . $& . q{])},
14687                                                   Parse::RecDescent::_tracefirst($text))
14688                                         if defined $::RD_TRACE;
14689                 push @item, $item{__PATTERN3__}=$&;
14690
14691
14692                         pop @item;
14693                         if (defined $1) {push @item, $item{'column_name(s)'}=$1; $backtrack=1;}
14694
14695                 Parse::RecDescent::_trace(q{Trying subrule: [column_name]},
14696                                   Parse::RecDescent::_tracefirst($text),
14697                                   q{type},
14698                                   $tracelevel)
14699                                         if defined $::RD_TRACE;
14700                 if (1) { no strict qw{refs};
14701                 $expectation->is(q{column_name})->at($text);
14702                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::column_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
14703                 {
14704
14705                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [column_name]>>},
14706                                                   Parse::RecDescent::_tracefirst($text),
14707                                                   q{type},
14708                                                   $tracelevel)
14709                                                         if defined $::RD_TRACE;
14710                         $expectation->failed();
14711                         last;
14712                 }
14713                 Parse::RecDescent::_trace(q{>>Matched subrule: [column_name]<< (return value: [}
14714                                         . $_tok . q{]},
14715
14716                                           Parse::RecDescent::_tracefirst($text),
14717                                           q{type},
14718                                           $tracelevel)
14719                                                 if defined $::RD_TRACE;
14720                 $item{q{column_name}} = $_tok;
14721                 push @item, $_tok;
14722
14723                 }
14724
14725                         $savetext = $text;
14726                         $repcount++;
14727                   }
14728                   $text = $savetext;
14729                   pop @item if $backtrack;
14730
14731                   unless (@item) { undef $_tok; last }
14732                   $_tok = [ @item ];
14733                   last;
14734                 }
14735
14736                 unless ($repcount>=1)
14737                 {
14738                         Parse::RecDescent::_trace(q{<<Didn't match operator: [<leftop: column_name /,/ column_name>]>>},
14739                                                   Parse::RecDescent::_tracefirst($text),
14740                                                   q{type},
14741                                                   $tracelevel)
14742                                                         if defined $::RD_TRACE;
14743                         $expectation->failed();
14744                         last;
14745                 }
14746                 Parse::RecDescent::_trace(q{>>Matched operator: [<leftop: column_name /,/ column_name>]<< (return value: [}
14747                                           . qq{@{$_tok||[]}} . q{]},
14748                                           Parse::RecDescent::_tracefirst($text),
14749                                           q{type},
14750                                           $tracelevel)
14751                                                 if defined $::RD_TRACE;
14752
14753                 push @item, $item{'column_name(s)'}=$_tok||[];
14754
14755
14756                 Parse::RecDescent::_trace(q{Trying action},
14757                                           Parse::RecDescent::_tracefirst($text),
14758                                           q{type},
14759                                           $tracelevel)
14760                                                 if defined $::RD_TRACE;
14761
14762
14763                 $_tok = ($_noactions) ? 0 : do { $return = { event  => 'update_on',
14764               fields => $item[3] }
14765 };
14766                 unless (defined $_tok)
14767                 {
14768                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
14769                                         if defined $::RD_TRACE;
14770                         last;
14771                 }
14772                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
14773                                           . $_tok . q{])},
14774                                           Parse::RecDescent::_tracefirst($text))
14775                                                 if defined $::RD_TRACE;
14776                 push @item, $_tok;
14777                 $item{__ACTION1__}=$_tok;
14778
14779
14780
14781                 Parse::RecDescent::_trace(q{>>Matched production: [/UPDATE/i /OF/i <leftop: column_name /,/ column_name>]<<},
14782                                           Parse::RecDescent::_tracefirst($text),
14783                                           q{type},
14784                                           $tracelevel)
14785                                                 if defined $::RD_TRACE;
14786                 $_matched = 1;
14787                 last;
14788         }
14789
14790
14791         while (!$_matched && !$commit)
14792         {
14793
14794                 Parse::RecDescent::_trace(q{Trying production: [/INSERT/i, or /DELETE/i, or /UPDATE/i]},
14795                                           Parse::RecDescent::_tracefirst($_[1]),
14796                                           q{type},
14797                                           $tracelevel)
14798                                                 if defined $::RD_TRACE;
14799                 my $thisprod = $thisrule->{"prods"}[1];
14800                 $text = $_[1];
14801                 my $_savetext;
14802                 @item = (q{type});
14803                 %item = (__RULE__ => q{type});
14804                 my $repcount = 0;
14805
14806
14807                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_2_of_rule_type]},
14808                                   Parse::RecDescent::_tracefirst($text),
14809                                   q{type},
14810                                   $tracelevel)
14811                                         if defined $::RD_TRACE;
14812                 if (1) { no strict qw{refs};
14813                 $expectation->is(q{})->at($text);
14814                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_2_of_rule_type($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
14815                 {
14816
14817                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_2_of_rule_type]>>},
14818                                                   Parse::RecDescent::_tracefirst($text),
14819                                                   q{type},
14820                                                   $tracelevel)
14821                                                         if defined $::RD_TRACE;
14822                         $expectation->failed();
14823                         last;
14824                 }
14825                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_2_of_rule_type]<< (return value: [}
14826                                         . $_tok . q{]},
14827
14828                                           Parse::RecDescent::_tracefirst($text),
14829                                           q{type},
14830                                           $tracelevel)
14831                                                 if defined $::RD_TRACE;
14832                 $item{q{_alternation_1_of_production_2_of_rule_type}} = $_tok;
14833                 push @item, $_tok;
14834
14835                 }
14836
14837                 Parse::RecDescent::_trace(q{Trying action},
14838                                           Parse::RecDescent::_tracefirst($text),
14839                                           q{type},
14840                                           $tracelevel)
14841                                                 if defined $::RD_TRACE;
14842
14843
14844                 $_tok = ($_noactions) ? 0 : do { $return = { event => $item[1] } };
14845                 unless (defined $_tok)
14846                 {
14847                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
14848                                         if defined $::RD_TRACE;
14849                         last;
14850                 }
14851                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
14852                                           . $_tok . q{])},
14853                                           Parse::RecDescent::_tracefirst($text))
14854                                                 if defined $::RD_TRACE;
14855                 push @item, $_tok;
14856                 $item{__ACTION1__}=$_tok;
14857
14858
14859
14860                 Parse::RecDescent::_trace(q{>>Matched production: [/INSERT/i, or /DELETE/i, or /UPDATE/i]<<},
14861                                           Parse::RecDescent::_tracefirst($text),
14862                                           q{type},
14863                                           $tracelevel)
14864                                                 if defined $::RD_TRACE;
14865                 $_matched = 1;
14866                 last;
14867         }
14868
14869
14870         unless ( $_matched || defined($return) || defined($score) )
14871         {
14872
14873
14874                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
14875                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
14876                                          Parse::RecDescent::_tracefirst($_[1]),
14877                                          q{type},
14878                                          $tracelevel)
14879                                         if defined $::RD_TRACE;
14880                 return undef;
14881         }
14882         if (!defined($return) && defined($score))
14883         {
14884                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
14885                                           q{type},
14886                                           $tracelevel)
14887                                                 if defined $::RD_TRACE;
14888                 $return = $score_return;
14889         }
14890         splice @{$thisparser->{errors}}, $err_at;
14891         $return = $item[$#item] unless defined $return;
14892         if (defined $::RD_TRACE)
14893         {
14894                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
14895                                           $return . q{])}, "",
14896                                           q{type},
14897                                           $tracelevel);
14898                 Parse::RecDescent::_trace(q{(consumed: [} .
14899                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
14900                                           Parse::RecDescent::_tracefirst($text),
14901                                           , q{type},
14902                                           $tracelevel)
14903         }
14904         $_[1] = $text;
14905         return $return;
14906 }
14907
14908 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
14909 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_12_of_rule_sysibm_function
14910 {
14911         my $thisparser = $_[0];
14912         use vars q{$tracelevel};
14913         local $tracelevel = ($tracelevel||0)+1;
14914         $ERRORS = 0;
14915         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_12_of_rule_sysibm_function"};
14916
14917         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_12_of_rule_sysibm_function]},
14918                                   Parse::RecDescent::_tracefirst($_[1]),
14919                                   q{_alternation_1_of_production_12_of_rule_sysibm_function},
14920                                   $tracelevel)
14921                                         if defined $::RD_TRACE;
14922
14923
14924         my $err_at = @{$thisparser->{errors}};
14925
14926         my $score;
14927         my $score_return;
14928         my $_tok;
14929         my $return = undef;
14930         my $_matched=0;
14931         my $commit=0;
14932         my @item = ();
14933         my %item = ();
14934         my $repeating =  defined($_[2]) && $_[2];
14935         my $_noactions = defined($_[3]) && $_[3];
14936         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
14937         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
14938         my $text;
14939         my $lastsep="";
14940         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
14941         $expectation->at($_[1]);
14942
14943         my $thisline;
14944         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
14945
14946
14947
14948         while (!$_matched && !$commit)
14949         {
14950
14951                 Parse::RecDescent::_trace(q{Trying production: [/COVARIANCE/i]},
14952                                           Parse::RecDescent::_tracefirst($_[1]),
14953                                           q{_alternation_1_of_production_12_of_rule_sysibm_function},
14954                                           $tracelevel)
14955                                                 if defined $::RD_TRACE;
14956                 my $thisprod = $thisrule->{"prods"}[0];
14957                 $text = $_[1];
14958                 my $_savetext;
14959                 @item = (q{_alternation_1_of_production_12_of_rule_sysibm_function});
14960                 %item = (__RULE__ => q{_alternation_1_of_production_12_of_rule_sysibm_function});
14961                 my $repcount = 0;
14962
14963
14964                 Parse::RecDescent::_trace(q{Trying terminal: [/COVARIANCE/i]}, Parse::RecDescent::_tracefirst($text),
14965                                           q{_alternation_1_of_production_12_of_rule_sysibm_function},
14966                                           $tracelevel)
14967                                                 if defined $::RD_TRACE;
14968                 $lastsep = "";
14969                 $expectation->is(q{})->at($text);
14970
14971
14972                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:COVARIANCE)//i)
14973                 {
14974
14975                         $expectation->failed();
14976                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
14977                                                   Parse::RecDescent::_tracefirst($text))
14978                                         if defined $::RD_TRACE;
14979
14980                         last;
14981                 }
14982                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
14983                                                 . $& . q{])},
14984                                                   Parse::RecDescent::_tracefirst($text))
14985                                         if defined $::RD_TRACE;
14986                 push @item, $item{__PATTERN1__}=$&;
14987
14988
14989
14990                 Parse::RecDescent::_trace(q{>>Matched production: [/COVARIANCE/i]<<},
14991                                           Parse::RecDescent::_tracefirst($text),
14992                                           q{_alternation_1_of_production_12_of_rule_sysibm_function},
14993                                           $tracelevel)
14994                                                 if defined $::RD_TRACE;
14995                 $_matched = 1;
14996                 last;
14997         }
14998
14999
15000         while (!$_matched && !$commit)
15001         {
15002
15003                 Parse::RecDescent::_trace(q{Trying production: [/COVAR/i]},
15004                                           Parse::RecDescent::_tracefirst($_[1]),
15005                                           q{_alternation_1_of_production_12_of_rule_sysibm_function},
15006                                           $tracelevel)
15007                                                 if defined $::RD_TRACE;
15008                 my $thisprod = $thisrule->{"prods"}[1];
15009                 $text = $_[1];
15010                 my $_savetext;
15011                 @item = (q{_alternation_1_of_production_12_of_rule_sysibm_function});
15012                 %item = (__RULE__ => q{_alternation_1_of_production_12_of_rule_sysibm_function});
15013                 my $repcount = 0;
15014
15015
15016                 Parse::RecDescent::_trace(q{Trying terminal: [/COVAR/i]}, Parse::RecDescent::_tracefirst($text),
15017                                           q{_alternation_1_of_production_12_of_rule_sysibm_function},
15018                                           $tracelevel)
15019                                                 if defined $::RD_TRACE;
15020                 $lastsep = "";
15021                 $expectation->is(q{})->at($text);
15022
15023
15024                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:COVAR)//i)
15025                 {
15026
15027                         $expectation->failed();
15028                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
15029                                                   Parse::RecDescent::_tracefirst($text))
15030                                         if defined $::RD_TRACE;
15031
15032                         last;
15033                 }
15034                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
15035                                                 . $& . q{])},
15036                                                   Parse::RecDescent::_tracefirst($text))
15037                                         if defined $::RD_TRACE;
15038                 push @item, $item{__PATTERN1__}=$&;
15039
15040
15041
15042                 Parse::RecDescent::_trace(q{>>Matched production: [/COVAR/i]<<},
15043                                           Parse::RecDescent::_tracefirst($text),
15044                                           q{_alternation_1_of_production_12_of_rule_sysibm_function},
15045                                           $tracelevel)
15046                                                 if defined $::RD_TRACE;
15047                 $_matched = 1;
15048                 last;
15049         }
15050
15051
15052         unless ( $_matched || defined($return) || defined($score) )
15053         {
15054
15055
15056                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
15057                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
15058                                          Parse::RecDescent::_tracefirst($_[1]),
15059                                          q{_alternation_1_of_production_12_of_rule_sysibm_function},
15060                                          $tracelevel)
15061                                         if defined $::RD_TRACE;
15062                 return undef;
15063         }
15064         if (!defined($return) && defined($score))
15065         {
15066                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
15067                                           q{_alternation_1_of_production_12_of_rule_sysibm_function},
15068                                           $tracelevel)
15069                                                 if defined $::RD_TRACE;
15070                 $return = $score_return;
15071         }
15072         splice @{$thisparser->{errors}}, $err_at;
15073         $return = $item[$#item] unless defined $return;
15074         if (defined $::RD_TRACE)
15075         {
15076                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
15077                                           $return . q{])}, "",
15078                                           q{_alternation_1_of_production_12_of_rule_sysibm_function},
15079                                           $tracelevel);
15080                 Parse::RecDescent::_trace(q{(consumed: [} .
15081                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
15082                                           Parse::RecDescent::_tracefirst($text),
15083                                           , q{_alternation_1_of_production_12_of_rule_sysibm_function},
15084                                           $tracelevel)
15085         }
15086         $_[1] = $text;
15087         return $return;
15088 }
15089
15090 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
15091 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::scalar_fullselect
15092 {
15093         my $thisparser = $_[0];
15094         use vars q{$tracelevel};
15095         local $tracelevel = ($tracelevel||0)+1;
15096         $ERRORS = 0;
15097         my $thisrule = $thisparser->{"rules"}{"scalar_fullselect"};
15098
15099         Parse::RecDescent::_trace(q{Trying rule: [scalar_fullselect]},
15100                                   Parse::RecDescent::_tracefirst($_[1]),
15101                                   q{scalar_fullselect},
15102                                   $tracelevel)
15103                                         if defined $::RD_TRACE;
15104
15105
15106         my $err_at = @{$thisparser->{errors}};
15107
15108         my $score;
15109         my $score_return;
15110         my $_tok;
15111         my $return = undef;
15112         my $_matched=0;
15113         my $commit=0;
15114         my @item = ();
15115         my %item = ();
15116         my $repeating =  defined($_[2]) && $_[2];
15117         my $_noactions = defined($_[3]) && $_[3];
15118         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
15119         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
15120         my $text;
15121         my $lastsep="";
15122         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
15123         $expectation->at($_[1]);
15124
15125         my $thisline;
15126         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
15127
15128
15129
15130         while (!$_matched && !$commit)
15131         {
15132
15133                 Parse::RecDescent::_trace(q{Trying production: ['(' fullselect ')']},
15134                                           Parse::RecDescent::_tracefirst($_[1]),
15135                                           q{scalar_fullselect},
15136                                           $tracelevel)
15137                                                 if defined $::RD_TRACE;
15138                 my $thisprod = $thisrule->{"prods"}[0];
15139                 $text = $_[1];
15140                 my $_savetext;
15141                 @item = (q{scalar_fullselect});
15142                 %item = (__RULE__ => q{scalar_fullselect});
15143                 my $repcount = 0;
15144
15145
15146                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
15147                                           Parse::RecDescent::_tracefirst($text),
15148                                           q{scalar_fullselect},
15149                                           $tracelevel)
15150                                                 if defined $::RD_TRACE;
15151                 $lastsep = "";
15152                 $expectation->is(q{})->at($text);
15153
15154
15155                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
15156                 {
15157
15158                         $expectation->failed();
15159                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
15160                                                   Parse::RecDescent::_tracefirst($text))
15161                                                         if defined $::RD_TRACE;
15162                         last;
15163                 }
15164                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
15165                                                 . $& . q{])},
15166                                                   Parse::RecDescent::_tracefirst($text))
15167                                                         if defined $::RD_TRACE;
15168                 push @item, $item{__STRING1__}=$&;
15169
15170
15171                 Parse::RecDescent::_trace(q{Trying subrule: [fullselect]},
15172                                   Parse::RecDescent::_tracefirst($text),
15173                                   q{scalar_fullselect},
15174                                   $tracelevel)
15175                                         if defined $::RD_TRACE;
15176                 if (1) { no strict qw{refs};
15177                 $expectation->is(q{fullselect})->at($text);
15178                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::fullselect($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
15179                 {
15180
15181                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [fullselect]>>},
15182                                                   Parse::RecDescent::_tracefirst($text),
15183                                                   q{scalar_fullselect},
15184                                                   $tracelevel)
15185                                                         if defined $::RD_TRACE;
15186                         $expectation->failed();
15187                         last;
15188                 }
15189                 Parse::RecDescent::_trace(q{>>Matched subrule: [fullselect]<< (return value: [}
15190                                         . $_tok . q{]},
15191
15192                                           Parse::RecDescent::_tracefirst($text),
15193                                           q{scalar_fullselect},
15194                                           $tracelevel)
15195                                                 if defined $::RD_TRACE;
15196                 $item{q{fullselect}} = $_tok;
15197                 push @item, $_tok;
15198
15199                 }
15200
15201                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
15202                                           Parse::RecDescent::_tracefirst($text),
15203                                           q{scalar_fullselect},
15204                                           $tracelevel)
15205                                                 if defined $::RD_TRACE;
15206                 $lastsep = "";
15207                 $expectation->is(q{')'})->at($text);
15208
15209
15210                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
15211                 {
15212
15213                         $expectation->failed();
15214                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
15215                                                   Parse::RecDescent::_tracefirst($text))
15216                                                         if defined $::RD_TRACE;
15217                         last;
15218                 }
15219                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
15220                                                 . $& . q{])},
15221                                                   Parse::RecDescent::_tracefirst($text))
15222                                                         if defined $::RD_TRACE;
15223                 push @item, $item{__STRING2__}=$&;
15224
15225
15226
15227                 Parse::RecDescent::_trace(q{>>Matched production: ['(' fullselect ')']<<},
15228                                           Parse::RecDescent::_tracefirst($text),
15229                                           q{scalar_fullselect},
15230                                           $tracelevel)
15231                                                 if defined $::RD_TRACE;
15232                 $_matched = 1;
15233                 last;
15234         }
15235
15236
15237         unless ( $_matched || defined($return) || defined($score) )
15238         {
15239
15240
15241                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
15242                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
15243                                          Parse::RecDescent::_tracefirst($_[1]),
15244                                          q{scalar_fullselect},
15245                                          $tracelevel)
15246                                         if defined $::RD_TRACE;
15247                 return undef;
15248         }
15249         if (!defined($return) && defined($score))
15250         {
15251                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
15252                                           q{scalar_fullselect},
15253                                           $tracelevel)
15254                                                 if defined $::RD_TRACE;
15255                 $return = $score_return;
15256         }
15257         splice @{$thisparser->{errors}}, $err_at;
15258         $return = $item[$#item] unless defined $return;
15259         if (defined $::RD_TRACE)
15260         {
15261                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
15262                                           $return . q{])}, "",
15263                                           q{scalar_fullselect},
15264                                           $tracelevel);
15265                 Parse::RecDescent::_trace(q{(consumed: [} .
15266                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
15267                                           Parse::RecDescent::_tracefirst($text),
15268                                           , q{scalar_fullselect},
15269                                           $tracelevel)
15270         }
15271         $_[1] = $text;
15272         return $return;
15273 }
15274
15275 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
15276 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_options
15277 {
15278         my $thisparser = $_[0];
15279         use vars q{$tracelevel};
15280         local $tracelevel = ($tracelevel||0)+1;
15281         $ERRORS = 0;
15282         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_options"};
15283
15284         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_options]},
15285                                   Parse::RecDescent::_tracefirst($_[1]),
15286                                   q{_alternation_1_of_production_1_of_rule_options},
15287                                   $tracelevel)
15288                                         if defined $::RD_TRACE;
15289
15290
15291         my $err_at = @{$thisparser->{errors}};
15292
15293         my $score;
15294         my $score_return;
15295         my $_tok;
15296         my $return = undef;
15297         my $_matched=0;
15298         my $commit=0;
15299         my @item = ();
15300         my %item = ();
15301         my $repeating =  defined($_[2]) && $_[2];
15302         my $_noactions = defined($_[3]) && $_[3];
15303         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
15304         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
15305         my $text;
15306         my $lastsep="";
15307         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
15308         $expectation->at($_[1]);
15309
15310         my $thisline;
15311         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
15312
15313
15314
15315         while (!$_matched && !$commit)
15316         {
15317
15318                 Parse::RecDescent::_trace(q{Trying production: [/CASCADED/i]},
15319                                           Parse::RecDescent::_tracefirst($_[1]),
15320                                           q{_alternation_1_of_production_1_of_rule_options},
15321                                           $tracelevel)
15322                                                 if defined $::RD_TRACE;
15323                 my $thisprod = $thisrule->{"prods"}[0];
15324                 $text = $_[1];
15325                 my $_savetext;
15326                 @item = (q{_alternation_1_of_production_1_of_rule_options});
15327                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_options});
15328                 my $repcount = 0;
15329
15330
15331                 Parse::RecDescent::_trace(q{Trying terminal: [/CASCADED/i]}, Parse::RecDescent::_tracefirst($text),
15332                                           q{_alternation_1_of_production_1_of_rule_options},
15333                                           $tracelevel)
15334                                                 if defined $::RD_TRACE;
15335                 $lastsep = "";
15336                 $expectation->is(q{})->at($text);
15337
15338
15339                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CASCADED)//i)
15340                 {
15341
15342                         $expectation->failed();
15343                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
15344                                                   Parse::RecDescent::_tracefirst($text))
15345                                         if defined $::RD_TRACE;
15346
15347                         last;
15348                 }
15349                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
15350                                                 . $& . q{])},
15351                                                   Parse::RecDescent::_tracefirst($text))
15352                                         if defined $::RD_TRACE;
15353                 push @item, $item{__PATTERN1__}=$&;
15354
15355
15356
15357                 Parse::RecDescent::_trace(q{>>Matched production: [/CASCADED/i]<<},
15358                                           Parse::RecDescent::_tracefirst($text),
15359                                           q{_alternation_1_of_production_1_of_rule_options},
15360                                           $tracelevel)
15361                                                 if defined $::RD_TRACE;
15362                 $_matched = 1;
15363                 last;
15364         }
15365
15366
15367         while (!$_matched && !$commit)
15368         {
15369
15370                 Parse::RecDescent::_trace(q{Trying production: [/LOCAL/i]},
15371                                           Parse::RecDescent::_tracefirst($_[1]),
15372                                           q{_alternation_1_of_production_1_of_rule_options},
15373                                           $tracelevel)
15374                                                 if defined $::RD_TRACE;
15375                 my $thisprod = $thisrule->{"prods"}[1];
15376                 $text = $_[1];
15377                 my $_savetext;
15378                 @item = (q{_alternation_1_of_production_1_of_rule_options});
15379                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_options});
15380                 my $repcount = 0;
15381
15382
15383                 Parse::RecDescent::_trace(q{Trying terminal: [/LOCAL/i]}, Parse::RecDescent::_tracefirst($text),
15384                                           q{_alternation_1_of_production_1_of_rule_options},
15385                                           $tracelevel)
15386                                                 if defined $::RD_TRACE;
15387                 $lastsep = "";
15388                 $expectation->is(q{})->at($text);
15389
15390
15391                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:LOCAL)//i)
15392                 {
15393
15394                         $expectation->failed();
15395                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
15396                                                   Parse::RecDescent::_tracefirst($text))
15397                                         if defined $::RD_TRACE;
15398
15399                         last;
15400                 }
15401                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
15402                                                 . $& . q{])},
15403                                                   Parse::RecDescent::_tracefirst($text))
15404                                         if defined $::RD_TRACE;
15405                 push @item, $item{__PATTERN1__}=$&;
15406
15407
15408
15409                 Parse::RecDescent::_trace(q{>>Matched production: [/LOCAL/i]<<},
15410                                           Parse::RecDescent::_tracefirst($text),
15411                                           q{_alternation_1_of_production_1_of_rule_options},
15412                                           $tracelevel)
15413                                                 if defined $::RD_TRACE;
15414                 $_matched = 1;
15415                 last;
15416         }
15417
15418
15419         unless ( $_matched || defined($return) || defined($score) )
15420         {
15421
15422
15423                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
15424                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
15425                                          Parse::RecDescent::_tracefirst($_[1]),
15426                                          q{_alternation_1_of_production_1_of_rule_options},
15427                                          $tracelevel)
15428                                         if defined $::RD_TRACE;
15429                 return undef;
15430         }
15431         if (!defined($return) && defined($score))
15432         {
15433                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
15434                                           q{_alternation_1_of_production_1_of_rule_options},
15435                                           $tracelevel)
15436                                                 if defined $::RD_TRACE;
15437                 $return = $score_return;
15438         }
15439         splice @{$thisparser->{errors}}, $err_at;
15440         $return = $item[$#item] unless defined $return;
15441         if (defined $::RD_TRACE)
15442         {
15443                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
15444                                           $return . q{])}, "",
15445                                           q{_alternation_1_of_production_1_of_rule_options},
15446                                           $tracelevel);
15447                 Parse::RecDescent::_trace(q{(consumed: [} .
15448                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
15449                                           Parse::RecDescent::_tracefirst($text),
15450                                           , q{_alternation_1_of_production_1_of_rule_options},
15451                                           $tracelevel)
15452         }
15453         $_[1] = $text;
15454         return $return;
15455 }
15456
15457 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
15458 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::func_args
15459 {
15460         my $thisparser = $_[0];
15461         use vars q{$tracelevel};
15462         local $tracelevel = ($tracelevel||0)+1;
15463         $ERRORS = 0;
15464         my $thisrule = $thisparser->{"rules"}{"func_args"};
15465
15466         Parse::RecDescent::_trace(q{Trying rule: [func_args]},
15467                                   Parse::RecDescent::_tracefirst($_[1]),
15468                                   q{func_args},
15469                                   $tracelevel)
15470                                         if defined $::RD_TRACE;
15471
15472
15473         my $err_at = @{$thisparser->{errors}};
15474
15475         my $score;
15476         my $score_return;
15477         my $_tok;
15478         my $return = undef;
15479         my $_matched=0;
15480         my $commit=0;
15481         my @item = ();
15482         my %item = ();
15483         my $repeating =  defined($_[2]) && $_[2];
15484         my $_noactions = defined($_[3]) && $_[3];
15485         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
15486         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
15487         my $text;
15488         my $lastsep="";
15489         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
15490         $expectation->at($_[1]);
15491
15492         my $thisline;
15493         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
15494
15495
15496
15497         while (!$_matched && !$commit)
15498         {
15499
15500                 Parse::RecDescent::_trace(q{Trying production: [expression]},
15501                                           Parse::RecDescent::_tracefirst($_[1]),
15502                                           q{func_args},
15503                                           $tracelevel)
15504                                                 if defined $::RD_TRACE;
15505                 my $thisprod = $thisrule->{"prods"}[0];
15506                 $text = $_[1];
15507                 my $_savetext;
15508                 @item = (q{func_args});
15509                 %item = (__RULE__ => q{func_args});
15510                 my $repcount = 0;
15511
15512
15513                 Parse::RecDescent::_trace(q{Trying subrule: [expression]},
15514                                   Parse::RecDescent::_tracefirst($text),
15515                                   q{func_args},
15516                                   $tracelevel)
15517                                         if defined $::RD_TRACE;
15518                 if (1) { no strict qw{refs};
15519                 $expectation->is(q{})->at($text);
15520                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
15521                 {
15522
15523                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [expression]>>},
15524                                                   Parse::RecDescent::_tracefirst($text),
15525                                                   q{func_args},
15526                                                   $tracelevel)
15527                                                         if defined $::RD_TRACE;
15528                         $expectation->failed();
15529                         last;
15530                 }
15531                 Parse::RecDescent::_trace(q{>>Matched subrule: [expression]<< (return value: [}
15532                                         . $_tok . q{]},
15533
15534                                           Parse::RecDescent::_tracefirst($text),
15535                                           q{func_args},
15536                                           $tracelevel)
15537                                                 if defined $::RD_TRACE;
15538                 $item{q{expression}} = $_tok;
15539                 push @item, $_tok;
15540
15541                 }
15542
15543
15544                 Parse::RecDescent::_trace(q{>>Matched production: [expression]<<},
15545                                           Parse::RecDescent::_tracefirst($text),
15546                                           q{func_args},
15547                                           $tracelevel)
15548                                                 if defined $::RD_TRACE;
15549                 $_matched = 1;
15550                 last;
15551         }
15552
15553
15554         unless ( $_matched || defined($return) || defined($score) )
15555         {
15556
15557
15558                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
15559                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
15560                                          Parse::RecDescent::_tracefirst($_[1]),
15561                                          q{func_args},
15562                                          $tracelevel)
15563                                         if defined $::RD_TRACE;
15564                 return undef;
15565         }
15566         if (!defined($return) && defined($score))
15567         {
15568                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
15569                                           q{func_args},
15570                                           $tracelevel)
15571                                                 if defined $::RD_TRACE;
15572                 $return = $score_return;
15573         }
15574         splice @{$thisparser->{errors}}, $err_at;
15575         $return = $item[$#item] unless defined $return;
15576         if (defined $::RD_TRACE)
15577         {
15578                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
15579                                           $return . q{])}, "",
15580                                           q{func_args},
15581                                           $tracelevel);
15582                 Parse::RecDescent::_trace(q{(consumed: [} .
15583                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
15584                                           Parse::RecDescent::_tracefirst($text),
15585                                           , q{func_args},
15586                                           $tracelevel)
15587         }
15588         $_[1] = $text;
15589         return $return;
15590 }
15591
15592 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
15593 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::trigger_name
15594 {
15595         my $thisparser = $_[0];
15596         use vars q{$tracelevel};
15597         local $tracelevel = ($tracelevel||0)+1;
15598         $ERRORS = 0;
15599         my $thisrule = $thisparser->{"rules"}{"trigger_name"};
15600
15601         Parse::RecDescent::_trace(q{Trying rule: [trigger_name]},
15602                                   Parse::RecDescent::_tracefirst($_[1]),
15603                                   q{trigger_name},
15604                                   $tracelevel)
15605                                         if defined $::RD_TRACE;
15606
15607
15608         my $err_at = @{$thisparser->{errors}};
15609
15610         my $score;
15611         my $score_return;
15612         my $_tok;
15613         my $return = undef;
15614         my $_matched=0;
15615         my $commit=0;
15616         my @item = ();
15617         my %item = ();
15618         my $repeating =  defined($_[2]) && $_[2];
15619         my $_noactions = defined($_[3]) && $_[3];
15620         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
15621         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
15622         my $text;
15623         my $lastsep="";
15624         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
15625         $expectation->at($_[1]);
15626
15627         my $thisline;
15628         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
15629
15630
15631
15632         while (!$_matched && !$commit)
15633         {
15634
15635                 Parse::RecDescent::_trace(q{Trying production: [SCHEMA '.' NAME]},
15636                                           Parse::RecDescent::_tracefirst($_[1]),
15637                                           q{trigger_name},
15638                                           $tracelevel)
15639                                                 if defined $::RD_TRACE;
15640                 my $thisprod = $thisrule->{"prods"}[0];
15641                 $text = $_[1];
15642                 my $_savetext;
15643                 @item = (q{trigger_name});
15644                 %item = (__RULE__ => q{trigger_name});
15645                 my $repcount = 0;
15646
15647
15648                 Parse::RecDescent::_trace(q{Trying subrule: [SCHEMA]},
15649                                   Parse::RecDescent::_tracefirst($text),
15650                                   q{trigger_name},
15651                                   $tracelevel)
15652                                         if defined $::RD_TRACE;
15653                 if (1) { no strict qw{refs};
15654                 $expectation->is(q{})->at($text);
15655                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::SCHEMA($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
15656                 {
15657
15658                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [SCHEMA]>>},
15659                                                   Parse::RecDescent::_tracefirst($text),
15660                                                   q{trigger_name},
15661                                                   $tracelevel)
15662                                                         if defined $::RD_TRACE;
15663                         $expectation->failed();
15664                         last;
15665                 }
15666                 Parse::RecDescent::_trace(q{>>Matched subrule: [SCHEMA]<< (return value: [}
15667                                         . $_tok . q{]},
15668
15669                                           Parse::RecDescent::_tracefirst($text),
15670                                           q{trigger_name},
15671                                           $tracelevel)
15672                                                 if defined $::RD_TRACE;
15673                 $item{q{SCHEMA}} = $_tok;
15674                 push @item, $_tok;
15675
15676                 }
15677
15678                 Parse::RecDescent::_trace(q{Trying terminal: ['.']},
15679                                           Parse::RecDescent::_tracefirst($text),
15680                                           q{trigger_name},
15681                                           $tracelevel)
15682                                                 if defined $::RD_TRACE;
15683                 $lastsep = "";
15684                 $expectation->is(q{'.'})->at($text);
15685
15686
15687                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\.//)
15688                 {
15689
15690                         $expectation->failed();
15691                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
15692                                                   Parse::RecDescent::_tracefirst($text))
15693                                                         if defined $::RD_TRACE;
15694                         last;
15695                 }
15696                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
15697                                                 . $& . q{])},
15698                                                   Parse::RecDescent::_tracefirst($text))
15699                                                         if defined $::RD_TRACE;
15700                 push @item, $item{__STRING1__}=$&;
15701
15702
15703                 Parse::RecDescent::_trace(q{Trying subrule: [NAME]},
15704                                   Parse::RecDescent::_tracefirst($text),
15705                                   q{trigger_name},
15706                                   $tracelevel)
15707                                         if defined $::RD_TRACE;
15708                 if (1) { no strict qw{refs};
15709                 $expectation->is(q{NAME})->at($text);
15710                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::NAME($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
15711                 {
15712
15713                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [NAME]>>},
15714                                                   Parse::RecDescent::_tracefirst($text),
15715                                                   q{trigger_name},
15716                                                   $tracelevel)
15717                                                         if defined $::RD_TRACE;
15718                         $expectation->failed();
15719                         last;
15720                 }
15721                 Parse::RecDescent::_trace(q{>>Matched subrule: [NAME]<< (return value: [}
15722                                         . $_tok . q{]},
15723
15724                                           Parse::RecDescent::_tracefirst($text),
15725                                           q{trigger_name},
15726                                           $tracelevel)
15727                                                 if defined $::RD_TRACE;
15728                 $item{q{NAME}} = $_tok;
15729                 push @item, $_tok;
15730
15731                 }
15732
15733                 Parse::RecDescent::_trace(q{Trying action},
15734                                           Parse::RecDescent::_tracefirst($text),
15735                                           q{trigger_name},
15736                                           $tracelevel)
15737                                                 if defined $::RD_TRACE;
15738
15739
15740                 $_tok = ($_noactions) ? 0 : do { $return = { schema => $item[1], name => $item[3] } };
15741                 unless (defined $_tok)
15742                 {
15743                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
15744                                         if defined $::RD_TRACE;
15745                         last;
15746                 }
15747                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
15748                                           . $_tok . q{])},
15749                                           Parse::RecDescent::_tracefirst($text))
15750                                                 if defined $::RD_TRACE;
15751                 push @item, $_tok;
15752                 $item{__ACTION1__}=$_tok;
15753
15754
15755
15756                 Parse::RecDescent::_trace(q{>>Matched production: [SCHEMA '.' NAME]<<},
15757                                           Parse::RecDescent::_tracefirst($text),
15758                                           q{trigger_name},
15759                                           $tracelevel)
15760                                                 if defined $::RD_TRACE;
15761                 $_matched = 1;
15762                 last;
15763         }
15764
15765
15766         while (!$_matched && !$commit)
15767         {
15768
15769                 Parse::RecDescent::_trace(q{Trying production: [NAME]},
15770                                           Parse::RecDescent::_tracefirst($_[1]),
15771                                           q{trigger_name},
15772                                           $tracelevel)
15773                                                 if defined $::RD_TRACE;
15774                 my $thisprod = $thisrule->{"prods"}[1];
15775                 $text = $_[1];
15776                 my $_savetext;
15777                 @item = (q{trigger_name});
15778                 %item = (__RULE__ => q{trigger_name});
15779                 my $repcount = 0;
15780
15781
15782                 Parse::RecDescent::_trace(q{Trying subrule: [NAME]},
15783                                   Parse::RecDescent::_tracefirst($text),
15784                                   q{trigger_name},
15785                                   $tracelevel)
15786                                         if defined $::RD_TRACE;
15787                 if (1) { no strict qw{refs};
15788                 $expectation->is(q{})->at($text);
15789                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::NAME($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
15790                 {
15791
15792                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [NAME]>>},
15793                                                   Parse::RecDescent::_tracefirst($text),
15794                                                   q{trigger_name},
15795                                                   $tracelevel)
15796                                                         if defined $::RD_TRACE;
15797                         $expectation->failed();
15798                         last;
15799                 }
15800                 Parse::RecDescent::_trace(q{>>Matched subrule: [NAME]<< (return value: [}
15801                                         . $_tok . q{]},
15802
15803                                           Parse::RecDescent::_tracefirst($text),
15804                                           q{trigger_name},
15805                                           $tracelevel)
15806                                                 if defined $::RD_TRACE;
15807                 $item{q{NAME}} = $_tok;
15808                 push @item, $_tok;
15809
15810                 }
15811
15812                 Parse::RecDescent::_trace(q{Trying action},
15813                                           Parse::RecDescent::_tracefirst($text),
15814                                           q{trigger_name},
15815                                           $tracelevel)
15816                                                 if defined $::RD_TRACE;
15817
15818
15819                 $_tok = ($_noactions) ? 0 : do { $return = { name => $item[1] } };
15820                 unless (defined $_tok)
15821                 {
15822                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
15823                                         if defined $::RD_TRACE;
15824                         last;
15825                 }
15826                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
15827                                           . $_tok . q{])},
15828                                           Parse::RecDescent::_tracefirst($text))
15829                                                 if defined $::RD_TRACE;
15830                 push @item, $_tok;
15831                 $item{__ACTION1__}=$_tok;
15832
15833
15834
15835                 Parse::RecDescent::_trace(q{>>Matched production: [NAME]<<},
15836                                           Parse::RecDescent::_tracefirst($text),
15837                                           q{trigger_name},
15838                                           $tracelevel)
15839                                                 if defined $::RD_TRACE;
15840                 $_matched = 1;
15841                 last;
15842         }
15843
15844
15845         unless ( $_matched || defined($return) || defined($score) )
15846         {
15847
15848
15849                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
15850                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
15851                                          Parse::RecDescent::_tracefirst($_[1]),
15852                                          q{trigger_name},
15853                                          $tracelevel)
15854                                         if defined $::RD_TRACE;
15855                 return undef;
15856         }
15857         if (!defined($return) && defined($score))
15858         {
15859                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
15860                                           q{trigger_name},
15861                                           $tracelevel)
15862                                                 if defined $::RD_TRACE;
15863                 $return = $score_return;
15864         }
15865         splice @{$thisparser->{errors}}, $err_at;
15866         $return = $item[$#item] unless defined $return;
15867         if (defined $::RD_TRACE)
15868         {
15869                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
15870                                           $return . q{])}, "",
15871                                           q{trigger_name},
15872                                           $tracelevel);
15873                 Parse::RecDescent::_trace(q{(consumed: [} .
15874                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
15875                                           Parse::RecDescent::_tracefirst($text),
15876                                           , q{trigger_name},
15877                                           $tracelevel)
15878         }
15879         $_[1] = $text;
15880         return $return;
15881 }
15882
15883 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
15884 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_2_of_production_1_of_rule_numbering_function
15885 {
15886         my $thisparser = $_[0];
15887         use vars q{$tracelevel};
15888         local $tracelevel = ($tracelevel||0)+1;
15889         $ERRORS = 0;
15890         my $thisrule = $thisparser->{"rules"}{"_alternation_2_of_production_1_of_rule_numbering_function"};
15891
15892         Parse::RecDescent::_trace(q{Trying rule: [_alternation_2_of_production_1_of_rule_numbering_function]},
15893                                   Parse::RecDescent::_tracefirst($_[1]),
15894                                   q{_alternation_2_of_production_1_of_rule_numbering_function},
15895                                   $tracelevel)
15896                                         if defined $::RD_TRACE;
15897
15898
15899         my $err_at = @{$thisparser->{errors}};
15900
15901         my $score;
15902         my $score_return;
15903         my $_tok;
15904         my $return = undef;
15905         my $_matched=0;
15906         my $commit=0;
15907         my @item = ();
15908         my %item = ();
15909         my $repeating =  defined($_[2]) && $_[2];
15910         my $_noactions = defined($_[3]) && $_[3];
15911         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
15912         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
15913         my $text;
15914         my $lastsep="";
15915         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
15916         $expectation->at($_[1]);
15917
15918         my $thisline;
15919         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
15920
15921
15922
15923         while (!$_matched && !$commit)
15924         {
15925
15926                 Parse::RecDescent::_trace(q{Trying production: [/RANGE\\s+BETWEEN\\s+UNBOUNDED\\s+PRECEDING\\s+AND\\s+UNBBOUNDED\\s+FOLLOWING/i]},
15927                                           Parse::RecDescent::_tracefirst($_[1]),
15928                                           q{_alternation_2_of_production_1_of_rule_numbering_function},
15929                                           $tracelevel)
15930                                                 if defined $::RD_TRACE;
15931                 my $thisprod = $thisrule->{"prods"}[0];
15932                 $text = $_[1];
15933                 my $_savetext;
15934                 @item = (q{_alternation_2_of_production_1_of_rule_numbering_function});
15935                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule_numbering_function});
15936                 my $repcount = 0;
15937
15938
15939                 Parse::RecDescent::_trace(q{Trying terminal: [/RANGE\\s+BETWEEN\\s+UNBOUNDED\\s+PRECEDING\\s+AND\\s+UNBBOUNDED\\s+FOLLOWING/i]}, Parse::RecDescent::_tracefirst($text),
15940                                           q{_alternation_2_of_production_1_of_rule_numbering_function},
15941                                           $tracelevel)
15942                                                 if defined $::RD_TRACE;
15943                 $lastsep = "";
15944                 $expectation->is(q{})->at($text);
15945
15946
15947                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:RANGE\s+BETWEEN\s+UNBOUNDED\s+PRECEDING\s+AND\s+UNBBOUNDED\s+FOLLOWING)//i)
15948                 {
15949
15950                         $expectation->failed();
15951                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
15952                                                   Parse::RecDescent::_tracefirst($text))
15953                                         if defined $::RD_TRACE;
15954
15955                         last;
15956                 }
15957                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
15958                                                 . $& . q{])},
15959                                                   Parse::RecDescent::_tracefirst($text))
15960                                         if defined $::RD_TRACE;
15961                 push @item, $item{__PATTERN1__}=$&;
15962
15963
15964
15965                 Parse::RecDescent::_trace(q{>>Matched production: [/RANGE\\s+BETWEEN\\s+UNBOUNDED\\s+PRECEDING\\s+AND\\s+UNBBOUNDED\\s+FOLLOWING/i]<<},
15966                                           Parse::RecDescent::_tracefirst($text),
15967                                           q{_alternation_2_of_production_1_of_rule_numbering_function},
15968                                           $tracelevel)
15969                                                 if defined $::RD_TRACE;
15970                 $_matched = 1;
15971                 last;
15972         }
15973
15974
15975         while (!$_matched && !$commit)
15976         {
15977
15978                 Parse::RecDescent::_trace(q{Trying production: [window_aggregation_group_clause]},
15979                                           Parse::RecDescent::_tracefirst($_[1]),
15980                                           q{_alternation_2_of_production_1_of_rule_numbering_function},
15981                                           $tracelevel)
15982                                                 if defined $::RD_TRACE;
15983                 my $thisprod = $thisrule->{"prods"}[1];
15984                 $text = $_[1];
15985                 my $_savetext;
15986                 @item = (q{_alternation_2_of_production_1_of_rule_numbering_function});
15987                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule_numbering_function});
15988                 my $repcount = 0;
15989
15990
15991                 Parse::RecDescent::_trace(q{Trying subrule: [window_aggregation_group_clause]},
15992                                   Parse::RecDescent::_tracefirst($text),
15993                                   q{_alternation_2_of_production_1_of_rule_numbering_function},
15994                                   $tracelevel)
15995                                         if defined $::RD_TRACE;
15996                 if (1) { no strict qw{refs};
15997                 $expectation->is(q{})->at($text);
15998                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::window_aggregation_group_clause($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
15999                 {
16000
16001                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [window_aggregation_group_clause]>>},
16002                                                   Parse::RecDescent::_tracefirst($text),
16003                                                   q{_alternation_2_of_production_1_of_rule_numbering_function},
16004                                                   $tracelevel)
16005                                                         if defined $::RD_TRACE;
16006                         $expectation->failed();
16007                         last;
16008                 }
16009                 Parse::RecDescent::_trace(q{>>Matched subrule: [window_aggregation_group_clause]<< (return value: [}
16010                                         . $_tok . q{]},
16011
16012                                           Parse::RecDescent::_tracefirst($text),
16013                                           q{_alternation_2_of_production_1_of_rule_numbering_function},
16014                                           $tracelevel)
16015                                                 if defined $::RD_TRACE;
16016                 $item{q{window_aggregation_group_clause}} = $_tok;
16017                 push @item, $_tok;
16018
16019                 }
16020
16021
16022                 Parse::RecDescent::_trace(q{>>Matched production: [window_aggregation_group_clause]<<},
16023                                           Parse::RecDescent::_tracefirst($text),
16024                                           q{_alternation_2_of_production_1_of_rule_numbering_function},
16025                                           $tracelevel)
16026                                                 if defined $::RD_TRACE;
16027                 $_matched = 1;
16028                 last;
16029         }
16030
16031
16032         unless ( $_matched || defined($return) || defined($score) )
16033         {
16034
16035
16036                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
16037                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
16038                                          Parse::RecDescent::_tracefirst($_[1]),
16039                                          q{_alternation_2_of_production_1_of_rule_numbering_function},
16040                                          $tracelevel)
16041                                         if defined $::RD_TRACE;
16042                 return undef;
16043         }
16044         if (!defined($return) && defined($score))
16045         {
16046                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
16047                                           q{_alternation_2_of_production_1_of_rule_numbering_function},
16048                                           $tracelevel)
16049                                                 if defined $::RD_TRACE;
16050                 $return = $score_return;
16051         }
16052         splice @{$thisparser->{errors}}, $err_at;
16053         $return = $item[$#item] unless defined $return;
16054         if (defined $::RD_TRACE)
16055         {
16056                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
16057                                           $return . q{])}, "",
16058                                           q{_alternation_2_of_production_1_of_rule_numbering_function},
16059                                           $tracelevel);
16060                 Parse::RecDescent::_trace(q{(consumed: [} .
16061                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
16062                                           Parse::RecDescent::_tracefirst($text),
16063                                           , q{_alternation_2_of_production_1_of_rule_numbering_function},
16064                                           $tracelevel)
16065         }
16066         $_[1] = $text;
16067         return $return;
16068 }
16069
16070 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
16071 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::method_name
16072 {
16073         my $thisparser = $_[0];
16074         use vars q{$tracelevel};
16075         local $tracelevel = ($tracelevel||0)+1;
16076         $ERRORS = 0;
16077         my $thisrule = $thisparser->{"rules"}{"method_name"};
16078
16079         Parse::RecDescent::_trace(q{Trying rule: [method_name]},
16080                                   Parse::RecDescent::_tracefirst($_[1]),
16081                                   q{method_name},
16082                                   $tracelevel)
16083                                         if defined $::RD_TRACE;
16084
16085
16086         my $err_at = @{$thisparser->{errors}};
16087
16088         my $score;
16089         my $score_return;
16090         my $_tok;
16091         my $return = undef;
16092         my $_matched=0;
16093         my $commit=0;
16094         my @item = ();
16095         my %item = ();
16096         my $repeating =  defined($_[2]) && $_[2];
16097         my $_noactions = defined($_[3]) && $_[3];
16098         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
16099         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
16100         my $text;
16101         my $lastsep="";
16102         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
16103         $expectation->at($_[1]);
16104
16105         my $thisline;
16106         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
16107
16108
16109
16110         while (!$_matched && !$commit)
16111         {
16112
16113                 Parse::RecDescent::_trace(q{Trying production: [NAME]},
16114                                           Parse::RecDescent::_tracefirst($_[1]),
16115                                           q{method_name},
16116                                           $tracelevel)
16117                                                 if defined $::RD_TRACE;
16118                 my $thisprod = $thisrule->{"prods"}[0];
16119                 $text = $_[1];
16120                 my $_savetext;
16121                 @item = (q{method_name});
16122                 %item = (__RULE__ => q{method_name});
16123                 my $repcount = 0;
16124
16125
16126                 Parse::RecDescent::_trace(q{Trying subrule: [NAME]},
16127                                   Parse::RecDescent::_tracefirst($text),
16128                                   q{method_name},
16129                                   $tracelevel)
16130                                         if defined $::RD_TRACE;
16131                 if (1) { no strict qw{refs};
16132                 $expectation->is(q{})->at($text);
16133                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::NAME($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
16134                 {
16135
16136                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [NAME]>>},
16137                                                   Parse::RecDescent::_tracefirst($text),
16138                                                   q{method_name},
16139                                                   $tracelevel)
16140                                                         if defined $::RD_TRACE;
16141                         $expectation->failed();
16142                         last;
16143                 }
16144                 Parse::RecDescent::_trace(q{>>Matched subrule: [NAME]<< (return value: [}
16145                                         . $_tok . q{]},
16146
16147                                           Parse::RecDescent::_tracefirst($text),
16148                                           q{method_name},
16149                                           $tracelevel)
16150                                                 if defined $::RD_TRACE;
16151                 $item{q{NAME}} = $_tok;
16152                 push @item, $_tok;
16153
16154                 }
16155
16156                 Parse::RecDescent::_trace(q{Trying action},
16157                                           Parse::RecDescent::_tracefirst($text),
16158                                           q{method_name},
16159                                           $tracelevel)
16160                                                 if defined $::RD_TRACE;
16161
16162
16163                 $_tok = ($_noactions) ? 0 : do { # must be a method of subject_expression
16164 };
16165                 unless (defined $_tok)
16166                 {
16167                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
16168                                         if defined $::RD_TRACE;
16169                         last;
16170                 }
16171                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
16172                                           . $_tok . q{])},
16173                                           Parse::RecDescent::_tracefirst($text))
16174                                                 if defined $::RD_TRACE;
16175                 push @item, $_tok;
16176                 $item{__ACTION1__}=$_tok;
16177
16178
16179
16180                 Parse::RecDescent::_trace(q{>>Matched production: [NAME]<<},
16181                                           Parse::RecDescent::_tracefirst($text),
16182                                           q{method_name},
16183                                           $tracelevel)
16184                                                 if defined $::RD_TRACE;
16185                 $_matched = 1;
16186                 last;
16187         }
16188
16189
16190         unless ( $_matched || defined($return) || defined($score) )
16191         {
16192
16193
16194                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
16195                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
16196                                          Parse::RecDescent::_tracefirst($_[1]),
16197                                          q{method_name},
16198                                          $tracelevel)
16199                                         if defined $::RD_TRACE;
16200                 return undef;
16201         }
16202         if (!defined($return) && defined($score))
16203         {
16204                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
16205                                           q{method_name},
16206                                           $tracelevel)
16207                                                 if defined $::RD_TRACE;
16208                 $return = $score_return;
16209         }
16210         splice @{$thisparser->{errors}}, $err_at;
16211         $return = $item[$#item] unless defined $return;
16212         if (defined $::RD_TRACE)
16213         {
16214                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
16215                                           $return . q{])}, "",
16216                                           q{method_name},
16217                                           $tracelevel);
16218                 Parse::RecDescent::_trace(q{(consumed: [} .
16219                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
16220                                           Parse::RecDescent::_tracefirst($text),
16221                                           , q{method_name},
16222                                           $tracelevel)
16223         }
16224         $_[1] = $text;
16225         return $return;
16226 }
16227
16228 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
16229 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::quantified_p
16230 {
16231         my $thisparser = $_[0];
16232         use vars q{$tracelevel};
16233         local $tracelevel = ($tracelevel||0)+1;
16234         $ERRORS = 0;
16235         my $thisrule = $thisparser->{"rules"}{"quantified_p"};
16236
16237         Parse::RecDescent::_trace(q{Trying rule: [quantified_p]},
16238                                   Parse::RecDescent::_tracefirst($_[1]),
16239                                   q{quantified_p},
16240                                   $tracelevel)
16241                                         if defined $::RD_TRACE;
16242
16243
16244         my $err_at = @{$thisparser->{errors}};
16245
16246         my $score;
16247         my $score_return;
16248         my $_tok;
16249         my $return = undef;
16250         my $_matched=0;
16251         my $commit=0;
16252         my @item = ();
16253         my %item = ();
16254         my $repeating =  defined($_[2]) && $_[2];
16255         my $_noactions = defined($_[3]) && $_[3];
16256         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
16257         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
16258         my $text;
16259         my $lastsep="";
16260         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
16261         $expectation->at($_[1]);
16262
16263         my $thisline;
16264         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
16265
16266
16267
16268         while (!$_matched && !$commit)
16269         {
16270
16271                 Parse::RecDescent::_trace(q{Trying production: [expression1 /(=|<>|<|>|<=|=>|\\^=|\\^<|\\^>|\\!=)/ /SOME|ANY|ALL/i '(' fullselect ')']},
16272                                           Parse::RecDescent::_tracefirst($_[1]),
16273                                           q{quantified_p},
16274                                           $tracelevel)
16275                                                 if defined $::RD_TRACE;
16276                 my $thisprod = $thisrule->{"prods"}[0];
16277                 $text = $_[1];
16278                 my $_savetext;
16279                 @item = (q{quantified_p});
16280                 %item = (__RULE__ => q{quantified_p});
16281                 my $repcount = 0;
16282
16283
16284                 Parse::RecDescent::_trace(q{Trying subrule: [expression1]},
16285                                   Parse::RecDescent::_tracefirst($text),
16286                                   q{quantified_p},
16287                                   $tracelevel)
16288                                         if defined $::RD_TRACE;
16289                 if (1) { no strict qw{refs};
16290                 $expectation->is(q{})->at($text);
16291                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression1($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
16292                 {
16293
16294                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [expression1]>>},
16295                                                   Parse::RecDescent::_tracefirst($text),
16296                                                   q{quantified_p},
16297                                                   $tracelevel)
16298                                                         if defined $::RD_TRACE;
16299                         $expectation->failed();
16300                         last;
16301                 }
16302                 Parse::RecDescent::_trace(q{>>Matched subrule: [expression1]<< (return value: [}
16303                                         . $_tok . q{]},
16304
16305                                           Parse::RecDescent::_tracefirst($text),
16306                                           q{quantified_p},
16307                                           $tracelevel)
16308                                                 if defined $::RD_TRACE;
16309                 $item{q{expression1}} = $_tok;
16310                 push @item, $_tok;
16311
16312                 }
16313
16314                 Parse::RecDescent::_trace(q{Trying terminal: [/(=|<>|<|>|<=|=>|\\^=|\\^<|\\^>|\\!=)/]}, Parse::RecDescent::_tracefirst($text),
16315                                           q{quantified_p},
16316                                           $tracelevel)
16317                                                 if defined $::RD_TRACE;
16318                 $lastsep = "";
16319                 $expectation->is(q{/(=|<>|<|>|<=|=>|\\^=|\\^<|\\^>|\\!=)/})->at($text);
16320
16321
16322                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:(=|<>|<|>|<=|=>|\^=|\^<|\^>|\!=))//)
16323                 {
16324
16325                         $expectation->failed();
16326                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
16327                                                   Parse::RecDescent::_tracefirst($text))
16328                                         if defined $::RD_TRACE;
16329
16330                         last;
16331                 }
16332                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
16333                                                 . $& . q{])},
16334                                                   Parse::RecDescent::_tracefirst($text))
16335                                         if defined $::RD_TRACE;
16336                 push @item, $item{__PATTERN1__}=$&;
16337
16338
16339                 Parse::RecDescent::_trace(q{Trying terminal: [/SOME|ANY|ALL/i]}, Parse::RecDescent::_tracefirst($text),
16340                                           q{quantified_p},
16341                                           $tracelevel)
16342                                                 if defined $::RD_TRACE;
16343                 $lastsep = "";
16344                 $expectation->is(q{/SOME|ANY|ALL/i})->at($text);
16345
16346
16347                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SOME|ANY|ALL)//i)
16348                 {
16349
16350                         $expectation->failed();
16351                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
16352                                                   Parse::RecDescent::_tracefirst($text))
16353                                         if defined $::RD_TRACE;
16354
16355                         last;
16356                 }
16357                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
16358                                                 . $& . q{])},
16359                                                   Parse::RecDescent::_tracefirst($text))
16360                                         if defined $::RD_TRACE;
16361                 push @item, $item{__PATTERN2__}=$&;
16362
16363
16364                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
16365                                           Parse::RecDescent::_tracefirst($text),
16366                                           q{quantified_p},
16367                                           $tracelevel)
16368                                                 if defined $::RD_TRACE;
16369                 $lastsep = "";
16370                 $expectation->is(q{'('})->at($text);
16371
16372
16373                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
16374                 {
16375
16376                         $expectation->failed();
16377                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
16378                                                   Parse::RecDescent::_tracefirst($text))
16379                                                         if defined $::RD_TRACE;
16380                         last;
16381                 }
16382                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
16383                                                 . $& . q{])},
16384                                                   Parse::RecDescent::_tracefirst($text))
16385                                                         if defined $::RD_TRACE;
16386                 push @item, $item{__STRING1__}=$&;
16387
16388
16389                 Parse::RecDescent::_trace(q{Trying subrule: [fullselect]},
16390                                   Parse::RecDescent::_tracefirst($text),
16391                                   q{quantified_p},
16392                                   $tracelevel)
16393                                         if defined $::RD_TRACE;
16394                 if (1) { no strict qw{refs};
16395                 $expectation->is(q{fullselect})->at($text);
16396                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::fullselect($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
16397                 {
16398
16399                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [fullselect]>>},
16400                                                   Parse::RecDescent::_tracefirst($text),
16401                                                   q{quantified_p},
16402                                                   $tracelevel)
16403                                                         if defined $::RD_TRACE;
16404                         $expectation->failed();
16405                         last;
16406                 }
16407                 Parse::RecDescent::_trace(q{>>Matched subrule: [fullselect]<< (return value: [}
16408                                         . $_tok . q{]},
16409
16410                                           Parse::RecDescent::_tracefirst($text),
16411                                           q{quantified_p},
16412                                           $tracelevel)
16413                                                 if defined $::RD_TRACE;
16414                 $item{q{fullselect}} = $_tok;
16415                 push @item, $_tok;
16416
16417                 }
16418
16419                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
16420                                           Parse::RecDescent::_tracefirst($text),
16421                                           q{quantified_p},
16422                                           $tracelevel)
16423                                                 if defined $::RD_TRACE;
16424                 $lastsep = "";
16425                 $expectation->is(q{')'})->at($text);
16426
16427
16428                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
16429                 {
16430
16431                         $expectation->failed();
16432                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
16433                                                   Parse::RecDescent::_tracefirst($text))
16434                                                         if defined $::RD_TRACE;
16435                         last;
16436                 }
16437                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
16438                                                 . $& . q{])},
16439                                                   Parse::RecDescent::_tracefirst($text))
16440                                                         if defined $::RD_TRACE;
16441                 push @item, $item{__STRING2__}=$&;
16442
16443
16444
16445                 Parse::RecDescent::_trace(q{>>Matched production: [expression1 /(=|<>|<|>|<=|=>|\\^=|\\^<|\\^>|\\!=)/ /SOME|ANY|ALL/i '(' fullselect ')']<<},
16446                                           Parse::RecDescent::_tracefirst($text),
16447                                           q{quantified_p},
16448                                           $tracelevel)
16449                                                 if defined $::RD_TRACE;
16450                 $_matched = 1;
16451                 last;
16452         }
16453
16454
16455         unless ( $_matched || defined($return) || defined($score) )
16456         {
16457
16458
16459                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
16460                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
16461                                          Parse::RecDescent::_tracefirst($_[1]),
16462                                          q{quantified_p},
16463                                          $tracelevel)
16464                                         if defined $::RD_TRACE;
16465                 return undef;
16466         }
16467         if (!defined($return) && defined($score))
16468         {
16469                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
16470                                           q{quantified_p},
16471                                           $tracelevel)
16472                                                 if defined $::RD_TRACE;
16473                 $return = $score_return;
16474         }
16475         splice @{$thisparser->{errors}}, $err_at;
16476         $return = $item[$#item] unless defined $return;
16477         if (defined $::RD_TRACE)
16478         {
16479                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
16480                                           $return . q{])}, "",
16481                                           q{quantified_p},
16482                                           $tracelevel);
16483                 Parse::RecDescent::_trace(q{(consumed: [} .
16484                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
16485                                           Parse::RecDescent::_tracefirst($text),
16486                                           , q{quantified_p},
16487                                           $tracelevel)
16488         }
16489         $_[1] = $text;
16490         return $return;
16491 }
16492
16493 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
16494 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::common_table_expression
16495 {
16496         my $thisparser = $_[0];
16497         use vars q{$tracelevel};
16498         local $tracelevel = ($tracelevel||0)+1;
16499         $ERRORS = 0;
16500         my $thisrule = $thisparser->{"rules"}{"common_table_expression"};
16501
16502         Parse::RecDescent::_trace(q{Trying rule: [common_table_expression]},
16503                                   Parse::RecDescent::_tracefirst($_[1]),
16504                                   q{common_table_expression},
16505                                   $tracelevel)
16506                                         if defined $::RD_TRACE;
16507
16508
16509         my $err_at = @{$thisparser->{errors}};
16510
16511         my $score;
16512         my $score_return;
16513         my $_tok;
16514         my $return = undef;
16515         my $_matched=0;
16516         my $commit=0;
16517         my @item = ();
16518         my %item = ();
16519         my $repeating =  defined($_[2]) && $_[2];
16520         my $_noactions = defined($_[3]) && $_[3];
16521         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
16522         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
16523         my $text;
16524         my $lastsep="";
16525         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
16526         $expectation->at($_[1]);
16527
16528         my $thisline;
16529         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
16530
16531
16532
16533         while (!$_matched && !$commit)
16534         {
16535
16536                 Parse::RecDescent::_trace(q{Trying production: [table_name column_list /AS/i get_bracketed]},
16537                                           Parse::RecDescent::_tracefirst($_[1]),
16538                                           q{common_table_expression},
16539                                           $tracelevel)
16540                                                 if defined $::RD_TRACE;
16541                 my $thisprod = $thisrule->{"prods"}[0];
16542                 $text = $_[1];
16543                 my $_savetext;
16544                 @item = (q{common_table_expression});
16545                 %item = (__RULE__ => q{common_table_expression});
16546                 my $repcount = 0;
16547
16548
16549                 Parse::RecDescent::_trace(q{Trying subrule: [table_name]},
16550                                   Parse::RecDescent::_tracefirst($text),
16551                                   q{common_table_expression},
16552                                   $tracelevel)
16553                                         if defined $::RD_TRACE;
16554                 if (1) { no strict qw{refs};
16555                 $expectation->is(q{})->at($text);
16556                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::table_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
16557                 {
16558
16559                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [table_name]>>},
16560                                                   Parse::RecDescent::_tracefirst($text),
16561                                                   q{common_table_expression},
16562                                                   $tracelevel)
16563                                                         if defined $::RD_TRACE;
16564                         $expectation->failed();
16565                         last;
16566                 }
16567                 Parse::RecDescent::_trace(q{>>Matched subrule: [table_name]<< (return value: [}
16568                                         . $_tok . q{]},
16569
16570                                           Parse::RecDescent::_tracefirst($text),
16571                                           q{common_table_expression},
16572                                           $tracelevel)
16573                                                 if defined $::RD_TRACE;
16574                 $item{q{table_name}} = $_tok;
16575                 push @item, $_tok;
16576
16577                 }
16578
16579                 Parse::RecDescent::_trace(q{Trying subrule: [column_list]},
16580                                   Parse::RecDescent::_tracefirst($text),
16581                                   q{common_table_expression},
16582                                   $tracelevel)
16583                                         if defined $::RD_TRACE;
16584                 if (1) { no strict qw{refs};
16585                 $expectation->is(q{column_list})->at($text);
16586                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::column_list($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
16587                 {
16588
16589                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [column_list]>>},
16590                                                   Parse::RecDescent::_tracefirst($text),
16591                                                   q{common_table_expression},
16592                                                   $tracelevel)
16593                                                         if defined $::RD_TRACE;
16594                         $expectation->failed();
16595                         last;
16596                 }
16597                 Parse::RecDescent::_trace(q{>>Matched subrule: [column_list]<< (return value: [}
16598                                         . $_tok . q{]},
16599
16600                                           Parse::RecDescent::_tracefirst($text),
16601                                           q{common_table_expression},
16602                                           $tracelevel)
16603                                                 if defined $::RD_TRACE;
16604                 $item{q{column_list}} = $_tok;
16605                 push @item, $_tok;
16606
16607                 }
16608
16609                 Parse::RecDescent::_trace(q{Trying terminal: [/AS/i]}, Parse::RecDescent::_tracefirst($text),
16610                                           q{common_table_expression},
16611                                           $tracelevel)
16612                                                 if defined $::RD_TRACE;
16613                 $lastsep = "";
16614                 $expectation->is(q{/AS/i})->at($text);
16615
16616
16617                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:AS)//i)
16618                 {
16619
16620                         $expectation->failed();
16621                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
16622                                                   Parse::RecDescent::_tracefirst($text))
16623                                         if defined $::RD_TRACE;
16624
16625                         last;
16626                 }
16627                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
16628                                                 . $& . q{])},
16629                                                   Parse::RecDescent::_tracefirst($text))
16630                                         if defined $::RD_TRACE;
16631                 push @item, $item{__PATTERN1__}=$&;
16632
16633
16634                 Parse::RecDescent::_trace(q{Trying subrule: [get_bracketed]},
16635                                   Parse::RecDescent::_tracefirst($text),
16636                                   q{common_table_expression},
16637                                   $tracelevel)
16638                                         if defined $::RD_TRACE;
16639                 if (1) { no strict qw{refs};
16640                 $expectation->is(q{get_bracketed})->at($text);
16641                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::get_bracketed($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
16642                 {
16643
16644                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [get_bracketed]>>},
16645                                                   Parse::RecDescent::_tracefirst($text),
16646                                                   q{common_table_expression},
16647                                                   $tracelevel)
16648                                                         if defined $::RD_TRACE;
16649                         $expectation->failed();
16650                         last;
16651                 }
16652                 Parse::RecDescent::_trace(q{>>Matched subrule: [get_bracketed]<< (return value: [}
16653                                         . $_tok . q{]},
16654
16655                                           Parse::RecDescent::_tracefirst($text),
16656                                           q{common_table_expression},
16657                                           $tracelevel)
16658                                                 if defined $::RD_TRACE;
16659                 $item{q{get_bracketed}} = $_tok;
16660                 push @item, $_tok;
16661
16662                 }
16663
16664                 Parse::RecDescent::_trace(q{Trying action},
16665                                           Parse::RecDescent::_tracefirst($text),
16666                                           q{common_table_expression},
16667                                           $tracelevel)
16668                                                 if defined $::RD_TRACE;
16669
16670
16671                 $_tok = ($_noactions) ? 0 : do {
16672     $return = { name  => $item{table_name}{name},
16673                 query => $item[4]
16674                 };
16675 };
16676                 unless (defined $_tok)
16677                 {
16678                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
16679                                         if defined $::RD_TRACE;
16680                         last;
16681                 }
16682                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
16683                                           . $_tok . q{])},
16684                                           Parse::RecDescent::_tracefirst($text))
16685                                                 if defined $::RD_TRACE;
16686                 push @item, $_tok;
16687                 $item{__ACTION1__}=$_tok;
16688
16689
16690
16691                 Parse::RecDescent::_trace(q{>>Matched production: [table_name column_list /AS/i get_bracketed]<<},
16692                                           Parse::RecDescent::_tracefirst($text),
16693                                           q{common_table_expression},
16694                                           $tracelevel)
16695                                                 if defined $::RD_TRACE;
16696                 $_matched = 1;
16697                 last;
16698         }
16699
16700
16701         while (!$_matched && !$commit)
16702         {
16703
16704                 Parse::RecDescent::_trace(q{Trying production: [table_name column_list /AS/i '(' fullselect ')']},
16705                                           Parse::RecDescent::_tracefirst($_[1]),
16706                                           q{common_table_expression},
16707                                           $tracelevel)
16708                                                 if defined $::RD_TRACE;
16709                 my $thisprod = $thisrule->{"prods"}[1];
16710                 $text = $_[1];
16711                 my $_savetext;
16712                 @item = (q{common_table_expression});
16713                 %item = (__RULE__ => q{common_table_expression});
16714                 my $repcount = 0;
16715
16716
16717                 Parse::RecDescent::_trace(q{Trying subrule: [table_name]},
16718                                   Parse::RecDescent::_tracefirst($text),
16719                                   q{common_table_expression},
16720                                   $tracelevel)
16721                                         if defined $::RD_TRACE;
16722                 if (1) { no strict qw{refs};
16723                 $expectation->is(q{})->at($text);
16724                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::table_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
16725                 {
16726
16727                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [table_name]>>},
16728                                                   Parse::RecDescent::_tracefirst($text),
16729                                                   q{common_table_expression},
16730                                                   $tracelevel)
16731                                                         if defined $::RD_TRACE;
16732                         $expectation->failed();
16733                         last;
16734                 }
16735                 Parse::RecDescent::_trace(q{>>Matched subrule: [table_name]<< (return value: [}
16736                                         . $_tok . q{]},
16737
16738                                           Parse::RecDescent::_tracefirst($text),
16739                                           q{common_table_expression},
16740                                           $tracelevel)
16741                                                 if defined $::RD_TRACE;
16742                 $item{q{table_name}} = $_tok;
16743                 push @item, $_tok;
16744
16745                 }
16746
16747                 Parse::RecDescent::_trace(q{Trying subrule: [column_list]},
16748                                   Parse::RecDescent::_tracefirst($text),
16749                                   q{common_table_expression},
16750                                   $tracelevel)
16751                                         if defined $::RD_TRACE;
16752                 if (1) { no strict qw{refs};
16753                 $expectation->is(q{column_list})->at($text);
16754                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::column_list($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
16755                 {
16756
16757                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [column_list]>>},
16758                                                   Parse::RecDescent::_tracefirst($text),
16759                                                   q{common_table_expression},
16760                                                   $tracelevel)
16761                                                         if defined $::RD_TRACE;
16762                         $expectation->failed();
16763                         last;
16764                 }
16765                 Parse::RecDescent::_trace(q{>>Matched subrule: [column_list]<< (return value: [}
16766                                         . $_tok . q{]},
16767
16768                                           Parse::RecDescent::_tracefirst($text),
16769                                           q{common_table_expression},
16770                                           $tracelevel)
16771                                                 if defined $::RD_TRACE;
16772                 $item{q{column_list}} = $_tok;
16773                 push @item, $_tok;
16774
16775                 }
16776
16777                 Parse::RecDescent::_trace(q{Trying terminal: [/AS/i]}, Parse::RecDescent::_tracefirst($text),
16778                                           q{common_table_expression},
16779                                           $tracelevel)
16780                                                 if defined $::RD_TRACE;
16781                 $lastsep = "";
16782                 $expectation->is(q{/AS/i})->at($text);
16783
16784
16785                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:AS)//i)
16786                 {
16787
16788                         $expectation->failed();
16789                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
16790                                                   Parse::RecDescent::_tracefirst($text))
16791                                         if defined $::RD_TRACE;
16792
16793                         last;
16794                 }
16795                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
16796                                                 . $& . q{])},
16797                                                   Parse::RecDescent::_tracefirst($text))
16798                                         if defined $::RD_TRACE;
16799                 push @item, $item{__PATTERN1__}=$&;
16800
16801
16802                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
16803                                           Parse::RecDescent::_tracefirst($text),
16804                                           q{common_table_expression},
16805                                           $tracelevel)
16806                                                 if defined $::RD_TRACE;
16807                 $lastsep = "";
16808                 $expectation->is(q{'('})->at($text);
16809
16810
16811                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
16812                 {
16813
16814                         $expectation->failed();
16815                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
16816                                                   Parse::RecDescent::_tracefirst($text))
16817                                                         if defined $::RD_TRACE;
16818                         last;
16819                 }
16820                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
16821                                                 . $& . q{])},
16822                                                   Parse::RecDescent::_tracefirst($text))
16823                                                         if defined $::RD_TRACE;
16824                 push @item, $item{__STRING1__}=$&;
16825
16826
16827                 Parse::RecDescent::_trace(q{Trying subrule: [fullselect]},
16828                                   Parse::RecDescent::_tracefirst($text),
16829                                   q{common_table_expression},
16830                                   $tracelevel)
16831                                         if defined $::RD_TRACE;
16832                 if (1) { no strict qw{refs};
16833                 $expectation->is(q{fullselect})->at($text);
16834                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::fullselect($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
16835                 {
16836
16837                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [fullselect]>>},
16838                                                   Parse::RecDescent::_tracefirst($text),
16839                                                   q{common_table_expression},
16840                                                   $tracelevel)
16841                                                         if defined $::RD_TRACE;
16842                         $expectation->failed();
16843                         last;
16844                 }
16845                 Parse::RecDescent::_trace(q{>>Matched subrule: [fullselect]<< (return value: [}
16846                                         . $_tok . q{]},
16847
16848                                           Parse::RecDescent::_tracefirst($text),
16849                                           q{common_table_expression},
16850                                           $tracelevel)
16851                                                 if defined $::RD_TRACE;
16852                 $item{q{fullselect}} = $_tok;
16853                 push @item, $_tok;
16854
16855                 }
16856
16857                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
16858                                           Parse::RecDescent::_tracefirst($text),
16859                                           q{common_table_expression},
16860                                           $tracelevel)
16861                                                 if defined $::RD_TRACE;
16862                 $lastsep = "";
16863                 $expectation->is(q{')'})->at($text);
16864
16865
16866                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
16867                 {
16868
16869                         $expectation->failed();
16870                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
16871                                                   Parse::RecDescent::_tracefirst($text))
16872                                                         if defined $::RD_TRACE;
16873                         last;
16874                 }
16875                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
16876                                                 . $& . q{])},
16877                                                   Parse::RecDescent::_tracefirst($text))
16878                                                         if defined $::RD_TRACE;
16879                 push @item, $item{__STRING2__}=$&;
16880
16881
16882
16883                 Parse::RecDescent::_trace(q{>>Matched production: [table_name column_list /AS/i '(' fullselect ')']<<},
16884                                           Parse::RecDescent::_tracefirst($text),
16885                                           q{common_table_expression},
16886                                           $tracelevel)
16887                                                 if defined $::RD_TRACE;
16888                 $_matched = 1;
16889                 last;
16890         }
16891
16892
16893         unless ( $_matched || defined($return) || defined($score) )
16894         {
16895
16896
16897                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
16898                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
16899                                          Parse::RecDescent::_tracefirst($_[1]),
16900                                          q{common_table_expression},
16901                                          $tracelevel)
16902                                         if defined $::RD_TRACE;
16903                 return undef;
16904         }
16905         if (!defined($return) && defined($score))
16906         {
16907                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
16908                                           q{common_table_expression},
16909                                           $tracelevel)
16910                                                 if defined $::RD_TRACE;
16911                 $return = $score_return;
16912         }
16913         splice @{$thisparser->{errors}}, $err_at;
16914         $return = $item[$#item] unless defined $return;
16915         if (defined $::RD_TRACE)
16916         {
16917                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
16918                                           $return . q{])}, "",
16919                                           q{common_table_expression},
16920                                           $tracelevel);
16921                 Parse::RecDescent::_trace(q{(consumed: [} .
16922                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
16923                                           Parse::RecDescent::_tracefirst($text),
16924                                           , q{common_table_expression},
16925                                           $tracelevel)
16926         }
16927         $_[1] = $text;
16928         return $return;
16929 }
16930
16931 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
16932 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::after
16933 {
16934         my $thisparser = $_[0];
16935         use vars q{$tracelevel};
16936         local $tracelevel = ($tracelevel||0)+1;
16937         $ERRORS = 0;
16938         my $thisrule = $thisparser->{"rules"}{"after"};
16939
16940         Parse::RecDescent::_trace(q{Trying rule: [after]},
16941                                   Parse::RecDescent::_tracefirst($_[1]),
16942                                   q{after},
16943                                   $tracelevel)
16944                                         if defined $::RD_TRACE;
16945
16946
16947         my $err_at = @{$thisparser->{errors}};
16948
16949         my $score;
16950         my $score_return;
16951         my $_tok;
16952         my $return = undef;
16953         my $_matched=0;
16954         my $commit=0;
16955         my @item = ();
16956         my %item = ();
16957         my $repeating =  defined($_[2]) && $_[2];
16958         my $_noactions = defined($_[3]) && $_[3];
16959         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
16960         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
16961         my $text;
16962         my $lastsep="";
16963         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
16964         $expectation->at($_[1]);
16965
16966         my $thisline;
16967         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
16968
16969
16970
16971         while (!$_matched && !$commit)
16972         {
16973
16974                 Parse::RecDescent::_trace(q{Trying production: [/AFTER/i]},
16975                                           Parse::RecDescent::_tracefirst($_[1]),
16976                                           q{after},
16977                                           $tracelevel)
16978                                                 if defined $::RD_TRACE;
16979                 my $thisprod = $thisrule->{"prods"}[0];
16980                 $text = $_[1];
16981                 my $_savetext;
16982                 @item = (q{after});
16983                 %item = (__RULE__ => q{after});
16984                 my $repcount = 0;
16985
16986
16987                 Parse::RecDescent::_trace(q{Trying terminal: [/AFTER/i]}, Parse::RecDescent::_tracefirst($text),
16988                                           q{after},
16989                                           $tracelevel)
16990                                                 if defined $::RD_TRACE;
16991                 $lastsep = "";
16992                 $expectation->is(q{})->at($text);
16993
16994
16995                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:AFTER)//i)
16996                 {
16997
16998                         $expectation->failed();
16999                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
17000                                                   Parse::RecDescent::_tracefirst($text))
17001                                         if defined $::RD_TRACE;
17002
17003                         last;
17004                 }
17005                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
17006                                                 . $& . q{])},
17007                                                   Parse::RecDescent::_tracefirst($text))
17008                                         if defined $::RD_TRACE;
17009                 push @item, $item{__PATTERN1__}=$&;
17010
17011
17012
17013                 Parse::RecDescent::_trace(q{>>Matched production: [/AFTER/i]<<},
17014                                           Parse::RecDescent::_tracefirst($text),
17015                                           q{after},
17016                                           $tracelevel)
17017                                                 if defined $::RD_TRACE;
17018                 $_matched = 1;
17019                 last;
17020         }
17021
17022
17023         unless ( $_matched || defined($return) || defined($score) )
17024         {
17025
17026
17027                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
17028                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
17029                                          Parse::RecDescent::_tracefirst($_[1]),
17030                                          q{after},
17031                                          $tracelevel)
17032                                         if defined $::RD_TRACE;
17033                 return undef;
17034         }
17035         if (!defined($return) && defined($score))
17036         {
17037                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
17038                                           q{after},
17039                                           $tracelevel)
17040                                                 if defined $::RD_TRACE;
17041                 $return = $score_return;
17042         }
17043         splice @{$thisparser->{errors}}, $err_at;
17044         $return = $item[$#item] unless defined $return;
17045         if (defined $::RD_TRACE)
17046         {
17047                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
17048                                           $return . q{])}, "",
17049                                           q{after},
17050                                           $tracelevel);
17051                 Parse::RecDescent::_trace(q{(consumed: [} .
17052                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
17053                                           Parse::RecDescent::_tracefirst($text),
17054                                           , q{after},
17055                                           $tracelevel)
17056         }
17057         $_[1] = $text;
17058         return $return;
17059 }
17060
17061 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
17062 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::predicate
17063 {
17064         my $thisparser = $_[0];
17065         use vars q{$tracelevel};
17066         local $tracelevel = ($tracelevel||0)+1;
17067         $ERRORS = 0;
17068         my $thisrule = $thisparser->{"rules"}{"predicate"};
17069
17070         Parse::RecDescent::_trace(q{Trying rule: [predicate]},
17071                                   Parse::RecDescent::_tracefirst($_[1]),
17072                                   q{predicate},
17073                                   $tracelevel)
17074                                         if defined $::RD_TRACE;
17075
17076
17077         my $err_at = @{$thisparser->{errors}};
17078
17079         my $score;
17080         my $score_return;
17081         my $_tok;
17082         my $return = undef;
17083         my $_matched=0;
17084         my $commit=0;
17085         my @item = ();
17086         my %item = ();
17087         my $repeating =  defined($_[2]) && $_[2];
17088         my $_noactions = defined($_[3]) && $_[3];
17089         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
17090         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
17091         my $text;
17092         my $lastsep="";
17093         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
17094         $expectation->at($_[1]);
17095
17096         my $thisline;
17097         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
17098
17099
17100
17101         while (!$_matched && !$commit)
17102         {
17103
17104                 Parse::RecDescent::_trace(q{Trying production: [basic_p]},
17105                                           Parse::RecDescent::_tracefirst($_[1]),
17106                                           q{predicate},
17107                                           $tracelevel)
17108                                                 if defined $::RD_TRACE;
17109                 my $thisprod = $thisrule->{"prods"}[0];
17110                 $text = $_[1];
17111                 my $_savetext;
17112                 @item = (q{predicate});
17113                 %item = (__RULE__ => q{predicate});
17114                 my $repcount = 0;
17115
17116
17117                 Parse::RecDescent::_trace(q{Trying subrule: [basic_p]},
17118                                   Parse::RecDescent::_tracefirst($text),
17119                                   q{predicate},
17120                                   $tracelevel)
17121                                         if defined $::RD_TRACE;
17122                 if (1) { no strict qw{refs};
17123                 $expectation->is(q{})->at($text);
17124                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::basic_p($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
17125                 {
17126
17127                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [basic_p]>>},
17128                                                   Parse::RecDescent::_tracefirst($text),
17129                                                   q{predicate},
17130                                                   $tracelevel)
17131                                                         if defined $::RD_TRACE;
17132                         $expectation->failed();
17133                         last;
17134                 }
17135                 Parse::RecDescent::_trace(q{>>Matched subrule: [basic_p]<< (return value: [}
17136                                         . $_tok . q{]},
17137
17138                                           Parse::RecDescent::_tracefirst($text),
17139                                           q{predicate},
17140                                           $tracelevel)
17141                                                 if defined $::RD_TRACE;
17142                 $item{q{basic_p}} = $_tok;
17143                 push @item, $_tok;
17144
17145                 }
17146
17147
17148                 Parse::RecDescent::_trace(q{>>Matched production: [basic_p]<<},
17149                                           Parse::RecDescent::_tracefirst($text),
17150                                           q{predicate},
17151                                           $tracelevel)
17152                                                 if defined $::RD_TRACE;
17153                 $_matched = 1;
17154                 last;
17155         }
17156
17157
17158         while (!$_matched && !$commit)
17159         {
17160
17161                 Parse::RecDescent::_trace(q{Trying production: [quantified_p]},
17162                                           Parse::RecDescent::_tracefirst($_[1]),
17163                                           q{predicate},
17164                                           $tracelevel)
17165                                                 if defined $::RD_TRACE;
17166                 my $thisprod = $thisrule->{"prods"}[1];
17167                 $text = $_[1];
17168                 my $_savetext;
17169                 @item = (q{predicate});
17170                 %item = (__RULE__ => q{predicate});
17171                 my $repcount = 0;
17172
17173
17174                 Parse::RecDescent::_trace(q{Trying subrule: [quantified_p]},
17175                                   Parse::RecDescent::_tracefirst($text),
17176                                   q{predicate},
17177                                   $tracelevel)
17178                                         if defined $::RD_TRACE;
17179                 if (1) { no strict qw{refs};
17180                 $expectation->is(q{})->at($text);
17181                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::quantified_p($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
17182                 {
17183
17184                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [quantified_p]>>},
17185                                                   Parse::RecDescent::_tracefirst($text),
17186                                                   q{predicate},
17187                                                   $tracelevel)
17188                                                         if defined $::RD_TRACE;
17189                         $expectation->failed();
17190                         last;
17191                 }
17192                 Parse::RecDescent::_trace(q{>>Matched subrule: [quantified_p]<< (return value: [}
17193                                         . $_tok . q{]},
17194
17195                                           Parse::RecDescent::_tracefirst($text),
17196                                           q{predicate},
17197                                           $tracelevel)
17198                                                 if defined $::RD_TRACE;
17199                 $item{q{quantified_p}} = $_tok;
17200                 push @item, $_tok;
17201
17202                 }
17203
17204
17205                 Parse::RecDescent::_trace(q{>>Matched production: [quantified_p]<<},
17206                                           Parse::RecDescent::_tracefirst($text),
17207                                           q{predicate},
17208                                           $tracelevel)
17209                                                 if defined $::RD_TRACE;
17210                 $_matched = 1;
17211                 last;
17212         }
17213
17214
17215         while (!$_matched && !$commit)
17216         {
17217
17218                 Parse::RecDescent::_trace(q{Trying production: [between_p]},
17219                                           Parse::RecDescent::_tracefirst($_[1]),
17220                                           q{predicate},
17221                                           $tracelevel)
17222                                                 if defined $::RD_TRACE;
17223                 my $thisprod = $thisrule->{"prods"}[2];
17224                 $text = $_[1];
17225                 my $_savetext;
17226                 @item = (q{predicate});
17227                 %item = (__RULE__ => q{predicate});
17228                 my $repcount = 0;
17229
17230
17231                 Parse::RecDescent::_trace(q{Trying subrule: [between_p]},
17232                                   Parse::RecDescent::_tracefirst($text),
17233                                   q{predicate},
17234                                   $tracelevel)
17235                                         if defined $::RD_TRACE;
17236                 if (1) { no strict qw{refs};
17237                 $expectation->is(q{})->at($text);
17238                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::between_p($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
17239                 {
17240
17241                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [between_p]>>},
17242                                                   Parse::RecDescent::_tracefirst($text),
17243                                                   q{predicate},
17244                                                   $tracelevel)
17245                                                         if defined $::RD_TRACE;
17246                         $expectation->failed();
17247                         last;
17248                 }
17249                 Parse::RecDescent::_trace(q{>>Matched subrule: [between_p]<< (return value: [}
17250                                         . $_tok . q{]},
17251
17252                                           Parse::RecDescent::_tracefirst($text),
17253                                           q{predicate},
17254                                           $tracelevel)
17255                                                 if defined $::RD_TRACE;
17256                 $item{q{between_p}} = $_tok;
17257                 push @item, $_tok;
17258
17259                 }
17260
17261
17262                 Parse::RecDescent::_trace(q{>>Matched production: [between_p]<<},
17263                                           Parse::RecDescent::_tracefirst($text),
17264                                           q{predicate},
17265                                           $tracelevel)
17266                                                 if defined $::RD_TRACE;
17267                 $_matched = 1;
17268                 last;
17269         }
17270
17271
17272         while (!$_matched && !$commit)
17273         {
17274
17275                 Parse::RecDescent::_trace(q{Trying production: [exists_p]},
17276                                           Parse::RecDescent::_tracefirst($_[1]),
17277                                           q{predicate},
17278                                           $tracelevel)
17279                                                 if defined $::RD_TRACE;
17280                 my $thisprod = $thisrule->{"prods"}[3];
17281                 $text = $_[1];
17282                 my $_savetext;
17283                 @item = (q{predicate});
17284                 %item = (__RULE__ => q{predicate});
17285                 my $repcount = 0;
17286
17287
17288                 Parse::RecDescent::_trace(q{Trying subrule: [exists_p]},
17289                                   Parse::RecDescent::_tracefirst($text),
17290                                   q{predicate},
17291                                   $tracelevel)
17292                                         if defined $::RD_TRACE;
17293                 if (1) { no strict qw{refs};
17294                 $expectation->is(q{})->at($text);
17295                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::exists_p($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
17296                 {
17297
17298                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [exists_p]>>},
17299                                                   Parse::RecDescent::_tracefirst($text),
17300                                                   q{predicate},
17301                                                   $tracelevel)
17302                                                         if defined $::RD_TRACE;
17303                         $expectation->failed();
17304                         last;
17305                 }
17306                 Parse::RecDescent::_trace(q{>>Matched subrule: [exists_p]<< (return value: [}
17307                                         . $_tok . q{]},
17308
17309                                           Parse::RecDescent::_tracefirst($text),
17310                                           q{predicate},
17311                                           $tracelevel)
17312                                                 if defined $::RD_TRACE;
17313                 $item{q{exists_p}} = $_tok;
17314                 push @item, $_tok;
17315
17316                 }
17317
17318
17319                 Parse::RecDescent::_trace(q{>>Matched production: [exists_p]<<},
17320                                           Parse::RecDescent::_tracefirst($text),
17321                                           q{predicate},
17322                                           $tracelevel)
17323                                                 if defined $::RD_TRACE;
17324                 $_matched = 1;
17325                 last;
17326         }
17327
17328
17329         while (!$_matched && !$commit)
17330         {
17331
17332                 Parse::RecDescent::_trace(q{Trying production: [in_p]},
17333                                           Parse::RecDescent::_tracefirst($_[1]),
17334                                           q{predicate},
17335                                           $tracelevel)
17336                                                 if defined $::RD_TRACE;
17337                 my $thisprod = $thisrule->{"prods"}[4];
17338                 $text = $_[1];
17339                 my $_savetext;
17340                 @item = (q{predicate});
17341                 %item = (__RULE__ => q{predicate});
17342                 my $repcount = 0;
17343
17344
17345                 Parse::RecDescent::_trace(q{Trying subrule: [in_p]},
17346                                   Parse::RecDescent::_tracefirst($text),
17347                                   q{predicate},
17348                                   $tracelevel)
17349                                         if defined $::RD_TRACE;
17350                 if (1) { no strict qw{refs};
17351                 $expectation->is(q{})->at($text);
17352                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::in_p($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
17353                 {
17354
17355                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [in_p]>>},
17356                                                   Parse::RecDescent::_tracefirst($text),
17357                                                   q{predicate},
17358                                                   $tracelevel)
17359                                                         if defined $::RD_TRACE;
17360                         $expectation->failed();
17361                         last;
17362                 }
17363                 Parse::RecDescent::_trace(q{>>Matched subrule: [in_p]<< (return value: [}
17364                                         . $_tok . q{]},
17365
17366                                           Parse::RecDescent::_tracefirst($text),
17367                                           q{predicate},
17368                                           $tracelevel)
17369                                                 if defined $::RD_TRACE;
17370                 $item{q{in_p}} = $_tok;
17371                 push @item, $_tok;
17372
17373                 }
17374
17375
17376                 Parse::RecDescent::_trace(q{>>Matched production: [in_p]<<},
17377                                           Parse::RecDescent::_tracefirst($text),
17378                                           q{predicate},
17379                                           $tracelevel)
17380                                                 if defined $::RD_TRACE;
17381                 $_matched = 1;
17382                 last;
17383         }
17384
17385
17386         while (!$_matched && !$commit)
17387         {
17388
17389                 Parse::RecDescent::_trace(q{Trying production: [like_p]},
17390                                           Parse::RecDescent::_tracefirst($_[1]),
17391                                           q{predicate},
17392                                           $tracelevel)
17393                                                 if defined $::RD_TRACE;
17394                 my $thisprod = $thisrule->{"prods"}[5];
17395                 $text = $_[1];
17396                 my $_savetext;
17397                 @item = (q{predicate});
17398                 %item = (__RULE__ => q{predicate});
17399                 my $repcount = 0;
17400
17401
17402                 Parse::RecDescent::_trace(q{Trying subrule: [like_p]},
17403                                   Parse::RecDescent::_tracefirst($text),
17404                                   q{predicate},
17405                                   $tracelevel)
17406                                         if defined $::RD_TRACE;
17407                 if (1) { no strict qw{refs};
17408                 $expectation->is(q{})->at($text);
17409                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::like_p($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
17410                 {
17411
17412                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [like_p]>>},
17413                                                   Parse::RecDescent::_tracefirst($text),
17414                                                   q{predicate},
17415                                                   $tracelevel)
17416                                                         if defined $::RD_TRACE;
17417                         $expectation->failed();
17418                         last;
17419                 }
17420                 Parse::RecDescent::_trace(q{>>Matched subrule: [like_p]<< (return value: [}
17421                                         . $_tok . q{]},
17422
17423                                           Parse::RecDescent::_tracefirst($text),
17424                                           q{predicate},
17425                                           $tracelevel)
17426                                                 if defined $::RD_TRACE;
17427                 $item{q{like_p}} = $_tok;
17428                 push @item, $_tok;
17429
17430                 }
17431
17432
17433                 Parse::RecDescent::_trace(q{>>Matched production: [like_p]<<},
17434                                           Parse::RecDescent::_tracefirst($text),
17435                                           q{predicate},
17436                                           $tracelevel)
17437                                                 if defined $::RD_TRACE;
17438                 $_matched = 1;
17439                 last;
17440         }
17441
17442
17443         while (!$_matched && !$commit)
17444         {
17445
17446                 Parse::RecDescent::_trace(q{Trying production: [null_p]},
17447                                           Parse::RecDescent::_tracefirst($_[1]),
17448                                           q{predicate},
17449                                           $tracelevel)
17450                                                 if defined $::RD_TRACE;
17451                 my $thisprod = $thisrule->{"prods"}[6];
17452                 $text = $_[1];
17453                 my $_savetext;
17454                 @item = (q{predicate});
17455                 %item = (__RULE__ => q{predicate});
17456                 my $repcount = 0;
17457
17458
17459                 Parse::RecDescent::_trace(q{Trying subrule: [null_p]},
17460                                   Parse::RecDescent::_tracefirst($text),
17461                                   q{predicate},
17462                                   $tracelevel)
17463                                         if defined $::RD_TRACE;
17464                 if (1) { no strict qw{refs};
17465                 $expectation->is(q{})->at($text);
17466                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::null_p($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
17467                 {
17468
17469                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [null_p]>>},
17470                                                   Parse::RecDescent::_tracefirst($text),
17471                                                   q{predicate},
17472                                                   $tracelevel)
17473                                                         if defined $::RD_TRACE;
17474                         $expectation->failed();
17475                         last;
17476                 }
17477                 Parse::RecDescent::_trace(q{>>Matched subrule: [null_p]<< (return value: [}
17478                                         . $_tok . q{]},
17479
17480                                           Parse::RecDescent::_tracefirst($text),
17481                                           q{predicate},
17482                                           $tracelevel)
17483                                                 if defined $::RD_TRACE;
17484                 $item{q{null_p}} = $_tok;
17485                 push @item, $_tok;
17486
17487                 }
17488
17489
17490                 Parse::RecDescent::_trace(q{>>Matched production: [null_p]<<},
17491                                           Parse::RecDescent::_tracefirst($text),
17492                                           q{predicate},
17493                                           $tracelevel)
17494                                                 if defined $::RD_TRACE;
17495                 $_matched = 1;
17496                 last;
17497         }
17498
17499
17500         while (!$_matched && !$commit)
17501         {
17502
17503                 Parse::RecDescent::_trace(q{Trying production: [type_p]},
17504                                           Parse::RecDescent::_tracefirst($_[1]),
17505                                           q{predicate},
17506                                           $tracelevel)
17507                                                 if defined $::RD_TRACE;
17508                 my $thisprod = $thisrule->{"prods"}[7];
17509                 $text = $_[1];
17510                 my $_savetext;
17511                 @item = (q{predicate});
17512                 %item = (__RULE__ => q{predicate});
17513                 my $repcount = 0;
17514
17515
17516                 Parse::RecDescent::_trace(q{Trying subrule: [type_p]},
17517                                   Parse::RecDescent::_tracefirst($text),
17518                                   q{predicate},
17519                                   $tracelevel)
17520                                         if defined $::RD_TRACE;
17521                 if (1) { no strict qw{refs};
17522                 $expectation->is(q{})->at($text);
17523                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::type_p($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
17524                 {
17525
17526                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [type_p]>>},
17527                                                   Parse::RecDescent::_tracefirst($text),
17528                                                   q{predicate},
17529                                                   $tracelevel)
17530                                                         if defined $::RD_TRACE;
17531                         $expectation->failed();
17532                         last;
17533                 }
17534                 Parse::RecDescent::_trace(q{>>Matched subrule: [type_p]<< (return value: [}
17535                                         . $_tok . q{]},
17536
17537                                           Parse::RecDescent::_tracefirst($text),
17538                                           q{predicate},
17539                                           $tracelevel)
17540                                                 if defined $::RD_TRACE;
17541                 $item{q{type_p}} = $_tok;
17542                 push @item, $_tok;
17543
17544                 }
17545
17546
17547                 Parse::RecDescent::_trace(q{>>Matched production: [type_p]<<},
17548                                           Parse::RecDescent::_tracefirst($text),
17549                                           q{predicate},
17550                                           $tracelevel)
17551                                                 if defined $::RD_TRACE;
17552                 $_matched = 1;
17553                 last;
17554         }
17555
17556
17557         unless ( $_matched || defined($return) || defined($score) )
17558         {
17559
17560
17561                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
17562                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
17563                                          Parse::RecDescent::_tracefirst($_[1]),
17564                                          q{predicate},
17565                                          $tracelevel)
17566                                         if defined $::RD_TRACE;
17567                 return undef;
17568         }
17569         if (!defined($return) && defined($score))
17570         {
17571                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
17572                                           q{predicate},
17573                                           $tracelevel)
17574                                                 if defined $::RD_TRACE;
17575                 $return = $score_return;
17576         }
17577         splice @{$thisparser->{errors}}, $err_at;
17578         $return = $item[$#item] unless defined $return;
17579         if (defined $::RD_TRACE)
17580         {
17581                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
17582                                           $return . q{])}, "",
17583                                           q{predicate},
17584                                           $tracelevel);
17585                 Parse::RecDescent::_trace(q{(consumed: [} .
17586                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
17587                                           Parse::RecDescent::_tracefirst($text),
17588                                           , q{predicate},
17589                                           $tracelevel)
17590         }
17591         $_[1] = $text;
17592         return $return;
17593 }
17594
17595 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
17596 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::column_name
17597 {
17598         my $thisparser = $_[0];
17599         use vars q{$tracelevel};
17600         local $tracelevel = ($tracelevel||0)+1;
17601         $ERRORS = 0;
17602         my $thisrule = $thisparser->{"rules"}{"column_name"};
17603
17604         Parse::RecDescent::_trace(q{Trying rule: [column_name]},
17605                                   Parse::RecDescent::_tracefirst($_[1]),
17606                                   q{column_name},
17607                                   $tracelevel)
17608                                         if defined $::RD_TRACE;
17609
17610
17611         my $err_at = @{$thisparser->{errors}};
17612
17613         my $score;
17614         my $score_return;
17615         my $_tok;
17616         my $return = undef;
17617         my $_matched=0;
17618         my $commit=0;
17619         my @item = ();
17620         my %item = ();
17621         my $repeating =  defined($_[2]) && $_[2];
17622         my $_noactions = defined($_[3]) && $_[3];
17623         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
17624         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
17625         my $text;
17626         my $lastsep="";
17627         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
17628         $expectation->at($_[1]);
17629
17630         my $thisline;
17631         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
17632
17633
17634
17635         while (!$_matched && !$commit)
17636         {
17637
17638                 Parse::RecDescent::_trace(q{Trying production: [NAME]},
17639                                           Parse::RecDescent::_tracefirst($_[1]),
17640                                           q{column_name},
17641                                           $tracelevel)
17642                                                 if defined $::RD_TRACE;
17643                 my $thisprod = $thisrule->{"prods"}[0];
17644                 $text = $_[1];
17645                 my $_savetext;
17646                 @item = (q{column_name});
17647                 %item = (__RULE__ => q{column_name});
17648                 my $repcount = 0;
17649
17650
17651                 Parse::RecDescent::_trace(q{Trying subrule: [NAME]},
17652                                   Parse::RecDescent::_tracefirst($text),
17653                                   q{column_name},
17654                                   $tracelevel)
17655                                         if defined $::RD_TRACE;
17656                 if (1) { no strict qw{refs};
17657                 $expectation->is(q{})->at($text);
17658                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::NAME($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
17659                 {
17660
17661                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [NAME]>>},
17662                                                   Parse::RecDescent::_tracefirst($text),
17663                                                   q{column_name},
17664                                                   $tracelevel)
17665                                                         if defined $::RD_TRACE;
17666                         $expectation->failed();
17667                         last;
17668                 }
17669                 Parse::RecDescent::_trace(q{>>Matched subrule: [NAME]<< (return value: [}
17670                                         . $_tok . q{]},
17671
17672                                           Parse::RecDescent::_tracefirst($text),
17673                                           q{column_name},
17674                                           $tracelevel)
17675                                                 if defined $::RD_TRACE;
17676                 $item{q{NAME}} = $_tok;
17677                 push @item, $_tok;
17678
17679                 }
17680
17681
17682                 Parse::RecDescent::_trace(q{>>Matched production: [NAME]<<},
17683                                           Parse::RecDescent::_tracefirst($text),
17684                                           q{column_name},
17685                                           $tracelevel)
17686                                                 if defined $::RD_TRACE;
17687                 $_matched = 1;
17688                 last;
17689         }
17690
17691
17692         unless ( $_matched || defined($return) || defined($score) )
17693         {
17694
17695
17696                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
17697                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
17698                                          Parse::RecDescent::_tracefirst($_[1]),
17699                                          q{column_name},
17700                                          $tracelevel)
17701                                         if defined $::RD_TRACE;
17702                 return undef;
17703         }
17704         if (!defined($return) && defined($score))
17705         {
17706                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
17707                                           q{column_name},
17708                                           $tracelevel)
17709                                                 if defined $::RD_TRACE;
17710                 $return = $score_return;
17711         }
17712         splice @{$thisparser->{errors}}, $err_at;
17713         $return = $item[$#item] unless defined $return;
17714         if (defined $::RD_TRACE)
17715         {
17716                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
17717                                           $return . q{])}, "",
17718                                           q{column_name},
17719                                           $tracelevel);
17720                 Parse::RecDescent::_trace(q{(consumed: [} .
17721                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
17722                                           Parse::RecDescent::_tracefirst($text),
17723                                           , q{column_name},
17724                                           $tracelevel)
17725         }
17726         $_[1] = $text;
17727         return $return;
17728 }
17729
17730 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
17731 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::method_invocation
17732 {
17733         my $thisparser = $_[0];
17734         use vars q{$tracelevel};
17735         local $tracelevel = ($tracelevel||0)+1;
17736         $ERRORS = 0;
17737         my $thisrule = $thisparser->{"rules"}{"method_invocation"};
17738
17739         Parse::RecDescent::_trace(q{Trying rule: [method_invocation]},
17740                                   Parse::RecDescent::_tracefirst($_[1]),
17741                                   q{method_invocation},
17742                                   $tracelevel)
17743                                         if defined $::RD_TRACE;
17744
17745
17746         my $err_at = @{$thisparser->{errors}};
17747
17748         my $score;
17749         my $score_return;
17750         my $_tok;
17751         my $return = undef;
17752         my $_matched=0;
17753         my $commit=0;
17754         my @item = ();
17755         my %item = ();
17756         my $repeating =  defined($_[2]) && $_[2];
17757         my $_noactions = defined($_[3]) && $_[3];
17758         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
17759         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
17760         my $text;
17761         my $lastsep="";
17762         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
17763         $expectation->at($_[1]);
17764
17765         my $thisline;
17766         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
17767
17768
17769
17770         while (!$_matched && !$commit)
17771         {
17772
17773                 Parse::RecDescent::_trace(q{Trying production: [subject_expression '..' method_name '(']},
17774                                           Parse::RecDescent::_tracefirst($_[1]),
17775                                           q{method_invocation},
17776                                           $tracelevel)
17777                                                 if defined $::RD_TRACE;
17778                 my $thisprod = $thisrule->{"prods"}[0];
17779                 $text = $_[1];
17780                 my $_savetext;
17781                 @item = (q{method_invocation});
17782                 %item = (__RULE__ => q{method_invocation});
17783                 my $repcount = 0;
17784
17785
17786                 Parse::RecDescent::_trace(q{Trying subrule: [subject_expression]},
17787                                   Parse::RecDescent::_tracefirst($text),
17788                                   q{method_invocation},
17789                                   $tracelevel)
17790                                         if defined $::RD_TRACE;
17791                 if (1) { no strict qw{refs};
17792                 $expectation->is(q{})->at($text);
17793                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::subject_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
17794                 {
17795
17796                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [subject_expression]>>},
17797                                                   Parse::RecDescent::_tracefirst($text),
17798                                                   q{method_invocation},
17799                                                   $tracelevel)
17800                                                         if defined $::RD_TRACE;
17801                         $expectation->failed();
17802                         last;
17803                 }
17804                 Parse::RecDescent::_trace(q{>>Matched subrule: [subject_expression]<< (return value: [}
17805                                         . $_tok . q{]},
17806
17807                                           Parse::RecDescent::_tracefirst($text),
17808                                           q{method_invocation},
17809                                           $tracelevel)
17810                                                 if defined $::RD_TRACE;
17811                 $item{q{subject_expression}} = $_tok;
17812                 push @item, $_tok;
17813
17814                 }
17815
17816                 Parse::RecDescent::_trace(q{Trying terminal: ['..']},
17817                                           Parse::RecDescent::_tracefirst($text),
17818                                           q{method_invocation},
17819                                           $tracelevel)
17820                                                 if defined $::RD_TRACE;
17821                 $lastsep = "";
17822                 $expectation->is(q{'..'})->at($text);
17823
17824
17825                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\.\.//)
17826                 {
17827
17828                         $expectation->failed();
17829                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
17830                                                   Parse::RecDescent::_tracefirst($text))
17831                                                         if defined $::RD_TRACE;
17832                         last;
17833                 }
17834                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
17835                                                 . $& . q{])},
17836                                                   Parse::RecDescent::_tracefirst($text))
17837                                                         if defined $::RD_TRACE;
17838                 push @item, $item{__STRING1__}=$&;
17839
17840
17841                 Parse::RecDescent::_trace(q{Trying subrule: [method_name]},
17842                                   Parse::RecDescent::_tracefirst($text),
17843                                   q{method_invocation},
17844                                   $tracelevel)
17845                                         if defined $::RD_TRACE;
17846                 if (1) { no strict qw{refs};
17847                 $expectation->is(q{method_name})->at($text);
17848                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::method_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
17849                 {
17850
17851                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [method_name]>>},
17852                                                   Parse::RecDescent::_tracefirst($text),
17853                                                   q{method_invocation},
17854                                                   $tracelevel)
17855                                                         if defined $::RD_TRACE;
17856                         $expectation->failed();
17857                         last;
17858                 }
17859                 Parse::RecDescent::_trace(q{>>Matched subrule: [method_name]<< (return value: [}
17860                                         . $_tok . q{]},
17861
17862                                           Parse::RecDescent::_tracefirst($text),
17863                                           q{method_invocation},
17864                                           $tracelevel)
17865                                                 if defined $::RD_TRACE;
17866                 $item{q{method_name}} = $_tok;
17867                 push @item, $_tok;
17868
17869                 }
17870
17871                 Parse::RecDescent::_trace(q{Trying repeated subrule: ['(']},
17872                                   Parse::RecDescent::_tracefirst($text),
17873                                   q{method_invocation},
17874                                   $tracelevel)
17875                                         if defined $::RD_TRACE;
17876                 $expectation->is(q{'('})->at($text);
17877
17878                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_method_invocation, 0, 1, $_noactions,$expectation,undef)))
17879                 {
17880                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: ['(']>>},
17881                                                   Parse::RecDescent::_tracefirst($text),
17882                                                   q{method_invocation},
17883                                                   $tracelevel)
17884                                                         if defined $::RD_TRACE;
17885                         last;
17886                 }
17887                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [_alternation_1_of_production_1_of_rule_method_invocation]<< (}
17888                                         . @$_tok . q{ times)},
17889
17890                                           Parse::RecDescent::_tracefirst($text),
17891                                           q{method_invocation},
17892                                           $tracelevel)
17893                                                 if defined $::RD_TRACE;
17894                 $item{q{_alternation_1_of_production_1_of_rule_method_invocation(?)}} = $_tok;
17895                 push @item, $_tok;
17896
17897
17898
17899
17900                 Parse::RecDescent::_trace(q{>>Matched production: [subject_expression '..' method_name '(']<<},
17901                                           Parse::RecDescent::_tracefirst($text),
17902                                           q{method_invocation},
17903                                           $tracelevel)
17904                                                 if defined $::RD_TRACE;
17905                 $_matched = 1;
17906                 last;
17907         }
17908
17909
17910         unless ( $_matched || defined($return) || defined($score) )
17911         {
17912
17913
17914                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
17915                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
17916                                          Parse::RecDescent::_tracefirst($_[1]),
17917                                          q{method_invocation},
17918                                          $tracelevel)
17919                                         if defined $::RD_TRACE;
17920                 return undef;
17921         }
17922         if (!defined($return) && defined($score))
17923         {
17924                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
17925                                           q{method_invocation},
17926                                           $tracelevel)
17927                                                 if defined $::RD_TRACE;
17928                 $return = $score_return;
17929         }
17930         splice @{$thisparser->{errors}}, $err_at;
17931         $return = $item[$#item] unless defined $return;
17932         if (defined $::RD_TRACE)
17933         {
17934                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
17935                                           $return . q{])}, "",
17936                                           q{method_invocation},
17937                                           $tracelevel);
17938                 Parse::RecDescent::_trace(q{(consumed: [} .
17939                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
17940                                           Parse::RecDescent::_tracefirst($text),
17941                                           , q{method_invocation},
17942                                           $tracelevel)
17943         }
17944         $_[1] = $text;
17945         return $return;
17946 }
17947
17948 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
17949 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_dereference_operation
17950 {
17951         my $thisparser = $_[0];
17952         use vars q{$tracelevel};
17953         local $tracelevel = ($tracelevel||0)+1;
17954         $ERRORS = 0;
17955         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_dereference_operation"};
17956
17957         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_dereference_operation]},
17958                                   Parse::RecDescent::_tracefirst($_[1]),
17959                                   q{_alternation_1_of_production_1_of_rule_dereference_operation},
17960                                   $tracelevel)
17961                                         if defined $::RD_TRACE;
17962
17963
17964         my $err_at = @{$thisparser->{errors}};
17965
17966         my $score;
17967         my $score_return;
17968         my $_tok;
17969         my $return = undef;
17970         my $_matched=0;
17971         my $commit=0;
17972         my @item = ();
17973         my %item = ();
17974         my $repeating =  defined($_[2]) && $_[2];
17975         my $_noactions = defined($_[3]) && $_[3];
17976         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
17977         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
17978         my $text;
17979         my $lastsep="";
17980         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
17981         $expectation->at($_[1]);
17982
17983         my $thisline;
17984         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
17985
17986
17987
17988         while (!$_matched && !$commit)
17989         {
17990
17991                 Parse::RecDescent::_trace(q{Trying production: ['(' expression ')']},
17992                                           Parse::RecDescent::_tracefirst($_[1]),
17993                                           q{_alternation_1_of_production_1_of_rule_dereference_operation},
17994                                           $tracelevel)
17995                                                 if defined $::RD_TRACE;
17996                 my $thisprod = $thisrule->{"prods"}[0];
17997                 $text = $_[1];
17998                 my $_savetext;
17999                 @item = (q{_alternation_1_of_production_1_of_rule_dereference_operation});
18000                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_dereference_operation});
18001                 my $repcount = 0;
18002
18003
18004                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
18005                                           Parse::RecDescent::_tracefirst($text),
18006                                           q{_alternation_1_of_production_1_of_rule_dereference_operation},
18007                                           $tracelevel)
18008                                                 if defined $::RD_TRACE;
18009                 $lastsep = "";
18010                 $expectation->is(q{})->at($text);
18011
18012
18013                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
18014                 {
18015
18016                         $expectation->failed();
18017                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
18018                                                   Parse::RecDescent::_tracefirst($text))
18019                                                         if defined $::RD_TRACE;
18020                         last;
18021                 }
18022                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
18023                                                 . $& . q{])},
18024                                                   Parse::RecDescent::_tracefirst($text))
18025                                                         if defined $::RD_TRACE;
18026                 push @item, $item{__STRING1__}=$&;
18027
18028
18029                 Parse::RecDescent::_trace(q{Trying repeated subrule: [expression]},
18030                                   Parse::RecDescent::_tracefirst($text),
18031                                   q{_alternation_1_of_production_1_of_rule_dereference_operation},
18032                                   $tracelevel)
18033                                         if defined $::RD_TRACE;
18034                 $expectation->is(q{expression})->at($text);
18035
18036                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression, 1, 100000000, $_noactions,$expectation,undef)))
18037                 {
18038                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [expression]>>},
18039                                                   Parse::RecDescent::_tracefirst($text),
18040                                                   q{_alternation_1_of_production_1_of_rule_dereference_operation},
18041                                                   $tracelevel)
18042                                                         if defined $::RD_TRACE;
18043                         last;
18044                 }
18045                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [expression]<< (}
18046                                         . @$_tok . q{ times)},
18047
18048                                           Parse::RecDescent::_tracefirst($text),
18049                                           q{_alternation_1_of_production_1_of_rule_dereference_operation},
18050                                           $tracelevel)
18051                                                 if defined $::RD_TRACE;
18052                 $item{q{expression(s)}} = $_tok;
18053                 push @item, $_tok;
18054
18055
18056
18057                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
18058                                           Parse::RecDescent::_tracefirst($text),
18059                                           q{_alternation_1_of_production_1_of_rule_dereference_operation},
18060                                           $tracelevel)
18061                                                 if defined $::RD_TRACE;
18062                 $lastsep = "";
18063                 $expectation->is(q{')'})->at($text);
18064
18065
18066                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
18067                 {
18068
18069                         $expectation->failed();
18070                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
18071                                                   Parse::RecDescent::_tracefirst($text))
18072                                                         if defined $::RD_TRACE;
18073                         last;
18074                 }
18075                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
18076                                                 . $& . q{])},
18077                                                   Parse::RecDescent::_tracefirst($text))
18078                                                         if defined $::RD_TRACE;
18079                 push @item, $item{__STRING2__}=$&;
18080
18081
18082
18083                 Parse::RecDescent::_trace(q{>>Matched production: ['(' expression ')']<<},
18084                                           Parse::RecDescent::_tracefirst($text),
18085                                           q{_alternation_1_of_production_1_of_rule_dereference_operation},
18086                                           $tracelevel)
18087                                                 if defined $::RD_TRACE;
18088                 $_matched = 1;
18089                 last;
18090         }
18091
18092
18093         unless ( $_matched || defined($return) || defined($score) )
18094         {
18095
18096
18097                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
18098                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
18099                                          Parse::RecDescent::_tracefirst($_[1]),
18100                                          q{_alternation_1_of_production_1_of_rule_dereference_operation},
18101                                          $tracelevel)
18102                                         if defined $::RD_TRACE;
18103                 return undef;
18104         }
18105         if (!defined($return) && defined($score))
18106         {
18107                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
18108                                           q{_alternation_1_of_production_1_of_rule_dereference_operation},
18109                                           $tracelevel)
18110                                                 if defined $::RD_TRACE;
18111                 $return = $score_return;
18112         }
18113         splice @{$thisparser->{errors}}, $err_at;
18114         $return = $item[$#item] unless defined $return;
18115         if (defined $::RD_TRACE)
18116         {
18117                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
18118                                           $return . q{])}, "",
18119                                           q{_alternation_1_of_production_1_of_rule_dereference_operation},
18120                                           $tracelevel);
18121                 Parse::RecDescent::_trace(q{(consumed: [} .
18122                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
18123                                           Parse::RecDescent::_tracefirst($text),
18124                                           , q{_alternation_1_of_production_1_of_rule_dereference_operation},
18125                                           $tracelevel)
18126         }
18127         $_[1] = $text;
18128         return $return;
18129 }
18130
18131 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
18132 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_searched_when_clause
18133 {
18134         my $thisparser = $_[0];
18135         use vars q{$tracelevel};
18136         local $tracelevel = ($tracelevel||0)+1;
18137         $ERRORS = 0;
18138         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_searched_when_clause"};
18139
18140         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_searched_when_clause]},
18141                                   Parse::RecDescent::_tracefirst($_[1]),
18142                                   q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18143                                   $tracelevel)
18144                                         if defined $::RD_TRACE;
18145
18146
18147         my $err_at = @{$thisparser->{errors}};
18148
18149         my $score;
18150         my $score_return;
18151         my $_tok;
18152         my $return = undef;
18153         my $_matched=0;
18154         my $commit=0;
18155         my @item = ();
18156         my %item = ();
18157         my $repeating =  defined($_[2]) && $_[2];
18158         my $_noactions = defined($_[3]) && $_[3];
18159         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
18160         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
18161         my $text;
18162         my $lastsep="";
18163         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
18164         $expectation->at($_[1]);
18165
18166         my $thisline;
18167         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
18168
18169
18170
18171         while (!$_matched && !$commit)
18172         {
18173
18174                 Parse::RecDescent::_trace(q{Trying production: [/WHEN/i search_condition /THEN/i result_expression, or /NULL/i]},
18175                                           Parse::RecDescent::_tracefirst($_[1]),
18176                                           q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18177                                           $tracelevel)
18178                                                 if defined $::RD_TRACE;
18179                 my $thisprod = $thisrule->{"prods"}[0];
18180                 $text = $_[1];
18181                 my $_savetext;
18182                 @item = (q{_alternation_1_of_production_1_of_rule_searched_when_clause});
18183                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_searched_when_clause});
18184                 my $repcount = 0;
18185
18186
18187                 Parse::RecDescent::_trace(q{Trying terminal: [/WHEN/i]}, Parse::RecDescent::_tracefirst($text),
18188                                           q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18189                                           $tracelevel)
18190                                                 if defined $::RD_TRACE;
18191                 $lastsep = "";
18192                 $expectation->is(q{})->at($text);
18193
18194
18195                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:WHEN)//i)
18196                 {
18197
18198                         $expectation->failed();
18199                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
18200                                                   Parse::RecDescent::_tracefirst($text))
18201                                         if defined $::RD_TRACE;
18202
18203                         last;
18204                 }
18205                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
18206                                                 . $& . q{])},
18207                                                   Parse::RecDescent::_tracefirst($text))
18208                                         if defined $::RD_TRACE;
18209                 push @item, $item{__PATTERN1__}=$&;
18210
18211
18212                 Parse::RecDescent::_trace(q{Trying subrule: [search_condition]},
18213                                   Parse::RecDescent::_tracefirst($text),
18214                                   q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18215                                   $tracelevel)
18216                                         if defined $::RD_TRACE;
18217                 if (1) { no strict qw{refs};
18218                 $expectation->is(q{search_condition})->at($text);
18219                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::search_condition($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
18220                 {
18221
18222                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [search_condition]>>},
18223                                                   Parse::RecDescent::_tracefirst($text),
18224                                                   q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18225                                                   $tracelevel)
18226                                                         if defined $::RD_TRACE;
18227                         $expectation->failed();
18228                         last;
18229                 }
18230                 Parse::RecDescent::_trace(q{>>Matched subrule: [search_condition]<< (return value: [}
18231                                         . $_tok . q{]},
18232
18233                                           Parse::RecDescent::_tracefirst($text),
18234                                           q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18235                                           $tracelevel)
18236                                                 if defined $::RD_TRACE;
18237                 $item{q{search_condition}} = $_tok;
18238                 push @item, $_tok;
18239
18240                 }
18241
18242                 Parse::RecDescent::_trace(q{Trying terminal: [/THEN/i]}, Parse::RecDescent::_tracefirst($text),
18243                                           q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18244                                           $tracelevel)
18245                                                 if defined $::RD_TRACE;
18246                 $lastsep = "";
18247                 $expectation->is(q{/THEN/i})->at($text);
18248
18249
18250                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:THEN)//i)
18251                 {
18252
18253                         $expectation->failed();
18254                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
18255                                                   Parse::RecDescent::_tracefirst($text))
18256                                         if defined $::RD_TRACE;
18257
18258                         last;
18259                 }
18260                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
18261                                                 . $& . q{])},
18262                                                   Parse::RecDescent::_tracefirst($text))
18263                                         if defined $::RD_TRACE;
18264                 push @item, $item{__PATTERN2__}=$&;
18265
18266
18267                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause]},
18268                                   Parse::RecDescent::_tracefirst($text),
18269                                   q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18270                                   $tracelevel)
18271                                         if defined $::RD_TRACE;
18272                 if (1) { no strict qw{refs};
18273                 $expectation->is(q{result_expression, or /NULL/i})->at($text);
18274                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
18275                 {
18276
18277                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause]>>},
18278                                                   Parse::RecDescent::_tracefirst($text),
18279                                                   q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18280                                                   $tracelevel)
18281                                                         if defined $::RD_TRACE;
18282                         $expectation->failed();
18283                         last;
18284                 }
18285                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause]<< (return value: [}
18286                                         . $_tok . q{]},
18287
18288                                           Parse::RecDescent::_tracefirst($text),
18289                                           q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18290                                           $tracelevel)
18291                                                 if defined $::RD_TRACE;
18292                 $item{q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause}} = $_tok;
18293                 push @item, $_tok;
18294
18295                 }
18296
18297
18298                 Parse::RecDescent::_trace(q{>>Matched production: [/WHEN/i search_condition /THEN/i result_expression, or /NULL/i]<<},
18299                                           Parse::RecDescent::_tracefirst($text),
18300                                           q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18301                                           $tracelevel)
18302                                                 if defined $::RD_TRACE;
18303                 $_matched = 1;
18304                 last;
18305         }
18306
18307
18308         unless ( $_matched || defined($return) || defined($score) )
18309         {
18310
18311
18312                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
18313                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
18314                                          Parse::RecDescent::_tracefirst($_[1]),
18315                                          q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18316                                          $tracelevel)
18317                                         if defined $::RD_TRACE;
18318                 return undef;
18319         }
18320         if (!defined($return) && defined($score))
18321         {
18322                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
18323                                           q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18324                                           $tracelevel)
18325                                                 if defined $::RD_TRACE;
18326                 $return = $score_return;
18327         }
18328         splice @{$thisparser->{errors}}, $err_at;
18329         $return = $item[$#item] unless defined $return;
18330         if (defined $::RD_TRACE)
18331         {
18332                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
18333                                           $return . q{])}, "",
18334                                           q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18335                                           $tracelevel);
18336                 Parse::RecDescent::_trace(q{(consumed: [} .
18337                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
18338                                           Parse::RecDescent::_tracefirst($text),
18339                                           , q{_alternation_1_of_production_1_of_rule_searched_when_clause},
18340                                           $tracelevel)
18341         }
18342         $_[1] = $text;
18343         return $return;
18344 }
18345
18346 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
18347 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::group_bound2
18348 {
18349         my $thisparser = $_[0];
18350         use vars q{$tracelevel};
18351         local $tracelevel = ($tracelevel||0)+1;
18352         $ERRORS = 0;
18353         my $thisrule = $thisparser->{"rules"}{"group_bound2"};
18354
18355         Parse::RecDescent::_trace(q{Trying rule: [group_bound2]},
18356                                   Parse::RecDescent::_tracefirst($_[1]),
18357                                   q{group_bound2},
18358                                   $tracelevel)
18359                                         if defined $::RD_TRACE;
18360
18361
18362         my $err_at = @{$thisparser->{errors}};
18363
18364         my $score;
18365         my $score_return;
18366         my $_tok;
18367         my $return = undef;
18368         my $_matched=0;
18369         my $commit=0;
18370         my @item = ();
18371         my %item = ();
18372         my $repeating =  defined($_[2]) && $_[2];
18373         my $_noactions = defined($_[3]) && $_[3];
18374         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
18375         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
18376         my $text;
18377         my $lastsep="";
18378         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
18379         $expectation->at($_[1]);
18380
18381         my $thisline;
18382         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
18383
18384
18385
18386         while (!$_matched && !$commit)
18387         {
18388
18389                 Parse::RecDescent::_trace(q{Trying production: [/UNBOUNDED\\s+PRECEDING/i]},
18390                                           Parse::RecDescent::_tracefirst($_[1]),
18391                                           q{group_bound2},
18392                                           $tracelevel)
18393                                                 if defined $::RD_TRACE;
18394                 my $thisprod = $thisrule->{"prods"}[0];
18395                 $text = $_[1];
18396                 my $_savetext;
18397                 @item = (q{group_bound2});
18398                 %item = (__RULE__ => q{group_bound2});
18399                 my $repcount = 0;
18400
18401
18402                 Parse::RecDescent::_trace(q{Trying terminal: [/UNBOUNDED\\s+PRECEDING/i]}, Parse::RecDescent::_tracefirst($text),
18403                                           q{group_bound2},
18404                                           $tracelevel)
18405                                                 if defined $::RD_TRACE;
18406                 $lastsep = "";
18407                 $expectation->is(q{})->at($text);
18408
18409
18410                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:UNBOUNDED\s+PRECEDING)//i)
18411                 {
18412
18413                         $expectation->failed();
18414                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
18415                                                   Parse::RecDescent::_tracefirst($text))
18416                                         if defined $::RD_TRACE;
18417
18418                         last;
18419                 }
18420                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
18421                                                 . $& . q{])},
18422                                                   Parse::RecDescent::_tracefirst($text))
18423                                         if defined $::RD_TRACE;
18424                 push @item, $item{__PATTERN1__}=$&;
18425
18426
18427
18428                 Parse::RecDescent::_trace(q{>>Matched production: [/UNBOUNDED\\s+PRECEDING/i]<<},
18429                                           Parse::RecDescent::_tracefirst($text),
18430                                           q{group_bound2},
18431                                           $tracelevel)
18432                                                 if defined $::RD_TRACE;
18433                 $_matched = 1;
18434                 last;
18435         }
18436
18437
18438         while (!$_matched && !$commit)
18439         {
18440
18441                 Parse::RecDescent::_trace(q{Trying production: [unsigned_constant /PRECEDING/i]},
18442                                           Parse::RecDescent::_tracefirst($_[1]),
18443                                           q{group_bound2},
18444                                           $tracelevel)
18445                                                 if defined $::RD_TRACE;
18446                 my $thisprod = $thisrule->{"prods"}[1];
18447                 $text = $_[1];
18448                 my $_savetext;
18449                 @item = (q{group_bound2});
18450                 %item = (__RULE__ => q{group_bound2});
18451                 my $repcount = 0;
18452
18453
18454                 Parse::RecDescent::_trace(q{Trying subrule: [unsigned_constant]},
18455                                   Parse::RecDescent::_tracefirst($text),
18456                                   q{group_bound2},
18457                                   $tracelevel)
18458                                         if defined $::RD_TRACE;
18459                 if (1) { no strict qw{refs};
18460                 $expectation->is(q{})->at($text);
18461                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::unsigned_constant($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
18462                 {
18463
18464                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [unsigned_constant]>>},
18465                                                   Parse::RecDescent::_tracefirst($text),
18466                                                   q{group_bound2},
18467                                                   $tracelevel)
18468                                                         if defined $::RD_TRACE;
18469                         $expectation->failed();
18470                         last;
18471                 }
18472                 Parse::RecDescent::_trace(q{>>Matched subrule: [unsigned_constant]<< (return value: [}
18473                                         . $_tok . q{]},
18474
18475                                           Parse::RecDescent::_tracefirst($text),
18476                                           q{group_bound2},
18477                                           $tracelevel)
18478                                                 if defined $::RD_TRACE;
18479                 $item{q{unsigned_constant}} = $_tok;
18480                 push @item, $_tok;
18481
18482                 }
18483
18484                 Parse::RecDescent::_trace(q{Trying terminal: [/PRECEDING/i]}, Parse::RecDescent::_tracefirst($text),
18485                                           q{group_bound2},
18486                                           $tracelevel)
18487                                                 if defined $::RD_TRACE;
18488                 $lastsep = "";
18489                 $expectation->is(q{/PRECEDING/i})->at($text);
18490
18491
18492                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:PRECEDING)//i)
18493                 {
18494
18495                         $expectation->failed();
18496                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
18497                                                   Parse::RecDescent::_tracefirst($text))
18498                                         if defined $::RD_TRACE;
18499
18500                         last;
18501                 }
18502                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
18503                                                 . $& . q{])},
18504                                                   Parse::RecDescent::_tracefirst($text))
18505                                         if defined $::RD_TRACE;
18506                 push @item, $item{__PATTERN1__}=$&;
18507
18508
18509
18510                 Parse::RecDescent::_trace(q{>>Matched production: [unsigned_constant /PRECEDING/i]<<},
18511                                           Parse::RecDescent::_tracefirst($text),
18512                                           q{group_bound2},
18513                                           $tracelevel)
18514                                                 if defined $::RD_TRACE;
18515                 $_matched = 1;
18516                 last;
18517         }
18518
18519
18520         while (!$_matched && !$commit)
18521         {
18522
18523                 Parse::RecDescent::_trace(q{Trying production: [unsigned_constant /FOLLOWING/i]},
18524                                           Parse::RecDescent::_tracefirst($_[1]),
18525                                           q{group_bound2},
18526                                           $tracelevel)
18527                                                 if defined $::RD_TRACE;
18528                 my $thisprod = $thisrule->{"prods"}[2];
18529                 $text = $_[1];
18530                 my $_savetext;
18531                 @item = (q{group_bound2});
18532                 %item = (__RULE__ => q{group_bound2});
18533                 my $repcount = 0;
18534
18535
18536                 Parse::RecDescent::_trace(q{Trying subrule: [unsigned_constant]},
18537                                   Parse::RecDescent::_tracefirst($text),
18538                                   q{group_bound2},
18539                                   $tracelevel)
18540                                         if defined $::RD_TRACE;
18541                 if (1) { no strict qw{refs};
18542                 $expectation->is(q{})->at($text);
18543                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::unsigned_constant($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
18544                 {
18545
18546                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [unsigned_constant]>>},
18547                                                   Parse::RecDescent::_tracefirst($text),
18548                                                   q{group_bound2},
18549                                                   $tracelevel)
18550                                                         if defined $::RD_TRACE;
18551                         $expectation->failed();
18552                         last;
18553                 }
18554                 Parse::RecDescent::_trace(q{>>Matched subrule: [unsigned_constant]<< (return value: [}
18555                                         . $_tok . q{]},
18556
18557                                           Parse::RecDescent::_tracefirst($text),
18558                                           q{group_bound2},
18559                                           $tracelevel)
18560                                                 if defined $::RD_TRACE;
18561                 $item{q{unsigned_constant}} = $_tok;
18562                 push @item, $_tok;
18563
18564                 }
18565
18566                 Parse::RecDescent::_trace(q{Trying terminal: [/FOLLOWING/i]}, Parse::RecDescent::_tracefirst($text),
18567                                           q{group_bound2},
18568                                           $tracelevel)
18569                                                 if defined $::RD_TRACE;
18570                 $lastsep = "";
18571                 $expectation->is(q{/FOLLOWING/i})->at($text);
18572
18573
18574                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:FOLLOWING)//i)
18575                 {
18576
18577                         $expectation->failed();
18578                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
18579                                                   Parse::RecDescent::_tracefirst($text))
18580                                         if defined $::RD_TRACE;
18581
18582                         last;
18583                 }
18584                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
18585                                                 . $& . q{])},
18586                                                   Parse::RecDescent::_tracefirst($text))
18587                                         if defined $::RD_TRACE;
18588                 push @item, $item{__PATTERN1__}=$&;
18589
18590
18591
18592                 Parse::RecDescent::_trace(q{>>Matched production: [unsigned_constant /FOLLOWING/i]<<},
18593                                           Parse::RecDescent::_tracefirst($text),
18594                                           q{group_bound2},
18595                                           $tracelevel)
18596                                                 if defined $::RD_TRACE;
18597                 $_matched = 1;
18598                 last;
18599         }
18600
18601
18602         while (!$_matched && !$commit)
18603         {
18604
18605                 Parse::RecDescent::_trace(q{Trying production: [/CURRENT\\s+ROW/i]},
18606                                           Parse::RecDescent::_tracefirst($_[1]),
18607                                           q{group_bound2},
18608                                           $tracelevel)
18609                                                 if defined $::RD_TRACE;
18610                 my $thisprod = $thisrule->{"prods"}[3];
18611                 $text = $_[1];
18612                 my $_savetext;
18613                 @item = (q{group_bound2});
18614                 %item = (__RULE__ => q{group_bound2});
18615                 my $repcount = 0;
18616
18617
18618                 Parse::RecDescent::_trace(q{Trying terminal: [/CURRENT\\s+ROW/i]}, Parse::RecDescent::_tracefirst($text),
18619                                           q{group_bound2},
18620                                           $tracelevel)
18621                                                 if defined $::RD_TRACE;
18622                 $lastsep = "";
18623                 $expectation->is(q{})->at($text);
18624
18625
18626                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CURRENT\s+ROW)//i)
18627                 {
18628
18629                         $expectation->failed();
18630                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
18631                                                   Parse::RecDescent::_tracefirst($text))
18632                                         if defined $::RD_TRACE;
18633
18634                         last;
18635                 }
18636                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
18637                                                 . $& . q{])},
18638                                                   Parse::RecDescent::_tracefirst($text))
18639                                         if defined $::RD_TRACE;
18640                 push @item, $item{__PATTERN1__}=$&;
18641
18642
18643
18644                 Parse::RecDescent::_trace(q{>>Matched production: [/CURRENT\\s+ROW/i]<<},
18645                                           Parse::RecDescent::_tracefirst($text),
18646                                           q{group_bound2},
18647                                           $tracelevel)
18648                                                 if defined $::RD_TRACE;
18649                 $_matched = 1;
18650                 last;
18651         }
18652
18653
18654         unless ( $_matched || defined($return) || defined($score) )
18655         {
18656
18657
18658                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
18659                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
18660                                          Parse::RecDescent::_tracefirst($_[1]),
18661                                          q{group_bound2},
18662                                          $tracelevel)
18663                                         if defined $::RD_TRACE;
18664                 return undef;
18665         }
18666         if (!defined($return) && defined($score))
18667         {
18668                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
18669                                           q{group_bound2},
18670                                           $tracelevel)
18671                                                 if defined $::RD_TRACE;
18672                 $return = $score_return;
18673         }
18674         splice @{$thisparser->{errors}}, $err_at;
18675         $return = $item[$#item] unless defined $return;
18676         if (defined $::RD_TRACE)
18677         {
18678                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
18679                                           $return . q{])}, "",
18680                                           q{group_bound2},
18681                                           $tracelevel);
18682                 Parse::RecDescent::_trace(q{(consumed: [} .
18683                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
18684                                           Parse::RecDescent::_tracefirst($text),
18685                                           , q{group_bound2},
18686                                           $tracelevel)
18687         }
18688         $_[1] = $text;
18689         return $return;
18690 }
18691
18692 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
18693 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::searched_when_clause
18694 {
18695         my $thisparser = $_[0];
18696         use vars q{$tracelevel};
18697         local $tracelevel = ($tracelevel||0)+1;
18698         $ERRORS = 0;
18699         my $thisrule = $thisparser->{"rules"}{"searched_when_clause"};
18700
18701         Parse::RecDescent::_trace(q{Trying rule: [searched_when_clause]},
18702                                   Parse::RecDescent::_tracefirst($_[1]),
18703                                   q{searched_when_clause},
18704                                   $tracelevel)
18705                                         if defined $::RD_TRACE;
18706
18707
18708         my $err_at = @{$thisparser->{errors}};
18709
18710         my $score;
18711         my $score_return;
18712         my $_tok;
18713         my $return = undef;
18714         my $_matched=0;
18715         my $commit=0;
18716         my @item = ();
18717         my %item = ();
18718         my $repeating =  defined($_[2]) && $_[2];
18719         my $_noactions = defined($_[3]) && $_[3];
18720         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
18721         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
18722         my $text;
18723         my $lastsep="";
18724         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
18725         $expectation->at($_[1]);
18726
18727         my $thisline;
18728         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
18729
18730
18731
18732         while (!$_matched && !$commit)
18733         {
18734
18735                 Parse::RecDescent::_trace(q{Trying production: [/WHEN/i]},
18736                                           Parse::RecDescent::_tracefirst($_[1]),
18737                                           q{searched_when_clause},
18738                                           $tracelevel)
18739                                                 if defined $::RD_TRACE;
18740                 my $thisprod = $thisrule->{"prods"}[0];
18741                 $text = $_[1];
18742                 my $_savetext;
18743                 @item = (q{searched_when_clause});
18744                 %item = (__RULE__ => q{searched_when_clause});
18745                 my $repcount = 0;
18746
18747
18748                 Parse::RecDescent::_trace(q{Trying repeated subrule: [/WHEN/i]},
18749                                   Parse::RecDescent::_tracefirst($text),
18750                                   q{searched_when_clause},
18751                                   $tracelevel)
18752                                         if defined $::RD_TRACE;
18753                 $expectation->is(q{})->at($text);
18754
18755                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_searched_when_clause, 1, 100000000, $_noactions,$expectation,undef)))
18756                 {
18757                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [/WHEN/i]>>},
18758                                                   Parse::RecDescent::_tracefirst($text),
18759                                                   q{searched_when_clause},
18760                                                   $tracelevel)
18761                                                         if defined $::RD_TRACE;
18762                         last;
18763                 }
18764                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [_alternation_1_of_production_1_of_rule_searched_when_clause]<< (}
18765                                         . @$_tok . q{ times)},
18766
18767                                           Parse::RecDescent::_tracefirst($text),
18768                                           q{searched_when_clause},
18769                                           $tracelevel)
18770                                                 if defined $::RD_TRACE;
18771                 $item{q{_alternation_1_of_production_1_of_rule_searched_when_clause(s)}} = $_tok;
18772                 push @item, $_tok;
18773
18774
18775
18776
18777                 Parse::RecDescent::_trace(q{>>Matched production: [/WHEN/i]<<},
18778                                           Parse::RecDescent::_tracefirst($text),
18779                                           q{searched_when_clause},
18780                                           $tracelevel)
18781                                                 if defined $::RD_TRACE;
18782                 $_matched = 1;
18783                 last;
18784         }
18785
18786
18787         unless ( $_matched || defined($return) || defined($score) )
18788         {
18789
18790
18791                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
18792                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
18793                                          Parse::RecDescent::_tracefirst($_[1]),
18794                                          q{searched_when_clause},
18795                                          $tracelevel)
18796                                         if defined $::RD_TRACE;
18797                 return undef;
18798         }
18799         if (!defined($return) && defined($score))
18800         {
18801                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
18802                                           q{searched_when_clause},
18803                                           $tracelevel)
18804                                                 if defined $::RD_TRACE;
18805                 $return = $score_return;
18806         }
18807         splice @{$thisparser->{errors}}, $err_at;
18808         $return = $item[$#item] unless defined $return;
18809         if (defined $::RD_TRACE)
18810         {
18811                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
18812                                           $return . q{])}, "",
18813                                           q{searched_when_clause},
18814                                           $tracelevel);
18815                 Parse::RecDescent::_trace(q{(consumed: [} .
18816                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
18817                                           Parse::RecDescent::_tracefirst($text),
18818                                           , q{searched_when_clause},
18819                                           $tracelevel)
18820         }
18821         $_[1] = $text;
18822         return $return;
18823 }
18824
18825 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
18826 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::basic_p
18827 {
18828         my $thisparser = $_[0];
18829         use vars q{$tracelevel};
18830         local $tracelevel = ($tracelevel||0)+1;
18831         $ERRORS = 0;
18832         my $thisrule = $thisparser->{"rules"}{"basic_p"};
18833
18834         Parse::RecDescent::_trace(q{Trying rule: [basic_p]},
18835                                   Parse::RecDescent::_tracefirst($_[1]),
18836                                   q{basic_p},
18837                                   $tracelevel)
18838                                         if defined $::RD_TRACE;
18839
18840
18841         my $err_at = @{$thisparser->{errors}};
18842
18843         my $score;
18844         my $score_return;
18845         my $_tok;
18846         my $return = undef;
18847         my $_matched=0;
18848         my $commit=0;
18849         my @item = ();
18850         my %item = ();
18851         my $repeating =  defined($_[2]) && $_[2];
18852         my $_noactions = defined($_[3]) && $_[3];
18853         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
18854         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
18855         my $text;
18856         my $lastsep="";
18857         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
18858         $expectation->at($_[1]);
18859
18860         my $thisline;
18861         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
18862
18863
18864
18865         while (!$_matched && !$commit)
18866         {
18867
18868                 Parse::RecDescent::_trace(q{Trying production: [expression /(=|<>|<|>|<=|=>|\\^=|\\^<|\\^>|\\!=)/ expression]},
18869                                           Parse::RecDescent::_tracefirst($_[1]),
18870                                           q{basic_p},
18871                                           $tracelevel)
18872                                                 if defined $::RD_TRACE;
18873                 my $thisprod = $thisrule->{"prods"}[0];
18874                 $text = $_[1];
18875                 my $_savetext;
18876                 @item = (q{basic_p});
18877                 %item = (__RULE__ => q{basic_p});
18878                 my $repcount = 0;
18879
18880
18881                 Parse::RecDescent::_trace(q{Trying subrule: [expression]},
18882                                   Parse::RecDescent::_tracefirst($text),
18883                                   q{basic_p},
18884                                   $tracelevel)
18885                                         if defined $::RD_TRACE;
18886                 if (1) { no strict qw{refs};
18887                 $expectation->is(q{})->at($text);
18888                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
18889                 {
18890
18891                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [expression]>>},
18892                                                   Parse::RecDescent::_tracefirst($text),
18893                                                   q{basic_p},
18894                                                   $tracelevel)
18895                                                         if defined $::RD_TRACE;
18896                         $expectation->failed();
18897                         last;
18898                 }
18899                 Parse::RecDescent::_trace(q{>>Matched subrule: [expression]<< (return value: [}
18900                                         . $_tok . q{]},
18901
18902                                           Parse::RecDescent::_tracefirst($text),
18903                                           q{basic_p},
18904                                           $tracelevel)
18905                                                 if defined $::RD_TRACE;
18906                 $item{q{expression}} = $_tok;
18907                 push @item, $_tok;
18908
18909                 }
18910
18911                 Parse::RecDescent::_trace(q{Trying terminal: [/(=|<>|<|>|<=|=>|\\^=|\\^<|\\^>|\\!=)/]}, Parse::RecDescent::_tracefirst($text),
18912                                           q{basic_p},
18913                                           $tracelevel)
18914                                                 if defined $::RD_TRACE;
18915                 $lastsep = "";
18916                 $expectation->is(q{/(=|<>|<|>|<=|=>|\\^=|\\^<|\\^>|\\!=)/})->at($text);
18917
18918
18919                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:(=|<>|<|>|<=|=>|\^=|\^<|\^>|\!=))//)
18920                 {
18921
18922                         $expectation->failed();
18923                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
18924                                                   Parse::RecDescent::_tracefirst($text))
18925                                         if defined $::RD_TRACE;
18926
18927                         last;
18928                 }
18929                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
18930                                                 . $& . q{])},
18931                                                   Parse::RecDescent::_tracefirst($text))
18932                                         if defined $::RD_TRACE;
18933                 push @item, $item{__PATTERN1__}=$&;
18934
18935
18936                 Parse::RecDescent::_trace(q{Trying subrule: [expression]},
18937                                   Parse::RecDescent::_tracefirst($text),
18938                                   q{basic_p},
18939                                   $tracelevel)
18940                                         if defined $::RD_TRACE;
18941                 if (1) { no strict qw{refs};
18942                 $expectation->is(q{expression})->at($text);
18943                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
18944                 {
18945
18946                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [expression]>>},
18947                                                   Parse::RecDescent::_tracefirst($text),
18948                                                   q{basic_p},
18949                                                   $tracelevel)
18950                                                         if defined $::RD_TRACE;
18951                         $expectation->failed();
18952                         last;
18953                 }
18954                 Parse::RecDescent::_trace(q{>>Matched subrule: [expression]<< (return value: [}
18955                                         . $_tok . q{]},
18956
18957                                           Parse::RecDescent::_tracefirst($text),
18958                                           q{basic_p},
18959                                           $tracelevel)
18960                                                 if defined $::RD_TRACE;
18961                 $item{q{expression}} = $_tok;
18962                 push @item, $_tok;
18963
18964                 }
18965
18966
18967                 Parse::RecDescent::_trace(q{>>Matched production: [expression /(=|<>|<|>|<=|=>|\\^=|\\^<|\\^>|\\!=)/ expression]<<},
18968                                           Parse::RecDescent::_tracefirst($text),
18969                                           q{basic_p},
18970                                           $tracelevel)
18971                                                 if defined $::RD_TRACE;
18972                 $_matched = 1;
18973                 last;
18974         }
18975
18976
18977         unless ( $_matched || defined($return) || defined($score) )
18978         {
18979
18980
18981                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
18982                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
18983                                          Parse::RecDescent::_tracefirst($_[1]),
18984                                          q{basic_p},
18985                                          $tracelevel)
18986                                         if defined $::RD_TRACE;
18987                 return undef;
18988         }
18989         if (!defined($return) && defined($score))
18990         {
18991                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
18992                                           q{basic_p},
18993                                           $tracelevel)
18994                                                 if defined $::RD_TRACE;
18995                 $return = $score_return;
18996         }
18997         splice @{$thisparser->{errors}}, $err_at;
18998         $return = $item[$#item] unless defined $return;
18999         if (defined $::RD_TRACE)
19000         {
19001                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
19002                                           $return . q{])}, "",
19003                                           q{basic_p},
19004                                           $tracelevel);
19005                 Parse::RecDescent::_trace(q{(consumed: [} .
19006                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
19007                                           Parse::RecDescent::_tracefirst($text),
19008                                           , q{basic_p},
19009                                           $tracelevel)
19010         }
19011         $_[1] = $text;
19012         return $return;
19013 }
19014
19015 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
19016 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::asc_option
19017 {
19018         my $thisparser = $_[0];
19019         use vars q{$tracelevel};
19020         local $tracelevel = ($tracelevel||0)+1;
19021         $ERRORS = 0;
19022         my $thisrule = $thisparser->{"rules"}{"asc_option"};
19023
19024         Parse::RecDescent::_trace(q{Trying rule: [asc_option]},
19025                                   Parse::RecDescent::_tracefirst($_[1]),
19026                                   q{asc_option},
19027                                   $tracelevel)
19028                                         if defined $::RD_TRACE;
19029
19030
19031         my $err_at = @{$thisparser->{errors}};
19032
19033         my $score;
19034         my $score_return;
19035         my $_tok;
19036         my $return = undef;
19037         my $_matched=0;
19038         my $commit=0;
19039         my @item = ();
19040         my %item = ();
19041         my $repeating =  defined($_[2]) && $_[2];
19042         my $_noactions = defined($_[3]) && $_[3];
19043         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
19044         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
19045         my $text;
19046         my $lastsep="";
19047         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
19048         $expectation->at($_[1]);
19049
19050         my $thisline;
19051         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
19052
19053
19054
19055         while (!$_matched && !$commit)
19056         {
19057
19058                 Parse::RecDescent::_trace(q{Trying production: [/ASC/i /NULLS\\s+FIRST/i, or /NULLS\\s+LAST/i]},
19059                                           Parse::RecDescent::_tracefirst($_[1]),
19060                                           q{asc_option},
19061                                           $tracelevel)
19062                                                 if defined $::RD_TRACE;
19063                 my $thisprod = $thisrule->{"prods"}[0];
19064                 $text = $_[1];
19065                 my $_savetext;
19066                 @item = (q{asc_option});
19067                 %item = (__RULE__ => q{asc_option});
19068                 my $repcount = 0;
19069
19070
19071                 Parse::RecDescent::_trace(q{Trying terminal: [/ASC/i]}, Parse::RecDescent::_tracefirst($text),
19072                                           q{asc_option},
19073                                           $tracelevel)
19074                                                 if defined $::RD_TRACE;
19075                 $lastsep = "";
19076                 $expectation->is(q{})->at($text);
19077
19078
19079                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ASC)//i)
19080                 {
19081
19082                         $expectation->failed();
19083                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
19084                                                   Parse::RecDescent::_tracefirst($text))
19085                                         if defined $::RD_TRACE;
19086
19087                         last;
19088                 }
19089                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
19090                                                 . $& . q{])},
19091                                                   Parse::RecDescent::_tracefirst($text))
19092                                         if defined $::RD_TRACE;
19093                 push @item, $item{__PATTERN1__}=$&;
19094
19095
19096                 Parse::RecDescent::_trace(q{Trying repeated subrule: [/NULLS\\s+FIRST/i, or /NULLS\\s+LAST/i]},
19097                                   Parse::RecDescent::_tracefirst($text),
19098                                   q{asc_option},
19099                                   $tracelevel)
19100                                         if defined $::RD_TRACE;
19101                 $expectation->is(q{/NULLS\\s+FIRST/i, or /NULLS\\s+LAST/i})->at($text);
19102
19103                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_asc_option, 0, 1, $_noactions,$expectation,undef)))
19104                 {
19105                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [/NULLS\\s+FIRST/i, or /NULLS\\s+LAST/i]>>},
19106                                                   Parse::RecDescent::_tracefirst($text),
19107                                                   q{asc_option},
19108                                                   $tracelevel)
19109                                                         if defined $::RD_TRACE;
19110                         last;
19111                 }
19112                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [_alternation_1_of_production_1_of_rule_asc_option]<< (}
19113                                         . @$_tok . q{ times)},
19114
19115                                           Parse::RecDescent::_tracefirst($text),
19116                                           q{asc_option},
19117                                           $tracelevel)
19118                                                 if defined $::RD_TRACE;
19119                 $item{q{_alternation_1_of_production_1_of_rule_asc_option(?)}} = $_tok;
19120                 push @item, $_tok;
19121
19122
19123
19124
19125                 Parse::RecDescent::_trace(q{>>Matched production: [/ASC/i /NULLS\\s+FIRST/i, or /NULLS\\s+LAST/i]<<},
19126                                           Parse::RecDescent::_tracefirst($text),
19127                                           q{asc_option},
19128                                           $tracelevel)
19129                                                 if defined $::RD_TRACE;
19130                 $_matched = 1;
19131                 last;
19132         }
19133
19134
19135         unless ( $_matched || defined($return) || defined($score) )
19136         {
19137
19138
19139                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
19140                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
19141                                          Parse::RecDescent::_tracefirst($_[1]),
19142                                          q{asc_option},
19143                                          $tracelevel)
19144                                         if defined $::RD_TRACE;
19145                 return undef;
19146         }
19147         if (!defined($return) && defined($score))
19148         {
19149                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
19150                                           q{asc_option},
19151                                           $tracelevel)
19152                                                 if defined $::RD_TRACE;
19153                 $return = $score_return;
19154         }
19155         splice @{$thisparser->{errors}}, $err_at;
19156         $return = $item[$#item] unless defined $return;
19157         if (defined $::RD_TRACE)
19158         {
19159                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
19160                                           $return . q{])}, "",
19161                                           q{asc_option},
19162                                           $tracelevel);
19163                 Parse::RecDescent::_trace(q{(consumed: [} .
19164                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
19165                                           Parse::RecDescent::_tracefirst($text),
19166                                           , q{asc_option},
19167                                           $tracelevel)
19168         }
19169         $_[1] = $text;
19170         return $return;
19171 }
19172
19173 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
19174 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::search_condition
19175 {
19176         my $thisparser = $_[0];
19177         use vars q{$tracelevel};
19178         local $tracelevel = ($tracelevel||0)+1;
19179         $ERRORS = 0;
19180         my $thisrule = $thisparser->{"rules"}{"search_condition"};
19181
19182         Parse::RecDescent::_trace(q{Trying rule: [search_condition]},
19183                                   Parse::RecDescent::_tracefirst($_[1]),
19184                                   q{search_condition},
19185                                   $tracelevel)
19186                                         if defined $::RD_TRACE;
19187
19188
19189         my $err_at = @{$thisparser->{errors}};
19190
19191         my $score;
19192         my $score_return;
19193         my $_tok;
19194         my $return = undef;
19195         my $_matched=0;
19196         my $commit=0;
19197         my @item = ();
19198         my %item = ();
19199         my $repeating =  defined($_[2]) && $_[2];
19200         my $_noactions = defined($_[3]) && $_[3];
19201         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
19202         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
19203         my $text;
19204         my $lastsep="";
19205         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
19206         $expectation->at($_[1]);
19207
19208         my $thisline;
19209         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
19210
19211
19212
19213         while (!$_matched && !$commit)
19214         {
19215
19216                 Parse::RecDescent::_trace(q{Trying production: [/[^)]+/]},
19217                                           Parse::RecDescent::_tracefirst($_[1]),
19218                                           q{search_condition},
19219                                           $tracelevel)
19220                                                 if defined $::RD_TRACE;
19221                 my $thisprod = $thisrule->{"prods"}[0];
19222                 $text = $_[1];
19223                 my $_savetext;
19224                 @item = (q{search_condition});
19225                 %item = (__RULE__ => q{search_condition});
19226                 my $repcount = 0;
19227
19228
19229                 Parse::RecDescent::_trace(q{Trying terminal: [/[^)]+/]}, Parse::RecDescent::_tracefirst($text),
19230                                           q{search_condition},
19231                                           $tracelevel)
19232                                                 if defined $::RD_TRACE;
19233                 $lastsep = "";
19234                 $expectation->is(q{})->at($text);
19235
19236
19237                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:[^)]+)//)
19238                 {
19239
19240                         $expectation->failed();
19241                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
19242                                                   Parse::RecDescent::_tracefirst($text))
19243                                         if defined $::RD_TRACE;
19244
19245                         last;
19246                 }
19247                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
19248                                                 . $& . q{])},
19249                                                   Parse::RecDescent::_tracefirst($text))
19250                                         if defined $::RD_TRACE;
19251                 push @item, $item{__PATTERN1__}=$&;
19252
19253
19254
19255                 Parse::RecDescent::_trace(q{>>Matched production: [/[^)]+/]<<},
19256                                           Parse::RecDescent::_tracefirst($text),
19257                                           q{search_condition},
19258                                           $tracelevel)
19259                                                 if defined $::RD_TRACE;
19260                 $_matched = 1;
19261                 last;
19262         }
19263
19264
19265         while (!$_matched && !$commit)
19266         {
19267
19268                 Parse::RecDescent::_trace(q{Trying production: [/NOT|/i predicate, or '(' cond]},
19269                                           Parse::RecDescent::_tracefirst($_[1]),
19270                                           q{search_condition},
19271                                           $tracelevel)
19272                                                 if defined $::RD_TRACE;
19273                 my $thisprod = $thisrule->{"prods"}[1];
19274                 $text = $_[1];
19275                 my $_savetext;
19276                 @item = (q{search_condition});
19277                 %item = (__RULE__ => q{search_condition});
19278                 my $repcount = 0;
19279
19280
19281                 Parse::RecDescent::_trace(q{Trying terminal: [/NOT|/i]}, Parse::RecDescent::_tracefirst($text),
19282                                           q{search_condition},
19283                                           $tracelevel)
19284                                                 if defined $::RD_TRACE;
19285                 $lastsep = "";
19286                 $expectation->is(q{})->at($text);
19287
19288
19289                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NOT|)//i)
19290                 {
19291
19292                         $expectation->failed();
19293                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
19294                                                   Parse::RecDescent::_tracefirst($text))
19295                                         if defined $::RD_TRACE;
19296
19297                         last;
19298                 }
19299                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
19300                                                 . $& . q{])},
19301                                                   Parse::RecDescent::_tracefirst($text))
19302                                         if defined $::RD_TRACE;
19303                 push @item, $item{__PATTERN1__}=$&;
19304
19305
19306                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_2_of_rule_search_condition]},
19307                                   Parse::RecDescent::_tracefirst($text),
19308                                   q{search_condition},
19309                                   $tracelevel)
19310                                         if defined $::RD_TRACE;
19311                 if (1) { no strict qw{refs};
19312                 $expectation->is(q{predicate, or '('})->at($text);
19313                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_2_of_rule_search_condition($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
19314                 {
19315
19316                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_2_of_rule_search_condition]>>},
19317                                                   Parse::RecDescent::_tracefirst($text),
19318                                                   q{search_condition},
19319                                                   $tracelevel)
19320                                                         if defined $::RD_TRACE;
19321                         $expectation->failed();
19322                         last;
19323                 }
19324                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_2_of_rule_search_condition]<< (return value: [}
19325                                         . $_tok . q{]},
19326
19327                                           Parse::RecDescent::_tracefirst($text),
19328                                           q{search_condition},
19329                                           $tracelevel)
19330                                                 if defined $::RD_TRACE;
19331                 $item{q{_alternation_1_of_production_2_of_rule_search_condition}} = $_tok;
19332                 push @item, $_tok;
19333
19334                 }
19335
19336                 Parse::RecDescent::_trace(q{Trying repeated subrule: [cond]},
19337                                   Parse::RecDescent::_tracefirst($text),
19338                                   q{search_condition},
19339                                   $tracelevel)
19340                                         if defined $::RD_TRACE;
19341                 $expectation->is(q{cond})->at($text);
19342
19343                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::cond, 0, 100000000, $_noactions,$expectation,undef)))
19344                 {
19345                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [cond]>>},
19346                                                   Parse::RecDescent::_tracefirst($text),
19347                                                   q{search_condition},
19348                                                   $tracelevel)
19349                                                         if defined $::RD_TRACE;
19350                         last;
19351                 }
19352                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [cond]<< (}
19353                                         . @$_tok . q{ times)},
19354
19355                                           Parse::RecDescent::_tracefirst($text),
19356                                           q{search_condition},
19357                                           $tracelevel)
19358                                                 if defined $::RD_TRACE;
19359                 $item{q{cond(s?)}} = $_tok;
19360                 push @item, $_tok;
19361
19362
19363
19364
19365                 Parse::RecDescent::_trace(q{>>Matched production: [/NOT|/i predicate, or '(' cond]<<},
19366                                           Parse::RecDescent::_tracefirst($text),
19367                                           q{search_condition},
19368                                           $tracelevel)
19369                                                 if defined $::RD_TRACE;
19370                 $_matched = 1;
19371                 last;
19372         }
19373
19374
19375         unless ( $_matched || defined($return) || defined($score) )
19376         {
19377
19378
19379                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
19380                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
19381                                          Parse::RecDescent::_tracefirst($_[1]),
19382                                          q{search_condition},
19383                                          $tracelevel)
19384                                         if defined $::RD_TRACE;
19385                 return undef;
19386         }
19387         if (!defined($return) && defined($score))
19388         {
19389                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
19390                                           q{search_condition},
19391                                           $tracelevel)
19392                                                 if defined $::RD_TRACE;
19393                 $return = $score_return;
19394         }
19395         splice @{$thisparser->{errors}}, $err_at;
19396         $return = $item[$#item] unless defined $return;
19397         if (defined $::RD_TRACE)
19398         {
19399                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
19400                                           $return . q{])}, "",
19401                                           q{search_condition},
19402                                           $tracelevel);
19403                 Parse::RecDescent::_trace(q{(consumed: [} .
19404                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
19405                                           Parse::RecDescent::_tracefirst($text),
19406                                           , q{search_condition},
19407                                           $tracelevel)
19408         }
19409         $_[1] = $text;
19410         return $return;
19411 }
19412
19413 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
19414 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_operator
19415 {
19416         my $thisparser = $_[0];
19417         use vars q{$tracelevel};
19418         local $tracelevel = ($tracelevel||0)+1;
19419         $ERRORS = 0;
19420         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_operator"};
19421
19422         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_operator]},
19423                                   Parse::RecDescent::_tracefirst($_[1]),
19424                                   q{_alternation_1_of_production_1_of_rule_operator},
19425                                   $tracelevel)
19426                                         if defined $::RD_TRACE;
19427
19428
19429         my $err_at = @{$thisparser->{errors}};
19430
19431         my $score;
19432         my $score_return;
19433         my $_tok;
19434         my $return = undef;
19435         my $_matched=0;
19436         my $commit=0;
19437         my @item = ();
19438         my %item = ();
19439         my $repeating =  defined($_[2]) && $_[2];
19440         my $_noactions = defined($_[3]) && $_[3];
19441         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
19442         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
19443         my $text;
19444         my $lastsep="";
19445         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
19446         $expectation->at($_[1]);
19447
19448         my $thisline;
19449         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
19450
19451
19452
19453         while (!$_matched && !$commit)
19454         {
19455
19456                 Parse::RecDescent::_trace(q{Trying production: [/CONCAT/i]},
19457                                           Parse::RecDescent::_tracefirst($_[1]),
19458                                           q{_alternation_1_of_production_1_of_rule_operator},
19459                                           $tracelevel)
19460                                                 if defined $::RD_TRACE;
19461                 my $thisprod = $thisrule->{"prods"}[0];
19462                 $text = $_[1];
19463                 my $_savetext;
19464                 @item = (q{_alternation_1_of_production_1_of_rule_operator});
19465                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_operator});
19466                 my $repcount = 0;
19467
19468
19469                 Parse::RecDescent::_trace(q{Trying terminal: [/CONCAT/i]}, Parse::RecDescent::_tracefirst($text),
19470                                           q{_alternation_1_of_production_1_of_rule_operator},
19471                                           $tracelevel)
19472                                                 if defined $::RD_TRACE;
19473                 $lastsep = "";
19474                 $expectation->is(q{})->at($text);
19475
19476
19477                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CONCAT)//i)
19478                 {
19479
19480                         $expectation->failed();
19481                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
19482                                                   Parse::RecDescent::_tracefirst($text))
19483                                         if defined $::RD_TRACE;
19484
19485                         last;
19486                 }
19487                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
19488                                                 . $& . q{])},
19489                                                   Parse::RecDescent::_tracefirst($text))
19490                                         if defined $::RD_TRACE;
19491                 push @item, $item{__PATTERN1__}=$&;
19492
19493
19494
19495                 Parse::RecDescent::_trace(q{>>Matched production: [/CONCAT/i]<<},
19496                                           Parse::RecDescent::_tracefirst($text),
19497                                           q{_alternation_1_of_production_1_of_rule_operator},
19498                                           $tracelevel)
19499                                                 if defined $::RD_TRACE;
19500                 $_matched = 1;
19501                 last;
19502         }
19503
19504
19505         while (!$_matched && !$commit)
19506         {
19507
19508                 Parse::RecDescent::_trace(q{Trying production: ['||']},
19509                                           Parse::RecDescent::_tracefirst($_[1]),
19510                                           q{_alternation_1_of_production_1_of_rule_operator},
19511                                           $tracelevel)
19512                                                 if defined $::RD_TRACE;
19513                 my $thisprod = $thisrule->{"prods"}[1];
19514                 $text = $_[1];
19515                 my $_savetext;
19516                 @item = (q{_alternation_1_of_production_1_of_rule_operator});
19517                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_operator});
19518                 my $repcount = 0;
19519
19520
19521                 Parse::RecDescent::_trace(q{Trying terminal: ['||']},
19522                                           Parse::RecDescent::_tracefirst($text),
19523                                           q{_alternation_1_of_production_1_of_rule_operator},
19524                                           $tracelevel)
19525                                                 if defined $::RD_TRACE;
19526                 $lastsep = "";
19527                 $expectation->is(q{})->at($text);
19528
19529
19530                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\|\|//)
19531                 {
19532
19533                         $expectation->failed();
19534                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
19535                                                   Parse::RecDescent::_tracefirst($text))
19536                                                         if defined $::RD_TRACE;
19537                         last;
19538                 }
19539                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
19540                                                 . $& . q{])},
19541                                                   Parse::RecDescent::_tracefirst($text))
19542                                                         if defined $::RD_TRACE;
19543                 push @item, $item{__STRING1__}=$&;
19544
19545
19546
19547                 Parse::RecDescent::_trace(q{>>Matched production: ['||']<<},
19548                                           Parse::RecDescent::_tracefirst($text),
19549                                           q{_alternation_1_of_production_1_of_rule_operator},
19550                                           $tracelevel)
19551                                                 if defined $::RD_TRACE;
19552                 $_matched = 1;
19553                 last;
19554         }
19555
19556
19557         unless ( $_matched || defined($return) || defined($score) )
19558         {
19559
19560
19561                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
19562                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
19563                                          Parse::RecDescent::_tracefirst($_[1]),
19564                                          q{_alternation_1_of_production_1_of_rule_operator},
19565                                          $tracelevel)
19566                                         if defined $::RD_TRACE;
19567                 return undef;
19568         }
19569         if (!defined($return) && defined($score))
19570         {
19571                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
19572                                           q{_alternation_1_of_production_1_of_rule_operator},
19573                                           $tracelevel)
19574                                                 if defined $::RD_TRACE;
19575                 $return = $score_return;
19576         }
19577         splice @{$thisparser->{errors}}, $err_at;
19578         $return = $item[$#item] unless defined $return;
19579         if (defined $::RD_TRACE)
19580         {
19581                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
19582                                           $return . q{])}, "",
19583                                           q{_alternation_1_of_production_1_of_rule_operator},
19584                                           $tracelevel);
19585                 Parse::RecDescent::_trace(q{(consumed: [} .
19586                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
19587                                           Parse::RecDescent::_tracefirst($text),
19588                                           , q{_alternation_1_of_production_1_of_rule_operator},
19589                                           $tracelevel)
19590         }
19591         $_[1] = $text;
19592         return $return;
19593 }
19594
19595 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
19596 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::simple_when_clause
19597 {
19598         my $thisparser = $_[0];
19599         use vars q{$tracelevel};
19600         local $tracelevel = ($tracelevel||0)+1;
19601         $ERRORS = 0;
19602         my $thisrule = $thisparser->{"rules"}{"simple_when_clause"};
19603
19604         Parse::RecDescent::_trace(q{Trying rule: [simple_when_clause]},
19605                                   Parse::RecDescent::_tracefirst($_[1]),
19606                                   q{simple_when_clause},
19607                                   $tracelevel)
19608                                         if defined $::RD_TRACE;
19609
19610
19611         my $err_at = @{$thisparser->{errors}};
19612
19613         my $score;
19614         my $score_return;
19615         my $_tok;
19616         my $return = undef;
19617         my $_matched=0;
19618         my $commit=0;
19619         my @item = ();
19620         my %item = ();
19621         my $repeating =  defined($_[2]) && $_[2];
19622         my $_noactions = defined($_[3]) && $_[3];
19623         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
19624         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
19625         my $text;
19626         my $lastsep="";
19627         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
19628         $expectation->at($_[1]);
19629
19630         my $thisline;
19631         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
19632
19633
19634
19635         while (!$_matched && !$commit)
19636         {
19637
19638                 Parse::RecDescent::_trace(q{Trying production: [expression /WHEN/i]},
19639                                           Parse::RecDescent::_tracefirst($_[1]),
19640                                           q{simple_when_clause},
19641                                           $tracelevel)
19642                                                 if defined $::RD_TRACE;
19643                 my $thisprod = $thisrule->{"prods"}[0];
19644                 $text = $_[1];
19645                 my $_savetext;
19646                 @item = (q{simple_when_clause});
19647                 %item = (__RULE__ => q{simple_when_clause});
19648                 my $repcount = 0;
19649
19650
19651                 Parse::RecDescent::_trace(q{Trying subrule: [expression]},
19652                                   Parse::RecDescent::_tracefirst($text),
19653                                   q{simple_when_clause},
19654                                   $tracelevel)
19655                                         if defined $::RD_TRACE;
19656                 if (1) { no strict qw{refs};
19657                 $expectation->is(q{})->at($text);
19658                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
19659                 {
19660
19661                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [expression]>>},
19662                                                   Parse::RecDescent::_tracefirst($text),
19663                                                   q{simple_when_clause},
19664                                                   $tracelevel)
19665                                                         if defined $::RD_TRACE;
19666                         $expectation->failed();
19667                         last;
19668                 }
19669                 Parse::RecDescent::_trace(q{>>Matched subrule: [expression]<< (return value: [}
19670                                         . $_tok . q{]},
19671
19672                                           Parse::RecDescent::_tracefirst($text),
19673                                           q{simple_when_clause},
19674                                           $tracelevel)
19675                                                 if defined $::RD_TRACE;
19676                 $item{q{expression}} = $_tok;
19677                 push @item, $_tok;
19678
19679                 }
19680
19681                 Parse::RecDescent::_trace(q{Trying repeated subrule: [/WHEN/i]},
19682                                   Parse::RecDescent::_tracefirst($text),
19683                                   q{simple_when_clause},
19684                                   $tracelevel)
19685                                         if defined $::RD_TRACE;
19686                 $expectation->is(q{/WHEN/i})->at($text);
19687
19688                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_simple_when_clause, 1, 100000000, $_noactions,$expectation,undef)))
19689                 {
19690                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [/WHEN/i]>>},
19691                                                   Parse::RecDescent::_tracefirst($text),
19692                                                   q{simple_when_clause},
19693                                                   $tracelevel)
19694                                                         if defined $::RD_TRACE;
19695                         last;
19696                 }
19697                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [_alternation_1_of_production_1_of_rule_simple_when_clause]<< (}
19698                                         . @$_tok . q{ times)},
19699
19700                                           Parse::RecDescent::_tracefirst($text),
19701                                           q{simple_when_clause},
19702                                           $tracelevel)
19703                                                 if defined $::RD_TRACE;
19704                 $item{q{_alternation_1_of_production_1_of_rule_simple_when_clause(s)}} = $_tok;
19705                 push @item, $_tok;
19706
19707
19708
19709
19710                 Parse::RecDescent::_trace(q{>>Matched production: [expression /WHEN/i]<<},
19711                                           Parse::RecDescent::_tracefirst($text),
19712                                           q{simple_when_clause},
19713                                           $tracelevel)
19714                                                 if defined $::RD_TRACE;
19715                 $_matched = 1;
19716                 last;
19717         }
19718
19719
19720         unless ( $_matched || defined($return) || defined($score) )
19721         {
19722
19723
19724                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
19725                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
19726                                          Parse::RecDescent::_tracefirst($_[1]),
19727                                          q{simple_when_clause},
19728                                          $tracelevel)
19729                                         if defined $::RD_TRACE;
19730                 return undef;
19731         }
19732         if (!defined($return) && defined($score))
19733         {
19734                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
19735                                           q{simple_when_clause},
19736                                           $tracelevel)
19737                                                 if defined $::RD_TRACE;
19738                 $return = $score_return;
19739         }
19740         splice @{$thisparser->{errors}}, $err_at;
19741         $return = $item[$#item] unless defined $return;
19742         if (defined $::RD_TRACE)
19743         {
19744                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
19745                                           $return . q{])}, "",
19746                                           q{simple_when_clause},
19747                                           $tracelevel);
19748                 Parse::RecDescent::_trace(q{(consumed: [} .
19749                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
19750                                           Parse::RecDescent::_tracefirst($text),
19751                                           , q{simple_when_clause},
19752                                           $tracelevel)
19753         }
19754         $_[1] = $text;
19755         return $return;
19756 }
19757
19758 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
19759 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::INNER
19760 {
19761         my $thisparser = $_[0];
19762         use vars q{$tracelevel};
19763         local $tracelevel = ($tracelevel||0)+1;
19764         $ERRORS = 0;
19765         my $thisrule = $thisparser->{"rules"}{"INNER"};
19766
19767         Parse::RecDescent::_trace(q{Trying rule: [INNER]},
19768                                   Parse::RecDescent::_tracefirst($_[1]),
19769                                   q{INNER},
19770                                   $tracelevel)
19771                                         if defined $::RD_TRACE;
19772
19773
19774         my $err_at = @{$thisparser->{errors}};
19775
19776         my $score;
19777         my $score_return;
19778         my $_tok;
19779         my $return = undef;
19780         my $_matched=0;
19781         my $commit=0;
19782         my @item = ();
19783         my %item = ();
19784         my $repeating =  defined($_[2]) && $_[2];
19785         my $_noactions = defined($_[3]) && $_[3];
19786         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
19787         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
19788         my $text;
19789         my $lastsep="";
19790         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
19791         $expectation->at($_[1]);
19792
19793         my $thisline;
19794         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
19795
19796
19797
19798         while (!$_matched && !$commit)
19799         {
19800
19801                 Parse::RecDescent::_trace(q{Trying production: [/inner/i]},
19802                                           Parse::RecDescent::_tracefirst($_[1]),
19803                                           q{INNER},
19804                                           $tracelevel)
19805                                                 if defined $::RD_TRACE;
19806                 my $thisprod = $thisrule->{"prods"}[0];
19807                 $text = $_[1];
19808                 my $_savetext;
19809                 @item = (q{INNER});
19810                 %item = (__RULE__ => q{INNER});
19811                 my $repcount = 0;
19812
19813
19814                 Parse::RecDescent::_trace(q{Trying terminal: [/inner/i]}, Parse::RecDescent::_tracefirst($text),
19815                                           q{INNER},
19816                                           $tracelevel)
19817                                                 if defined $::RD_TRACE;
19818                 $lastsep = "";
19819                 $expectation->is(q{})->at($text);
19820
19821
19822                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:inner)//i)
19823                 {
19824
19825                         $expectation->failed();
19826                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
19827                                                   Parse::RecDescent::_tracefirst($text))
19828                                         if defined $::RD_TRACE;
19829
19830                         last;
19831                 }
19832                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
19833                                                 . $& . q{])},
19834                                                   Parse::RecDescent::_tracefirst($text))
19835                                         if defined $::RD_TRACE;
19836                 push @item, $item{__PATTERN1__}=$&;
19837
19838
19839
19840                 Parse::RecDescent::_trace(q{>>Matched production: [/inner/i]<<},
19841                                           Parse::RecDescent::_tracefirst($text),
19842                                           q{INNER},
19843                                           $tracelevel)
19844                                                 if defined $::RD_TRACE;
19845                 $_matched = 1;
19846                 last;
19847         }
19848
19849
19850         unless ( $_matched || defined($return) || defined($score) )
19851         {
19852
19853
19854                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
19855                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
19856                                          Parse::RecDescent::_tracefirst($_[1]),
19857                                          q{INNER},
19858                                          $tracelevel)
19859                                         if defined $::RD_TRACE;
19860                 return undef;
19861         }
19862         if (!defined($return) && defined($score))
19863         {
19864                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
19865                                           q{INNER},
19866                                           $tracelevel)
19867                                                 if defined $::RD_TRACE;
19868                 $return = $score_return;
19869         }
19870         splice @{$thisparser->{errors}}, $err_at;
19871         $return = $item[$#item] unless defined $return;
19872         if (defined $::RD_TRACE)
19873         {
19874                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
19875                                           $return . q{])}, "",
19876                                           q{INNER},
19877                                           $tracelevel);
19878                 Parse::RecDescent::_trace(q{(consumed: [} .
19879                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
19880                                           Parse::RecDescent::_tracefirst($text),
19881                                           , q{INNER},
19882                                           $tracelevel)
19883         }
19884         $_[1] = $text;
19885         return $return;
19886 }
19887
19888 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
19889 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::eofile
19890 {
19891         my $thisparser = $_[0];
19892         use vars q{$tracelevel};
19893         local $tracelevel = ($tracelevel||0)+1;
19894         $ERRORS = 0;
19895         my $thisrule = $thisparser->{"rules"}{"eofile"};
19896
19897         Parse::RecDescent::_trace(q{Trying rule: [eofile]},
19898                                   Parse::RecDescent::_tracefirst($_[1]),
19899                                   q{eofile},
19900                                   $tracelevel)
19901                                         if defined $::RD_TRACE;
19902
19903
19904         my $err_at = @{$thisparser->{errors}};
19905
19906         my $score;
19907         my $score_return;
19908         my $_tok;
19909         my $return = undef;
19910         my $_matched=0;
19911         my $commit=0;
19912         my @item = ();
19913         my %item = ();
19914         my $repeating =  defined($_[2]) && $_[2];
19915         my $_noactions = defined($_[3]) && $_[3];
19916         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
19917         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
19918         my $text;
19919         my $lastsep="";
19920         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
19921         $expectation->at($_[1]);
19922
19923         my $thisline;
19924         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
19925
19926
19927
19928         while (!$_matched && !$commit)
19929         {
19930
19931                 Parse::RecDescent::_trace(q{Trying production: [/^\\Z/]},
19932                                           Parse::RecDescent::_tracefirst($_[1]),
19933                                           q{eofile},
19934                                           $tracelevel)
19935                                                 if defined $::RD_TRACE;
19936                 my $thisprod = $thisrule->{"prods"}[0];
19937                 $text = $_[1];
19938                 my $_savetext;
19939                 @item = (q{eofile});
19940                 %item = (__RULE__ => q{eofile});
19941                 my $repcount = 0;
19942
19943
19944                 Parse::RecDescent::_trace(q{Trying terminal: [/^\\Z/]}, Parse::RecDescent::_tracefirst($text),
19945                                           q{eofile},
19946                                           $tracelevel)
19947                                                 if defined $::RD_TRACE;
19948                 $lastsep = "";
19949                 $expectation->is(q{})->at($text);
19950
19951
19952                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:^\Z)//)
19953                 {
19954
19955                         $expectation->failed();
19956                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
19957                                                   Parse::RecDescent::_tracefirst($text))
19958                                         if defined $::RD_TRACE;
19959
19960                         last;
19961                 }
19962                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
19963                                                 . $& . q{])},
19964                                                   Parse::RecDescent::_tracefirst($text))
19965                                         if defined $::RD_TRACE;
19966                 push @item, $item{__PATTERN1__}=$&;
19967
19968
19969
19970                 Parse::RecDescent::_trace(q{>>Matched production: [/^\\Z/]<<},
19971                                           Parse::RecDescent::_tracefirst($text),
19972                                           q{eofile},
19973                                           $tracelevel)
19974                                                 if defined $::RD_TRACE;
19975                 $_matched = 1;
19976                 last;
19977         }
19978
19979
19980         unless ( $_matched || defined($return) || defined($score) )
19981         {
19982
19983
19984                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
19985                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
19986                                          Parse::RecDescent::_tracefirst($_[1]),
19987                                          q{eofile},
19988                                          $tracelevel)
19989                                         if defined $::RD_TRACE;
19990                 return undef;
19991         }
19992         if (!defined($return) && defined($score))
19993         {
19994                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
19995                                           q{eofile},
19996                                           $tracelevel)
19997                                                 if defined $::RD_TRACE;
19998                 $return = $score_return;
19999         }
20000         splice @{$thisparser->{errors}}, $err_at;
20001         $return = $item[$#item] unless defined $return;
20002         if (defined $::RD_TRACE)
20003         {
20004                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
20005                                           $return . q{])}, "",
20006                                           q{eofile},
20007                                           $tracelevel);
20008                 Parse::RecDescent::_trace(q{(consumed: [} .
20009                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
20010                                           Parse::RecDescent::_tracefirst($text),
20011                                           , q{eofile},
20012                                           $tracelevel)
20013         }
20014         $_[1] = $text;
20015         return $return;
20016 }
20017
20018 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
20019 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::cond
20020 {
20021         my $thisparser = $_[0];
20022         use vars q{$tracelevel};
20023         local $tracelevel = ($tracelevel||0)+1;
20024         $ERRORS = 0;
20025         my $thisrule = $thisparser->{"rules"}{"cond"};
20026
20027         Parse::RecDescent::_trace(q{Trying rule: [cond]},
20028                                   Parse::RecDescent::_tracefirst($_[1]),
20029                                   q{cond},
20030                                   $tracelevel)
20031                                         if defined $::RD_TRACE;
20032
20033
20034         my $err_at = @{$thisparser->{errors}};
20035
20036         my $score;
20037         my $score_return;
20038         my $_tok;
20039         my $return = undef;
20040         my $_matched=0;
20041         my $commit=0;
20042         my @item = ();
20043         my %item = ();
20044         my $repeating =  defined($_[2]) && $_[2];
20045         my $_noactions = defined($_[3]) && $_[3];
20046         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
20047         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
20048         my $text;
20049         my $lastsep="";
20050         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
20051         $expectation->at($_[1]);
20052
20053         my $thisline;
20054         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
20055
20056
20057
20058         while (!$_matched && !$commit)
20059         {
20060
20061                 Parse::RecDescent::_trace(q{Trying production: [/AND/i, or /OR/i /NOT|/i predicate, or '(']},
20062                                           Parse::RecDescent::_tracefirst($_[1]),
20063                                           q{cond},
20064                                           $tracelevel)
20065                                                 if defined $::RD_TRACE;
20066                 my $thisprod = $thisrule->{"prods"}[0];
20067                 $text = $_[1];
20068                 my $_savetext;
20069                 @item = (q{cond});
20070                 %item = (__RULE__ => q{cond});
20071                 my $repcount = 0;
20072
20073
20074                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule_cond]},
20075                                   Parse::RecDescent::_tracefirst($text),
20076                                   q{cond},
20077                                   $tracelevel)
20078                                         if defined $::RD_TRACE;
20079                 if (1) { no strict qw{refs};
20080                 $expectation->is(q{})->at($text);
20081                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_cond($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
20082                 {
20083
20084                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule_cond]>>},
20085                                                   Parse::RecDescent::_tracefirst($text),
20086                                                   q{cond},
20087                                                   $tracelevel)
20088                                                         if defined $::RD_TRACE;
20089                         $expectation->failed();
20090                         last;
20091                 }
20092                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule_cond]<< (return value: [}
20093                                         . $_tok . q{]},
20094
20095                                           Parse::RecDescent::_tracefirst($text),
20096                                           q{cond},
20097                                           $tracelevel)
20098                                                 if defined $::RD_TRACE;
20099                 $item{q{_alternation_1_of_production_1_of_rule_cond}} = $_tok;
20100                 push @item, $_tok;
20101
20102                 }
20103
20104                 Parse::RecDescent::_trace(q{Trying terminal: [/NOT|/i]}, Parse::RecDescent::_tracefirst($text),
20105                                           q{cond},
20106                                           $tracelevel)
20107                                                 if defined $::RD_TRACE;
20108                 $lastsep = "";
20109                 $expectation->is(q{/NOT|/i})->at($text);
20110
20111
20112                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NOT|)//i)
20113                 {
20114
20115                         $expectation->failed();
20116                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
20117                                                   Parse::RecDescent::_tracefirst($text))
20118                                         if defined $::RD_TRACE;
20119
20120                         last;
20121                 }
20122                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
20123                                                 . $& . q{])},
20124                                                   Parse::RecDescent::_tracefirst($text))
20125                                         if defined $::RD_TRACE;
20126                 push @item, $item{__PATTERN1__}=$&;
20127
20128
20129                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_2_of_production_1_of_rule_cond]},
20130                                   Parse::RecDescent::_tracefirst($text),
20131                                   q{cond},
20132                                   $tracelevel)
20133                                         if defined $::RD_TRACE;
20134                 if (1) { no strict qw{refs};
20135                 $expectation->is(q{predicate, or '('})->at($text);
20136                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_2_of_production_1_of_rule_cond($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
20137                 {
20138
20139                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_2_of_production_1_of_rule_cond]>>},
20140                                                   Parse::RecDescent::_tracefirst($text),
20141                                                   q{cond},
20142                                                   $tracelevel)
20143                                                         if defined $::RD_TRACE;
20144                         $expectation->failed();
20145                         last;
20146                 }
20147                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_2_of_production_1_of_rule_cond]<< (return value: [}
20148                                         . $_tok . q{]},
20149
20150                                           Parse::RecDescent::_tracefirst($text),
20151                                           q{cond},
20152                                           $tracelevel)
20153                                                 if defined $::RD_TRACE;
20154                 $item{q{_alternation_2_of_production_1_of_rule_cond}} = $_tok;
20155                 push @item, $_tok;
20156
20157                 }
20158
20159
20160                 Parse::RecDescent::_trace(q{>>Matched production: [/AND/i, or /OR/i /NOT|/i predicate, or '(']<<},
20161                                           Parse::RecDescent::_tracefirst($text),
20162                                           q{cond},
20163                                           $tracelevel)
20164                                                 if defined $::RD_TRACE;
20165                 $_matched = 1;
20166                 last;
20167         }
20168
20169
20170         unless ( $_matched || defined($return) || defined($score) )
20171         {
20172
20173
20174                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
20175                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
20176                                          Parse::RecDescent::_tracefirst($_[1]),
20177                                          q{cond},
20178                                          $tracelevel)
20179                                         if defined $::RD_TRACE;
20180                 return undef;
20181         }
20182         if (!defined($return) && defined($score))
20183         {
20184                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
20185                                           q{cond},
20186                                           $tracelevel)
20187                                                 if defined $::RD_TRACE;
20188                 $return = $score_return;
20189         }
20190         splice @{$thisparser->{errors}}, $err_at;
20191         $return = $item[$#item] unless defined $return;
20192         if (defined $::RD_TRACE)
20193         {
20194                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
20195                                           $return . q{])}, "",
20196                                           q{cond},
20197                                           $tracelevel);
20198                 Parse::RecDescent::_trace(q{(consumed: [} .
20199                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
20200                                           Parse::RecDescent::_tracefirst($text),
20201                                           , q{cond},
20202                                           $tracelevel)
20203         }
20204         $_[1] = $text;
20205         return $return;
20206 }
20207
20208 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
20209 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::ld_type
20210 {
20211         my $thisparser = $_[0];
20212         use vars q{$tracelevel};
20213         local $tracelevel = ($tracelevel||0)+1;
20214         $ERRORS = 0;
20215         my $thisrule = $thisparser->{"rules"}{"ld_type"};
20216
20217         Parse::RecDescent::_trace(q{Trying rule: [ld_type]},
20218                                   Parse::RecDescent::_tracefirst($_[1]),
20219                                   q{ld_type},
20220                                   $tracelevel)
20221                                         if defined $::RD_TRACE;
20222
20223
20224         my $err_at = @{$thisparser->{errors}};
20225
20226         my $score;
20227         my $score_return;
20228         my $_tok;
20229         my $return = undef;
20230         my $_matched=0;
20231         my $commit=0;
20232         my @item = ();
20233         my %item = ();
20234         my $repeating =  defined($_[2]) && $_[2];
20235         my $_noactions = defined($_[3]) && $_[3];
20236         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
20237         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
20238         my $text;
20239         my $lastsep="";
20240         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
20241         $expectation->at($_[1]);
20242
20243         my $thisline;
20244         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
20245
20246
20247
20248         while (!$_matched && !$commit)
20249         {
20250
20251                 Parse::RecDescent::_trace(q{Trying production: [function]},
20252                                           Parse::RecDescent::_tracefirst($_[1]),
20253                                           q{ld_type},
20254                                           $tracelevel)
20255                                                 if defined $::RD_TRACE;
20256                 my $thisprod = $thisrule->{"prods"}[0];
20257                 $text = $_[1];
20258                 my $_savetext;
20259                 @item = (q{ld_type});
20260                 %item = (__RULE__ => q{ld_type});
20261                 my $repcount = 0;
20262
20263
20264                 Parse::RecDescent::_trace(q{Trying subrule: [function]},
20265                                   Parse::RecDescent::_tracefirst($text),
20266                                   q{ld_type},
20267                                   $tracelevel)
20268                                         if defined $::RD_TRACE;
20269                 if (1) { no strict qw{refs};
20270                 $expectation->is(q{})->at($text);
20271                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
20272                 {
20273
20274                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [function]>>},
20275                                                   Parse::RecDescent::_tracefirst($text),
20276                                                   q{ld_type},
20277                                                   $tracelevel)
20278                                                         if defined $::RD_TRACE;
20279                         $expectation->failed();
20280                         last;
20281                 }
20282                 Parse::RecDescent::_trace(q{>>Matched subrule: [function]<< (return value: [}
20283                                         . $_tok . q{]},
20284
20285                                           Parse::RecDescent::_tracefirst($text),
20286                                           q{ld_type},
20287                                           $tracelevel)
20288                                                 if defined $::RD_TRACE;
20289                 $item{q{function}} = $_tok;
20290                 push @item, $_tok;
20291
20292                 }
20293
20294
20295                 Parse::RecDescent::_trace(q{>>Matched production: [function]<<},
20296                                           Parse::RecDescent::_tracefirst($text),
20297                                           q{ld_type},
20298                                           $tracelevel)
20299                                                 if defined $::RD_TRACE;
20300                 $_matched = 1;
20301                 last;
20302         }
20303
20304
20305         while (!$_matched && !$commit)
20306         {
20307
20308                 Parse::RecDescent::_trace(q{Trying production: ['(' expression ')']},
20309                                           Parse::RecDescent::_tracefirst($_[1]),
20310                                           q{ld_type},
20311                                           $tracelevel)
20312                                                 if defined $::RD_TRACE;
20313                 my $thisprod = $thisrule->{"prods"}[1];
20314                 $text = $_[1];
20315                 my $_savetext;
20316                 @item = (q{ld_type});
20317                 %item = (__RULE__ => q{ld_type});
20318                 my $repcount = 0;
20319
20320
20321                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
20322                                           Parse::RecDescent::_tracefirst($text),
20323                                           q{ld_type},
20324                                           $tracelevel)
20325                                                 if defined $::RD_TRACE;
20326                 $lastsep = "";
20327                 $expectation->is(q{})->at($text);
20328
20329
20330                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
20331                 {
20332
20333                         $expectation->failed();
20334                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
20335                                                   Parse::RecDescent::_tracefirst($text))
20336                                                         if defined $::RD_TRACE;
20337                         last;
20338                 }
20339                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
20340                                                 . $& . q{])},
20341                                                   Parse::RecDescent::_tracefirst($text))
20342                                                         if defined $::RD_TRACE;
20343                 push @item, $item{__STRING1__}=$&;
20344
20345
20346                 Parse::RecDescent::_trace(q{Trying subrule: [expression]},
20347                                   Parse::RecDescent::_tracefirst($text),
20348                                   q{ld_type},
20349                                   $tracelevel)
20350                                         if defined $::RD_TRACE;
20351                 if (1) { no strict qw{refs};
20352                 $expectation->is(q{expression})->at($text);
20353                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
20354                 {
20355
20356                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [expression]>>},
20357                                                   Parse::RecDescent::_tracefirst($text),
20358                                                   q{ld_type},
20359                                                   $tracelevel)
20360                                                         if defined $::RD_TRACE;
20361                         $expectation->failed();
20362                         last;
20363                 }
20364                 Parse::RecDescent::_trace(q{>>Matched subrule: [expression]<< (return value: [}
20365                                         . $_tok . q{]},
20366
20367                                           Parse::RecDescent::_tracefirst($text),
20368                                           q{ld_type},
20369                                           $tracelevel)
20370                                                 if defined $::RD_TRACE;
20371                 $item{q{expression}} = $_tok;
20372                 push @item, $_tok;
20373
20374                 }
20375
20376                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
20377                                           Parse::RecDescent::_tracefirst($text),
20378                                           q{ld_type},
20379                                           $tracelevel)
20380                                                 if defined $::RD_TRACE;
20381                 $lastsep = "";
20382                 $expectation->is(q{')'})->at($text);
20383
20384
20385                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
20386                 {
20387
20388                         $expectation->failed();
20389                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
20390                                                   Parse::RecDescent::_tracefirst($text))
20391                                                         if defined $::RD_TRACE;
20392                         last;
20393                 }
20394                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
20395                                                 . $& . q{])},
20396                                                   Parse::RecDescent::_tracefirst($text))
20397                                                         if defined $::RD_TRACE;
20398                 push @item, $item{__STRING2__}=$&;
20399
20400
20401
20402                 Parse::RecDescent::_trace(q{>>Matched production: ['(' expression ')']<<},
20403                                           Parse::RecDescent::_tracefirst($text),
20404                                           q{ld_type},
20405                                           $tracelevel)
20406                                                 if defined $::RD_TRACE;
20407                 $_matched = 1;
20408                 last;
20409         }
20410
20411
20412         while (!$_matched && !$commit)
20413         {
20414
20415                 Parse::RecDescent::_trace(q{Trying production: [constant]},
20416                                           Parse::RecDescent::_tracefirst($_[1]),
20417                                           q{ld_type},
20418                                           $tracelevel)
20419                                                 if defined $::RD_TRACE;
20420                 my $thisprod = $thisrule->{"prods"}[2];
20421                 $text = $_[1];
20422                 my $_savetext;
20423                 @item = (q{ld_type});
20424                 %item = (__RULE__ => q{ld_type});
20425                 my $repcount = 0;
20426
20427
20428                 Parse::RecDescent::_trace(q{Trying subrule: [constant]},
20429                                   Parse::RecDescent::_tracefirst($text),
20430                                   q{ld_type},
20431                                   $tracelevel)
20432                                         if defined $::RD_TRACE;
20433                 if (1) { no strict qw{refs};
20434                 $expectation->is(q{})->at($text);
20435                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::constant($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
20436                 {
20437
20438                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [constant]>>},
20439                                                   Parse::RecDescent::_tracefirst($text),
20440                                                   q{ld_type},
20441                                                   $tracelevel)
20442                                                         if defined $::RD_TRACE;
20443                         $expectation->failed();
20444                         last;
20445                 }
20446                 Parse::RecDescent::_trace(q{>>Matched subrule: [constant]<< (return value: [}
20447                                         . $_tok . q{]},
20448
20449                                           Parse::RecDescent::_tracefirst($text),
20450                                           q{ld_type},
20451                                           $tracelevel)
20452                                                 if defined $::RD_TRACE;
20453                 $item{q{constant}} = $_tok;
20454                 push @item, $_tok;
20455
20456                 }
20457
20458
20459                 Parse::RecDescent::_trace(q{>>Matched production: [constant]<<},
20460                                           Parse::RecDescent::_tracefirst($text),
20461                                           q{ld_type},
20462                                           $tracelevel)
20463                                                 if defined $::RD_TRACE;
20464                 $_matched = 1;
20465                 last;
20466         }
20467
20468
20469         while (!$_matched && !$commit)
20470         {
20471
20472                 Parse::RecDescent::_trace(q{Trying production: [column_name]},
20473                                           Parse::RecDescent::_tracefirst($_[1]),
20474                                           q{ld_type},
20475                                           $tracelevel)
20476                                                 if defined $::RD_TRACE;
20477                 my $thisprod = $thisrule->{"prods"}[3];
20478                 $text = $_[1];
20479                 my $_savetext;
20480                 @item = (q{ld_type});
20481                 %item = (__RULE__ => q{ld_type});
20482                 my $repcount = 0;
20483
20484
20485                 Parse::RecDescent::_trace(q{Trying subrule: [column_name]},
20486                                   Parse::RecDescent::_tracefirst($text),
20487                                   q{ld_type},
20488                                   $tracelevel)
20489                                         if defined $::RD_TRACE;
20490                 if (1) { no strict qw{refs};
20491                 $expectation->is(q{})->at($text);
20492                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::column_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
20493                 {
20494
20495                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [column_name]>>},
20496                                                   Parse::RecDescent::_tracefirst($text),
20497                                                   q{ld_type},
20498                                                   $tracelevel)
20499                                                         if defined $::RD_TRACE;
20500                         $expectation->failed();
20501                         last;
20502                 }
20503                 Parse::RecDescent::_trace(q{>>Matched subrule: [column_name]<< (return value: [}
20504                                         . $_tok . q{]},
20505
20506                                           Parse::RecDescent::_tracefirst($text),
20507                                           q{ld_type},
20508                                           $tracelevel)
20509                                                 if defined $::RD_TRACE;
20510                 $item{q{column_name}} = $_tok;
20511                 push @item, $_tok;
20512
20513                 }
20514
20515
20516                 Parse::RecDescent::_trace(q{>>Matched production: [column_name]<<},
20517                                           Parse::RecDescent::_tracefirst($text),
20518                                           q{ld_type},
20519                                           $tracelevel)
20520                                                 if defined $::RD_TRACE;
20521                 $_matched = 1;
20522                 last;
20523         }
20524
20525
20526         while (!$_matched && !$commit)
20527         {
20528
20529                 Parse::RecDescent::_trace(q{Trying production: [host_variable]},
20530                                           Parse::RecDescent::_tracefirst($_[1]),
20531                                           q{ld_type},
20532                                           $tracelevel)
20533                                                 if defined $::RD_TRACE;
20534                 my $thisprod = $thisrule->{"prods"}[4];
20535                 $text = $_[1];
20536                 my $_savetext;
20537                 @item = (q{ld_type});
20538                 %item = (__RULE__ => q{ld_type});
20539                 my $repcount = 0;
20540
20541
20542                 Parse::RecDescent::_trace(q{Trying subrule: [host_variable]},
20543                                   Parse::RecDescent::_tracefirst($text),
20544                                   q{ld_type},
20545                                   $tracelevel)
20546                                         if defined $::RD_TRACE;
20547                 if (1) { no strict qw{refs};
20548                 $expectation->is(q{})->at($text);
20549                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::host_variable($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
20550                 {
20551
20552                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [host_variable]>>},
20553                                                   Parse::RecDescent::_tracefirst($text),
20554                                                   q{ld_type},
20555                                                   $tracelevel)
20556                                                         if defined $::RD_TRACE;
20557                         $expectation->failed();
20558                         last;
20559                 }
20560                 Parse::RecDescent::_trace(q{>>Matched subrule: [host_variable]<< (return value: [}
20561                                         . $_tok . q{]},
20562
20563                                           Parse::RecDescent::_tracefirst($text),
20564                                           q{ld_type},
20565                                           $tracelevel)
20566                                                 if defined $::RD_TRACE;
20567                 $item{q{host_variable}} = $_tok;
20568                 push @item, $_tok;
20569
20570                 }
20571
20572
20573                 Parse::RecDescent::_trace(q{>>Matched production: [host_variable]<<},
20574                                           Parse::RecDescent::_tracefirst($text),
20575                                           q{ld_type},
20576                                           $tracelevel)
20577                                                 if defined $::RD_TRACE;
20578                 $_matched = 1;
20579                 last;
20580         }
20581
20582
20583         unless ( $_matched || defined($return) || defined($score) )
20584         {
20585
20586
20587                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
20588                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
20589                                          Parse::RecDescent::_tracefirst($_[1]),
20590                                          q{ld_type},
20591                                          $tracelevel)
20592                                         if defined $::RD_TRACE;
20593                 return undef;
20594         }
20595         if (!defined($return) && defined($score))
20596         {
20597                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
20598                                           q{ld_type},
20599                                           $tracelevel)
20600                                                 if defined $::RD_TRACE;
20601                 $return = $score_return;
20602         }
20603         splice @{$thisparser->{errors}}, $err_at;
20604         $return = $item[$#item] unless defined $return;
20605         if (defined $::RD_TRACE)
20606         {
20607                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
20608                                           $return . q{])}, "",
20609                                           q{ld_type},
20610                                           $tracelevel);
20611                 Parse::RecDescent::_trace(q{(consumed: [} .
20612                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
20613                                           Parse::RecDescent::_tracefirst($text),
20614                                           , q{ld_type},
20615                                           $tracelevel)
20616         }
20617         $_[1] = $text;
20618         return $return;
20619 }
20620
20621 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
20622 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::RIGHT
20623 {
20624         my $thisparser = $_[0];
20625         use vars q{$tracelevel};
20626         local $tracelevel = ($tracelevel||0)+1;
20627         $ERRORS = 0;
20628         my $thisrule = $thisparser->{"rules"}{"RIGHT"};
20629
20630         Parse::RecDescent::_trace(q{Trying rule: [RIGHT]},
20631                                   Parse::RecDescent::_tracefirst($_[1]),
20632                                   q{RIGHT},
20633                                   $tracelevel)
20634                                         if defined $::RD_TRACE;
20635
20636
20637         my $err_at = @{$thisparser->{errors}};
20638
20639         my $score;
20640         my $score_return;
20641         my $_tok;
20642         my $return = undef;
20643         my $_matched=0;
20644         my $commit=0;
20645         my @item = ();
20646         my %item = ();
20647         my $repeating =  defined($_[2]) && $_[2];
20648         my $_noactions = defined($_[3]) && $_[3];
20649         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
20650         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
20651         my $text;
20652         my $lastsep="";
20653         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
20654         $expectation->at($_[1]);
20655
20656         my $thisline;
20657         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
20658
20659
20660
20661         while (!$_matched && !$commit)
20662         {
20663
20664                 Parse::RecDescent::_trace(q{Trying production: [/right/i]},
20665                                           Parse::RecDescent::_tracefirst($_[1]),
20666                                           q{RIGHT},
20667                                           $tracelevel)
20668                                                 if defined $::RD_TRACE;
20669                 my $thisprod = $thisrule->{"prods"}[0];
20670                 $text = $_[1];
20671                 my $_savetext;
20672                 @item = (q{RIGHT});
20673                 %item = (__RULE__ => q{RIGHT});
20674                 my $repcount = 0;
20675
20676
20677                 Parse::RecDescent::_trace(q{Trying terminal: [/right/i]}, Parse::RecDescent::_tracefirst($text),
20678                                           q{RIGHT},
20679                                           $tracelevel)
20680                                                 if defined $::RD_TRACE;
20681                 $lastsep = "";
20682                 $expectation->is(q{})->at($text);
20683
20684
20685                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:right)//i)
20686                 {
20687
20688                         $expectation->failed();
20689                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
20690                                                   Parse::RecDescent::_tracefirst($text))
20691                                         if defined $::RD_TRACE;
20692
20693                         last;
20694                 }
20695                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
20696                                                 . $& . q{])},
20697                                                   Parse::RecDescent::_tracefirst($text))
20698                                         if defined $::RD_TRACE;
20699                 push @item, $item{__PATTERN1__}=$&;
20700
20701
20702
20703                 Parse::RecDescent::_trace(q{>>Matched production: [/right/i]<<},
20704                                           Parse::RecDescent::_tracefirst($text),
20705                                           q{RIGHT},
20706                                           $tracelevel)
20707                                                 if defined $::RD_TRACE;
20708                 $_matched = 1;
20709                 last;
20710         }
20711
20712
20713         unless ( $_matched || defined($return) || defined($score) )
20714         {
20715
20716
20717                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
20718                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
20719                                          Parse::RecDescent::_tracefirst($_[1]),
20720                                          q{RIGHT},
20721                                          $tracelevel)
20722                                         if defined $::RD_TRACE;
20723                 return undef;
20724         }
20725         if (!defined($return) && defined($score))
20726         {
20727                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
20728                                           q{RIGHT},
20729                                           $tracelevel)
20730                                                 if defined $::RD_TRACE;
20731                 $return = $score_return;
20732         }
20733         splice @{$thisparser->{errors}}, $err_at;
20734         $return = $item[$#item] unless defined $return;
20735         if (defined $::RD_TRACE)
20736         {
20737                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
20738                                           $return . q{])}, "",
20739                                           q{RIGHT},
20740                                           $tracelevel);
20741                 Parse::RecDescent::_trace(q{(consumed: [} .
20742                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
20743                                           Parse::RecDescent::_tracefirst($text),
20744                                           , q{RIGHT},
20745                                           $tracelevel)
20746         }
20747         $_[1] = $text;
20748         return $return;
20749 }
20750
20751 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
20752 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_method_invocation
20753 {
20754         my $thisparser = $_[0];
20755         use vars q{$tracelevel};
20756         local $tracelevel = ($tracelevel||0)+1;
20757         $ERRORS = 0;
20758         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_method_invocation"};
20759
20760         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_method_invocation]},
20761                                   Parse::RecDescent::_tracefirst($_[1]),
20762                                   q{_alternation_1_of_production_1_of_rule_method_invocation},
20763                                   $tracelevel)
20764                                         if defined $::RD_TRACE;
20765
20766
20767         my $err_at = @{$thisparser->{errors}};
20768
20769         my $score;
20770         my $score_return;
20771         my $_tok;
20772         my $return = undef;
20773         my $_matched=0;
20774         my $commit=0;
20775         my @item = ();
20776         my %item = ();
20777         my $repeating =  defined($_[2]) && $_[2];
20778         my $_noactions = defined($_[3]) && $_[3];
20779         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
20780         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
20781         my $text;
20782         my $lastsep="";
20783         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
20784         $expectation->at($_[1]);
20785
20786         my $thisline;
20787         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
20788
20789
20790
20791         while (!$_matched && !$commit)
20792         {
20793
20794                 Parse::RecDescent::_trace(q{Trying production: ['(' expression ')']},
20795                                           Parse::RecDescent::_tracefirst($_[1]),
20796                                           q{_alternation_1_of_production_1_of_rule_method_invocation},
20797                                           $tracelevel)
20798                                                 if defined $::RD_TRACE;
20799                 my $thisprod = $thisrule->{"prods"}[0];
20800                 $text = $_[1];
20801                 my $_savetext;
20802                 @item = (q{_alternation_1_of_production_1_of_rule_method_invocation});
20803                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_method_invocation});
20804                 my $repcount = 0;
20805
20806
20807                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
20808                                           Parse::RecDescent::_tracefirst($text),
20809                                           q{_alternation_1_of_production_1_of_rule_method_invocation},
20810                                           $tracelevel)
20811                                                 if defined $::RD_TRACE;
20812                 $lastsep = "";
20813                 $expectation->is(q{})->at($text);
20814
20815
20816                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
20817                 {
20818
20819                         $expectation->failed();
20820                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
20821                                                   Parse::RecDescent::_tracefirst($text))
20822                                                         if defined $::RD_TRACE;
20823                         last;
20824                 }
20825                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
20826                                                 . $& . q{])},
20827                                                   Parse::RecDescent::_tracefirst($text))
20828                                                         if defined $::RD_TRACE;
20829                 push @item, $item{__STRING1__}=$&;
20830
20831
20832                 Parse::RecDescent::_trace(q{Trying repeated subrule: [expression]},
20833                                   Parse::RecDescent::_tracefirst($text),
20834                                   q{_alternation_1_of_production_1_of_rule_method_invocation},
20835                                   $tracelevel)
20836                                         if defined $::RD_TRACE;
20837                 $expectation->is(q{expression})->at($text);
20838
20839                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression, 1, 100000000, $_noactions,$expectation,undef)))
20840                 {
20841                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [expression]>>},
20842                                                   Parse::RecDescent::_tracefirst($text),
20843                                                   q{_alternation_1_of_production_1_of_rule_method_invocation},
20844                                                   $tracelevel)
20845                                                         if defined $::RD_TRACE;
20846                         last;
20847                 }
20848                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [expression]<< (}
20849                                         . @$_tok . q{ times)},
20850
20851                                           Parse::RecDescent::_tracefirst($text),
20852                                           q{_alternation_1_of_production_1_of_rule_method_invocation},
20853                                           $tracelevel)
20854                                                 if defined $::RD_TRACE;
20855                 $item{q{expression(s)}} = $_tok;
20856                 push @item, $_tok;
20857
20858
20859
20860                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
20861                                           Parse::RecDescent::_tracefirst($text),
20862                                           q{_alternation_1_of_production_1_of_rule_method_invocation},
20863                                           $tracelevel)
20864                                                 if defined $::RD_TRACE;
20865                 $lastsep = "";
20866                 $expectation->is(q{')'})->at($text);
20867
20868
20869                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
20870                 {
20871
20872                         $expectation->failed();
20873                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
20874                                                   Parse::RecDescent::_tracefirst($text))
20875                                                         if defined $::RD_TRACE;
20876                         last;
20877                 }
20878                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
20879                                                 . $& . q{])},
20880                                                   Parse::RecDescent::_tracefirst($text))
20881                                                         if defined $::RD_TRACE;
20882                 push @item, $item{__STRING2__}=$&;
20883
20884
20885
20886                 Parse::RecDescent::_trace(q{>>Matched production: ['(' expression ')']<<},
20887                                           Parse::RecDescent::_tracefirst($text),
20888                                           q{_alternation_1_of_production_1_of_rule_method_invocation},
20889                                           $tracelevel)
20890                                                 if defined $::RD_TRACE;
20891                 $_matched = 1;
20892                 last;
20893         }
20894
20895
20896         unless ( $_matched || defined($return) || defined($score) )
20897         {
20898
20899
20900                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
20901                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
20902                                          Parse::RecDescent::_tracefirst($_[1]),
20903                                          q{_alternation_1_of_production_1_of_rule_method_invocation},
20904                                          $tracelevel)
20905                                         if defined $::RD_TRACE;
20906                 return undef;
20907         }
20908         if (!defined($return) && defined($score))
20909         {
20910                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
20911                                           q{_alternation_1_of_production_1_of_rule_method_invocation},
20912                                           $tracelevel)
20913                                                 if defined $::RD_TRACE;
20914                 $return = $score_return;
20915         }
20916         splice @{$thisparser->{errors}}, $err_at;
20917         $return = $item[$#item] unless defined $return;
20918         if (defined $::RD_TRACE)
20919         {
20920                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
20921                                           $return . q{])}, "",
20922                                           q{_alternation_1_of_production_1_of_rule_method_invocation},
20923                                           $tracelevel);
20924                 Parse::RecDescent::_trace(q{(consumed: [} .
20925                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
20926                                           Parse::RecDescent::_tracefirst($text),
20927                                           , q{_alternation_1_of_production_1_of_rule_method_invocation},
20928                                           $tracelevel)
20929         }
20930         $_[1] = $text;
20931         return $return;
20932 }
20933
20934 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
20935 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::LEFT
20936 {
20937         my $thisparser = $_[0];
20938         use vars q{$tracelevel};
20939         local $tracelevel = ($tracelevel||0)+1;
20940         $ERRORS = 0;
20941         my $thisrule = $thisparser->{"rules"}{"LEFT"};
20942
20943         Parse::RecDescent::_trace(q{Trying rule: [LEFT]},
20944                                   Parse::RecDescent::_tracefirst($_[1]),
20945                                   q{LEFT},
20946                                   $tracelevel)
20947                                         if defined $::RD_TRACE;
20948
20949
20950         my $err_at = @{$thisparser->{errors}};
20951
20952         my $score;
20953         my $score_return;
20954         my $_tok;
20955         my $return = undef;
20956         my $_matched=0;
20957         my $commit=0;
20958         my @item = ();
20959         my %item = ();
20960         my $repeating =  defined($_[2]) && $_[2];
20961         my $_noactions = defined($_[3]) && $_[3];
20962         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
20963         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
20964         my $text;
20965         my $lastsep="";
20966         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
20967         $expectation->at($_[1]);
20968
20969         my $thisline;
20970         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
20971
20972
20973
20974         while (!$_matched && !$commit)
20975         {
20976
20977                 Parse::RecDescent::_trace(q{Trying production: [/left/i]},
20978                                           Parse::RecDescent::_tracefirst($_[1]),
20979                                           q{LEFT},
20980                                           $tracelevel)
20981                                                 if defined $::RD_TRACE;
20982                 my $thisprod = $thisrule->{"prods"}[0];
20983                 $text = $_[1];
20984                 my $_savetext;
20985                 @item = (q{LEFT});
20986                 %item = (__RULE__ => q{LEFT});
20987                 my $repcount = 0;
20988
20989
20990                 Parse::RecDescent::_trace(q{Trying terminal: [/left/i]}, Parse::RecDescent::_tracefirst($text),
20991                                           q{LEFT},
20992                                           $tracelevel)
20993                                                 if defined $::RD_TRACE;
20994                 $lastsep = "";
20995                 $expectation->is(q{})->at($text);
20996
20997
20998                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:left)//i)
20999                 {
21000
21001                         $expectation->failed();
21002                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
21003                                                   Parse::RecDescent::_tracefirst($text))
21004                                         if defined $::RD_TRACE;
21005
21006                         last;
21007                 }
21008                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
21009                                                 . $& . q{])},
21010                                                   Parse::RecDescent::_tracefirst($text))
21011                                         if defined $::RD_TRACE;
21012                 push @item, $item{__PATTERN1__}=$&;
21013
21014
21015
21016                 Parse::RecDescent::_trace(q{>>Matched production: [/left/i]<<},
21017                                           Parse::RecDescent::_tracefirst($text),
21018                                           q{LEFT},
21019                                           $tracelevel)
21020                                                 if defined $::RD_TRACE;
21021                 $_matched = 1;
21022                 last;
21023         }
21024
21025
21026         unless ( $_matched || defined($return) || defined($score) )
21027         {
21028
21029
21030                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
21031                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
21032                                          Parse::RecDescent::_tracefirst($_[1]),
21033                                          q{LEFT},
21034                                          $tracelevel)
21035                                         if defined $::RD_TRACE;
21036                 return undef;
21037         }
21038         if (!defined($return) && defined($score))
21039         {
21040                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
21041                                           q{LEFT},
21042                                           $tracelevel)
21043                                                 if defined $::RD_TRACE;
21044                 $return = $score_return;
21045         }
21046         splice @{$thisparser->{errors}}, $err_at;
21047         $return = $item[$#item] unless defined $return;
21048         if (defined $::RD_TRACE)
21049         {
21050                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
21051                                           $return . q{])}, "",
21052                                           q{LEFT},
21053                                           $tracelevel);
21054                 Parse::RecDescent::_trace(q{(consumed: [} .
21055                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
21056                                           Parse::RecDescent::_tracefirst($text),
21057                                           , q{LEFT},
21058                                           $tracelevel)
21059         }
21060         $_[1] = $text;
21061         return $return;
21062 }
21063
21064 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
21065 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::table_name
21066 {
21067         my $thisparser = $_[0];
21068         use vars q{$tracelevel};
21069         local $tracelevel = ($tracelevel||0)+1;
21070         $ERRORS = 0;
21071         my $thisrule = $thisparser->{"rules"}{"table_name"};
21072
21073         Parse::RecDescent::_trace(q{Trying rule: [table_name]},
21074                                   Parse::RecDescent::_tracefirst($_[1]),
21075                                   q{table_name},
21076                                   $tracelevel)
21077                                         if defined $::RD_TRACE;
21078
21079
21080         my $err_at = @{$thisparser->{errors}};
21081
21082         my $score;
21083         my $score_return;
21084         my $_tok;
21085         my $return = undef;
21086         my $_matched=0;
21087         my $commit=0;
21088         my @item = ();
21089         my %item = ();
21090         my $repeating =  defined($_[2]) && $_[2];
21091         my $_noactions = defined($_[3]) && $_[3];
21092         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
21093         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
21094         my $text;
21095         my $lastsep="";
21096         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
21097         $expectation->at($_[1]);
21098
21099         my $thisline;
21100         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
21101
21102
21103
21104         while (!$_matched && !$commit)
21105         {
21106
21107                 Parse::RecDescent::_trace(q{Trying production: [SCHEMA '.' NAME]},
21108                                           Parse::RecDescent::_tracefirst($_[1]),
21109                                           q{table_name},
21110                                           $tracelevel)
21111                                                 if defined $::RD_TRACE;
21112                 my $thisprod = $thisrule->{"prods"}[0];
21113                 $text = $_[1];
21114                 my $_savetext;
21115                 @item = (q{table_name});
21116                 %item = (__RULE__ => q{table_name});
21117                 my $repcount = 0;
21118
21119
21120                 Parse::RecDescent::_trace(q{Trying subrule: [SCHEMA]},
21121                                   Parse::RecDescent::_tracefirst($text),
21122                                   q{table_name},
21123                                   $tracelevel)
21124                                         if defined $::RD_TRACE;
21125                 if (1) { no strict qw{refs};
21126                 $expectation->is(q{})->at($text);
21127                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::SCHEMA($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
21128                 {
21129
21130                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [SCHEMA]>>},
21131                                                   Parse::RecDescent::_tracefirst($text),
21132                                                   q{table_name},
21133                                                   $tracelevel)
21134                                                         if defined $::RD_TRACE;
21135                         $expectation->failed();
21136                         last;
21137                 }
21138                 Parse::RecDescent::_trace(q{>>Matched subrule: [SCHEMA]<< (return value: [}
21139                                         . $_tok . q{]},
21140
21141                                           Parse::RecDescent::_tracefirst($text),
21142                                           q{table_name},
21143                                           $tracelevel)
21144                                                 if defined $::RD_TRACE;
21145                 $item{q{SCHEMA}} = $_tok;
21146                 push @item, $_tok;
21147
21148                 }
21149
21150                 Parse::RecDescent::_trace(q{Trying terminal: ['.']},
21151                                           Parse::RecDescent::_tracefirst($text),
21152                                           q{table_name},
21153                                           $tracelevel)
21154                                                 if defined $::RD_TRACE;
21155                 $lastsep = "";
21156                 $expectation->is(q{'.'})->at($text);
21157
21158
21159                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\.//)
21160                 {
21161
21162                         $expectation->failed();
21163                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
21164                                                   Parse::RecDescent::_tracefirst($text))
21165                                                         if defined $::RD_TRACE;
21166                         last;
21167                 }
21168                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
21169                                                 . $& . q{])},
21170                                                   Parse::RecDescent::_tracefirst($text))
21171                                                         if defined $::RD_TRACE;
21172                 push @item, $item{__STRING1__}=$&;
21173
21174
21175                 Parse::RecDescent::_trace(q{Trying subrule: [NAME]},
21176                                   Parse::RecDescent::_tracefirst($text),
21177                                   q{table_name},
21178                                   $tracelevel)
21179                                         if defined $::RD_TRACE;
21180                 if (1) { no strict qw{refs};
21181                 $expectation->is(q{NAME})->at($text);
21182                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::NAME($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
21183                 {
21184
21185                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [NAME]>>},
21186                                                   Parse::RecDescent::_tracefirst($text),
21187                                                   q{table_name},
21188                                                   $tracelevel)
21189                                                         if defined $::RD_TRACE;
21190                         $expectation->failed();
21191                         last;
21192                 }
21193                 Parse::RecDescent::_trace(q{>>Matched subrule: [NAME]<< (return value: [}
21194                                         . $_tok . q{]},
21195
21196                                           Parse::RecDescent::_tracefirst($text),
21197                                           q{table_name},
21198                                           $tracelevel)
21199                                                 if defined $::RD_TRACE;
21200                 $item{q{NAME}} = $_tok;
21201                 push @item, $_tok;
21202
21203                 }
21204
21205                 Parse::RecDescent::_trace(q{Trying action},
21206                                           Parse::RecDescent::_tracefirst($text),
21207                                           q{table_name},
21208                                           $tracelevel)
21209                                                 if defined $::RD_TRACE;
21210
21211
21212                 $_tok = ($_noactions) ? 0 : do { $return = { schema => $item[1], name => $item[3] } };
21213                 unless (defined $_tok)
21214                 {
21215                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
21216                                         if defined $::RD_TRACE;
21217                         last;
21218                 }
21219                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
21220                                           . $_tok . q{])},
21221                                           Parse::RecDescent::_tracefirst($text))
21222                                                 if defined $::RD_TRACE;
21223                 push @item, $_tok;
21224                 $item{__ACTION1__}=$_tok;
21225
21226
21227
21228                 Parse::RecDescent::_trace(q{>>Matched production: [SCHEMA '.' NAME]<<},
21229                                           Parse::RecDescent::_tracefirst($text),
21230                                           q{table_name},
21231                                           $tracelevel)
21232                                                 if defined $::RD_TRACE;
21233                 $_matched = 1;
21234                 last;
21235         }
21236
21237
21238         while (!$_matched && !$commit)
21239         {
21240
21241                 Parse::RecDescent::_trace(q{Trying production: [NAME]},
21242                                           Parse::RecDescent::_tracefirst($_[1]),
21243                                           q{table_name},
21244                                           $tracelevel)
21245                                                 if defined $::RD_TRACE;
21246                 my $thisprod = $thisrule->{"prods"}[1];
21247                 $text = $_[1];
21248                 my $_savetext;
21249                 @item = (q{table_name});
21250                 %item = (__RULE__ => q{table_name});
21251                 my $repcount = 0;
21252
21253
21254                 Parse::RecDescent::_trace(q{Trying subrule: [NAME]},
21255                                   Parse::RecDescent::_tracefirst($text),
21256                                   q{table_name},
21257                                   $tracelevel)
21258                                         if defined $::RD_TRACE;
21259                 if (1) { no strict qw{refs};
21260                 $expectation->is(q{})->at($text);
21261                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::NAME($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
21262                 {
21263
21264                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [NAME]>>},
21265                                                   Parse::RecDescent::_tracefirst($text),
21266                                                   q{table_name},
21267                                                   $tracelevel)
21268                                                         if defined $::RD_TRACE;
21269                         $expectation->failed();
21270                         last;
21271                 }
21272                 Parse::RecDescent::_trace(q{>>Matched subrule: [NAME]<< (return value: [}
21273                                         . $_tok . q{]},
21274
21275                                           Parse::RecDescent::_tracefirst($text),
21276                                           q{table_name},
21277                                           $tracelevel)
21278                                                 if defined $::RD_TRACE;
21279                 $item{q{NAME}} = $_tok;
21280                 push @item, $_tok;
21281
21282                 }
21283
21284                 Parse::RecDescent::_trace(q{Trying action},
21285                                           Parse::RecDescent::_tracefirst($text),
21286                                           q{table_name},
21287                                           $tracelevel)
21288                                                 if defined $::RD_TRACE;
21289
21290
21291                 $_tok = ($_noactions) ? 0 : do { $return = { name => $item[1] } };
21292                 unless (defined $_tok)
21293                 {
21294                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
21295                                         if defined $::RD_TRACE;
21296                         last;
21297                 }
21298                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
21299                                           . $_tok . q{])},
21300                                           Parse::RecDescent::_tracefirst($text))
21301                                                 if defined $::RD_TRACE;
21302                 push @item, $_tok;
21303                 $item{__ACTION1__}=$_tok;
21304
21305
21306
21307                 Parse::RecDescent::_trace(q{>>Matched production: [NAME]<<},
21308                                           Parse::RecDescent::_tracefirst($text),
21309                                           q{table_name},
21310                                           $tracelevel)
21311                                                 if defined $::RD_TRACE;
21312                 $_matched = 1;
21313                 last;
21314         }
21315
21316
21317         unless ( $_matched || defined($return) || defined($score) )
21318         {
21319
21320
21321                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
21322                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
21323                                          Parse::RecDescent::_tracefirst($_[1]),
21324                                          q{table_name},
21325                                          $tracelevel)
21326                                         if defined $::RD_TRACE;
21327                 return undef;
21328         }
21329         if (!defined($return) && defined($score))
21330         {
21331                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
21332                                           q{table_name},
21333                                           $tracelevel)
21334                                                 if defined $::RD_TRACE;
21335                 $return = $score_return;
21336         }
21337         splice @{$thisparser->{errors}}, $err_at;
21338         $return = $item[$#item] unless defined $return;
21339         if (defined $::RD_TRACE)
21340         {
21341                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
21342                                           $return . q{])}, "",
21343                                           q{table_name},
21344                                           $tracelevel);
21345                 Parse::RecDescent::_trace(q{(consumed: [} .
21346                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
21347                                           Parse::RecDescent::_tracefirst($text),
21348                                           , q{table_name},
21349                                           $tracelevel)
21350         }
21351         $_[1] = $text;
21352         return $return;
21353 }
21354
21355 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
21356 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_53_of_rule_sysfun
21357 {
21358         my $thisparser = $_[0];
21359         use vars q{$tracelevel};
21360         local $tracelevel = ($tracelevel||0)+1;
21361         $ERRORS = 0;
21362         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_53_of_rule_sysfun"};
21363
21364         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_53_of_rule_sysfun]},
21365                                   Parse::RecDescent::_tracefirst($_[1]),
21366                                   q{_alternation_1_of_production_53_of_rule_sysfun},
21367                                   $tracelevel)
21368                                         if defined $::RD_TRACE;
21369
21370
21371         my $err_at = @{$thisparser->{errors}};
21372
21373         my $score;
21374         my $score_return;
21375         my $_tok;
21376         my $return = undef;
21377         my $_matched=0;
21378         my $commit=0;
21379         my @item = ();
21380         my %item = ();
21381         my $repeating =  defined($_[2]) && $_[2];
21382         my $_noactions = defined($_[3]) && $_[3];
21383         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
21384         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
21385         my $text;
21386         my $lastsep="";
21387         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
21388         $expectation->at($_[1]);
21389
21390         my $thisline;
21391         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
21392
21393
21394
21395         while (!$_matched && !$commit)
21396         {
21397
21398                 Parse::RecDescent::_trace(q{Trying production: [/TRUNCATE/i]},
21399                                           Parse::RecDescent::_tracefirst($_[1]),
21400                                           q{_alternation_1_of_production_53_of_rule_sysfun},
21401                                           $tracelevel)
21402                                                 if defined $::RD_TRACE;
21403                 my $thisprod = $thisrule->{"prods"}[0];
21404                 $text = $_[1];
21405                 my $_savetext;
21406                 @item = (q{_alternation_1_of_production_53_of_rule_sysfun});
21407                 %item = (__RULE__ => q{_alternation_1_of_production_53_of_rule_sysfun});
21408                 my $repcount = 0;
21409
21410
21411                 Parse::RecDescent::_trace(q{Trying terminal: [/TRUNCATE/i]}, Parse::RecDescent::_tracefirst($text),
21412                                           q{_alternation_1_of_production_53_of_rule_sysfun},
21413                                           $tracelevel)
21414                                                 if defined $::RD_TRACE;
21415                 $lastsep = "";
21416                 $expectation->is(q{})->at($text);
21417
21418
21419                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:TRUNCATE)//i)
21420                 {
21421
21422                         $expectation->failed();
21423                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
21424                                                   Parse::RecDescent::_tracefirst($text))
21425                                         if defined $::RD_TRACE;
21426
21427                         last;
21428                 }
21429                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
21430                                                 . $& . q{])},
21431                                                   Parse::RecDescent::_tracefirst($text))
21432                                         if defined $::RD_TRACE;
21433                 push @item, $item{__PATTERN1__}=$&;
21434
21435
21436
21437                 Parse::RecDescent::_trace(q{>>Matched production: [/TRUNCATE/i]<<},
21438                                           Parse::RecDescent::_tracefirst($text),
21439                                           q{_alternation_1_of_production_53_of_rule_sysfun},
21440                                           $tracelevel)
21441                                                 if defined $::RD_TRACE;
21442                 $_matched = 1;
21443                 last;
21444         }
21445
21446
21447         while (!$_matched && !$commit)
21448         {
21449
21450                 Parse::RecDescent::_trace(q{Trying production: [/TRUNC/i]},
21451                                           Parse::RecDescent::_tracefirst($_[1]),
21452                                           q{_alternation_1_of_production_53_of_rule_sysfun},
21453                                           $tracelevel)
21454                                                 if defined $::RD_TRACE;
21455                 my $thisprod = $thisrule->{"prods"}[1];
21456                 $text = $_[1];
21457                 my $_savetext;
21458                 @item = (q{_alternation_1_of_production_53_of_rule_sysfun});
21459                 %item = (__RULE__ => q{_alternation_1_of_production_53_of_rule_sysfun});
21460                 my $repcount = 0;
21461
21462
21463                 Parse::RecDescent::_trace(q{Trying terminal: [/TRUNC/i]}, Parse::RecDescent::_tracefirst($text),
21464                                           q{_alternation_1_of_production_53_of_rule_sysfun},
21465                                           $tracelevel)
21466                                                 if defined $::RD_TRACE;
21467                 $lastsep = "";
21468                 $expectation->is(q{})->at($text);
21469
21470
21471                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:TRUNC)//i)
21472                 {
21473
21474                         $expectation->failed();
21475                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
21476                                                   Parse::RecDescent::_tracefirst($text))
21477                                         if defined $::RD_TRACE;
21478
21479                         last;
21480                 }
21481                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
21482                                                 . $& . q{])},
21483                                                   Parse::RecDescent::_tracefirst($text))
21484                                         if defined $::RD_TRACE;
21485                 push @item, $item{__PATTERN1__}=$&;
21486
21487
21488
21489                 Parse::RecDescent::_trace(q{>>Matched production: [/TRUNC/i]<<},
21490                                           Parse::RecDescent::_tracefirst($text),
21491                                           q{_alternation_1_of_production_53_of_rule_sysfun},
21492                                           $tracelevel)
21493                                                 if defined $::RD_TRACE;
21494                 $_matched = 1;
21495                 last;
21496         }
21497
21498
21499         unless ( $_matched || defined($return) || defined($score) )
21500         {
21501
21502
21503                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
21504                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
21505                                          Parse::RecDescent::_tracefirst($_[1]),
21506                                          q{_alternation_1_of_production_53_of_rule_sysfun},
21507                                          $tracelevel)
21508                                         if defined $::RD_TRACE;
21509                 return undef;
21510         }
21511         if (!defined($return) && defined($score))
21512         {
21513                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
21514                                           q{_alternation_1_of_production_53_of_rule_sysfun},
21515                                           $tracelevel)
21516                                                 if defined $::RD_TRACE;
21517                 $return = $score_return;
21518         }
21519         splice @{$thisparser->{errors}}, $err_at;
21520         $return = $item[$#item] unless defined $return;
21521         if (defined $::RD_TRACE)
21522         {
21523                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
21524                                           $return . q{])}, "",
21525                                           q{_alternation_1_of_production_53_of_rule_sysfun},
21526                                           $tracelevel);
21527                 Parse::RecDescent::_trace(q{(consumed: [} .
21528                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
21529                                           Parse::RecDescent::_tracefirst($text),
21530                                           , q{_alternation_1_of_production_53_of_rule_sysfun},
21531                                           $tracelevel)
21532         }
21533         $_[1] = $text;
21534         return $return;
21535 }
21536
21537 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
21538 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::options
21539 {
21540         my $thisparser = $_[0];
21541         use vars q{$tracelevel};
21542         local $tracelevel = ($tracelevel||0)+1;
21543         $ERRORS = 0;
21544         my $thisrule = $thisparser->{"rules"}{"options"};
21545
21546         Parse::RecDescent::_trace(q{Trying rule: [options]},
21547                                   Parse::RecDescent::_tracefirst($_[1]),
21548                                   q{options},
21549                                   $tracelevel)
21550                                         if defined $::RD_TRACE;
21551
21552
21553         my $err_at = @{$thisparser->{errors}};
21554
21555         my $score;
21556         my $score_return;
21557         my $_tok;
21558         my $return = undef;
21559         my $_matched=0;
21560         my $commit=0;
21561         my @item = ();
21562         my %item = ();
21563         my $repeating =  defined($_[2]) && $_[2];
21564         my $_noactions = defined($_[3]) && $_[3];
21565         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
21566         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
21567         my $text;
21568         my $lastsep="";
21569         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
21570         $expectation->at($_[1]);
21571
21572         my $thisline;
21573         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
21574
21575
21576
21577         while (!$_matched && !$commit)
21578         {
21579
21580                 Parse::RecDescent::_trace(q{Trying production: [/WITH/i /CASCADED/i, or /LOCAL/i /CHECK\\s+OPTION/i]},
21581                                           Parse::RecDescent::_tracefirst($_[1]),
21582                                           q{options},
21583                                           $tracelevel)
21584                                                 if defined $::RD_TRACE;
21585                 my $thisprod = $thisrule->{"prods"}[0];
21586                 $text = $_[1];
21587                 my $_savetext;
21588                 @item = (q{options});
21589                 %item = (__RULE__ => q{options});
21590                 my $repcount = 0;
21591
21592
21593                 Parse::RecDescent::_trace(q{Trying terminal: [/WITH/i]}, Parse::RecDescent::_tracefirst($text),
21594                                           q{options},
21595                                           $tracelevel)
21596                                                 if defined $::RD_TRACE;
21597                 $lastsep = "";
21598                 $expectation->is(q{})->at($text);
21599
21600
21601                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:WITH)//i)
21602                 {
21603
21604                         $expectation->failed();
21605                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
21606                                                   Parse::RecDescent::_tracefirst($text))
21607                                         if defined $::RD_TRACE;
21608
21609                         last;
21610                 }
21611                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
21612                                                 . $& . q{])},
21613                                                   Parse::RecDescent::_tracefirst($text))
21614                                         if defined $::RD_TRACE;
21615                 push @item, $item{__PATTERN1__}=$&;
21616
21617
21618                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule_options]},
21619                                   Parse::RecDescent::_tracefirst($text),
21620                                   q{options},
21621                                   $tracelevel)
21622                                         if defined $::RD_TRACE;
21623                 if (1) { no strict qw{refs};
21624                 $expectation->is(q{/CASCADED/i, or /LOCAL/i})->at($text);
21625                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_options($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
21626                 {
21627
21628                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule_options]>>},
21629                                                   Parse::RecDescent::_tracefirst($text),
21630                                                   q{options},
21631                                                   $tracelevel)
21632                                                         if defined $::RD_TRACE;
21633                         $expectation->failed();
21634                         last;
21635                 }
21636                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule_options]<< (return value: [}
21637                                         . $_tok . q{]},
21638
21639                                           Parse::RecDescent::_tracefirst($text),
21640                                           q{options},
21641                                           $tracelevel)
21642                                                 if defined $::RD_TRACE;
21643                 $item{q{_alternation_1_of_production_1_of_rule_options}} = $_tok;
21644                 push @item, $_tok;
21645
21646                 }
21647
21648                 Parse::RecDescent::_trace(q{Trying terminal: [/CHECK\\s+OPTION/i]}, Parse::RecDescent::_tracefirst($text),
21649                                           q{options},
21650                                           $tracelevel)
21651                                                 if defined $::RD_TRACE;
21652                 $lastsep = "";
21653                 $expectation->is(q{/CHECK\\s+OPTION/i})->at($text);
21654
21655
21656                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CHECK\s+OPTION)//i)
21657                 {
21658
21659                         $expectation->failed();
21660                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
21661                                                   Parse::RecDescent::_tracefirst($text))
21662                                         if defined $::RD_TRACE;
21663
21664                         last;
21665                 }
21666                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
21667                                                 . $& . q{])},
21668                                                   Parse::RecDescent::_tracefirst($text))
21669                                         if defined $::RD_TRACE;
21670                 push @item, $item{__PATTERN2__}=$&;
21671
21672
21673
21674                 Parse::RecDescent::_trace(q{>>Matched production: [/WITH/i /CASCADED/i, or /LOCAL/i /CHECK\\s+OPTION/i]<<},
21675                                           Parse::RecDescent::_tracefirst($text),
21676                                           q{options},
21677                                           $tracelevel)
21678                                                 if defined $::RD_TRACE;
21679                 $_matched = 1;
21680                 last;
21681         }
21682
21683
21684         unless ( $_matched || defined($return) || defined($score) )
21685         {
21686
21687
21688                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
21689                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
21690                                          Parse::RecDescent::_tracefirst($_[1]),
21691                                          q{options},
21692                                          $tracelevel)
21693                                         if defined $::RD_TRACE;
21694                 return undef;
21695         }
21696         if (!defined($return) && defined($score))
21697         {
21698                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
21699                                           q{options},
21700                                           $tracelevel)
21701                                                 if defined $::RD_TRACE;
21702                 $return = $score_return;
21703         }
21704         splice @{$thisparser->{errors}}, $err_at;
21705         $return = $item[$#item] unless defined $return;
21706         if (defined $::RD_TRACE)
21707         {
21708                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
21709                                           $return . q{])}, "",
21710                                           q{options},
21711                                           $tracelevel);
21712                 Parse::RecDescent::_trace(q{(consumed: [} .
21713                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
21714                                           Parse::RecDescent::_tracefirst($text),
21715                                           , q{options},
21716                                           $tracelevel)
21717         }
21718         $_[1] = $text;
21719         return $return;
21720 }
21721
21722 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
21723 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::function
21724 {
21725         my $thisparser = $_[0];
21726         use vars q{$tracelevel};
21727         local $tracelevel = ($tracelevel||0)+1;
21728         $ERRORS = 0;
21729         my $thisrule = $thisparser->{"rules"}{"function"};
21730
21731         Parse::RecDescent::_trace(q{Trying rule: [function]},
21732                                   Parse::RecDescent::_tracefirst($_[1]),
21733                                   q{function},
21734                                   $tracelevel)
21735                                         if defined $::RD_TRACE;
21736
21737
21738         my $err_at = @{$thisparser->{errors}};
21739
21740         my $score;
21741         my $score_return;
21742         my $_tok;
21743         my $return = undef;
21744         my $_matched=0;
21745         my $commit=0;
21746         my @item = ();
21747         my %item = ();
21748         my $repeating =  defined($_[2]) && $_[2];
21749         my $_noactions = defined($_[3]) && $_[3];
21750         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
21751         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
21752         my $text;
21753         my $lastsep="";
21754         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
21755         $expectation->at($_[1]);
21756
21757         my $thisline;
21758         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
21759
21760
21761
21762         while (!$_matched && !$commit)
21763         {
21764
21765                 Parse::RecDescent::_trace(q{Trying production: [/SYSIBM\\.|/i, or /SYSFUN\\.|/i, or userdefined_function '(' <leftop: func_args /,/ func_args> ')']},
21766                                           Parse::RecDescent::_tracefirst($_[1]),
21767                                           q{function},
21768                                           $tracelevel)
21769                                                 if defined $::RD_TRACE;
21770                 my $thisprod = $thisrule->{"prods"}[0];
21771                 $text = $_[1];
21772                 my $_savetext;
21773                 @item = (q{function});
21774                 %item = (__RULE__ => q{function});
21775                 my $repcount = 0;
21776
21777
21778                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule_function]},
21779                                   Parse::RecDescent::_tracefirst($text),
21780                                   q{function},
21781                                   $tracelevel)
21782                                         if defined $::RD_TRACE;
21783                 if (1) { no strict qw{refs};
21784                 $expectation->is(q{})->at($text);
21785                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
21786                 {
21787
21788                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule_function]>>},
21789                                                   Parse::RecDescent::_tracefirst($text),
21790                                                   q{function},
21791                                                   $tracelevel)
21792                                                         if defined $::RD_TRACE;
21793                         $expectation->failed();
21794                         last;
21795                 }
21796                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule_function]<< (return value: [}
21797                                         . $_tok . q{]},
21798
21799                                           Parse::RecDescent::_tracefirst($text),
21800                                           q{function},
21801                                           $tracelevel)
21802                                                 if defined $::RD_TRACE;
21803                 $item{q{_alternation_1_of_production_1_of_rule_function}} = $_tok;
21804                 push @item, $_tok;
21805
21806                 }
21807
21808                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
21809                                           Parse::RecDescent::_tracefirst($text),
21810                                           q{function},
21811                                           $tracelevel)
21812                                                 if defined $::RD_TRACE;
21813                 $lastsep = "";
21814                 $expectation->is(q{'('})->at($text);
21815
21816
21817                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
21818                 {
21819
21820                         $expectation->failed();
21821                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
21822                                                   Parse::RecDescent::_tracefirst($text))
21823                                                         if defined $::RD_TRACE;
21824                         last;
21825                 }
21826                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
21827                                                 . $& . q{])},
21828                                                   Parse::RecDescent::_tracefirst($text))
21829                                                         if defined $::RD_TRACE;
21830                 push @item, $item{__STRING1__}=$&;
21831
21832
21833                 Parse::RecDescent::_trace(q{Trying operator: [<leftop: func_args /,/ func_args>]},
21834                                   Parse::RecDescent::_tracefirst($text),
21835                                   q{function},
21836                                   $tracelevel)
21837                                         if defined $::RD_TRACE;
21838                 $expectation->is(q{<leftop: func_args /,/ func_args>})->at($text);
21839
21840                 $_tok = undef;
21841                 OPLOOP: while (1)
21842                 {
21843                   $repcount = 0;
21844                   my  @item;
21845
21846                   # MATCH LEFTARG
21847
21848                 Parse::RecDescent::_trace(q{Trying subrule: [func_args]},
21849                                   Parse::RecDescent::_tracefirst($text),
21850                                   q{function},
21851                                   $tracelevel)
21852                                         if defined $::RD_TRACE;
21853                 if (1) { no strict qw{refs};
21854                 $expectation->is(q{func_args})->at($text);
21855                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::func_args($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
21856                 {
21857
21858                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [func_args]>>},
21859                                                   Parse::RecDescent::_tracefirst($text),
21860                                                   q{function},
21861                                                   $tracelevel)
21862                                                         if defined $::RD_TRACE;
21863                         $expectation->failed();
21864                         last;
21865                 }
21866                 Parse::RecDescent::_trace(q{>>Matched subrule: [func_args]<< (return value: [}
21867                                         . $_tok . q{]},
21868
21869                                           Parse::RecDescent::_tracefirst($text),
21870                                           q{function},
21871                                           $tracelevel)
21872                                                 if defined $::RD_TRACE;
21873                 $item{q{func_args}} = $_tok;
21874                 push @item, $_tok;
21875
21876                 }
21877
21878
21879                   $repcount++;
21880
21881                   my $savetext = $text;
21882                   my $backtrack;
21883
21884                   # MATCH (OP RIGHTARG)(s)
21885                   while ($repcount < 100000000)
21886                   {
21887                         $backtrack = 0;
21888
21889                 Parse::RecDescent::_trace(q{Trying terminal: [/,/]}, Parse::RecDescent::_tracefirst($text),
21890                                           q{function},
21891                                           $tracelevel)
21892                                                 if defined $::RD_TRACE;
21893                 $lastsep = "";
21894                 $expectation->is(q{/,/})->at($text);
21895
21896
21897                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:,)//)
21898                 {
21899
21900                         $expectation->failed();
21901                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
21902                                                   Parse::RecDescent::_tracefirst($text))
21903                                         if defined $::RD_TRACE;
21904
21905                         last;
21906                 }
21907                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
21908                                                 . $& . q{])},
21909                                                   Parse::RecDescent::_tracefirst($text))
21910                                         if defined $::RD_TRACE;
21911                 push @item, $item{__PATTERN1__}=$&;
21912
21913
21914                         pop @item;
21915                         if (defined $1) {push @item, $item{'func_args(s)'}=$1; $backtrack=1;}
21916
21917                 Parse::RecDescent::_trace(q{Trying subrule: [func_args]},
21918                                   Parse::RecDescent::_tracefirst($text),
21919                                   q{function},
21920                                   $tracelevel)
21921                                         if defined $::RD_TRACE;
21922                 if (1) { no strict qw{refs};
21923                 $expectation->is(q{func_args})->at($text);
21924                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::func_args($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
21925                 {
21926
21927                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [func_args]>>},
21928                                                   Parse::RecDescent::_tracefirst($text),
21929                                                   q{function},
21930                                                   $tracelevel)
21931                                                         if defined $::RD_TRACE;
21932                         $expectation->failed();
21933                         last;
21934                 }
21935                 Parse::RecDescent::_trace(q{>>Matched subrule: [func_args]<< (return value: [}
21936                                         . $_tok . q{]},
21937
21938                                           Parse::RecDescent::_tracefirst($text),
21939                                           q{function},
21940                                           $tracelevel)
21941                                                 if defined $::RD_TRACE;
21942                 $item{q{func_args}} = $_tok;
21943                 push @item, $_tok;
21944
21945                 }
21946
21947                         $savetext = $text;
21948                         $repcount++;
21949                   }
21950                   $text = $savetext;
21951                   pop @item if $backtrack;
21952
21953                   unless (@item) { undef $_tok; last }
21954                   $_tok = [ @item ];
21955                   last;
21956                 }
21957
21958                 unless ($repcount>=1)
21959                 {
21960                         Parse::RecDescent::_trace(q{<<Didn't match operator: [<leftop: func_args /,/ func_args>]>>},
21961                                                   Parse::RecDescent::_tracefirst($text),
21962                                                   q{function},
21963                                                   $tracelevel)
21964                                                         if defined $::RD_TRACE;
21965                         $expectation->failed();
21966                         last;
21967                 }
21968                 Parse::RecDescent::_trace(q{>>Matched operator: [<leftop: func_args /,/ func_args>]<< (return value: [}
21969                                           . qq{@{$_tok||[]}} . q{]},
21970                                           Parse::RecDescent::_tracefirst($text),
21971                                           q{function},
21972                                           $tracelevel)
21973                                                 if defined $::RD_TRACE;
21974
21975                 push @item, $item{'func_args(s)'}=$_tok||[];
21976
21977
21978                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
21979                                           Parse::RecDescent::_tracefirst($text),
21980                                           q{function},
21981                                           $tracelevel)
21982                                                 if defined $::RD_TRACE;
21983                 $lastsep = "";
21984                 $expectation->is(q{')'})->at($text);
21985
21986
21987                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
21988                 {
21989
21990                         $expectation->failed();
21991                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
21992                                                   Parse::RecDescent::_tracefirst($text))
21993                                                         if defined $::RD_TRACE;
21994                         last;
21995                 }
21996                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
21997                                                 . $& . q{])},
21998                                                   Parse::RecDescent::_tracefirst($text))
21999                                                         if defined $::RD_TRACE;
22000                 push @item, $item{__STRING2__}=$&;
22001
22002
22003
22004                 Parse::RecDescent::_trace(q{>>Matched production: [/SYSIBM\\.|/i, or /SYSFUN\\.|/i, or userdefined_function '(' <leftop: func_args /,/ func_args> ')']<<},
22005                                           Parse::RecDescent::_tracefirst($text),
22006                                           q{function},
22007                                           $tracelevel)
22008                                                 if defined $::RD_TRACE;
22009                 $_matched = 1;
22010                 last;
22011         }
22012
22013
22014         unless ( $_matched || defined($return) || defined($score) )
22015         {
22016
22017
22018                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
22019                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
22020                                          Parse::RecDescent::_tracefirst($_[1]),
22021                                          q{function},
22022                                          $tracelevel)
22023                                         if defined $::RD_TRACE;
22024                 return undef;
22025         }
22026         if (!defined($return) && defined($score))
22027         {
22028                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
22029                                           q{function},
22030                                           $tracelevel)
22031                                                 if defined $::RD_TRACE;
22032                 $return = $score_return;
22033         }
22034         splice @{$thisparser->{errors}}, $err_at;
22035         $return = $item[$#item] unless defined $return;
22036         if (defined $::RD_TRACE)
22037         {
22038                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
22039                                           $return . q{])}, "",
22040                                           q{function},
22041                                           $tracelevel);
22042                 Parse::RecDescent::_trace(q{(consumed: [} .
22043                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
22044                                           Parse::RecDescent::_tracefirst($text),
22045                                           , q{function},
22046                                           $tracelevel)
22047         }
22048         $_[1] = $text;
22049         return $return;
22050 }
22051
22052 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
22053 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_41_of_rule_sysibm_function
22054 {
22055         my $thisparser = $_[0];
22056         use vars q{$tracelevel};
22057         local $tracelevel = ($tracelevel||0)+1;
22058         $ERRORS = 0;
22059         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_41_of_rule_sysibm_function"};
22060
22061         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_41_of_rule_sysibm_function]},
22062                                   Parse::RecDescent::_tracefirst($_[1]),
22063                                   q{_alternation_1_of_production_41_of_rule_sysibm_function},
22064                                   $tracelevel)
22065                                         if defined $::RD_TRACE;
22066
22067
22068         my $err_at = @{$thisparser->{errors}};
22069
22070         my $score;
22071         my $score_return;
22072         my $_tok;
22073         my $return = undef;
22074         my $_matched=0;
22075         my $commit=0;
22076         my @item = ();
22077         my %item = ();
22078         my $repeating =  defined($_[2]) && $_[2];
22079         my $_noactions = defined($_[3]) && $_[3];
22080         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
22081         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
22082         my $text;
22083         my $lastsep="";
22084         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
22085         $expectation->at($_[1]);
22086
22087         my $thisline;
22088         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
22089
22090
22091
22092         while (!$_matched && !$commit)
22093         {
22094
22095                 Parse::RecDescent::_trace(q{Trying production: [/INTEGER/i]},
22096                                           Parse::RecDescent::_tracefirst($_[1]),
22097                                           q{_alternation_1_of_production_41_of_rule_sysibm_function},
22098                                           $tracelevel)
22099                                                 if defined $::RD_TRACE;
22100                 my $thisprod = $thisrule->{"prods"}[0];
22101                 $text = $_[1];
22102                 my $_savetext;
22103                 @item = (q{_alternation_1_of_production_41_of_rule_sysibm_function});
22104                 %item = (__RULE__ => q{_alternation_1_of_production_41_of_rule_sysibm_function});
22105                 my $repcount = 0;
22106
22107
22108                 Parse::RecDescent::_trace(q{Trying terminal: [/INTEGER/i]}, Parse::RecDescent::_tracefirst($text),
22109                                           q{_alternation_1_of_production_41_of_rule_sysibm_function},
22110                                           $tracelevel)
22111                                                 if defined $::RD_TRACE;
22112                 $lastsep = "";
22113                 $expectation->is(q{})->at($text);
22114
22115
22116                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:INTEGER)//i)
22117                 {
22118
22119                         $expectation->failed();
22120                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
22121                                                   Parse::RecDescent::_tracefirst($text))
22122                                         if defined $::RD_TRACE;
22123
22124                         last;
22125                 }
22126                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
22127                                                 . $& . q{])},
22128                                                   Parse::RecDescent::_tracefirst($text))
22129                                         if defined $::RD_TRACE;
22130                 push @item, $item{__PATTERN1__}=$&;
22131
22132
22133
22134                 Parse::RecDescent::_trace(q{>>Matched production: [/INTEGER/i]<<},
22135                                           Parse::RecDescent::_tracefirst($text),
22136                                           q{_alternation_1_of_production_41_of_rule_sysibm_function},
22137                                           $tracelevel)
22138                                                 if defined $::RD_TRACE;
22139                 $_matched = 1;
22140                 last;
22141         }
22142
22143
22144         while (!$_matched && !$commit)
22145         {
22146
22147                 Parse::RecDescent::_trace(q{Trying production: [/INT/]},
22148                                           Parse::RecDescent::_tracefirst($_[1]),
22149                                           q{_alternation_1_of_production_41_of_rule_sysibm_function},
22150                                           $tracelevel)
22151                                                 if defined $::RD_TRACE;
22152                 my $thisprod = $thisrule->{"prods"}[1];
22153                 $text = $_[1];
22154                 my $_savetext;
22155                 @item = (q{_alternation_1_of_production_41_of_rule_sysibm_function});
22156                 %item = (__RULE__ => q{_alternation_1_of_production_41_of_rule_sysibm_function});
22157                 my $repcount = 0;
22158
22159
22160                 Parse::RecDescent::_trace(q{Trying terminal: [/INT/]}, Parse::RecDescent::_tracefirst($text),
22161                                           q{_alternation_1_of_production_41_of_rule_sysibm_function},
22162                                           $tracelevel)
22163                                                 if defined $::RD_TRACE;
22164                 $lastsep = "";
22165                 $expectation->is(q{})->at($text);
22166
22167
22168                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:INT)//)
22169                 {
22170
22171                         $expectation->failed();
22172                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
22173                                                   Parse::RecDescent::_tracefirst($text))
22174                                         if defined $::RD_TRACE;
22175
22176                         last;
22177                 }
22178                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
22179                                                 . $& . q{])},
22180                                                   Parse::RecDescent::_tracefirst($text))
22181                                         if defined $::RD_TRACE;
22182                 push @item, $item{__PATTERN1__}=$&;
22183
22184
22185
22186                 Parse::RecDescent::_trace(q{>>Matched production: [/INT/]<<},
22187                                           Parse::RecDescent::_tracefirst($text),
22188                                           q{_alternation_1_of_production_41_of_rule_sysibm_function},
22189                                           $tracelevel)
22190                                                 if defined $::RD_TRACE;
22191                 $_matched = 1;
22192                 last;
22193         }
22194
22195
22196         unless ( $_matched || defined($return) || defined($score) )
22197         {
22198
22199
22200                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
22201                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
22202                                          Parse::RecDescent::_tracefirst($_[1]),
22203                                          q{_alternation_1_of_production_41_of_rule_sysibm_function},
22204                                          $tracelevel)
22205                                         if defined $::RD_TRACE;
22206                 return undef;
22207         }
22208         if (!defined($return) && defined($score))
22209         {
22210                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
22211                                           q{_alternation_1_of_production_41_of_rule_sysibm_function},
22212                                           $tracelevel)
22213                                                 if defined $::RD_TRACE;
22214                 $return = $score_return;
22215         }
22216         splice @{$thisparser->{errors}}, $err_at;
22217         $return = $item[$#item] unless defined $return;
22218         if (defined $::RD_TRACE)
22219         {
22220                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
22221                                           $return . q{])}, "",
22222                                           q{_alternation_1_of_production_41_of_rule_sysibm_function},
22223                                           $tracelevel);
22224                 Parse::RecDescent::_trace(q{(consumed: [} .
22225                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
22226                                           Parse::RecDescent::_tracefirst($text),
22227                                           , q{_alternation_1_of_production_41_of_rule_sysibm_function},
22228                                           $tracelevel)
22229         }
22230         $_[1] = $text;
22231         return $return;
22232 }
22233
22234 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
22235 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_case_expression
22236 {
22237         my $thisparser = $_[0];
22238         use vars q{$tracelevel};
22239         local $tracelevel = ($tracelevel||0)+1;
22240         $ERRORS = 0;
22241         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_case_expression"};
22242
22243         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_case_expression]},
22244                                   Parse::RecDescent::_tracefirst($_[1]),
22245                                   q{_alternation_1_of_production_1_of_rule_case_expression},
22246                                   $tracelevel)
22247                                         if defined $::RD_TRACE;
22248
22249
22250         my $err_at = @{$thisparser->{errors}};
22251
22252         my $score;
22253         my $score_return;
22254         my $_tok;
22255         my $return = undef;
22256         my $_matched=0;
22257         my $commit=0;
22258         my @item = ();
22259         my %item = ();
22260         my $repeating =  defined($_[2]) && $_[2];
22261         my $_noactions = defined($_[3]) && $_[3];
22262         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
22263         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
22264         my $text;
22265         my $lastsep="";
22266         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
22267         $expectation->at($_[1]);
22268
22269         my $thisline;
22270         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
22271
22272
22273
22274         while (!$_matched && !$commit)
22275         {
22276
22277                 Parse::RecDescent::_trace(q{Trying production: [searched_when_clause]},
22278                                           Parse::RecDescent::_tracefirst($_[1]),
22279                                           q{_alternation_1_of_production_1_of_rule_case_expression},
22280                                           $tracelevel)
22281                                                 if defined $::RD_TRACE;
22282                 my $thisprod = $thisrule->{"prods"}[0];
22283                 $text = $_[1];
22284                 my $_savetext;
22285                 @item = (q{_alternation_1_of_production_1_of_rule_case_expression});
22286                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_case_expression});
22287                 my $repcount = 0;
22288
22289
22290                 Parse::RecDescent::_trace(q{Trying subrule: [searched_when_clause]},
22291                                   Parse::RecDescent::_tracefirst($text),
22292                                   q{_alternation_1_of_production_1_of_rule_case_expression},
22293                                   $tracelevel)
22294                                         if defined $::RD_TRACE;
22295                 if (1) { no strict qw{refs};
22296                 $expectation->is(q{})->at($text);
22297                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::searched_when_clause($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
22298                 {
22299
22300                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [searched_when_clause]>>},
22301                                                   Parse::RecDescent::_tracefirst($text),
22302                                                   q{_alternation_1_of_production_1_of_rule_case_expression},
22303                                                   $tracelevel)
22304                                                         if defined $::RD_TRACE;
22305                         $expectation->failed();
22306                         last;
22307                 }
22308                 Parse::RecDescent::_trace(q{>>Matched subrule: [searched_when_clause]<< (return value: [}
22309                                         . $_tok . q{]},
22310
22311                                           Parse::RecDescent::_tracefirst($text),
22312                                           q{_alternation_1_of_production_1_of_rule_case_expression},
22313                                           $tracelevel)
22314                                                 if defined $::RD_TRACE;
22315                 $item{q{searched_when_clause}} = $_tok;
22316                 push @item, $_tok;
22317
22318                 }
22319
22320
22321                 Parse::RecDescent::_trace(q{>>Matched production: [searched_when_clause]<<},
22322                                           Parse::RecDescent::_tracefirst($text),
22323                                           q{_alternation_1_of_production_1_of_rule_case_expression},
22324                                           $tracelevel)
22325                                                 if defined $::RD_TRACE;
22326                 $_matched = 1;
22327                 last;
22328         }
22329
22330
22331         while (!$_matched && !$commit)
22332         {
22333
22334                 Parse::RecDescent::_trace(q{Trying production: [simple_when_clause]},
22335                                           Parse::RecDescent::_tracefirst($_[1]),
22336                                           q{_alternation_1_of_production_1_of_rule_case_expression},
22337                                           $tracelevel)
22338                                                 if defined $::RD_TRACE;
22339                 my $thisprod = $thisrule->{"prods"}[1];
22340                 $text = $_[1];
22341                 my $_savetext;
22342                 @item = (q{_alternation_1_of_production_1_of_rule_case_expression});
22343                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_case_expression});
22344                 my $repcount = 0;
22345
22346
22347                 Parse::RecDescent::_trace(q{Trying subrule: [simple_when_clause]},
22348                                   Parse::RecDescent::_tracefirst($text),
22349                                   q{_alternation_1_of_production_1_of_rule_case_expression},
22350                                   $tracelevel)
22351                                         if defined $::RD_TRACE;
22352                 if (1) { no strict qw{refs};
22353                 $expectation->is(q{})->at($text);
22354                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::simple_when_clause($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
22355                 {
22356
22357                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [simple_when_clause]>>},
22358                                                   Parse::RecDescent::_tracefirst($text),
22359                                                   q{_alternation_1_of_production_1_of_rule_case_expression},
22360                                                   $tracelevel)
22361                                                         if defined $::RD_TRACE;
22362                         $expectation->failed();
22363                         last;
22364                 }
22365                 Parse::RecDescent::_trace(q{>>Matched subrule: [simple_when_clause]<< (return value: [}
22366                                         . $_tok . q{]},
22367
22368                                           Parse::RecDescent::_tracefirst($text),
22369                                           q{_alternation_1_of_production_1_of_rule_case_expression},
22370                                           $tracelevel)
22371                                                 if defined $::RD_TRACE;
22372                 $item{q{simple_when_clause}} = $_tok;
22373                 push @item, $_tok;
22374
22375                 }
22376
22377
22378                 Parse::RecDescent::_trace(q{>>Matched production: [simple_when_clause]<<},
22379                                           Parse::RecDescent::_tracefirst($text),
22380                                           q{_alternation_1_of_production_1_of_rule_case_expression},
22381                                           $tracelevel)
22382                                                 if defined $::RD_TRACE;
22383                 $_matched = 1;
22384                 last;
22385         }
22386
22387
22388         unless ( $_matched || defined($return) || defined($score) )
22389         {
22390
22391
22392                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
22393                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
22394                                          Parse::RecDescent::_tracefirst($_[1]),
22395                                          q{_alternation_1_of_production_1_of_rule_case_expression},
22396                                          $tracelevel)
22397                                         if defined $::RD_TRACE;
22398                 return undef;
22399         }
22400         if (!defined($return) && defined($score))
22401         {
22402                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
22403                                           q{_alternation_1_of_production_1_of_rule_case_expression},
22404                                           $tracelevel)
22405                                                 if defined $::RD_TRACE;
22406                 $return = $score_return;
22407         }
22408         splice @{$thisparser->{errors}}, $err_at;
22409         $return = $item[$#item] unless defined $return;
22410         if (defined $::RD_TRACE)
22411         {
22412                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
22413                                           $return . q{])}, "",
22414                                           q{_alternation_1_of_production_1_of_rule_case_expression},
22415                                           $tracelevel);
22416                 Parse::RecDescent::_trace(q{(consumed: [} .
22417                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
22418                                           Parse::RecDescent::_tracefirst($text),
22419                                           , q{_alternation_1_of_production_1_of_rule_case_expression},
22420                                           $tracelevel)
22421         }
22422         $_[1] = $text;
22423         return $return;
22424 }
22425
22426 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
22427 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_window_order_clause
22428 {
22429         my $thisparser = $_[0];
22430         use vars q{$tracelevel};
22431         local $tracelevel = ($tracelevel||0)+1;
22432         $ERRORS = 0;
22433         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_window_order_clause"};
22434
22435         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_window_order_clause]},
22436                                   Parse::RecDescent::_tracefirst($_[1]),
22437                                   q{_alternation_1_of_production_1_of_rule_window_order_clause},
22438                                   $tracelevel)
22439                                         if defined $::RD_TRACE;
22440
22441
22442         my $err_at = @{$thisparser->{errors}};
22443
22444         my $score;
22445         my $score_return;
22446         my $_tok;
22447         my $return = undef;
22448         my $_matched=0;
22449         my $commit=0;
22450         my @item = ();
22451         my %item = ();
22452         my $repeating =  defined($_[2]) && $_[2];
22453         my $_noactions = defined($_[3]) && $_[3];
22454         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
22455         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
22456         my $text;
22457         my $lastsep="";
22458         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
22459         $expectation->at($_[1]);
22460
22461         my $thisline;
22462         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
22463
22464
22465
22466         while (!$_matched && !$commit)
22467         {
22468
22469                 Parse::RecDescent::_trace(q{Trying production: [sort_key_expression asc_option, or desc_option]},
22470                                           Parse::RecDescent::_tracefirst($_[1]),
22471                                           q{_alternation_1_of_production_1_of_rule_window_order_clause},
22472                                           $tracelevel)
22473                                                 if defined $::RD_TRACE;
22474                 my $thisprod = $thisrule->{"prods"}[0];
22475                 $text = $_[1];
22476                 my $_savetext;
22477                 @item = (q{_alternation_1_of_production_1_of_rule_window_order_clause});
22478                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_window_order_clause});
22479                 my $repcount = 0;
22480
22481
22482                 Parse::RecDescent::_trace(q{Trying subrule: [sort_key_expression]},
22483                                   Parse::RecDescent::_tracefirst($text),
22484                                   q{_alternation_1_of_production_1_of_rule_window_order_clause},
22485                                   $tracelevel)
22486                                         if defined $::RD_TRACE;
22487                 if (1) { no strict qw{refs};
22488                 $expectation->is(q{})->at($text);
22489                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::sort_key_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
22490                 {
22491
22492                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [sort_key_expression]>>},
22493                                                   Parse::RecDescent::_tracefirst($text),
22494                                                   q{_alternation_1_of_production_1_of_rule_window_order_clause},
22495                                                   $tracelevel)
22496                                                         if defined $::RD_TRACE;
22497                         $expectation->failed();
22498                         last;
22499                 }
22500                 Parse::RecDescent::_trace(q{>>Matched subrule: [sort_key_expression]<< (return value: [}
22501                                         . $_tok . q{]},
22502
22503                                           Parse::RecDescent::_tracefirst($text),
22504                                           q{_alternation_1_of_production_1_of_rule_window_order_clause},
22505                                           $tracelevel)
22506                                                 if defined $::RD_TRACE;
22507                 $item{q{sort_key_expression}} = $_tok;
22508                 push @item, $_tok;
22509
22510                 }
22511
22512                 Parse::RecDescent::_trace(q{Trying repeated subrule: [asc_option, or desc_option]},
22513                                   Parse::RecDescent::_tracefirst($text),
22514                                   q{_alternation_1_of_production_1_of_rule_window_order_clause},
22515                                   $tracelevel)
22516                                         if defined $::RD_TRACE;
22517                 $expectation->is(q{asc_option, or desc_option})->at($text);
22518
22519                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause, 0, 1, $_noactions,$expectation,undef)))
22520                 {
22521                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [asc_option, or desc_option]>>},
22522                                                   Parse::RecDescent::_tracefirst($text),
22523                                                   q{_alternation_1_of_production_1_of_rule_window_order_clause},
22524                                                   $tracelevel)
22525                                                         if defined $::RD_TRACE;
22526                         last;
22527                 }
22528                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause]<< (}
22529                                         . @$_tok . q{ times)},
22530
22531                                           Parse::RecDescent::_tracefirst($text),
22532                                           q{_alternation_1_of_production_1_of_rule_window_order_clause},
22533                                           $tracelevel)
22534                                                 if defined $::RD_TRACE;
22535                 $item{q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause(?)}} = $_tok;
22536                 push @item, $_tok;
22537
22538
22539
22540
22541                 Parse::RecDescent::_trace(q{>>Matched production: [sort_key_expression asc_option, or desc_option]<<},
22542                                           Parse::RecDescent::_tracefirst($text),
22543                                           q{_alternation_1_of_production_1_of_rule_window_order_clause},
22544                                           $tracelevel)
22545                                                 if defined $::RD_TRACE;
22546                 $_matched = 1;
22547                 last;
22548         }
22549
22550
22551         unless ( $_matched || defined($return) || defined($score) )
22552         {
22553
22554
22555                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
22556                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
22557                                          Parse::RecDescent::_tracefirst($_[1]),
22558                                          q{_alternation_1_of_production_1_of_rule_window_order_clause},
22559                                          $tracelevel)
22560                                         if defined $::RD_TRACE;
22561                 return undef;
22562         }
22563         if (!defined($return) && defined($score))
22564         {
22565                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
22566                                           q{_alternation_1_of_production_1_of_rule_window_order_clause},
22567                                           $tracelevel)
22568                                                 if defined $::RD_TRACE;
22569                 $return = $score_return;
22570         }
22571         splice @{$thisparser->{errors}}, $err_at;
22572         $return = $item[$#item] unless defined $return;
22573         if (defined $::RD_TRACE)
22574         {
22575                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
22576                                           $return . q{])}, "",
22577                                           q{_alternation_1_of_production_1_of_rule_window_order_clause},
22578                                           $tracelevel);
22579                 Parse::RecDescent::_trace(q{(consumed: [} .
22580                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
22581                                           Parse::RecDescent::_tracefirst($text),
22582                                           , q{_alternation_1_of_production_1_of_rule_window_order_clause},
22583                                           $tracelevel)
22584         }
22585         $_[1] = $text;
22586         return $return;
22587 }
22588
22589 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
22590 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::create
22591 {
22592         my $thisparser = $_[0];
22593         use vars q{$tracelevel};
22594         local $tracelevel = ($tracelevel||0)+1;
22595         $ERRORS = 0;
22596         my $thisrule = $thisparser->{"rules"}{"create"};
22597
22598         Parse::RecDescent::_trace(q{Trying rule: [create]},
22599                                   Parse::RecDescent::_tracefirst($_[1]),
22600                                   q{create},
22601                                   $tracelevel)
22602                                         if defined $::RD_TRACE;
22603
22604
22605         my $err_at = @{$thisparser->{errors}};
22606
22607         my $score;
22608         my $score_return;
22609         my $_tok;
22610         my $return = undef;
22611         my $_matched=0;
22612         my $commit=0;
22613         my @item = ();
22614         my %item = ();
22615         my $repeating =  defined($_[2]) && $_[2];
22616         my $_noactions = defined($_[3]) && $_[3];
22617         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
22618         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
22619         my $text;
22620         my $lastsep="";
22621         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
22622         $expectation->at($_[1]);
22623
22624         my $thisline;
22625         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
22626
22627
22628
22629         while (!$_matched && !$commit)
22630         {
22631
22632                 Parse::RecDescent::_trace(q{Trying production: [CREATE TRIGGER trigger_name before type /ON/i table_name reference_b /FOR EACH ROW/i 'MODE DB2SQL' triggered_action]},
22633                                           Parse::RecDescent::_tracefirst($_[1]),
22634                                           q{create},
22635                                           $tracelevel)
22636                                                 if defined $::RD_TRACE;
22637                 my $thisprod = $thisrule->{"prods"}[0];
22638                 $text = $_[1];
22639                 my $_savetext;
22640                 @item = (q{create});
22641                 %item = (__RULE__ => q{create});
22642                 my $repcount = 0;
22643
22644
22645                 Parse::RecDescent::_trace(q{Trying subrule: [CREATE]},
22646                                   Parse::RecDescent::_tracefirst($text),
22647                                   q{create},
22648                                   $tracelevel)
22649                                         if defined $::RD_TRACE;
22650                 if (1) { no strict qw{refs};
22651                 $expectation->is(q{})->at($text);
22652                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::CREATE($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
22653                 {
22654
22655                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [CREATE]>>},
22656                                                   Parse::RecDescent::_tracefirst($text),
22657                                                   q{create},
22658                                                   $tracelevel)
22659                                                         if defined $::RD_TRACE;
22660                         $expectation->failed();
22661                         last;
22662                 }
22663                 Parse::RecDescent::_trace(q{>>Matched subrule: [CREATE]<< (return value: [}
22664                                         . $_tok . q{]},
22665
22666                                           Parse::RecDescent::_tracefirst($text),
22667                                           q{create},
22668                                           $tracelevel)
22669                                                 if defined $::RD_TRACE;
22670                 $item{q{CREATE}} = $_tok;
22671                 push @item, $_tok;
22672
22673                 }
22674
22675                 Parse::RecDescent::_trace(q{Trying subrule: [TRIGGER]},
22676                                   Parse::RecDescent::_tracefirst($text),
22677                                   q{create},
22678                                   $tracelevel)
22679                                         if defined $::RD_TRACE;
22680                 if (1) { no strict qw{refs};
22681                 $expectation->is(q{TRIGGER})->at($text);
22682                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::TRIGGER($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
22683                 {
22684
22685                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [TRIGGER]>>},
22686                                                   Parse::RecDescent::_tracefirst($text),
22687                                                   q{create},
22688                                                   $tracelevel)
22689                                                         if defined $::RD_TRACE;
22690                         $expectation->failed();
22691                         last;
22692                 }
22693                 Parse::RecDescent::_trace(q{>>Matched subrule: [TRIGGER]<< (return value: [}
22694                                         . $_tok . q{]},
22695
22696                                           Parse::RecDescent::_tracefirst($text),
22697                                           q{create},
22698                                           $tracelevel)
22699                                                 if defined $::RD_TRACE;
22700                 $item{q{TRIGGER}} = $_tok;
22701                 push @item, $_tok;
22702
22703                 }
22704
22705                 Parse::RecDescent::_trace(q{Trying subrule: [trigger_name]},
22706                                   Parse::RecDescent::_tracefirst($text),
22707                                   q{create},
22708                                   $tracelevel)
22709                                         if defined $::RD_TRACE;
22710                 if (1) { no strict qw{refs};
22711                 $expectation->is(q{trigger_name})->at($text);
22712                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::trigger_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
22713                 {
22714
22715                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [trigger_name]>>},
22716                                                   Parse::RecDescent::_tracefirst($text),
22717                                                   q{create},
22718                                                   $tracelevel)
22719                                                         if defined $::RD_TRACE;
22720                         $expectation->failed();
22721                         last;
22722                 }
22723                 Parse::RecDescent::_trace(q{>>Matched subrule: [trigger_name]<< (return value: [}
22724                                         . $_tok . q{]},
22725
22726                                           Parse::RecDescent::_tracefirst($text),
22727                                           q{create},
22728                                           $tracelevel)
22729                                                 if defined $::RD_TRACE;
22730                 $item{q{trigger_name}} = $_tok;
22731                 push @item, $_tok;
22732
22733                 }
22734
22735                 Parse::RecDescent::_trace(q{Trying subrule: [before]},
22736                                   Parse::RecDescent::_tracefirst($text),
22737                                   q{create},
22738                                   $tracelevel)
22739                                         if defined $::RD_TRACE;
22740                 if (1) { no strict qw{refs};
22741                 $expectation->is(q{before})->at($text);
22742                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::before($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
22743                 {
22744
22745                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [before]>>},
22746                                                   Parse::RecDescent::_tracefirst($text),
22747                                                   q{create},
22748                                                   $tracelevel)
22749                                                         if defined $::RD_TRACE;
22750                         $expectation->failed();
22751                         last;
22752                 }
22753                 Parse::RecDescent::_trace(q{>>Matched subrule: [before]<< (return value: [}
22754                                         . $_tok . q{]},
22755
22756                                           Parse::RecDescent::_tracefirst($text),
22757                                           q{create},
22758                                           $tracelevel)
22759                                                 if defined $::RD_TRACE;
22760                 $item{q{before}} = $_tok;
22761                 push @item, $_tok;
22762
22763                 }
22764
22765                 Parse::RecDescent::_trace(q{Trying subrule: [type]},
22766                                   Parse::RecDescent::_tracefirst($text),
22767                                   q{create},
22768                                   $tracelevel)
22769                                         if defined $::RD_TRACE;
22770                 if (1) { no strict qw{refs};
22771                 $expectation->is(q{type})->at($text);
22772                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::type($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
22773                 {
22774
22775                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [type]>>},
22776                                                   Parse::RecDescent::_tracefirst($text),
22777                                                   q{create},
22778                                                   $tracelevel)
22779                                                         if defined $::RD_TRACE;
22780                         $expectation->failed();
22781                         last;
22782                 }
22783                 Parse::RecDescent::_trace(q{>>Matched subrule: [type]<< (return value: [}
22784                                         . $_tok . q{]},
22785
22786                                           Parse::RecDescent::_tracefirst($text),
22787                                           q{create},
22788                                           $tracelevel)
22789                                                 if defined $::RD_TRACE;
22790                 $item{q{type}} = $_tok;
22791                 push @item, $_tok;
22792
22793                 }
22794
22795                 Parse::RecDescent::_trace(q{Trying terminal: [/ON/i]}, Parse::RecDescent::_tracefirst($text),
22796                                           q{create},
22797                                           $tracelevel)
22798                                                 if defined $::RD_TRACE;
22799                 $lastsep = "";
22800                 $expectation->is(q{/ON/i})->at($text);
22801
22802
22803                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ON)//i)
22804                 {
22805
22806                         $expectation->failed();
22807                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
22808                                                   Parse::RecDescent::_tracefirst($text))
22809                                         if defined $::RD_TRACE;
22810
22811                         last;
22812                 }
22813                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
22814                                                 . $& . q{])},
22815                                                   Parse::RecDescent::_tracefirst($text))
22816                                         if defined $::RD_TRACE;
22817                 push @item, $item{__PATTERN1__}=$&;
22818
22819
22820                 Parse::RecDescent::_trace(q{Trying subrule: [table_name]},
22821                                   Parse::RecDescent::_tracefirst($text),
22822                                   q{create},
22823                                   $tracelevel)
22824                                         if defined $::RD_TRACE;
22825                 if (1) { no strict qw{refs};
22826                 $expectation->is(q{table_name})->at($text);
22827                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::table_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
22828                 {
22829
22830                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [table_name]>>},
22831                                                   Parse::RecDescent::_tracefirst($text),
22832                                                   q{create},
22833                                                   $tracelevel)
22834                                                         if defined $::RD_TRACE;
22835                         $expectation->failed();
22836                         last;
22837                 }
22838                 Parse::RecDescent::_trace(q{>>Matched subrule: [table_name]<< (return value: [}
22839                                         . $_tok . q{]},
22840
22841                                           Parse::RecDescent::_tracefirst($text),
22842                                           q{create},
22843                                           $tracelevel)
22844                                                 if defined $::RD_TRACE;
22845                 $item{q{table_name}} = $_tok;
22846                 push @item, $_tok;
22847
22848                 }
22849
22850                 Parse::RecDescent::_trace(q{Trying repeated subrule: [reference_b]},
22851                                   Parse::RecDescent::_tracefirst($text),
22852                                   q{create},
22853                                   $tracelevel)
22854                                         if defined $::RD_TRACE;
22855                 $expectation->is(q{reference_b})->at($text);
22856
22857                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::reference_b, 0, 1, $_noactions,$expectation,undef)))
22858                 {
22859                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [reference_b]>>},
22860                                                   Parse::RecDescent::_tracefirst($text),
22861                                                   q{create},
22862                                                   $tracelevel)
22863                                                         if defined $::RD_TRACE;
22864                         last;
22865                 }
22866                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [reference_b]<< (}
22867                                         . @$_tok . q{ times)},
22868
22869                                           Parse::RecDescent::_tracefirst($text),
22870                                           q{create},
22871                                           $tracelevel)
22872                                                 if defined $::RD_TRACE;
22873                 $item{q{reference_b(?)}} = $_tok;
22874                 push @item, $_tok;
22875
22876
22877
22878                 Parse::RecDescent::_trace(q{Trying terminal: [/FOR EACH ROW/i]}, Parse::RecDescent::_tracefirst($text),
22879                                           q{create},
22880                                           $tracelevel)
22881                                                 if defined $::RD_TRACE;
22882                 $lastsep = "";
22883                 $expectation->is(q{/FOR EACH ROW/i})->at($text);
22884
22885
22886                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:FOR EACH ROW)//i)
22887                 {
22888
22889                         $expectation->failed();
22890                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
22891                                                   Parse::RecDescent::_tracefirst($text))
22892                                         if defined $::RD_TRACE;
22893
22894                         last;
22895                 }
22896                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
22897                                                 . $& . q{])},
22898                                                   Parse::RecDescent::_tracefirst($text))
22899                                         if defined $::RD_TRACE;
22900                 push @item, $item{__PATTERN2__}=$&;
22901
22902
22903                 Parse::RecDescent::_trace(q{Trying terminal: ['MODE DB2SQL']},
22904                                           Parse::RecDescent::_tracefirst($text),
22905                                           q{create},
22906                                           $tracelevel)
22907                                                 if defined $::RD_TRACE;
22908                 $lastsep = "";
22909                 $expectation->is(q{'MODE DB2SQL'})->at($text);
22910
22911
22912                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\AMODE\ DB2SQL//)
22913                 {
22914
22915                         $expectation->failed();
22916                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
22917                                                   Parse::RecDescent::_tracefirst($text))
22918                                                         if defined $::RD_TRACE;
22919                         last;
22920                 }
22921                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
22922                                                 . $& . q{])},
22923                                                   Parse::RecDescent::_tracefirst($text))
22924                                                         if defined $::RD_TRACE;
22925                 push @item, $item{__STRING1__}=$&;
22926
22927
22928                 Parse::RecDescent::_trace(q{Trying subrule: [triggered_action]},
22929                                   Parse::RecDescent::_tracefirst($text),
22930                                   q{create},
22931                                   $tracelevel)
22932                                         if defined $::RD_TRACE;
22933                 if (1) { no strict qw{refs};
22934                 $expectation->is(q{triggered_action})->at($text);
22935                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::triggered_action($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
22936                 {
22937
22938                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [triggered_action]>>},
22939                                                   Parse::RecDescent::_tracefirst($text),
22940                                                   q{create},
22941                                                   $tracelevel)
22942                                                         if defined $::RD_TRACE;
22943                         $expectation->failed();
22944                         last;
22945                 }
22946                 Parse::RecDescent::_trace(q{>>Matched subrule: [triggered_action]<< (return value: [}
22947                                         . $_tok . q{]},
22948
22949                                           Parse::RecDescent::_tracefirst($text),
22950                                           q{create},
22951                                           $tracelevel)
22952                                                 if defined $::RD_TRACE;
22953                 $item{q{triggered_action}} = $_tok;
22954                 push @item, $_tok;
22955
22956                 }
22957
22958                 Parse::RecDescent::_trace(q{Trying action},
22959                                           Parse::RecDescent::_tracefirst($text),
22960                                           q{create},
22961                                           $tracelevel)
22962                                                 if defined $::RD_TRACE;
22963
22964
22965                 $_tok = ($_noactions) ? 0 : do {
22966     my $table_name = $item{'table_name'}{'name'};
22967     $return =  {
22968         table      => $table_name,
22969         schema     => $item{'trigger_name'}{'schema'},
22970         name       => $item{'trigger_name'}{'name'},
22971         when       => 'before',
22972         db_event   => $item{'type'}->{'event'},
22973         fields     => $item{'type'}{'fields'},
22974         condition  => $item{'triggered_action'}{'condition'},
22975         reference  => $item{'reference_b'},
22976         granularity => $item[9],
22977         action     => $item{'triggered_action'}{'statement'}
22978     };
22979
22980     push @triggers, $return;
22981 };
22982                 unless (defined $_tok)
22983                 {
22984                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
22985                                         if defined $::RD_TRACE;
22986                         last;
22987                 }
22988                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
22989                                           . $_tok . q{])},
22990                                           Parse::RecDescent::_tracefirst($text))
22991                                                 if defined $::RD_TRACE;
22992                 push @item, $_tok;
22993                 $item{__ACTION1__}=$_tok;
22994
22995
22996
22997                 Parse::RecDescent::_trace(q{>>Matched production: [CREATE TRIGGER trigger_name before type /ON/i table_name reference_b /FOR EACH ROW/i 'MODE DB2SQL' triggered_action]<<},
22998                                           Parse::RecDescent::_tracefirst($text),
22999                                           q{create},
23000                                           $tracelevel)
23001                                                 if defined $::RD_TRACE;
23002                 $_matched = 1;
23003                 last;
23004         }
23005
23006
23007         while (!$_matched && !$commit)
23008         {
23009
23010                 Parse::RecDescent::_trace(q{Trying production: [CREATE TRIGGER trigger_name after type /ON/i table_name reference_a /FOR EACH ROW|FOR EACH STATEMENT/i 'MODE DB2SQL' triggered_action]},
23011                                           Parse::RecDescent::_tracefirst($_[1]),
23012                                           q{create},
23013                                           $tracelevel)
23014                                                 if defined $::RD_TRACE;
23015                 my $thisprod = $thisrule->{"prods"}[1];
23016                 $text = $_[1];
23017                 my $_savetext;
23018                 @item = (q{create});
23019                 %item = (__RULE__ => q{create});
23020                 my $repcount = 0;
23021
23022
23023                 Parse::RecDescent::_trace(q{Trying subrule: [CREATE]},
23024                                   Parse::RecDescent::_tracefirst($text),
23025                                   q{create},
23026                                   $tracelevel)
23027                                         if defined $::RD_TRACE;
23028                 if (1) { no strict qw{refs};
23029                 $expectation->is(q{})->at($text);
23030                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::CREATE($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
23031                 {
23032
23033                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [CREATE]>>},
23034                                                   Parse::RecDescent::_tracefirst($text),
23035                                                   q{create},
23036                                                   $tracelevel)
23037                                                         if defined $::RD_TRACE;
23038                         $expectation->failed();
23039                         last;
23040                 }
23041                 Parse::RecDescent::_trace(q{>>Matched subrule: [CREATE]<< (return value: [}
23042                                         . $_tok . q{]},
23043
23044                                           Parse::RecDescent::_tracefirst($text),
23045                                           q{create},
23046                                           $tracelevel)
23047                                                 if defined $::RD_TRACE;
23048                 $item{q{CREATE}} = $_tok;
23049                 push @item, $_tok;
23050
23051                 }
23052
23053                 Parse::RecDescent::_trace(q{Trying subrule: [TRIGGER]},
23054                                   Parse::RecDescent::_tracefirst($text),
23055                                   q{create},
23056                                   $tracelevel)
23057                                         if defined $::RD_TRACE;
23058                 if (1) { no strict qw{refs};
23059                 $expectation->is(q{TRIGGER})->at($text);
23060                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::TRIGGER($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
23061                 {
23062
23063                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [TRIGGER]>>},
23064                                                   Parse::RecDescent::_tracefirst($text),
23065                                                   q{create},
23066                                                   $tracelevel)
23067                                                         if defined $::RD_TRACE;
23068                         $expectation->failed();
23069                         last;
23070                 }
23071                 Parse::RecDescent::_trace(q{>>Matched subrule: [TRIGGER]<< (return value: [}
23072                                         . $_tok . q{]},
23073
23074                                           Parse::RecDescent::_tracefirst($text),
23075                                           q{create},
23076                                           $tracelevel)
23077                                                 if defined $::RD_TRACE;
23078                 $item{q{TRIGGER}} = $_tok;
23079                 push @item, $_tok;
23080
23081                 }
23082
23083                 Parse::RecDescent::_trace(q{Trying subrule: [trigger_name]},
23084                                   Parse::RecDescent::_tracefirst($text),
23085                                   q{create},
23086                                   $tracelevel)
23087                                         if defined $::RD_TRACE;
23088                 if (1) { no strict qw{refs};
23089                 $expectation->is(q{trigger_name})->at($text);
23090                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::trigger_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
23091                 {
23092
23093                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [trigger_name]>>},
23094                                                   Parse::RecDescent::_tracefirst($text),
23095                                                   q{create},
23096                                                   $tracelevel)
23097                                                         if defined $::RD_TRACE;
23098                         $expectation->failed();
23099                         last;
23100                 }
23101                 Parse::RecDescent::_trace(q{>>Matched subrule: [trigger_name]<< (return value: [}
23102                                         . $_tok . q{]},
23103
23104                                           Parse::RecDescent::_tracefirst($text),
23105                                           q{create},
23106                                           $tracelevel)
23107                                                 if defined $::RD_TRACE;
23108                 $item{q{trigger_name}} = $_tok;
23109                 push @item, $_tok;
23110
23111                 }
23112
23113                 Parse::RecDescent::_trace(q{Trying subrule: [after]},
23114                                   Parse::RecDescent::_tracefirst($text),
23115                                   q{create},
23116                                   $tracelevel)
23117                                         if defined $::RD_TRACE;
23118                 if (1) { no strict qw{refs};
23119                 $expectation->is(q{after})->at($text);
23120                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::after($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
23121                 {
23122
23123                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [after]>>},
23124                                                   Parse::RecDescent::_tracefirst($text),
23125                                                   q{create},
23126                                                   $tracelevel)
23127                                                         if defined $::RD_TRACE;
23128                         $expectation->failed();
23129                         last;
23130                 }
23131                 Parse::RecDescent::_trace(q{>>Matched subrule: [after]<< (return value: [}
23132                                         . $_tok . q{]},
23133
23134                                           Parse::RecDescent::_tracefirst($text),
23135                                           q{create},
23136                                           $tracelevel)
23137                                                 if defined $::RD_TRACE;
23138                 $item{q{after}} = $_tok;
23139                 push @item, $_tok;
23140
23141                 }
23142
23143                 Parse::RecDescent::_trace(q{Trying subrule: [type]},
23144                                   Parse::RecDescent::_tracefirst($text),
23145                                   q{create},
23146                                   $tracelevel)
23147                                         if defined $::RD_TRACE;
23148                 if (1) { no strict qw{refs};
23149                 $expectation->is(q{type})->at($text);
23150                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::type($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
23151                 {
23152
23153                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [type]>>},
23154                                                   Parse::RecDescent::_tracefirst($text),
23155                                                   q{create},
23156                                                   $tracelevel)
23157                                                         if defined $::RD_TRACE;
23158                         $expectation->failed();
23159                         last;
23160                 }
23161                 Parse::RecDescent::_trace(q{>>Matched subrule: [type]<< (return value: [}
23162                                         . $_tok . q{]},
23163
23164                                           Parse::RecDescent::_tracefirst($text),
23165                                           q{create},
23166                                           $tracelevel)
23167                                                 if defined $::RD_TRACE;
23168                 $item{q{type}} = $_tok;
23169                 push @item, $_tok;
23170
23171                 }
23172
23173                 Parse::RecDescent::_trace(q{Trying terminal: [/ON/i]}, Parse::RecDescent::_tracefirst($text),
23174                                           q{create},
23175                                           $tracelevel)
23176                                                 if defined $::RD_TRACE;
23177                 $lastsep = "";
23178                 $expectation->is(q{/ON/i})->at($text);
23179
23180
23181                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ON)//i)
23182                 {
23183
23184                         $expectation->failed();
23185                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
23186                                                   Parse::RecDescent::_tracefirst($text))
23187                                         if defined $::RD_TRACE;
23188
23189                         last;
23190                 }
23191                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
23192                                                 . $& . q{])},
23193                                                   Parse::RecDescent::_tracefirst($text))
23194                                         if defined $::RD_TRACE;
23195                 push @item, $item{__PATTERN1__}=$&;
23196
23197
23198                 Parse::RecDescent::_trace(q{Trying subrule: [table_name]},
23199                                   Parse::RecDescent::_tracefirst($text),
23200                                   q{create},
23201                                   $tracelevel)
23202                                         if defined $::RD_TRACE;
23203                 if (1) { no strict qw{refs};
23204                 $expectation->is(q{table_name})->at($text);
23205                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::table_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
23206                 {
23207
23208                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [table_name]>>},
23209                                                   Parse::RecDescent::_tracefirst($text),
23210                                                   q{create},
23211                                                   $tracelevel)
23212                                                         if defined $::RD_TRACE;
23213                         $expectation->failed();
23214                         last;
23215                 }
23216                 Parse::RecDescent::_trace(q{>>Matched subrule: [table_name]<< (return value: [}
23217                                         . $_tok . q{]},
23218
23219                                           Parse::RecDescent::_tracefirst($text),
23220                                           q{create},
23221                                           $tracelevel)
23222                                                 if defined $::RD_TRACE;
23223                 $item{q{table_name}} = $_tok;
23224                 push @item, $_tok;
23225
23226                 }
23227
23228                 Parse::RecDescent::_trace(q{Trying repeated subrule: [reference_a]},
23229                                   Parse::RecDescent::_tracefirst($text),
23230                                   q{create},
23231                                   $tracelevel)
23232                                         if defined $::RD_TRACE;
23233                 $expectation->is(q{reference_a})->at($text);
23234
23235                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::reference_a, 0, 1, $_noactions,$expectation,undef)))
23236                 {
23237                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [reference_a]>>},
23238                                                   Parse::RecDescent::_tracefirst($text),
23239                                                   q{create},
23240                                                   $tracelevel)
23241                                                         if defined $::RD_TRACE;
23242                         last;
23243                 }
23244                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [reference_a]<< (}
23245                                         . @$_tok . q{ times)},
23246
23247                                           Parse::RecDescent::_tracefirst($text),
23248                                           q{create},
23249                                           $tracelevel)
23250                                                 if defined $::RD_TRACE;
23251                 $item{q{reference_a(?)}} = $_tok;
23252                 push @item, $_tok;
23253
23254
23255
23256                 Parse::RecDescent::_trace(q{Trying terminal: [/FOR EACH ROW|FOR EACH STATEMENT/i]}, Parse::RecDescent::_tracefirst($text),
23257                                           q{create},
23258                                           $tracelevel)
23259                                                 if defined $::RD_TRACE;
23260                 $lastsep = "";
23261                 $expectation->is(q{/FOR EACH ROW|FOR EACH STATEMENT/i})->at($text);
23262
23263
23264                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:FOR EACH ROW|FOR EACH STATEMENT)//i)
23265                 {
23266
23267                         $expectation->failed();
23268                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
23269                                                   Parse::RecDescent::_tracefirst($text))
23270                                         if defined $::RD_TRACE;
23271
23272                         last;
23273                 }
23274                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
23275                                                 . $& . q{])},
23276                                                   Parse::RecDescent::_tracefirst($text))
23277                                         if defined $::RD_TRACE;
23278                 push @item, $item{__PATTERN2__}=$&;
23279
23280
23281                 Parse::RecDescent::_trace(q{Trying terminal: ['MODE DB2SQL']},
23282                                           Parse::RecDescent::_tracefirst($text),
23283                                           q{create},
23284                                           $tracelevel)
23285                                                 if defined $::RD_TRACE;
23286                 $lastsep = "";
23287                 $expectation->is(q{'MODE DB2SQL'})->at($text);
23288
23289
23290                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\AMODE\ DB2SQL//)
23291                 {
23292
23293                         $expectation->failed();
23294                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
23295                                                   Parse::RecDescent::_tracefirst($text))
23296                                                         if defined $::RD_TRACE;
23297                         last;
23298                 }
23299                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
23300                                                 . $& . q{])},
23301                                                   Parse::RecDescent::_tracefirst($text))
23302                                                         if defined $::RD_TRACE;
23303                 push @item, $item{__STRING1__}=$&;
23304
23305
23306                 Parse::RecDescent::_trace(q{Trying subrule: [triggered_action]},
23307                                   Parse::RecDescent::_tracefirst($text),
23308                                   q{create},
23309                                   $tracelevel)
23310                                         if defined $::RD_TRACE;
23311                 if (1) { no strict qw{refs};
23312                 $expectation->is(q{triggered_action})->at($text);
23313                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::triggered_action($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
23314                 {
23315
23316                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [triggered_action]>>},
23317                                                   Parse::RecDescent::_tracefirst($text),
23318                                                   q{create},
23319                                                   $tracelevel)
23320                                                         if defined $::RD_TRACE;
23321                         $expectation->failed();
23322                         last;
23323                 }
23324                 Parse::RecDescent::_trace(q{>>Matched subrule: [triggered_action]<< (return value: [}
23325                                         . $_tok . q{]},
23326
23327                                           Parse::RecDescent::_tracefirst($text),
23328                                           q{create},
23329                                           $tracelevel)
23330                                                 if defined $::RD_TRACE;
23331                 $item{q{triggered_action}} = $_tok;
23332                 push @item, $_tok;
23333
23334                 }
23335
23336                 Parse::RecDescent::_trace(q{Trying action},
23337                                           Parse::RecDescent::_tracefirst($text),
23338                                           q{create},
23339                                           $tracelevel)
23340                                                 if defined $::RD_TRACE;
23341
23342
23343                 $_tok = ($_noactions) ? 0 : do {
23344     my $table_name = $item{'table_name'}{'name'};
23345     $return = {
23346         table      => $table_name,
23347         schema     => $item{'trigger_name'}{'schema'},
23348         name       => $item{'trigger_name'}{'name'},
23349         when       => 'after',
23350         db_event   => $item{'type'}{'event'},
23351         fields     => $item{'type'}{'fields'},
23352         condition  => $item{'triggered_action'}{'condition'},
23353         reference  => $item{'reference_a'},
23354         granularity => $item[9],
23355         action     => $item{'triggered_action'}{'statement'}
23356     };
23357
23358     push @triggers, $return;
23359 };
23360                 unless (defined $_tok)
23361                 {
23362                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
23363                                         if defined $::RD_TRACE;
23364                         last;
23365                 }
23366                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
23367                                           . $_tok . q{])},
23368                                           Parse::RecDescent::_tracefirst($text))
23369                                                 if defined $::RD_TRACE;
23370                 push @item, $_tok;
23371                 $item{__ACTION1__}=$_tok;
23372
23373
23374
23375                 Parse::RecDescent::_trace(q{>>Matched production: [CREATE TRIGGER trigger_name after type /ON/i table_name reference_a /FOR EACH ROW|FOR EACH STATEMENT/i 'MODE DB2SQL' triggered_action]<<},
23376                                           Parse::RecDescent::_tracefirst($text),
23377                                           q{create},
23378                                           $tracelevel)
23379                                                 if defined $::RD_TRACE;
23380                 $_matched = 1;
23381                 last;
23382         }
23383
23384
23385         while (!$_matched && !$commit)
23386         {
23387
23388                 Parse::RecDescent::_trace(q{Trying production: [CREATE /FEDERATED|/i VIEW view_name column_list /AS/i with_expression SQL_procedure_statement]},
23389                                           Parse::RecDescent::_tracefirst($_[1]),
23390                                           q{create},
23391                                           $tracelevel)
23392                                                 if defined $::RD_TRACE;
23393                 my $thisprod = $thisrule->{"prods"}[2];
23394                 $text = $_[1];
23395                 my $_savetext;
23396                 @item = (q{create});
23397                 %item = (__RULE__ => q{create});
23398                 my $repcount = 0;
23399
23400
23401                 Parse::RecDescent::_trace(q{Trying subrule: [CREATE]},
23402                                   Parse::RecDescent::_tracefirst($text),
23403                                   q{create},
23404                                   $tracelevel)
23405                                         if defined $::RD_TRACE;
23406                 if (1) { no strict qw{refs};
23407                 $expectation->is(q{})->at($text);
23408                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::CREATE($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
23409                 {
23410
23411                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [CREATE]>>},
23412                                                   Parse::RecDescent::_tracefirst($text),
23413                                                   q{create},
23414                                                   $tracelevel)
23415                                                         if defined $::RD_TRACE;
23416                         $expectation->failed();
23417                         last;
23418                 }
23419                 Parse::RecDescent::_trace(q{>>Matched subrule: [CREATE]<< (return value: [}
23420                                         . $_tok . q{]},
23421
23422                                           Parse::RecDescent::_tracefirst($text),
23423                                           q{create},
23424                                           $tracelevel)
23425                                                 if defined $::RD_TRACE;
23426                 $item{q{CREATE}} = $_tok;
23427                 push @item, $_tok;
23428
23429                 }
23430
23431                 Parse::RecDescent::_trace(q{Trying terminal: [/FEDERATED|/i]}, Parse::RecDescent::_tracefirst($text),
23432                                           q{create},
23433                                           $tracelevel)
23434                                                 if defined $::RD_TRACE;
23435                 $lastsep = "";
23436                 $expectation->is(q{/FEDERATED|/i})->at($text);
23437
23438
23439                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:FEDERATED|)//i)
23440                 {
23441
23442                         $expectation->failed();
23443                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
23444                                                   Parse::RecDescent::_tracefirst($text))
23445                                         if defined $::RD_TRACE;
23446
23447                         last;
23448                 }
23449                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
23450                                                 . $& . q{])},
23451                                                   Parse::RecDescent::_tracefirst($text))
23452                                         if defined $::RD_TRACE;
23453                 push @item, $item{__PATTERN1__}=$&;
23454
23455
23456                 Parse::RecDescent::_trace(q{Trying subrule: [VIEW]},
23457                                   Parse::RecDescent::_tracefirst($text),
23458                                   q{create},
23459                                   $tracelevel)
23460                                         if defined $::RD_TRACE;
23461                 if (1) { no strict qw{refs};
23462                 $expectation->is(q{VIEW})->at($text);
23463                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::VIEW($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
23464                 {
23465
23466                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [VIEW]>>},
23467                                                   Parse::RecDescent::_tracefirst($text),
23468                                                   q{create},
23469                                                   $tracelevel)
23470                                                         if defined $::RD_TRACE;
23471                         $expectation->failed();
23472                         last;
23473                 }
23474                 Parse::RecDescent::_trace(q{>>Matched subrule: [VIEW]<< (return value: [}
23475                                         . $_tok . q{]},
23476
23477                                           Parse::RecDescent::_tracefirst($text),
23478                                           q{create},
23479                                           $tracelevel)
23480                                                 if defined $::RD_TRACE;
23481                 $item{q{VIEW}} = $_tok;
23482                 push @item, $_tok;
23483
23484                 }
23485
23486                 Parse::RecDescent::_trace(q{Trying subrule: [view_name]},
23487                                   Parse::RecDescent::_tracefirst($text),
23488                                   q{create},
23489                                   $tracelevel)
23490                                         if defined $::RD_TRACE;
23491                 if (1) { no strict qw{refs};
23492                 $expectation->is(q{view_name})->at($text);
23493                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::view_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
23494                 {
23495
23496                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [view_name]>>},
23497                                                   Parse::RecDescent::_tracefirst($text),
23498                                                   q{create},
23499                                                   $tracelevel)
23500                                                         if defined $::RD_TRACE;
23501                         $expectation->failed();
23502                         last;
23503                 }
23504                 Parse::RecDescent::_trace(q{>>Matched subrule: [view_name]<< (return value: [}
23505                                         . $_tok . q{]},
23506
23507                                           Parse::RecDescent::_tracefirst($text),
23508                                           q{create},
23509                                           $tracelevel)
23510                                                 if defined $::RD_TRACE;
23511                 $item{q{view_name}} = $_tok;
23512                 push @item, $_tok;
23513
23514                 }
23515
23516                 Parse::RecDescent::_trace(q{Trying repeated subrule: [column_list]},
23517                                   Parse::RecDescent::_tracefirst($text),
23518                                   q{create},
23519                                   $tracelevel)
23520                                         if defined $::RD_TRACE;
23521                 $expectation->is(q{column_list})->at($text);
23522
23523                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::column_list, 0, 1, $_noactions,$expectation,undef)))
23524                 {
23525                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [column_list]>>},
23526                                                   Parse::RecDescent::_tracefirst($text),
23527                                                   q{create},
23528                                                   $tracelevel)
23529                                                         if defined $::RD_TRACE;
23530                         last;
23531                 }
23532                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [column_list]<< (}
23533                                         . @$_tok . q{ times)},
23534
23535                                           Parse::RecDescent::_tracefirst($text),
23536                                           q{create},
23537                                           $tracelevel)
23538                                                 if defined $::RD_TRACE;
23539                 $item{q{column_list(?)}} = $_tok;
23540                 push @item, $_tok;
23541
23542
23543
23544                 Parse::RecDescent::_trace(q{Trying terminal: [/AS/i]}, Parse::RecDescent::_tracefirst($text),
23545                                           q{create},
23546                                           $tracelevel)
23547                                                 if defined $::RD_TRACE;
23548                 $lastsep = "";
23549                 $expectation->is(q{/AS/i})->at($text);
23550
23551
23552                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:AS)//i)
23553                 {
23554
23555                         $expectation->failed();
23556                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
23557                                                   Parse::RecDescent::_tracefirst($text))
23558                                         if defined $::RD_TRACE;
23559
23560                         last;
23561                 }
23562                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
23563                                                 . $& . q{])},
23564                                                   Parse::RecDescent::_tracefirst($text))
23565                                         if defined $::RD_TRACE;
23566                 push @item, $item{__PATTERN2__}=$&;
23567
23568
23569                 Parse::RecDescent::_trace(q{Trying repeated subrule: [with_expression]},
23570                                   Parse::RecDescent::_tracefirst($text),
23571                                   q{create},
23572                                   $tracelevel)
23573                                         if defined $::RD_TRACE;
23574                 $expectation->is(q{with_expression})->at($text);
23575
23576                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::with_expression, 0, 1, $_noactions,$expectation,undef)))
23577                 {
23578                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [with_expression]>>},
23579                                                   Parse::RecDescent::_tracefirst($text),
23580                                                   q{create},
23581                                                   $tracelevel)
23582                                                         if defined $::RD_TRACE;
23583                         last;
23584                 }
23585                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [with_expression]<< (}
23586                                         . @$_tok . q{ times)},
23587
23588                                           Parse::RecDescent::_tracefirst($text),
23589                                           q{create},
23590                                           $tracelevel)
23591                                                 if defined $::RD_TRACE;
23592                 $item{q{with_expression(?)}} = $_tok;
23593                 push @item, $_tok;
23594
23595
23596
23597                 Parse::RecDescent::_trace(q{Trying subrule: [SQL_procedure_statement]},
23598                                   Parse::RecDescent::_tracefirst($text),
23599                                   q{create},
23600                                   $tracelevel)
23601                                         if defined $::RD_TRACE;
23602                 if (1) { no strict qw{refs};
23603                 $expectation->is(q{SQL_procedure_statement})->at($text);
23604                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::SQL_procedure_statement($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
23605                 {
23606
23607                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [SQL_procedure_statement]>>},
23608                                                   Parse::RecDescent::_tracefirst($text),
23609                                                   q{create},
23610                                                   $tracelevel)
23611                                                         if defined $::RD_TRACE;
23612                         $expectation->failed();
23613                         last;
23614                 }
23615                 Parse::RecDescent::_trace(q{>>Matched subrule: [SQL_procedure_statement]<< (return value: [}
23616                                         . $_tok . q{]},
23617
23618                                           Parse::RecDescent::_tracefirst($text),
23619                                           q{create},
23620                                           $tracelevel)
23621                                                 if defined $::RD_TRACE;
23622                 $item{q{SQL_procedure_statement}} = $_tok;
23623                 push @item, $_tok;
23624
23625                 }
23626
23627                 Parse::RecDescent::_trace(q{Trying action},
23628                                           Parse::RecDescent::_tracefirst($text),
23629                                           q{create},
23630                                           $tracelevel)
23631                                                 if defined $::RD_TRACE;
23632
23633
23634                 $_tok = ($_noactions) ? 0 : do {
23635     $return = {
23636         name   => $item{view_name}{name},
23637         sql    => $item{SQL_procedure_statement},
23638         with   => $item{'with_expression(?)'},
23639         fields => $item{'column_list(?)'}
23640     };
23641     push @views, $return;
23642 };
23643                 unless (defined $_tok)
23644                 {
23645                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
23646                                         if defined $::RD_TRACE;
23647                         last;
23648                 }
23649                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
23650                                           . $_tok . q{])},
23651                                           Parse::RecDescent::_tracefirst($text))
23652                                                 if defined $::RD_TRACE;
23653                 push @item, $_tok;
23654                 $item{__ACTION1__}=$_tok;
23655
23656
23657
23658                 Parse::RecDescent::_trace(q{>>Matched production: [CREATE /FEDERATED|/i VIEW view_name column_list /AS/i with_expression SQL_procedure_statement]<<},
23659                                           Parse::RecDescent::_tracefirst($text),
23660                                           q{create},
23661                                           $tracelevel)
23662                                                 if defined $::RD_TRACE;
23663                 $_matched = 1;
23664                 last;
23665         }
23666
23667
23668         unless ( $_matched || defined($return) || defined($score) )
23669         {
23670
23671
23672                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
23673                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
23674                                          Parse::RecDescent::_tracefirst($_[1]),
23675                                          q{create},
23676                                          $tracelevel)
23677                                         if defined $::RD_TRACE;
23678                 return undef;
23679         }
23680         if (!defined($return) && defined($score))
23681         {
23682                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
23683                                           q{create},
23684                                           $tracelevel)
23685                                                 if defined $::RD_TRACE;
23686                 $return = $score_return;
23687         }
23688         splice @{$thisparser->{errors}}, $err_at;
23689         $return = $item[$#item] unless defined $return;
23690         if (defined $::RD_TRACE)
23691         {
23692                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
23693                                           $return . q{])}, "",
23694                                           q{create},
23695                                           $tracelevel);
23696                 Parse::RecDescent::_trace(q{(consumed: [} .
23697                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
23698                                           Parse::RecDescent::_tracefirst($text),
23699                                           , q{create},
23700                                           $tracelevel)
23701         }
23702         $_[1] = $text;
23703         return $return;
23704 }
23705
23706 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
23707 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::sysfun
23708 {
23709         my $thisparser = $_[0];
23710         use vars q{$tracelevel};
23711         local $tracelevel = ($tracelevel||0)+1;
23712         $ERRORS = 0;
23713         my $thisrule = $thisparser->{"rules"}{"sysfun"};
23714
23715         Parse::RecDescent::_trace(q{Trying rule: [sysfun]},
23716                                   Parse::RecDescent::_tracefirst($_[1]),
23717                                   q{sysfun},
23718                                   $tracelevel)
23719                                         if defined $::RD_TRACE;
23720
23721
23722         my $err_at = @{$thisparser->{errors}};
23723
23724         my $score;
23725         my $score_return;
23726         my $_tok;
23727         my $return = undef;
23728         my $_matched=0;
23729         my $commit=0;
23730         my @item = ();
23731         my %item = ();
23732         my $repeating =  defined($_[2]) && $_[2];
23733         my $_noactions = defined($_[3]) && $_[3];
23734         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
23735         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
23736         my $text;
23737         my $lastsep="";
23738         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
23739         $expectation->at($_[1]);
23740
23741         my $thisline;
23742         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
23743
23744
23745
23746         while (!$_matched && !$commit)
23747         {
23748
23749                 Parse::RecDescent::_trace(q{Trying production: [/ABS/i, or /ABSVAL/i]},
23750                                           Parse::RecDescent::_tracefirst($_[1]),
23751                                           q{sysfun},
23752                                           $tracelevel)
23753                                                 if defined $::RD_TRACE;
23754                 my $thisprod = $thisrule->{"prods"}[0];
23755                 $text = $_[1];
23756                 my $_savetext;
23757                 @item = (q{sysfun});
23758                 %item = (__RULE__ => q{sysfun});
23759                 my $repcount = 0;
23760
23761
23762                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule_sysfun]},
23763                                   Parse::RecDescent::_tracefirst($text),
23764                                   q{sysfun},
23765                                   $tracelevel)
23766                                         if defined $::RD_TRACE;
23767                 if (1) { no strict qw{refs};
23768                 $expectation->is(q{})->at($text);
23769                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_sysfun($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
23770                 {
23771
23772                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule_sysfun]>>},
23773                                                   Parse::RecDescent::_tracefirst($text),
23774                                                   q{sysfun},
23775                                                   $tracelevel)
23776                                                         if defined $::RD_TRACE;
23777                         $expectation->failed();
23778                         last;
23779                 }
23780                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule_sysfun]<< (return value: [}
23781                                         . $_tok . q{]},
23782
23783                                           Parse::RecDescent::_tracefirst($text),
23784                                           q{sysfun},
23785                                           $tracelevel)
23786                                                 if defined $::RD_TRACE;
23787                 $item{q{_alternation_1_of_production_1_of_rule_sysfun}} = $_tok;
23788                 push @item, $_tok;
23789
23790                 }
23791
23792
23793                 Parse::RecDescent::_trace(q{>>Matched production: [/ABS/i, or /ABSVAL/i]<<},
23794                                           Parse::RecDescent::_tracefirst($text),
23795                                           q{sysfun},
23796                                           $tracelevel)
23797                                                 if defined $::RD_TRACE;
23798                 $_matched = 1;
23799                 last;
23800         }
23801
23802
23803         while (!$_matched && !$commit)
23804         {
23805
23806                 Parse::RecDescent::_trace(q{Trying production: [/ACOS/i]},
23807                                           Parse::RecDescent::_tracefirst($_[1]),
23808                                           q{sysfun},
23809                                           $tracelevel)
23810                                                 if defined $::RD_TRACE;
23811                 my $thisprod = $thisrule->{"prods"}[1];
23812                 $text = $_[1];
23813                 my $_savetext;
23814                 @item = (q{sysfun});
23815                 %item = (__RULE__ => q{sysfun});
23816                 my $repcount = 0;
23817
23818
23819                 Parse::RecDescent::_trace(q{Trying terminal: [/ACOS/i]}, Parse::RecDescent::_tracefirst($text),
23820                                           q{sysfun},
23821                                           $tracelevel)
23822                                                 if defined $::RD_TRACE;
23823                 $lastsep = "";
23824                 $expectation->is(q{})->at($text);
23825
23826
23827                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ACOS)//i)
23828                 {
23829
23830                         $expectation->failed();
23831                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
23832                                                   Parse::RecDescent::_tracefirst($text))
23833                                         if defined $::RD_TRACE;
23834
23835                         last;
23836                 }
23837                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
23838                                                 . $& . q{])},
23839                                                   Parse::RecDescent::_tracefirst($text))
23840                                         if defined $::RD_TRACE;
23841                 push @item, $item{__PATTERN1__}=$&;
23842
23843
23844
23845                 Parse::RecDescent::_trace(q{>>Matched production: [/ACOS/i]<<},
23846                                           Parse::RecDescent::_tracefirst($text),
23847                                           q{sysfun},
23848                                           $tracelevel)
23849                                                 if defined $::RD_TRACE;
23850                 $_matched = 1;
23851                 last;
23852         }
23853
23854
23855         while (!$_matched && !$commit)
23856         {
23857
23858                 Parse::RecDescent::_trace(q{Trying production: [/ASCII/i]},
23859                                           Parse::RecDescent::_tracefirst($_[1]),
23860                                           q{sysfun},
23861                                           $tracelevel)
23862                                                 if defined $::RD_TRACE;
23863                 my $thisprod = $thisrule->{"prods"}[2];
23864                 $text = $_[1];
23865                 my $_savetext;
23866                 @item = (q{sysfun});
23867                 %item = (__RULE__ => q{sysfun});
23868                 my $repcount = 0;
23869
23870
23871                 Parse::RecDescent::_trace(q{Trying terminal: [/ASCII/i]}, Parse::RecDescent::_tracefirst($text),
23872                                           q{sysfun},
23873                                           $tracelevel)
23874                                                 if defined $::RD_TRACE;
23875                 $lastsep = "";
23876                 $expectation->is(q{})->at($text);
23877
23878
23879                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ASCII)//i)
23880                 {
23881
23882                         $expectation->failed();
23883                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
23884                                                   Parse::RecDescent::_tracefirst($text))
23885                                         if defined $::RD_TRACE;
23886
23887                         last;
23888                 }
23889                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
23890                                                 . $& . q{])},
23891                                                   Parse::RecDescent::_tracefirst($text))
23892                                         if defined $::RD_TRACE;
23893                 push @item, $item{__PATTERN1__}=$&;
23894
23895
23896
23897                 Parse::RecDescent::_trace(q{>>Matched production: [/ASCII/i]<<},
23898                                           Parse::RecDescent::_tracefirst($text),
23899                                           q{sysfun},
23900                                           $tracelevel)
23901                                                 if defined $::RD_TRACE;
23902                 $_matched = 1;
23903                 last;
23904         }
23905
23906
23907         while (!$_matched && !$commit)
23908         {
23909
23910                 Parse::RecDescent::_trace(q{Trying production: [/ASIN/i]},
23911                                           Parse::RecDescent::_tracefirst($_[1]),
23912                                           q{sysfun},
23913                                           $tracelevel)
23914                                                 if defined $::RD_TRACE;
23915                 my $thisprod = $thisrule->{"prods"}[3];
23916                 $text = $_[1];
23917                 my $_savetext;
23918                 @item = (q{sysfun});
23919                 %item = (__RULE__ => q{sysfun});
23920                 my $repcount = 0;
23921
23922
23923                 Parse::RecDescent::_trace(q{Trying terminal: [/ASIN/i]}, Parse::RecDescent::_tracefirst($text),
23924                                           q{sysfun},
23925                                           $tracelevel)
23926                                                 if defined $::RD_TRACE;
23927                 $lastsep = "";
23928                 $expectation->is(q{})->at($text);
23929
23930
23931                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ASIN)//i)
23932                 {
23933
23934                         $expectation->failed();
23935                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
23936                                                   Parse::RecDescent::_tracefirst($text))
23937                                         if defined $::RD_TRACE;
23938
23939                         last;
23940                 }
23941                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
23942                                                 . $& . q{])},
23943                                                   Parse::RecDescent::_tracefirst($text))
23944                                         if defined $::RD_TRACE;
23945                 push @item, $item{__PATTERN1__}=$&;
23946
23947
23948
23949                 Parse::RecDescent::_trace(q{>>Matched production: [/ASIN/i]<<},
23950                                           Parse::RecDescent::_tracefirst($text),
23951                                           q{sysfun},
23952                                           $tracelevel)
23953                                                 if defined $::RD_TRACE;
23954                 $_matched = 1;
23955                 last;
23956         }
23957
23958
23959         while (!$_matched && !$commit)
23960         {
23961
23962                 Parse::RecDescent::_trace(q{Trying production: [/ATAN/i]},
23963                                           Parse::RecDescent::_tracefirst($_[1]),
23964                                           q{sysfun},
23965                                           $tracelevel)
23966                                                 if defined $::RD_TRACE;
23967                 my $thisprod = $thisrule->{"prods"}[4];
23968                 $text = $_[1];
23969                 my $_savetext;
23970                 @item = (q{sysfun});
23971                 %item = (__RULE__ => q{sysfun});
23972                 my $repcount = 0;
23973
23974
23975                 Parse::RecDescent::_trace(q{Trying terminal: [/ATAN/i]}, Parse::RecDescent::_tracefirst($text),
23976                                           q{sysfun},
23977                                           $tracelevel)
23978                                                 if defined $::RD_TRACE;
23979                 $lastsep = "";
23980                 $expectation->is(q{})->at($text);
23981
23982
23983                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ATAN)//i)
23984                 {
23985
23986                         $expectation->failed();
23987                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
23988                                                   Parse::RecDescent::_tracefirst($text))
23989                                         if defined $::RD_TRACE;
23990
23991                         last;
23992                 }
23993                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
23994                                                 . $& . q{])},
23995                                                   Parse::RecDescent::_tracefirst($text))
23996                                         if defined $::RD_TRACE;
23997                 push @item, $item{__PATTERN1__}=$&;
23998
23999
24000
24001                 Parse::RecDescent::_trace(q{>>Matched production: [/ATAN/i]<<},
24002                                           Parse::RecDescent::_tracefirst($text),
24003                                           q{sysfun},
24004                                           $tracelevel)
24005                                                 if defined $::RD_TRACE;
24006                 $_matched = 1;
24007                 last;
24008         }
24009
24010
24011         while (!$_matched && !$commit)
24012         {
24013
24014                 Parse::RecDescent::_trace(q{Trying production: [/ATAN2/i]},
24015                                           Parse::RecDescent::_tracefirst($_[1]),
24016                                           q{sysfun},
24017                                           $tracelevel)
24018                                                 if defined $::RD_TRACE;
24019                 my $thisprod = $thisrule->{"prods"}[5];
24020                 $text = $_[1];
24021                 my $_savetext;
24022                 @item = (q{sysfun});
24023                 %item = (__RULE__ => q{sysfun});
24024                 my $repcount = 0;
24025
24026
24027                 Parse::RecDescent::_trace(q{Trying terminal: [/ATAN2/i]}, Parse::RecDescent::_tracefirst($text),
24028                                           q{sysfun},
24029                                           $tracelevel)
24030                                                 if defined $::RD_TRACE;
24031                 $lastsep = "";
24032                 $expectation->is(q{})->at($text);
24033
24034
24035                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ATAN2)//i)
24036                 {
24037
24038                         $expectation->failed();
24039                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24040                                                   Parse::RecDescent::_tracefirst($text))
24041                                         if defined $::RD_TRACE;
24042
24043                         last;
24044                 }
24045                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24046                                                 . $& . q{])},
24047                                                   Parse::RecDescent::_tracefirst($text))
24048                                         if defined $::RD_TRACE;
24049                 push @item, $item{__PATTERN1__}=$&;
24050
24051
24052
24053                 Parse::RecDescent::_trace(q{>>Matched production: [/ATAN2/i]<<},
24054                                           Parse::RecDescent::_tracefirst($text),
24055                                           q{sysfun},
24056                                           $tracelevel)
24057                                                 if defined $::RD_TRACE;
24058                 $_matched = 1;
24059                 last;
24060         }
24061
24062
24063         while (!$_matched && !$commit)
24064         {
24065
24066                 Parse::RecDescent::_trace(q{Trying production: [/CEIL/i, or /CEILING/i]},
24067                                           Parse::RecDescent::_tracefirst($_[1]),
24068                                           q{sysfun},
24069                                           $tracelevel)
24070                                                 if defined $::RD_TRACE;
24071                 my $thisprod = $thisrule->{"prods"}[6];
24072                 $text = $_[1];
24073                 my $_savetext;
24074                 @item = (q{sysfun});
24075                 %item = (__RULE__ => q{sysfun});
24076                 my $repcount = 0;
24077
24078
24079                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_7_of_rule_sysfun]},
24080                                   Parse::RecDescent::_tracefirst($text),
24081                                   q{sysfun},
24082                                   $tracelevel)
24083                                         if defined $::RD_TRACE;
24084                 if (1) { no strict qw{refs};
24085                 $expectation->is(q{})->at($text);
24086                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_7_of_rule_sysfun($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
24087                 {
24088
24089                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_7_of_rule_sysfun]>>},
24090                                                   Parse::RecDescent::_tracefirst($text),
24091                                                   q{sysfun},
24092                                                   $tracelevel)
24093                                                         if defined $::RD_TRACE;
24094                         $expectation->failed();
24095                         last;
24096                 }
24097                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_7_of_rule_sysfun]<< (return value: [}
24098                                         . $_tok . q{]},
24099
24100                                           Parse::RecDescent::_tracefirst($text),
24101                                           q{sysfun},
24102                                           $tracelevel)
24103                                                 if defined $::RD_TRACE;
24104                 $item{q{_alternation_1_of_production_7_of_rule_sysfun}} = $_tok;
24105                 push @item, $_tok;
24106
24107                 }
24108
24109
24110                 Parse::RecDescent::_trace(q{>>Matched production: [/CEIL/i, or /CEILING/i]<<},
24111                                           Parse::RecDescent::_tracefirst($text),
24112                                           q{sysfun},
24113                                           $tracelevel)
24114                                                 if defined $::RD_TRACE;
24115                 $_matched = 1;
24116                 last;
24117         }
24118
24119
24120         while (!$_matched && !$commit)
24121         {
24122
24123                 Parse::RecDescent::_trace(q{Trying production: [/CHAR/i]},
24124                                           Parse::RecDescent::_tracefirst($_[1]),
24125                                           q{sysfun},
24126                                           $tracelevel)
24127                                                 if defined $::RD_TRACE;
24128                 my $thisprod = $thisrule->{"prods"}[7];
24129                 $text = $_[1];
24130                 my $_savetext;
24131                 @item = (q{sysfun});
24132                 %item = (__RULE__ => q{sysfun});
24133                 my $repcount = 0;
24134
24135
24136                 Parse::RecDescent::_trace(q{Trying terminal: [/CHAR/i]}, Parse::RecDescent::_tracefirst($text),
24137                                           q{sysfun},
24138                                           $tracelevel)
24139                                                 if defined $::RD_TRACE;
24140                 $lastsep = "";
24141                 $expectation->is(q{})->at($text);
24142
24143
24144                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CHAR)//i)
24145                 {
24146
24147                         $expectation->failed();
24148                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24149                                                   Parse::RecDescent::_tracefirst($text))
24150                                         if defined $::RD_TRACE;
24151
24152                         last;
24153                 }
24154                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24155                                                 . $& . q{])},
24156                                                   Parse::RecDescent::_tracefirst($text))
24157                                         if defined $::RD_TRACE;
24158                 push @item, $item{__PATTERN1__}=$&;
24159
24160
24161
24162                 Parse::RecDescent::_trace(q{>>Matched production: [/CHAR/i]<<},
24163                                           Parse::RecDescent::_tracefirst($text),
24164                                           q{sysfun},
24165                                           $tracelevel)
24166                                                 if defined $::RD_TRACE;
24167                 $_matched = 1;
24168                 last;
24169         }
24170
24171
24172         while (!$_matched && !$commit)
24173         {
24174
24175                 Parse::RecDescent::_trace(q{Trying production: [/CHR/i]},
24176                                           Parse::RecDescent::_tracefirst($_[1]),
24177                                           q{sysfun},
24178                                           $tracelevel)
24179                                                 if defined $::RD_TRACE;
24180                 my $thisprod = $thisrule->{"prods"}[8];
24181                 $text = $_[1];
24182                 my $_savetext;
24183                 @item = (q{sysfun});
24184                 %item = (__RULE__ => q{sysfun});
24185                 my $repcount = 0;
24186
24187
24188                 Parse::RecDescent::_trace(q{Trying terminal: [/CHR/i]}, Parse::RecDescent::_tracefirst($text),
24189                                           q{sysfun},
24190                                           $tracelevel)
24191                                                 if defined $::RD_TRACE;
24192                 $lastsep = "";
24193                 $expectation->is(q{})->at($text);
24194
24195
24196                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CHR)//i)
24197                 {
24198
24199                         $expectation->failed();
24200                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24201                                                   Parse::RecDescent::_tracefirst($text))
24202                                         if defined $::RD_TRACE;
24203
24204                         last;
24205                 }
24206                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24207                                                 . $& . q{])},
24208                                                   Parse::RecDescent::_tracefirst($text))
24209                                         if defined $::RD_TRACE;
24210                 push @item, $item{__PATTERN1__}=$&;
24211
24212
24213
24214                 Parse::RecDescent::_trace(q{>>Matched production: [/CHR/i]<<},
24215                                           Parse::RecDescent::_tracefirst($text),
24216                                           q{sysfun},
24217                                           $tracelevel)
24218                                                 if defined $::RD_TRACE;
24219                 $_matched = 1;
24220                 last;
24221         }
24222
24223
24224         while (!$_matched && !$commit)
24225         {
24226
24227                 Parse::RecDescent::_trace(q{Trying production: [/COS/i]},
24228                                           Parse::RecDescent::_tracefirst($_[1]),
24229                                           q{sysfun},
24230                                           $tracelevel)
24231                                                 if defined $::RD_TRACE;
24232                 my $thisprod = $thisrule->{"prods"}[9];
24233                 $text = $_[1];
24234                 my $_savetext;
24235                 @item = (q{sysfun});
24236                 %item = (__RULE__ => q{sysfun});
24237                 my $repcount = 0;
24238
24239
24240                 Parse::RecDescent::_trace(q{Trying terminal: [/COS/i]}, Parse::RecDescent::_tracefirst($text),
24241                                           q{sysfun},
24242                                           $tracelevel)
24243                                                 if defined $::RD_TRACE;
24244                 $lastsep = "";
24245                 $expectation->is(q{})->at($text);
24246
24247
24248                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:COS)//i)
24249                 {
24250
24251                         $expectation->failed();
24252                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24253                                                   Parse::RecDescent::_tracefirst($text))
24254                                         if defined $::RD_TRACE;
24255
24256                         last;
24257                 }
24258                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24259                                                 . $& . q{])},
24260                                                   Parse::RecDescent::_tracefirst($text))
24261                                         if defined $::RD_TRACE;
24262                 push @item, $item{__PATTERN1__}=$&;
24263
24264
24265
24266                 Parse::RecDescent::_trace(q{>>Matched production: [/COS/i]<<},
24267                                           Parse::RecDescent::_tracefirst($text),
24268                                           q{sysfun},
24269                                           $tracelevel)
24270                                                 if defined $::RD_TRACE;
24271                 $_matched = 1;
24272                 last;
24273         }
24274
24275
24276         while (!$_matched && !$commit)
24277         {
24278
24279                 Parse::RecDescent::_trace(q{Trying production: [/COT/i]},
24280                                           Parse::RecDescent::_tracefirst($_[1]),
24281                                           q{sysfun},
24282                                           $tracelevel)
24283                                                 if defined $::RD_TRACE;
24284                 my $thisprod = $thisrule->{"prods"}[10];
24285                 $text = $_[1];
24286                 my $_savetext;
24287                 @item = (q{sysfun});
24288                 %item = (__RULE__ => q{sysfun});
24289                 my $repcount = 0;
24290
24291
24292                 Parse::RecDescent::_trace(q{Trying terminal: [/COT/i]}, Parse::RecDescent::_tracefirst($text),
24293                                           q{sysfun},
24294                                           $tracelevel)
24295                                                 if defined $::RD_TRACE;
24296                 $lastsep = "";
24297                 $expectation->is(q{})->at($text);
24298
24299
24300                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:COT)//i)
24301                 {
24302
24303                         $expectation->failed();
24304                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24305                                                   Parse::RecDescent::_tracefirst($text))
24306                                         if defined $::RD_TRACE;
24307
24308                         last;
24309                 }
24310                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24311                                                 . $& . q{])},
24312                                                   Parse::RecDescent::_tracefirst($text))
24313                                         if defined $::RD_TRACE;
24314                 push @item, $item{__PATTERN1__}=$&;
24315
24316
24317
24318                 Parse::RecDescent::_trace(q{>>Matched production: [/COT/i]<<},
24319                                           Parse::RecDescent::_tracefirst($text),
24320                                           q{sysfun},
24321                                           $tracelevel)
24322                                                 if defined $::RD_TRACE;
24323                 $_matched = 1;
24324                 last;
24325         }
24326
24327
24328         while (!$_matched && !$commit)
24329         {
24330
24331                 Parse::RecDescent::_trace(q{Trying production: [/DAYNAME/i]},
24332                                           Parse::RecDescent::_tracefirst($_[1]),
24333                                           q{sysfun},
24334                                           $tracelevel)
24335                                                 if defined $::RD_TRACE;
24336                 my $thisprod = $thisrule->{"prods"}[11];
24337                 $text = $_[1];
24338                 my $_savetext;
24339                 @item = (q{sysfun});
24340                 %item = (__RULE__ => q{sysfun});
24341                 my $repcount = 0;
24342
24343
24344                 Parse::RecDescent::_trace(q{Trying terminal: [/DAYNAME/i]}, Parse::RecDescent::_tracefirst($text),
24345                                           q{sysfun},
24346                                           $tracelevel)
24347                                                 if defined $::RD_TRACE;
24348                 $lastsep = "";
24349                 $expectation->is(q{})->at($text);
24350
24351
24352                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DAYNAME)//i)
24353                 {
24354
24355                         $expectation->failed();
24356                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24357                                                   Parse::RecDescent::_tracefirst($text))
24358                                         if defined $::RD_TRACE;
24359
24360                         last;
24361                 }
24362                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24363                                                 . $& . q{])},
24364                                                   Parse::RecDescent::_tracefirst($text))
24365                                         if defined $::RD_TRACE;
24366                 push @item, $item{__PATTERN1__}=$&;
24367
24368
24369
24370                 Parse::RecDescent::_trace(q{>>Matched production: [/DAYNAME/i]<<},
24371                                           Parse::RecDescent::_tracefirst($text),
24372                                           q{sysfun},
24373                                           $tracelevel)
24374                                                 if defined $::RD_TRACE;
24375                 $_matched = 1;
24376                 last;
24377         }
24378
24379
24380         while (!$_matched && !$commit)
24381         {
24382
24383                 Parse::RecDescent::_trace(q{Trying production: [/DAYOFWEEK/i]},
24384                                           Parse::RecDescent::_tracefirst($_[1]),
24385                                           q{sysfun},
24386                                           $tracelevel)
24387                                                 if defined $::RD_TRACE;
24388                 my $thisprod = $thisrule->{"prods"}[12];
24389                 $text = $_[1];
24390                 my $_savetext;
24391                 @item = (q{sysfun});
24392                 %item = (__RULE__ => q{sysfun});
24393                 my $repcount = 0;
24394
24395
24396                 Parse::RecDescent::_trace(q{Trying terminal: [/DAYOFWEEK/i]}, Parse::RecDescent::_tracefirst($text),
24397                                           q{sysfun},
24398                                           $tracelevel)
24399                                                 if defined $::RD_TRACE;
24400                 $lastsep = "";
24401                 $expectation->is(q{})->at($text);
24402
24403
24404                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DAYOFWEEK)//i)
24405                 {
24406
24407                         $expectation->failed();
24408                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24409                                                   Parse::RecDescent::_tracefirst($text))
24410                                         if defined $::RD_TRACE;
24411
24412                         last;
24413                 }
24414                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24415                                                 . $& . q{])},
24416                                                   Parse::RecDescent::_tracefirst($text))
24417                                         if defined $::RD_TRACE;
24418                 push @item, $item{__PATTERN1__}=$&;
24419
24420
24421
24422                 Parse::RecDescent::_trace(q{>>Matched production: [/DAYOFWEEK/i]<<},
24423                                           Parse::RecDescent::_tracefirst($text),
24424                                           q{sysfun},
24425                                           $tracelevel)
24426                                                 if defined $::RD_TRACE;
24427                 $_matched = 1;
24428                 last;
24429         }
24430
24431
24432         while (!$_matched && !$commit)
24433         {
24434
24435                 Parse::RecDescent::_trace(q{Trying production: [/DAYOFWEEK_ISO/i]},
24436                                           Parse::RecDescent::_tracefirst($_[1]),
24437                                           q{sysfun},
24438                                           $tracelevel)
24439                                                 if defined $::RD_TRACE;
24440                 my $thisprod = $thisrule->{"prods"}[13];
24441                 $text = $_[1];
24442                 my $_savetext;
24443                 @item = (q{sysfun});
24444                 %item = (__RULE__ => q{sysfun});
24445                 my $repcount = 0;
24446
24447
24448                 Parse::RecDescent::_trace(q{Trying terminal: [/DAYOFWEEK_ISO/i]}, Parse::RecDescent::_tracefirst($text),
24449                                           q{sysfun},
24450                                           $tracelevel)
24451                                                 if defined $::RD_TRACE;
24452                 $lastsep = "";
24453                 $expectation->is(q{})->at($text);
24454
24455
24456                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DAYOFWEEK_ISO)//i)
24457                 {
24458
24459                         $expectation->failed();
24460                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24461                                                   Parse::RecDescent::_tracefirst($text))
24462                                         if defined $::RD_TRACE;
24463
24464                         last;
24465                 }
24466                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24467                                                 . $& . q{])},
24468                                                   Parse::RecDescent::_tracefirst($text))
24469                                         if defined $::RD_TRACE;
24470                 push @item, $item{__PATTERN1__}=$&;
24471
24472
24473
24474                 Parse::RecDescent::_trace(q{>>Matched production: [/DAYOFWEEK_ISO/i]<<},
24475                                           Parse::RecDescent::_tracefirst($text),
24476                                           q{sysfun},
24477                                           $tracelevel)
24478                                                 if defined $::RD_TRACE;
24479                 $_matched = 1;
24480                 last;
24481         }
24482
24483
24484         while (!$_matched && !$commit)
24485         {
24486
24487                 Parse::RecDescent::_trace(q{Trying production: [/DAYOFYEAR/i]},
24488                                           Parse::RecDescent::_tracefirst($_[1]),
24489                                           q{sysfun},
24490                                           $tracelevel)
24491                                                 if defined $::RD_TRACE;
24492                 my $thisprod = $thisrule->{"prods"}[14];
24493                 $text = $_[1];
24494                 my $_savetext;
24495                 @item = (q{sysfun});
24496                 %item = (__RULE__ => q{sysfun});
24497                 my $repcount = 0;
24498
24499
24500                 Parse::RecDescent::_trace(q{Trying terminal: [/DAYOFYEAR/i]}, Parse::RecDescent::_tracefirst($text),
24501                                           q{sysfun},
24502                                           $tracelevel)
24503                                                 if defined $::RD_TRACE;
24504                 $lastsep = "";
24505                 $expectation->is(q{})->at($text);
24506
24507
24508                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DAYOFYEAR)//i)
24509                 {
24510
24511                         $expectation->failed();
24512                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24513                                                   Parse::RecDescent::_tracefirst($text))
24514                                         if defined $::RD_TRACE;
24515
24516                         last;
24517                 }
24518                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24519                                                 . $& . q{])},
24520                                                   Parse::RecDescent::_tracefirst($text))
24521                                         if defined $::RD_TRACE;
24522                 push @item, $item{__PATTERN1__}=$&;
24523
24524
24525
24526                 Parse::RecDescent::_trace(q{>>Matched production: [/DAYOFYEAR/i]<<},
24527                                           Parse::RecDescent::_tracefirst($text),
24528                                           q{sysfun},
24529                                           $tracelevel)
24530                                                 if defined $::RD_TRACE;
24531                 $_matched = 1;
24532                 last;
24533         }
24534
24535
24536         while (!$_matched && !$commit)
24537         {
24538
24539                 Parse::RecDescent::_trace(q{Trying production: [/DEGREES/i]},
24540                                           Parse::RecDescent::_tracefirst($_[1]),
24541                                           q{sysfun},
24542                                           $tracelevel)
24543                                                 if defined $::RD_TRACE;
24544                 my $thisprod = $thisrule->{"prods"}[15];
24545                 $text = $_[1];
24546                 my $_savetext;
24547                 @item = (q{sysfun});
24548                 %item = (__RULE__ => q{sysfun});
24549                 my $repcount = 0;
24550
24551
24552                 Parse::RecDescent::_trace(q{Trying terminal: [/DEGREES/i]}, Parse::RecDescent::_tracefirst($text),
24553                                           q{sysfun},
24554                                           $tracelevel)
24555                                                 if defined $::RD_TRACE;
24556                 $lastsep = "";
24557                 $expectation->is(q{})->at($text);
24558
24559
24560                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DEGREES)//i)
24561                 {
24562
24563                         $expectation->failed();
24564                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24565                                                   Parse::RecDescent::_tracefirst($text))
24566                                         if defined $::RD_TRACE;
24567
24568                         last;
24569                 }
24570                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24571                                                 . $& . q{])},
24572                                                   Parse::RecDescent::_tracefirst($text))
24573                                         if defined $::RD_TRACE;
24574                 push @item, $item{__PATTERN1__}=$&;
24575
24576
24577
24578                 Parse::RecDescent::_trace(q{>>Matched production: [/DEGREES/i]<<},
24579                                           Parse::RecDescent::_tracefirst($text),
24580                                           q{sysfun},
24581                                           $tracelevel)
24582                                                 if defined $::RD_TRACE;
24583                 $_matched = 1;
24584                 last;
24585         }
24586
24587
24588         while (!$_matched && !$commit)
24589         {
24590
24591                 Parse::RecDescent::_trace(q{Trying production: [/DIFFERENCE/i]},
24592                                           Parse::RecDescent::_tracefirst($_[1]),
24593                                           q{sysfun},
24594                                           $tracelevel)
24595                                                 if defined $::RD_TRACE;
24596                 my $thisprod = $thisrule->{"prods"}[16];
24597                 $text = $_[1];
24598                 my $_savetext;
24599                 @item = (q{sysfun});
24600                 %item = (__RULE__ => q{sysfun});
24601                 my $repcount = 0;
24602
24603
24604                 Parse::RecDescent::_trace(q{Trying terminal: [/DIFFERENCE/i]}, Parse::RecDescent::_tracefirst($text),
24605                                           q{sysfun},
24606                                           $tracelevel)
24607                                                 if defined $::RD_TRACE;
24608                 $lastsep = "";
24609                 $expectation->is(q{})->at($text);
24610
24611
24612                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DIFFERENCE)//i)
24613                 {
24614
24615                         $expectation->failed();
24616                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24617                                                   Parse::RecDescent::_tracefirst($text))
24618                                         if defined $::RD_TRACE;
24619
24620                         last;
24621                 }
24622                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24623                                                 . $& . q{])},
24624                                                   Parse::RecDescent::_tracefirst($text))
24625                                         if defined $::RD_TRACE;
24626                 push @item, $item{__PATTERN1__}=$&;
24627
24628
24629
24630                 Parse::RecDescent::_trace(q{>>Matched production: [/DIFFERENCE/i]<<},
24631                                           Parse::RecDescent::_tracefirst($text),
24632                                           q{sysfun},
24633                                           $tracelevel)
24634                                                 if defined $::RD_TRACE;
24635                 $_matched = 1;
24636                 last;
24637         }
24638
24639
24640         while (!$_matched && !$commit)
24641         {
24642
24643                 Parse::RecDescent::_trace(q{Trying production: [/DOUBLE/i]},
24644                                           Parse::RecDescent::_tracefirst($_[1]),
24645                                           q{sysfun},
24646                                           $tracelevel)
24647                                                 if defined $::RD_TRACE;
24648                 my $thisprod = $thisrule->{"prods"}[17];
24649                 $text = $_[1];
24650                 my $_savetext;
24651                 @item = (q{sysfun});
24652                 %item = (__RULE__ => q{sysfun});
24653                 my $repcount = 0;
24654
24655
24656                 Parse::RecDescent::_trace(q{Trying terminal: [/DOUBLE/i]}, Parse::RecDescent::_tracefirst($text),
24657                                           q{sysfun},
24658                                           $tracelevel)
24659                                                 if defined $::RD_TRACE;
24660                 $lastsep = "";
24661                 $expectation->is(q{})->at($text);
24662
24663
24664                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DOUBLE)//i)
24665                 {
24666
24667                         $expectation->failed();
24668                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24669                                                   Parse::RecDescent::_tracefirst($text))
24670                                         if defined $::RD_TRACE;
24671
24672                         last;
24673                 }
24674                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24675                                                 . $& . q{])},
24676                                                   Parse::RecDescent::_tracefirst($text))
24677                                         if defined $::RD_TRACE;
24678                 push @item, $item{__PATTERN1__}=$&;
24679
24680
24681
24682                 Parse::RecDescent::_trace(q{>>Matched production: [/DOUBLE/i]<<},
24683                                           Parse::RecDescent::_tracefirst($text),
24684                                           q{sysfun},
24685                                           $tracelevel)
24686                                                 if defined $::RD_TRACE;
24687                 $_matched = 1;
24688                 last;
24689         }
24690
24691
24692         while (!$_matched && !$commit)
24693         {
24694
24695                 Parse::RecDescent::_trace(q{Trying production: [/EXP/i]},
24696                                           Parse::RecDescent::_tracefirst($_[1]),
24697                                           q{sysfun},
24698                                           $tracelevel)
24699                                                 if defined $::RD_TRACE;
24700                 my $thisprod = $thisrule->{"prods"}[18];
24701                 $text = $_[1];
24702                 my $_savetext;
24703                 @item = (q{sysfun});
24704                 %item = (__RULE__ => q{sysfun});
24705                 my $repcount = 0;
24706
24707
24708                 Parse::RecDescent::_trace(q{Trying terminal: [/EXP/i]}, Parse::RecDescent::_tracefirst($text),
24709                                           q{sysfun},
24710                                           $tracelevel)
24711                                                 if defined $::RD_TRACE;
24712                 $lastsep = "";
24713                 $expectation->is(q{})->at($text);
24714
24715
24716                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:EXP)//i)
24717                 {
24718
24719                         $expectation->failed();
24720                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24721                                                   Parse::RecDescent::_tracefirst($text))
24722                                         if defined $::RD_TRACE;
24723
24724                         last;
24725                 }
24726                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24727                                                 . $& . q{])},
24728                                                   Parse::RecDescent::_tracefirst($text))
24729                                         if defined $::RD_TRACE;
24730                 push @item, $item{__PATTERN1__}=$&;
24731
24732
24733
24734                 Parse::RecDescent::_trace(q{>>Matched production: [/EXP/i]<<},
24735                                           Parse::RecDescent::_tracefirst($text),
24736                                           q{sysfun},
24737                                           $tracelevel)
24738                                                 if defined $::RD_TRACE;
24739                 $_matched = 1;
24740                 last;
24741         }
24742
24743
24744         while (!$_matched && !$commit)
24745         {
24746
24747                 Parse::RecDescent::_trace(q{Trying production: [/FLOOR/i]},
24748                                           Parse::RecDescent::_tracefirst($_[1]),
24749                                           q{sysfun},
24750                                           $tracelevel)
24751                                                 if defined $::RD_TRACE;
24752                 my $thisprod = $thisrule->{"prods"}[19];
24753                 $text = $_[1];
24754                 my $_savetext;
24755                 @item = (q{sysfun});
24756                 %item = (__RULE__ => q{sysfun});
24757                 my $repcount = 0;
24758
24759
24760                 Parse::RecDescent::_trace(q{Trying terminal: [/FLOOR/i]}, Parse::RecDescent::_tracefirst($text),
24761                                           q{sysfun},
24762                                           $tracelevel)
24763                                                 if defined $::RD_TRACE;
24764                 $lastsep = "";
24765                 $expectation->is(q{})->at($text);
24766
24767
24768                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:FLOOR)//i)
24769                 {
24770
24771                         $expectation->failed();
24772                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24773                                                   Parse::RecDescent::_tracefirst($text))
24774                                         if defined $::RD_TRACE;
24775
24776                         last;
24777                 }
24778                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24779                                                 . $& . q{])},
24780                                                   Parse::RecDescent::_tracefirst($text))
24781                                         if defined $::RD_TRACE;
24782                 push @item, $item{__PATTERN1__}=$&;
24783
24784
24785
24786                 Parse::RecDescent::_trace(q{>>Matched production: [/FLOOR/i]<<},
24787                                           Parse::RecDescent::_tracefirst($text),
24788                                           q{sysfun},
24789                                           $tracelevel)
24790                                                 if defined $::RD_TRACE;
24791                 $_matched = 1;
24792                 last;
24793         }
24794
24795
24796         while (!$_matched && !$commit)
24797         {
24798
24799                 Parse::RecDescent::_trace(q{Trying production: [/GET_ROUTINE_SAR/i]},
24800                                           Parse::RecDescent::_tracefirst($_[1]),
24801                                           q{sysfun},
24802                                           $tracelevel)
24803                                                 if defined $::RD_TRACE;
24804                 my $thisprod = $thisrule->{"prods"}[20];
24805                 $text = $_[1];
24806                 my $_savetext;
24807                 @item = (q{sysfun});
24808                 %item = (__RULE__ => q{sysfun});
24809                 my $repcount = 0;
24810
24811
24812                 Parse::RecDescent::_trace(q{Trying terminal: [/GET_ROUTINE_SAR/i]}, Parse::RecDescent::_tracefirst($text),
24813                                           q{sysfun},
24814                                           $tracelevel)
24815                                                 if defined $::RD_TRACE;
24816                 $lastsep = "";
24817                 $expectation->is(q{})->at($text);
24818
24819
24820                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:GET_ROUTINE_SAR)//i)
24821                 {
24822
24823                         $expectation->failed();
24824                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24825                                                   Parse::RecDescent::_tracefirst($text))
24826                                         if defined $::RD_TRACE;
24827
24828                         last;
24829                 }
24830                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24831                                                 . $& . q{])},
24832                                                   Parse::RecDescent::_tracefirst($text))
24833                                         if defined $::RD_TRACE;
24834                 push @item, $item{__PATTERN1__}=$&;
24835
24836
24837
24838                 Parse::RecDescent::_trace(q{>>Matched production: [/GET_ROUTINE_SAR/i]<<},
24839                                           Parse::RecDescent::_tracefirst($text),
24840                                           q{sysfun},
24841                                           $tracelevel)
24842                                                 if defined $::RD_TRACE;
24843                 $_matched = 1;
24844                 last;
24845         }
24846
24847
24848         while (!$_matched && !$commit)
24849         {
24850
24851                 Parse::RecDescent::_trace(q{Trying production: [/INSERT/i]},
24852                                           Parse::RecDescent::_tracefirst($_[1]),
24853                                           q{sysfun},
24854                                           $tracelevel)
24855                                                 if defined $::RD_TRACE;
24856                 my $thisprod = $thisrule->{"prods"}[21];
24857                 $text = $_[1];
24858                 my $_savetext;
24859                 @item = (q{sysfun});
24860                 %item = (__RULE__ => q{sysfun});
24861                 my $repcount = 0;
24862
24863
24864                 Parse::RecDescent::_trace(q{Trying terminal: [/INSERT/i]}, Parse::RecDescent::_tracefirst($text),
24865                                           q{sysfun},
24866                                           $tracelevel)
24867                                                 if defined $::RD_TRACE;
24868                 $lastsep = "";
24869                 $expectation->is(q{})->at($text);
24870
24871
24872                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:INSERT)//i)
24873                 {
24874
24875                         $expectation->failed();
24876                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24877                                                   Parse::RecDescent::_tracefirst($text))
24878                                         if defined $::RD_TRACE;
24879
24880                         last;
24881                 }
24882                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24883                                                 . $& . q{])},
24884                                                   Parse::RecDescent::_tracefirst($text))
24885                                         if defined $::RD_TRACE;
24886                 push @item, $item{__PATTERN1__}=$&;
24887
24888
24889
24890                 Parse::RecDescent::_trace(q{>>Matched production: [/INSERT/i]<<},
24891                                           Parse::RecDescent::_tracefirst($text),
24892                                           q{sysfun},
24893                                           $tracelevel)
24894                                                 if defined $::RD_TRACE;
24895                 $_matched = 1;
24896                 last;
24897         }
24898
24899
24900         while (!$_matched && !$commit)
24901         {
24902
24903                 Parse::RecDescent::_trace(q{Trying production: [/JULIAN_DAY/i]},
24904                                           Parse::RecDescent::_tracefirst($_[1]),
24905                                           q{sysfun},
24906                                           $tracelevel)
24907                                                 if defined $::RD_TRACE;
24908                 my $thisprod = $thisrule->{"prods"}[22];
24909                 $text = $_[1];
24910                 my $_savetext;
24911                 @item = (q{sysfun});
24912                 %item = (__RULE__ => q{sysfun});
24913                 my $repcount = 0;
24914
24915
24916                 Parse::RecDescent::_trace(q{Trying terminal: [/JULIAN_DAY/i]}, Parse::RecDescent::_tracefirst($text),
24917                                           q{sysfun},
24918                                           $tracelevel)
24919                                                 if defined $::RD_TRACE;
24920                 $lastsep = "";
24921                 $expectation->is(q{})->at($text);
24922
24923
24924                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:JULIAN_DAY)//i)
24925                 {
24926
24927                         $expectation->failed();
24928                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24929                                                   Parse::RecDescent::_tracefirst($text))
24930                                         if defined $::RD_TRACE;
24931
24932                         last;
24933                 }
24934                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24935                                                 . $& . q{])},
24936                                                   Parse::RecDescent::_tracefirst($text))
24937                                         if defined $::RD_TRACE;
24938                 push @item, $item{__PATTERN1__}=$&;
24939
24940
24941
24942                 Parse::RecDescent::_trace(q{>>Matched production: [/JULIAN_DAY/i]<<},
24943                                           Parse::RecDescent::_tracefirst($text),
24944                                           q{sysfun},
24945                                           $tracelevel)
24946                                                 if defined $::RD_TRACE;
24947                 $_matched = 1;
24948                 last;
24949         }
24950
24951
24952         while (!$_matched && !$commit)
24953         {
24954
24955                 Parse::RecDescent::_trace(q{Trying production: [/LCASE/i]},
24956                                           Parse::RecDescent::_tracefirst($_[1]),
24957                                           q{sysfun},
24958                                           $tracelevel)
24959                                                 if defined $::RD_TRACE;
24960                 my $thisprod = $thisrule->{"prods"}[23];
24961                 $text = $_[1];
24962                 my $_savetext;
24963                 @item = (q{sysfun});
24964                 %item = (__RULE__ => q{sysfun});
24965                 my $repcount = 0;
24966
24967
24968                 Parse::RecDescent::_trace(q{Trying terminal: [/LCASE/i]}, Parse::RecDescent::_tracefirst($text),
24969                                           q{sysfun},
24970                                           $tracelevel)
24971                                                 if defined $::RD_TRACE;
24972                 $lastsep = "";
24973                 $expectation->is(q{})->at($text);
24974
24975
24976                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:LCASE)//i)
24977                 {
24978
24979                         $expectation->failed();
24980                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
24981                                                   Parse::RecDescent::_tracefirst($text))
24982                                         if defined $::RD_TRACE;
24983
24984                         last;
24985                 }
24986                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
24987                                                 . $& . q{])},
24988                                                   Parse::RecDescent::_tracefirst($text))
24989                                         if defined $::RD_TRACE;
24990                 push @item, $item{__PATTERN1__}=$&;
24991
24992
24993
24994                 Parse::RecDescent::_trace(q{>>Matched production: [/LCASE/i]<<},
24995                                           Parse::RecDescent::_tracefirst($text),
24996                                           q{sysfun},
24997                                           $tracelevel)
24998                                                 if defined $::RD_TRACE;
24999                 $_matched = 1;
25000                 last;
25001         }
25002
25003
25004         while (!$_matched && !$commit)
25005         {
25006
25007                 Parse::RecDescent::_trace(q{Trying production: [/LEFT/i]},
25008                                           Parse::RecDescent::_tracefirst($_[1]),
25009                                           q{sysfun},
25010                                           $tracelevel)
25011                                                 if defined $::RD_TRACE;
25012                 my $thisprod = $thisrule->{"prods"}[24];
25013                 $text = $_[1];
25014                 my $_savetext;
25015                 @item = (q{sysfun});
25016                 %item = (__RULE__ => q{sysfun});
25017                 my $repcount = 0;
25018
25019
25020                 Parse::RecDescent::_trace(q{Trying terminal: [/LEFT/i]}, Parse::RecDescent::_tracefirst($text),
25021                                           q{sysfun},
25022                                           $tracelevel)
25023                                                 if defined $::RD_TRACE;
25024                 $lastsep = "";
25025                 $expectation->is(q{})->at($text);
25026
25027
25028                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:LEFT)//i)
25029                 {
25030
25031                         $expectation->failed();
25032                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25033                                                   Parse::RecDescent::_tracefirst($text))
25034                                         if defined $::RD_TRACE;
25035
25036                         last;
25037                 }
25038                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25039                                                 . $& . q{])},
25040                                                   Parse::RecDescent::_tracefirst($text))
25041                                         if defined $::RD_TRACE;
25042                 push @item, $item{__PATTERN1__}=$&;
25043
25044
25045
25046                 Parse::RecDescent::_trace(q{>>Matched production: [/LEFT/i]<<},
25047                                           Parse::RecDescent::_tracefirst($text),
25048                                           q{sysfun},
25049                                           $tracelevel)
25050                                                 if defined $::RD_TRACE;
25051                 $_matched = 1;
25052                 last;
25053         }
25054
25055
25056         while (!$_matched && !$commit)
25057         {
25058
25059                 Parse::RecDescent::_trace(q{Trying production: [/LN/i]},
25060                                           Parse::RecDescent::_tracefirst($_[1]),
25061                                           q{sysfun},
25062                                           $tracelevel)
25063                                                 if defined $::RD_TRACE;
25064                 my $thisprod = $thisrule->{"prods"}[25];
25065                 $text = $_[1];
25066                 my $_savetext;
25067                 @item = (q{sysfun});
25068                 %item = (__RULE__ => q{sysfun});
25069                 my $repcount = 0;
25070
25071
25072                 Parse::RecDescent::_trace(q{Trying terminal: [/LN/i]}, Parse::RecDescent::_tracefirst($text),
25073                                           q{sysfun},
25074                                           $tracelevel)
25075                                                 if defined $::RD_TRACE;
25076                 $lastsep = "";
25077                 $expectation->is(q{})->at($text);
25078
25079
25080                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:LN)//i)
25081                 {
25082
25083                         $expectation->failed();
25084                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25085                                                   Parse::RecDescent::_tracefirst($text))
25086                                         if defined $::RD_TRACE;
25087
25088                         last;
25089                 }
25090                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25091                                                 . $& . q{])},
25092                                                   Parse::RecDescent::_tracefirst($text))
25093                                         if defined $::RD_TRACE;
25094                 push @item, $item{__PATTERN1__}=$&;
25095
25096
25097
25098                 Parse::RecDescent::_trace(q{>>Matched production: [/LN/i]<<},
25099                                           Parse::RecDescent::_tracefirst($text),
25100                                           q{sysfun},
25101                                           $tracelevel)
25102                                                 if defined $::RD_TRACE;
25103                 $_matched = 1;
25104                 last;
25105         }
25106
25107
25108         while (!$_matched && !$commit)
25109         {
25110
25111                 Parse::RecDescent::_trace(q{Trying production: [/LOCATE/i]},
25112                                           Parse::RecDescent::_tracefirst($_[1]),
25113                                           q{sysfun},
25114                                           $tracelevel)
25115                                                 if defined $::RD_TRACE;
25116                 my $thisprod = $thisrule->{"prods"}[26];
25117                 $text = $_[1];
25118                 my $_savetext;
25119                 @item = (q{sysfun});
25120                 %item = (__RULE__ => q{sysfun});
25121                 my $repcount = 0;
25122
25123
25124                 Parse::RecDescent::_trace(q{Trying terminal: [/LOCATE/i]}, Parse::RecDescent::_tracefirst($text),
25125                                           q{sysfun},
25126                                           $tracelevel)
25127                                                 if defined $::RD_TRACE;
25128                 $lastsep = "";
25129                 $expectation->is(q{})->at($text);
25130
25131
25132                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:LOCATE)//i)
25133                 {
25134
25135                         $expectation->failed();
25136                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25137                                                   Parse::RecDescent::_tracefirst($text))
25138                                         if defined $::RD_TRACE;
25139
25140                         last;
25141                 }
25142                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25143                                                 . $& . q{])},
25144                                                   Parse::RecDescent::_tracefirst($text))
25145                                         if defined $::RD_TRACE;
25146                 push @item, $item{__PATTERN1__}=$&;
25147
25148
25149
25150                 Parse::RecDescent::_trace(q{>>Matched production: [/LOCATE/i]<<},
25151                                           Parse::RecDescent::_tracefirst($text),
25152                                           q{sysfun},
25153                                           $tracelevel)
25154                                                 if defined $::RD_TRACE;
25155                 $_matched = 1;
25156                 last;
25157         }
25158
25159
25160         while (!$_matched && !$commit)
25161         {
25162
25163                 Parse::RecDescent::_trace(q{Trying production: [/LOG/i]},
25164                                           Parse::RecDescent::_tracefirst($_[1]),
25165                                           q{sysfun},
25166                                           $tracelevel)
25167                                                 if defined $::RD_TRACE;
25168                 my $thisprod = $thisrule->{"prods"}[27];
25169                 $text = $_[1];
25170                 my $_savetext;
25171                 @item = (q{sysfun});
25172                 %item = (__RULE__ => q{sysfun});
25173                 my $repcount = 0;
25174
25175
25176                 Parse::RecDescent::_trace(q{Trying terminal: [/LOG/i]}, Parse::RecDescent::_tracefirst($text),
25177                                           q{sysfun},
25178                                           $tracelevel)
25179                                                 if defined $::RD_TRACE;
25180                 $lastsep = "";
25181                 $expectation->is(q{})->at($text);
25182
25183
25184                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:LOG)//i)
25185                 {
25186
25187                         $expectation->failed();
25188                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25189                                                   Parse::RecDescent::_tracefirst($text))
25190                                         if defined $::RD_TRACE;
25191
25192                         last;
25193                 }
25194                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25195                                                 . $& . q{])},
25196                                                   Parse::RecDescent::_tracefirst($text))
25197                                         if defined $::RD_TRACE;
25198                 push @item, $item{__PATTERN1__}=$&;
25199
25200
25201
25202                 Parse::RecDescent::_trace(q{>>Matched production: [/LOG/i]<<},
25203                                           Parse::RecDescent::_tracefirst($text),
25204                                           q{sysfun},
25205                                           $tracelevel)
25206                                                 if defined $::RD_TRACE;
25207                 $_matched = 1;
25208                 last;
25209         }
25210
25211
25212         while (!$_matched && !$commit)
25213         {
25214
25215                 Parse::RecDescent::_trace(q{Trying production: [/LOG10/i]},
25216                                           Parse::RecDescent::_tracefirst($_[1]),
25217                                           q{sysfun},
25218                                           $tracelevel)
25219                                                 if defined $::RD_TRACE;
25220                 my $thisprod = $thisrule->{"prods"}[28];
25221                 $text = $_[1];
25222                 my $_savetext;
25223                 @item = (q{sysfun});
25224                 %item = (__RULE__ => q{sysfun});
25225                 my $repcount = 0;
25226
25227
25228                 Parse::RecDescent::_trace(q{Trying terminal: [/LOG10/i]}, Parse::RecDescent::_tracefirst($text),
25229                                           q{sysfun},
25230                                           $tracelevel)
25231                                                 if defined $::RD_TRACE;
25232                 $lastsep = "";
25233                 $expectation->is(q{})->at($text);
25234
25235
25236                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:LOG10)//i)
25237                 {
25238
25239                         $expectation->failed();
25240                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25241                                                   Parse::RecDescent::_tracefirst($text))
25242                                         if defined $::RD_TRACE;
25243
25244                         last;
25245                 }
25246                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25247                                                 . $& . q{])},
25248                                                   Parse::RecDescent::_tracefirst($text))
25249                                         if defined $::RD_TRACE;
25250                 push @item, $item{__PATTERN1__}=$&;
25251
25252
25253
25254                 Parse::RecDescent::_trace(q{>>Matched production: [/LOG10/i]<<},
25255                                           Parse::RecDescent::_tracefirst($text),
25256                                           q{sysfun},
25257                                           $tracelevel)
25258                                                 if defined $::RD_TRACE;
25259                 $_matched = 1;
25260                 last;
25261         }
25262
25263
25264         while (!$_matched && !$commit)
25265         {
25266
25267                 Parse::RecDescent::_trace(q{Trying production: [/LTRIM/i]},
25268                                           Parse::RecDescent::_tracefirst($_[1]),
25269                                           q{sysfun},
25270                                           $tracelevel)
25271                                                 if defined $::RD_TRACE;
25272                 my $thisprod = $thisrule->{"prods"}[29];
25273                 $text = $_[1];
25274                 my $_savetext;
25275                 @item = (q{sysfun});
25276                 %item = (__RULE__ => q{sysfun});
25277                 my $repcount = 0;
25278
25279
25280                 Parse::RecDescent::_trace(q{Trying terminal: [/LTRIM/i]}, Parse::RecDescent::_tracefirst($text),
25281                                           q{sysfun},
25282                                           $tracelevel)
25283                                                 if defined $::RD_TRACE;
25284                 $lastsep = "";
25285                 $expectation->is(q{})->at($text);
25286
25287
25288                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:LTRIM)//i)
25289                 {
25290
25291                         $expectation->failed();
25292                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25293                                                   Parse::RecDescent::_tracefirst($text))
25294                                         if defined $::RD_TRACE;
25295
25296                         last;
25297                 }
25298                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25299                                                 . $& . q{])},
25300                                                   Parse::RecDescent::_tracefirst($text))
25301                                         if defined $::RD_TRACE;
25302                 push @item, $item{__PATTERN1__}=$&;
25303
25304
25305
25306                 Parse::RecDescent::_trace(q{>>Matched production: [/LTRIM/i]<<},
25307                                           Parse::RecDescent::_tracefirst($text),
25308                                           q{sysfun},
25309                                           $tracelevel)
25310                                                 if defined $::RD_TRACE;
25311                 $_matched = 1;
25312                 last;
25313         }
25314
25315
25316         while (!$_matched && !$commit)
25317         {
25318
25319                 Parse::RecDescent::_trace(q{Trying production: [/MIDNIGHT_SECONDS/i]},
25320                                           Parse::RecDescent::_tracefirst($_[1]),
25321                                           q{sysfun},
25322                                           $tracelevel)
25323                                                 if defined $::RD_TRACE;
25324                 my $thisprod = $thisrule->{"prods"}[30];
25325                 $text = $_[1];
25326                 my $_savetext;
25327                 @item = (q{sysfun});
25328                 %item = (__RULE__ => q{sysfun});
25329                 my $repcount = 0;
25330
25331
25332                 Parse::RecDescent::_trace(q{Trying terminal: [/MIDNIGHT_SECONDS/i]}, Parse::RecDescent::_tracefirst($text),
25333                                           q{sysfun},
25334                                           $tracelevel)
25335                                                 if defined $::RD_TRACE;
25336                 $lastsep = "";
25337                 $expectation->is(q{})->at($text);
25338
25339
25340                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:MIDNIGHT_SECONDS)//i)
25341                 {
25342
25343                         $expectation->failed();
25344                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25345                                                   Parse::RecDescent::_tracefirst($text))
25346                                         if defined $::RD_TRACE;
25347
25348                         last;
25349                 }
25350                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25351                                                 . $& . q{])},
25352                                                   Parse::RecDescent::_tracefirst($text))
25353                                         if defined $::RD_TRACE;
25354                 push @item, $item{__PATTERN1__}=$&;
25355
25356
25357
25358                 Parse::RecDescent::_trace(q{>>Matched production: [/MIDNIGHT_SECONDS/i]<<},
25359                                           Parse::RecDescent::_tracefirst($text),
25360                                           q{sysfun},
25361                                           $tracelevel)
25362                                                 if defined $::RD_TRACE;
25363                 $_matched = 1;
25364                 last;
25365         }
25366
25367
25368         while (!$_matched && !$commit)
25369         {
25370
25371                 Parse::RecDescent::_trace(q{Trying production: [/MOD/i]},
25372                                           Parse::RecDescent::_tracefirst($_[1]),
25373                                           q{sysfun},
25374                                           $tracelevel)
25375                                                 if defined $::RD_TRACE;
25376                 my $thisprod = $thisrule->{"prods"}[31];
25377                 $text = $_[1];
25378                 my $_savetext;
25379                 @item = (q{sysfun});
25380                 %item = (__RULE__ => q{sysfun});
25381                 my $repcount = 0;
25382
25383
25384                 Parse::RecDescent::_trace(q{Trying terminal: [/MOD/i]}, Parse::RecDescent::_tracefirst($text),
25385                                           q{sysfun},
25386                                           $tracelevel)
25387                                                 if defined $::RD_TRACE;
25388                 $lastsep = "";
25389                 $expectation->is(q{})->at($text);
25390
25391
25392                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:MOD)//i)
25393                 {
25394
25395                         $expectation->failed();
25396                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25397                                                   Parse::RecDescent::_tracefirst($text))
25398                                         if defined $::RD_TRACE;
25399
25400                         last;
25401                 }
25402                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25403                                                 . $& . q{])},
25404                                                   Parse::RecDescent::_tracefirst($text))
25405                                         if defined $::RD_TRACE;
25406                 push @item, $item{__PATTERN1__}=$&;
25407
25408
25409
25410                 Parse::RecDescent::_trace(q{>>Matched production: [/MOD/i]<<},
25411                                           Parse::RecDescent::_tracefirst($text),
25412                                           q{sysfun},
25413                                           $tracelevel)
25414                                                 if defined $::RD_TRACE;
25415                 $_matched = 1;
25416                 last;
25417         }
25418
25419
25420         while (!$_matched && !$commit)
25421         {
25422
25423                 Parse::RecDescent::_trace(q{Trying production: [/MONTHNAME/i]},
25424                                           Parse::RecDescent::_tracefirst($_[1]),
25425                                           q{sysfun},
25426                                           $tracelevel)
25427                                                 if defined $::RD_TRACE;
25428                 my $thisprod = $thisrule->{"prods"}[32];
25429                 $text = $_[1];
25430                 my $_savetext;
25431                 @item = (q{sysfun});
25432                 %item = (__RULE__ => q{sysfun});
25433                 my $repcount = 0;
25434
25435
25436                 Parse::RecDescent::_trace(q{Trying terminal: [/MONTHNAME/i]}, Parse::RecDescent::_tracefirst($text),
25437                                           q{sysfun},
25438                                           $tracelevel)
25439                                                 if defined $::RD_TRACE;
25440                 $lastsep = "";
25441                 $expectation->is(q{})->at($text);
25442
25443
25444                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:MONTHNAME)//i)
25445                 {
25446
25447                         $expectation->failed();
25448                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25449                                                   Parse::RecDescent::_tracefirst($text))
25450                                         if defined $::RD_TRACE;
25451
25452                         last;
25453                 }
25454                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25455                                                 . $& . q{])},
25456                                                   Parse::RecDescent::_tracefirst($text))
25457                                         if defined $::RD_TRACE;
25458                 push @item, $item{__PATTERN1__}=$&;
25459
25460
25461
25462                 Parse::RecDescent::_trace(q{>>Matched production: [/MONTHNAME/i]<<},
25463                                           Parse::RecDescent::_tracefirst($text),
25464                                           q{sysfun},
25465                                           $tracelevel)
25466                                                 if defined $::RD_TRACE;
25467                 $_matched = 1;
25468                 last;
25469         }
25470
25471
25472         while (!$_matched && !$commit)
25473         {
25474
25475                 Parse::RecDescent::_trace(q{Trying production: [/POWER/i]},
25476                                           Parse::RecDescent::_tracefirst($_[1]),
25477                                           q{sysfun},
25478                                           $tracelevel)
25479                                                 if defined $::RD_TRACE;
25480                 my $thisprod = $thisrule->{"prods"}[33];
25481                 $text = $_[1];
25482                 my $_savetext;
25483                 @item = (q{sysfun});
25484                 %item = (__RULE__ => q{sysfun});
25485                 my $repcount = 0;
25486
25487
25488                 Parse::RecDescent::_trace(q{Trying terminal: [/POWER/i]}, Parse::RecDescent::_tracefirst($text),
25489                                           q{sysfun},
25490                                           $tracelevel)
25491                                                 if defined $::RD_TRACE;
25492                 $lastsep = "";
25493                 $expectation->is(q{})->at($text);
25494
25495
25496                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:POWER)//i)
25497                 {
25498
25499                         $expectation->failed();
25500                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25501                                                   Parse::RecDescent::_tracefirst($text))
25502                                         if defined $::RD_TRACE;
25503
25504                         last;
25505                 }
25506                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25507                                                 . $& . q{])},
25508                                                   Parse::RecDescent::_tracefirst($text))
25509                                         if defined $::RD_TRACE;
25510                 push @item, $item{__PATTERN1__}=$&;
25511
25512
25513
25514                 Parse::RecDescent::_trace(q{>>Matched production: [/POWER/i]<<},
25515                                           Parse::RecDescent::_tracefirst($text),
25516                                           q{sysfun},
25517                                           $tracelevel)
25518                                                 if defined $::RD_TRACE;
25519                 $_matched = 1;
25520                 last;
25521         }
25522
25523
25524         while (!$_matched && !$commit)
25525         {
25526
25527                 Parse::RecDescent::_trace(q{Trying production: [/PUT_ROUTINE_SAR/i]},
25528                                           Parse::RecDescent::_tracefirst($_[1]),
25529                                           q{sysfun},
25530                                           $tracelevel)
25531                                                 if defined $::RD_TRACE;
25532                 my $thisprod = $thisrule->{"prods"}[34];
25533                 $text = $_[1];
25534                 my $_savetext;
25535                 @item = (q{sysfun});
25536                 %item = (__RULE__ => q{sysfun});
25537                 my $repcount = 0;
25538
25539
25540                 Parse::RecDescent::_trace(q{Trying terminal: [/PUT_ROUTINE_SAR/i]}, Parse::RecDescent::_tracefirst($text),
25541                                           q{sysfun},
25542                                           $tracelevel)
25543                                                 if defined $::RD_TRACE;
25544                 $lastsep = "";
25545                 $expectation->is(q{})->at($text);
25546
25547
25548                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:PUT_ROUTINE_SAR)//i)
25549                 {
25550
25551                         $expectation->failed();
25552                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25553                                                   Parse::RecDescent::_tracefirst($text))
25554                                         if defined $::RD_TRACE;
25555
25556                         last;
25557                 }
25558                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25559                                                 . $& . q{])},
25560                                                   Parse::RecDescent::_tracefirst($text))
25561                                         if defined $::RD_TRACE;
25562                 push @item, $item{__PATTERN1__}=$&;
25563
25564
25565
25566                 Parse::RecDescent::_trace(q{>>Matched production: [/PUT_ROUTINE_SAR/i]<<},
25567                                           Parse::RecDescent::_tracefirst($text),
25568                                           q{sysfun},
25569                                           $tracelevel)
25570                                                 if defined $::RD_TRACE;
25571                 $_matched = 1;
25572                 last;
25573         }
25574
25575
25576         while (!$_matched && !$commit)
25577         {
25578
25579                 Parse::RecDescent::_trace(q{Trying production: [/QUARTER/i]},
25580                                           Parse::RecDescent::_tracefirst($_[1]),
25581                                           q{sysfun},
25582                                           $tracelevel)
25583                                                 if defined $::RD_TRACE;
25584                 my $thisprod = $thisrule->{"prods"}[35];
25585                 $text = $_[1];
25586                 my $_savetext;
25587                 @item = (q{sysfun});
25588                 %item = (__RULE__ => q{sysfun});
25589                 my $repcount = 0;
25590
25591
25592                 Parse::RecDescent::_trace(q{Trying terminal: [/QUARTER/i]}, Parse::RecDescent::_tracefirst($text),
25593                                           q{sysfun},
25594                                           $tracelevel)
25595                                                 if defined $::RD_TRACE;
25596                 $lastsep = "";
25597                 $expectation->is(q{})->at($text);
25598
25599
25600                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:QUARTER)//i)
25601                 {
25602
25603                         $expectation->failed();
25604                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25605                                                   Parse::RecDescent::_tracefirst($text))
25606                                         if defined $::RD_TRACE;
25607
25608                         last;
25609                 }
25610                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25611                                                 . $& . q{])},
25612                                                   Parse::RecDescent::_tracefirst($text))
25613                                         if defined $::RD_TRACE;
25614                 push @item, $item{__PATTERN1__}=$&;
25615
25616
25617
25618                 Parse::RecDescent::_trace(q{>>Matched production: [/QUARTER/i]<<},
25619                                           Parse::RecDescent::_tracefirst($text),
25620                                           q{sysfun},
25621                                           $tracelevel)
25622                                                 if defined $::RD_TRACE;
25623                 $_matched = 1;
25624                 last;
25625         }
25626
25627
25628         while (!$_matched && !$commit)
25629         {
25630
25631                 Parse::RecDescent::_trace(q{Trying production: [/RADIANS/i]},
25632                                           Parse::RecDescent::_tracefirst($_[1]),
25633                                           q{sysfun},
25634                                           $tracelevel)
25635                                                 if defined $::RD_TRACE;
25636                 my $thisprod = $thisrule->{"prods"}[36];
25637                 $text = $_[1];
25638                 my $_savetext;
25639                 @item = (q{sysfun});
25640                 %item = (__RULE__ => q{sysfun});
25641                 my $repcount = 0;
25642
25643
25644                 Parse::RecDescent::_trace(q{Trying terminal: [/RADIANS/i]}, Parse::RecDescent::_tracefirst($text),
25645                                           q{sysfun},
25646                                           $tracelevel)
25647                                                 if defined $::RD_TRACE;
25648                 $lastsep = "";
25649                 $expectation->is(q{})->at($text);
25650
25651
25652                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:RADIANS)//i)
25653                 {
25654
25655                         $expectation->failed();
25656                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25657                                                   Parse::RecDescent::_tracefirst($text))
25658                                         if defined $::RD_TRACE;
25659
25660                         last;
25661                 }
25662                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25663                                                 . $& . q{])},
25664                                                   Parse::RecDescent::_tracefirst($text))
25665                                         if defined $::RD_TRACE;
25666                 push @item, $item{__PATTERN1__}=$&;
25667
25668
25669
25670                 Parse::RecDescent::_trace(q{>>Matched production: [/RADIANS/i]<<},
25671                                           Parse::RecDescent::_tracefirst($text),
25672                                           q{sysfun},
25673                                           $tracelevel)
25674                                                 if defined $::RD_TRACE;
25675                 $_matched = 1;
25676                 last;
25677         }
25678
25679
25680         while (!$_matched && !$commit)
25681         {
25682
25683                 Parse::RecDescent::_trace(q{Trying production: [/RAND/i]},
25684                                           Parse::RecDescent::_tracefirst($_[1]),
25685                                           q{sysfun},
25686                                           $tracelevel)
25687                                                 if defined $::RD_TRACE;
25688                 my $thisprod = $thisrule->{"prods"}[37];
25689                 $text = $_[1];
25690                 my $_savetext;
25691                 @item = (q{sysfun});
25692                 %item = (__RULE__ => q{sysfun});
25693                 my $repcount = 0;
25694
25695
25696                 Parse::RecDescent::_trace(q{Trying terminal: [/RAND/i]}, Parse::RecDescent::_tracefirst($text),
25697                                           q{sysfun},
25698                                           $tracelevel)
25699                                                 if defined $::RD_TRACE;
25700                 $lastsep = "";
25701                 $expectation->is(q{})->at($text);
25702
25703
25704                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:RAND)//i)
25705                 {
25706
25707                         $expectation->failed();
25708                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25709                                                   Parse::RecDescent::_tracefirst($text))
25710                                         if defined $::RD_TRACE;
25711
25712                         last;
25713                 }
25714                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25715                                                 . $& . q{])},
25716                                                   Parse::RecDescent::_tracefirst($text))
25717                                         if defined $::RD_TRACE;
25718                 push @item, $item{__PATTERN1__}=$&;
25719
25720
25721
25722                 Parse::RecDescent::_trace(q{>>Matched production: [/RAND/i]<<},
25723                                           Parse::RecDescent::_tracefirst($text),
25724                                           q{sysfun},
25725                                           $tracelevel)
25726                                                 if defined $::RD_TRACE;
25727                 $_matched = 1;
25728                 last;
25729         }
25730
25731
25732         while (!$_matched && !$commit)
25733         {
25734
25735                 Parse::RecDescent::_trace(q{Trying production: [/REPEAT/i]},
25736                                           Parse::RecDescent::_tracefirst($_[1]),
25737                                           q{sysfun},
25738                                           $tracelevel)
25739                                                 if defined $::RD_TRACE;
25740                 my $thisprod = $thisrule->{"prods"}[38];
25741                 $text = $_[1];
25742                 my $_savetext;
25743                 @item = (q{sysfun});
25744                 %item = (__RULE__ => q{sysfun});
25745                 my $repcount = 0;
25746
25747
25748                 Parse::RecDescent::_trace(q{Trying terminal: [/REPEAT/i]}, Parse::RecDescent::_tracefirst($text),
25749                                           q{sysfun},
25750                                           $tracelevel)
25751                                                 if defined $::RD_TRACE;
25752                 $lastsep = "";
25753                 $expectation->is(q{})->at($text);
25754
25755
25756                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REPEAT)//i)
25757                 {
25758
25759                         $expectation->failed();
25760                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25761                                                   Parse::RecDescent::_tracefirst($text))
25762                                         if defined $::RD_TRACE;
25763
25764                         last;
25765                 }
25766                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25767                                                 . $& . q{])},
25768                                                   Parse::RecDescent::_tracefirst($text))
25769                                         if defined $::RD_TRACE;
25770                 push @item, $item{__PATTERN1__}=$&;
25771
25772
25773
25774                 Parse::RecDescent::_trace(q{>>Matched production: [/REPEAT/i]<<},
25775                                           Parse::RecDescent::_tracefirst($text),
25776                                           q{sysfun},
25777                                           $tracelevel)
25778                                                 if defined $::RD_TRACE;
25779                 $_matched = 1;
25780                 last;
25781         }
25782
25783
25784         while (!$_matched && !$commit)
25785         {
25786
25787                 Parse::RecDescent::_trace(q{Trying production: [/REPLACE/i]},
25788                                           Parse::RecDescent::_tracefirst($_[1]),
25789                                           q{sysfun},
25790                                           $tracelevel)
25791                                                 if defined $::RD_TRACE;
25792                 my $thisprod = $thisrule->{"prods"}[39];
25793                 $text = $_[1];
25794                 my $_savetext;
25795                 @item = (q{sysfun});
25796                 %item = (__RULE__ => q{sysfun});
25797                 my $repcount = 0;
25798
25799
25800                 Parse::RecDescent::_trace(q{Trying terminal: [/REPLACE/i]}, Parse::RecDescent::_tracefirst($text),
25801                                           q{sysfun},
25802                                           $tracelevel)
25803                                                 if defined $::RD_TRACE;
25804                 $lastsep = "";
25805                 $expectation->is(q{})->at($text);
25806
25807
25808                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REPLACE)//i)
25809                 {
25810
25811                         $expectation->failed();
25812                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25813                                                   Parse::RecDescent::_tracefirst($text))
25814                                         if defined $::RD_TRACE;
25815
25816                         last;
25817                 }
25818                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25819                                                 . $& . q{])},
25820                                                   Parse::RecDescent::_tracefirst($text))
25821                                         if defined $::RD_TRACE;
25822                 push @item, $item{__PATTERN1__}=$&;
25823
25824
25825
25826                 Parse::RecDescent::_trace(q{>>Matched production: [/REPLACE/i]<<},
25827                                           Parse::RecDescent::_tracefirst($text),
25828                                           q{sysfun},
25829                                           $tracelevel)
25830                                                 if defined $::RD_TRACE;
25831                 $_matched = 1;
25832                 last;
25833         }
25834
25835
25836         while (!$_matched && !$commit)
25837         {
25838
25839                 Parse::RecDescent::_trace(q{Trying production: [/RIGHT/i]},
25840                                           Parse::RecDescent::_tracefirst($_[1]),
25841                                           q{sysfun},
25842                                           $tracelevel)
25843                                                 if defined $::RD_TRACE;
25844                 my $thisprod = $thisrule->{"prods"}[40];
25845                 $text = $_[1];
25846                 my $_savetext;
25847                 @item = (q{sysfun});
25848                 %item = (__RULE__ => q{sysfun});
25849                 my $repcount = 0;
25850
25851
25852                 Parse::RecDescent::_trace(q{Trying terminal: [/RIGHT/i]}, Parse::RecDescent::_tracefirst($text),
25853                                           q{sysfun},
25854                                           $tracelevel)
25855                                                 if defined $::RD_TRACE;
25856                 $lastsep = "";
25857                 $expectation->is(q{})->at($text);
25858
25859
25860                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:RIGHT)//i)
25861                 {
25862
25863                         $expectation->failed();
25864                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25865                                                   Parse::RecDescent::_tracefirst($text))
25866                                         if defined $::RD_TRACE;
25867
25868                         last;
25869                 }
25870                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25871                                                 . $& . q{])},
25872                                                   Parse::RecDescent::_tracefirst($text))
25873                                         if defined $::RD_TRACE;
25874                 push @item, $item{__PATTERN1__}=$&;
25875
25876
25877
25878                 Parse::RecDescent::_trace(q{>>Matched production: [/RIGHT/i]<<},
25879                                           Parse::RecDescent::_tracefirst($text),
25880                                           q{sysfun},
25881                                           $tracelevel)
25882                                                 if defined $::RD_TRACE;
25883                 $_matched = 1;
25884                 last;
25885         }
25886
25887
25888         while (!$_matched && !$commit)
25889         {
25890
25891                 Parse::RecDescent::_trace(q{Trying production: [/ROUND/i]},
25892                                           Parse::RecDescent::_tracefirst($_[1]),
25893                                           q{sysfun},
25894                                           $tracelevel)
25895                                                 if defined $::RD_TRACE;
25896                 my $thisprod = $thisrule->{"prods"}[41];
25897                 $text = $_[1];
25898                 my $_savetext;
25899                 @item = (q{sysfun});
25900                 %item = (__RULE__ => q{sysfun});
25901                 my $repcount = 0;
25902
25903
25904                 Parse::RecDescent::_trace(q{Trying terminal: [/ROUND/i]}, Parse::RecDescent::_tracefirst($text),
25905                                           q{sysfun},
25906                                           $tracelevel)
25907                                                 if defined $::RD_TRACE;
25908                 $lastsep = "";
25909                 $expectation->is(q{})->at($text);
25910
25911
25912                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ROUND)//i)
25913                 {
25914
25915                         $expectation->failed();
25916                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25917                                                   Parse::RecDescent::_tracefirst($text))
25918                                         if defined $::RD_TRACE;
25919
25920                         last;
25921                 }
25922                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25923                                                 . $& . q{])},
25924                                                   Parse::RecDescent::_tracefirst($text))
25925                                         if defined $::RD_TRACE;
25926                 push @item, $item{__PATTERN1__}=$&;
25927
25928
25929
25930                 Parse::RecDescent::_trace(q{>>Matched production: [/ROUND/i]<<},
25931                                           Parse::RecDescent::_tracefirst($text),
25932                                           q{sysfun},
25933                                           $tracelevel)
25934                                                 if defined $::RD_TRACE;
25935                 $_matched = 1;
25936                 last;
25937         }
25938
25939
25940         while (!$_matched && !$commit)
25941         {
25942
25943                 Parse::RecDescent::_trace(q{Trying production: [/RTRIM/ I]},
25944                                           Parse::RecDescent::_tracefirst($_[1]),
25945                                           q{sysfun},
25946                                           $tracelevel)
25947                                                 if defined $::RD_TRACE;
25948                 my $thisprod = $thisrule->{"prods"}[42];
25949                 $text = $_[1];
25950                 my $_savetext;
25951                 @item = (q{sysfun});
25952                 %item = (__RULE__ => q{sysfun});
25953                 my $repcount = 0;
25954
25955
25956                 Parse::RecDescent::_trace(q{Trying terminal: [/RTRIM/]}, Parse::RecDescent::_tracefirst($text),
25957                                           q{sysfun},
25958                                           $tracelevel)
25959                                                 if defined $::RD_TRACE;
25960                 $lastsep = "";
25961                 $expectation->is(q{})->at($text);
25962
25963
25964                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:RTRIM)//)
25965                 {
25966
25967                         $expectation->failed();
25968                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
25969                                                   Parse::RecDescent::_tracefirst($text))
25970                                         if defined $::RD_TRACE;
25971
25972                         last;
25973                 }
25974                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
25975                                                 . $& . q{])},
25976                                                   Parse::RecDescent::_tracefirst($text))
25977                                         if defined $::RD_TRACE;
25978                 push @item, $item{__PATTERN1__}=$&;
25979
25980
25981                 Parse::RecDescent::_trace(q{Trying subrule: [I]},
25982                                   Parse::RecDescent::_tracefirst($text),
25983                                   q{sysfun},
25984                                   $tracelevel)
25985                                         if defined $::RD_TRACE;
25986                 if (1) { no strict qw{refs};
25987                 $expectation->is(q{I})->at($text);
25988                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::I($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
25989                 {
25990
25991                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [I]>>},
25992                                                   Parse::RecDescent::_tracefirst($text),
25993                                                   q{sysfun},
25994                                                   $tracelevel)
25995                                                         if defined $::RD_TRACE;
25996                         $expectation->failed();
25997                         last;
25998                 }
25999                 Parse::RecDescent::_trace(q{>>Matched subrule: [I]<< (return value: [}
26000                                         . $_tok . q{]},
26001
26002                                           Parse::RecDescent::_tracefirst($text),
26003                                           q{sysfun},
26004                                           $tracelevel)
26005                                                 if defined $::RD_TRACE;
26006                 $item{q{I}} = $_tok;
26007                 push @item, $_tok;
26008
26009                 }
26010
26011
26012                 Parse::RecDescent::_trace(q{>>Matched production: [/RTRIM/ I]<<},
26013                                           Parse::RecDescent::_tracefirst($text),
26014                                           q{sysfun},
26015                                           $tracelevel)
26016                                                 if defined $::RD_TRACE;
26017                 $_matched = 1;
26018                 last;
26019         }
26020
26021
26022         while (!$_matched && !$commit)
26023         {
26024
26025                 Parse::RecDescent::_trace(q{Trying production: [/SIGN/i]},
26026                                           Parse::RecDescent::_tracefirst($_[1]),
26027                                           q{sysfun},
26028                                           $tracelevel)
26029                                                 if defined $::RD_TRACE;
26030                 my $thisprod = $thisrule->{"prods"}[43];
26031                 $text = $_[1];
26032                 my $_savetext;
26033                 @item = (q{sysfun});
26034                 %item = (__RULE__ => q{sysfun});
26035                 my $repcount = 0;
26036
26037
26038                 Parse::RecDescent::_trace(q{Trying terminal: [/SIGN/i]}, Parse::RecDescent::_tracefirst($text),
26039                                           q{sysfun},
26040                                           $tracelevel)
26041                                                 if defined $::RD_TRACE;
26042                 $lastsep = "";
26043                 $expectation->is(q{})->at($text);
26044
26045
26046                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SIGN)//i)
26047                 {
26048
26049                         $expectation->failed();
26050                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
26051                                                   Parse::RecDescent::_tracefirst($text))
26052                                         if defined $::RD_TRACE;
26053
26054                         last;
26055                 }
26056                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
26057                                                 . $& . q{])},
26058                                                   Parse::RecDescent::_tracefirst($text))
26059                                         if defined $::RD_TRACE;
26060                 push @item, $item{__PATTERN1__}=$&;
26061
26062
26063
26064                 Parse::RecDescent::_trace(q{>>Matched production: [/SIGN/i]<<},
26065                                           Parse::RecDescent::_tracefirst($text),
26066                                           q{sysfun},
26067                                           $tracelevel)
26068                                                 if defined $::RD_TRACE;
26069                 $_matched = 1;
26070                 last;
26071         }
26072
26073
26074         while (!$_matched && !$commit)
26075         {
26076
26077                 Parse::RecDescent::_trace(q{Trying production: [/SIN/i]},
26078                                           Parse::RecDescent::_tracefirst($_[1]),
26079                                           q{sysfun},
26080                                           $tracelevel)
26081                                                 if defined $::RD_TRACE;
26082                 my $thisprod = $thisrule->{"prods"}[44];
26083                 $text = $_[1];
26084                 my $_savetext;
26085                 @item = (q{sysfun});
26086                 %item = (__RULE__ => q{sysfun});
26087                 my $repcount = 0;
26088
26089
26090                 Parse::RecDescent::_trace(q{Trying terminal: [/SIN/i]}, Parse::RecDescent::_tracefirst($text),
26091                                           q{sysfun},
26092                                           $tracelevel)
26093                                                 if defined $::RD_TRACE;
26094                 $lastsep = "";
26095                 $expectation->is(q{})->at($text);
26096
26097
26098                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SIN)//i)
26099                 {
26100
26101                         $expectation->failed();
26102                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
26103                                                   Parse::RecDescent::_tracefirst($text))
26104                                         if defined $::RD_TRACE;
26105
26106                         last;
26107                 }
26108                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
26109                                                 . $& . q{])},
26110                                                   Parse::RecDescent::_tracefirst($text))
26111                                         if defined $::RD_TRACE;
26112                 push @item, $item{__PATTERN1__}=$&;
26113
26114
26115
26116                 Parse::RecDescent::_trace(q{>>Matched production: [/SIN/i]<<},
26117                                           Parse::RecDescent::_tracefirst($text),
26118                                           q{sysfun},
26119                                           $tracelevel)
26120                                                 if defined $::RD_TRACE;
26121                 $_matched = 1;
26122                 last;
26123         }
26124
26125
26126         while (!$_matched && !$commit)
26127         {
26128
26129                 Parse::RecDescent::_trace(q{Trying production: [/SOUNDEX/i]},
26130                                           Parse::RecDescent::_tracefirst($_[1]),
26131                                           q{sysfun},
26132                                           $tracelevel)
26133                                                 if defined $::RD_TRACE;
26134                 my $thisprod = $thisrule->{"prods"}[45];
26135                 $text = $_[1];
26136                 my $_savetext;
26137                 @item = (q{sysfun});
26138                 %item = (__RULE__ => q{sysfun});
26139                 my $repcount = 0;
26140
26141
26142                 Parse::RecDescent::_trace(q{Trying terminal: [/SOUNDEX/i]}, Parse::RecDescent::_tracefirst($text),
26143                                           q{sysfun},
26144                                           $tracelevel)
26145                                                 if defined $::RD_TRACE;
26146                 $lastsep = "";
26147                 $expectation->is(q{})->at($text);
26148
26149
26150                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SOUNDEX)//i)
26151                 {
26152
26153                         $expectation->failed();
26154                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
26155                                                   Parse::RecDescent::_tracefirst($text))
26156                                         if defined $::RD_TRACE;
26157
26158                         last;
26159                 }
26160                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
26161                                                 . $& . q{])},
26162                                                   Parse::RecDescent::_tracefirst($text))
26163                                         if defined $::RD_TRACE;
26164                 push @item, $item{__PATTERN1__}=$&;
26165
26166
26167
26168                 Parse::RecDescent::_trace(q{>>Matched production: [/SOUNDEX/i]<<},
26169                                           Parse::RecDescent::_tracefirst($text),
26170                                           q{sysfun},
26171                                           $tracelevel)
26172                                                 if defined $::RD_TRACE;
26173                 $_matched = 1;
26174                 last;
26175         }
26176
26177
26178         while (!$_matched && !$commit)
26179         {
26180
26181                 Parse::RecDescent::_trace(q{Trying production: [/SPACE/i]},
26182                                           Parse::RecDescent::_tracefirst($_[1]),
26183                                           q{sysfun},
26184                                           $tracelevel)
26185                                                 if defined $::RD_TRACE;
26186                 my $thisprod = $thisrule->{"prods"}[46];
26187                 $text = $_[1];
26188                 my $_savetext;
26189                 @item = (q{sysfun});
26190                 %item = (__RULE__ => q{sysfun});
26191                 my $repcount = 0;
26192
26193
26194                 Parse::RecDescent::_trace(q{Trying terminal: [/SPACE/i]}, Parse::RecDescent::_tracefirst($text),
26195                                           q{sysfun},
26196                                           $tracelevel)
26197                                                 if defined $::RD_TRACE;
26198                 $lastsep = "";
26199                 $expectation->is(q{})->at($text);
26200
26201
26202                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SPACE)//i)
26203                 {
26204
26205                         $expectation->failed();
26206                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
26207                                                   Parse::RecDescent::_tracefirst($text))
26208                                         if defined $::RD_TRACE;
26209
26210                         last;
26211                 }
26212                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
26213                                                 . $& . q{])},
26214                                                   Parse::RecDescent::_tracefirst($text))
26215                                         if defined $::RD_TRACE;
26216                 push @item, $item{__PATTERN1__}=$&;
26217
26218
26219
26220                 Parse::RecDescent::_trace(q{>>Matched production: [/SPACE/i]<<},
26221                                           Parse::RecDescent::_tracefirst($text),
26222                                           q{sysfun},
26223                                           $tracelevel)
26224                                                 if defined $::RD_TRACE;
26225                 $_matched = 1;
26226                 last;
26227         }
26228
26229
26230         while (!$_matched && !$commit)
26231         {
26232
26233                 Parse::RecDescent::_trace(q{Trying production: [/SQLCACHE_SNAPSHOT/i]},
26234                                           Parse::RecDescent::_tracefirst($_[1]),
26235                                           q{sysfun},
26236                                           $tracelevel)
26237                                                 if defined $::RD_TRACE;
26238                 my $thisprod = $thisrule->{"prods"}[47];
26239                 $text = $_[1];
26240                 my $_savetext;
26241                 @item = (q{sysfun});
26242                 %item = (__RULE__ => q{sysfun});
26243                 my $repcount = 0;
26244
26245
26246                 Parse::RecDescent::_trace(q{Trying terminal: [/SQLCACHE_SNAPSHOT/i]}, Parse::RecDescent::_tracefirst($text),
26247                                           q{sysfun},
26248                                           $tracelevel)
26249                                                 if defined $::RD_TRACE;
26250                 $lastsep = "";
26251                 $expectation->is(q{})->at($text);
26252
26253
26254                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SQLCACHE_SNAPSHOT)//i)
26255                 {
26256
26257                         $expectation->failed();
26258                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
26259                                                   Parse::RecDescent::_tracefirst($text))
26260                                         if defined $::RD_TRACE;
26261
26262                         last;
26263                 }
26264                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
26265                                                 . $& . q{])},
26266                                                   Parse::RecDescent::_tracefirst($text))
26267                                         if defined $::RD_TRACE;
26268                 push @item, $item{__PATTERN1__}=$&;
26269
26270
26271
26272                 Parse::RecDescent::_trace(q{>>Matched production: [/SQLCACHE_SNAPSHOT/i]<<},
26273                                           Parse::RecDescent::_tracefirst($text),
26274                                           q{sysfun},
26275                                           $tracelevel)
26276                                                 if defined $::RD_TRACE;
26277                 $_matched = 1;
26278                 last;
26279         }
26280
26281
26282         while (!$_matched && !$commit)
26283         {
26284
26285                 Parse::RecDescent::_trace(q{Trying production: [/SQRT/i]},
26286                                           Parse::RecDescent::_tracefirst($_[1]),
26287                                           q{sysfun},
26288                                           $tracelevel)
26289                                                 if defined $::RD_TRACE;
26290                 my $thisprod = $thisrule->{"prods"}[48];
26291                 $text = $_[1];
26292                 my $_savetext;
26293                 @item = (q{sysfun});
26294                 %item = (__RULE__ => q{sysfun});
26295                 my $repcount = 0;
26296
26297
26298                 Parse::RecDescent::_trace(q{Trying terminal: [/SQRT/i]}, Parse::RecDescent::_tracefirst($text),
26299                                           q{sysfun},
26300                                           $tracelevel)
26301                                                 if defined $::RD_TRACE;
26302                 $lastsep = "";
26303                 $expectation->is(q{})->at($text);
26304
26305
26306                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SQRT)//i)
26307                 {
26308
26309                         $expectation->failed();
26310                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
26311                                                   Parse::RecDescent::_tracefirst($text))
26312                                         if defined $::RD_TRACE;
26313
26314                         last;
26315                 }
26316                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
26317                                                 . $& . q{])},
26318                                                   Parse::RecDescent::_tracefirst($text))
26319                                         if defined $::RD_TRACE;
26320                 push @item, $item{__PATTERN1__}=$&;
26321
26322
26323
26324                 Parse::RecDescent::_trace(q{>>Matched production: [/SQRT/i]<<},
26325                                           Parse::RecDescent::_tracefirst($text),
26326                                           q{sysfun},
26327                                           $tracelevel)
26328                                                 if defined $::RD_TRACE;
26329                 $_matched = 1;
26330                 last;
26331         }
26332
26333
26334         while (!$_matched && !$commit)
26335         {
26336
26337                 Parse::RecDescent::_trace(q{Trying production: [/TAN/i]},
26338                                           Parse::RecDescent::_tracefirst($_[1]),
26339                                           q{sysfun},
26340                                           $tracelevel)
26341                                                 if defined $::RD_TRACE;
26342                 my $thisprod = $thisrule->{"prods"}[49];
26343                 $text = $_[1];
26344                 my $_savetext;
26345                 @item = (q{sysfun});
26346                 %item = (__RULE__ => q{sysfun});
26347                 my $repcount = 0;
26348
26349
26350                 Parse::RecDescent::_trace(q{Trying terminal: [/TAN/i]}, Parse::RecDescent::_tracefirst($text),
26351                                           q{sysfun},
26352                                           $tracelevel)
26353                                                 if defined $::RD_TRACE;
26354                 $lastsep = "";
26355                 $expectation->is(q{})->at($text);
26356
26357
26358                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:TAN)//i)
26359                 {
26360
26361                         $expectation->failed();
26362                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
26363                                                   Parse::RecDescent::_tracefirst($text))
26364                                         if defined $::RD_TRACE;
26365
26366                         last;
26367                 }
26368                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
26369                                                 . $& . q{])},
26370                                                   Parse::RecDescent::_tracefirst($text))
26371                                         if defined $::RD_TRACE;
26372                 push @item, $item{__PATTERN1__}=$&;
26373
26374
26375
26376                 Parse::RecDescent::_trace(q{>>Matched production: [/TAN/i]<<},
26377                                           Parse::RecDescent::_tracefirst($text),
26378                                           q{sysfun},
26379                                           $tracelevel)
26380                                                 if defined $::RD_TRACE;
26381                 $_matched = 1;
26382                 last;
26383         }
26384
26385
26386         while (!$_matched && !$commit)
26387         {
26388
26389                 Parse::RecDescent::_trace(q{Trying production: [/TIMESTAMP_ISO/i]},
26390                                           Parse::RecDescent::_tracefirst($_[1]),
26391                                           q{sysfun},
26392                                           $tracelevel)
26393                                                 if defined $::RD_TRACE;
26394                 my $thisprod = $thisrule->{"prods"}[50];
26395                 $text = $_[1];
26396                 my $_savetext;
26397                 @item = (q{sysfun});
26398                 %item = (__RULE__ => q{sysfun});
26399                 my $repcount = 0;
26400
26401
26402                 Parse::RecDescent::_trace(q{Trying terminal: [/TIMESTAMP_ISO/i]}, Parse::RecDescent::_tracefirst($text),
26403                                           q{sysfun},
26404                                           $tracelevel)
26405                                                 if defined $::RD_TRACE;
26406                 $lastsep = "";
26407                 $expectation->is(q{})->at($text);
26408
26409
26410                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:TIMESTAMP_ISO)//i)
26411                 {
26412
26413                         $expectation->failed();
26414                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
26415                                                   Parse::RecDescent::_tracefirst($text))
26416                                         if defined $::RD_TRACE;
26417
26418                         last;
26419                 }
26420                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
26421                                                 . $& . q{])},
26422                                                   Parse::RecDescent::_tracefirst($text))
26423                                         if defined $::RD_TRACE;
26424                 push @item, $item{__PATTERN1__}=$&;
26425
26426
26427
26428                 Parse::RecDescent::_trace(q{>>Matched production: [/TIMESTAMP_ISO/i]<<},
26429                                           Parse::RecDescent::_tracefirst($text),
26430                                           q{sysfun},
26431                                           $tracelevel)
26432                                                 if defined $::RD_TRACE;
26433                 $_matched = 1;
26434                 last;
26435         }
26436
26437
26438         while (!$_matched && !$commit)
26439         {
26440
26441                 Parse::RecDescent::_trace(q{Trying production: [/TIMESTAMPDIFF/i]},
26442                                           Parse::RecDescent::_tracefirst($_[1]),
26443                                           q{sysfun},
26444                                           $tracelevel)
26445                                                 if defined $::RD_TRACE;
26446                 my $thisprod = $thisrule->{"prods"}[51];
26447                 $text = $_[1];
26448                 my $_savetext;
26449                 @item = (q{sysfun});
26450                 %item = (__RULE__ => q{sysfun});
26451                 my $repcount = 0;
26452
26453
26454                 Parse::RecDescent::_trace(q{Trying terminal: [/TIMESTAMPDIFF/i]}, Parse::RecDescent::_tracefirst($text),
26455                                           q{sysfun},
26456                                           $tracelevel)
26457                                                 if defined $::RD_TRACE;
26458                 $lastsep = "";
26459                 $expectation->is(q{})->at($text);
26460
26461
26462                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:TIMESTAMPDIFF)//i)
26463                 {
26464
26465                         $expectation->failed();
26466                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
26467                                                   Parse::RecDescent::_tracefirst($text))
26468                                         if defined $::RD_TRACE;
26469
26470                         last;
26471                 }
26472                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
26473                                                 . $& . q{])},
26474                                                   Parse::RecDescent::_tracefirst($text))
26475                                         if defined $::RD_TRACE;
26476                 push @item, $item{__PATTERN1__}=$&;
26477
26478
26479
26480                 Parse::RecDescent::_trace(q{>>Matched production: [/TIMESTAMPDIFF/i]<<},
26481                                           Parse::RecDescent::_tracefirst($text),
26482                                           q{sysfun},
26483                                           $tracelevel)
26484                                                 if defined $::RD_TRACE;
26485                 $_matched = 1;
26486                 last;
26487         }
26488
26489
26490         while (!$_matched && !$commit)
26491         {
26492
26493                 Parse::RecDescent::_trace(q{Trying production: [/TRUNCATE/i, or /TRUNC/i]},
26494                                           Parse::RecDescent::_tracefirst($_[1]),
26495                                           q{sysfun},
26496                                           $tracelevel)
26497                                                 if defined $::RD_TRACE;
26498                 my $thisprod = $thisrule->{"prods"}[52];
26499                 $text = $_[1];
26500                 my $_savetext;
26501                 @item = (q{sysfun});
26502                 %item = (__RULE__ => q{sysfun});
26503                 my $repcount = 0;
26504
26505
26506                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_53_of_rule_sysfun]},
26507                                   Parse::RecDescent::_tracefirst($text),
26508                                   q{sysfun},
26509                                   $tracelevel)
26510                                         if defined $::RD_TRACE;
26511                 if (1) { no strict qw{refs};
26512                 $expectation->is(q{})->at($text);
26513                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_53_of_rule_sysfun($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
26514                 {
26515
26516                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_53_of_rule_sysfun]>>},
26517                                                   Parse::RecDescent::_tracefirst($text),
26518                                                   q{sysfun},
26519                                                   $tracelevel)
26520                                                         if defined $::RD_TRACE;
26521                         $expectation->failed();
26522                         last;
26523                 }
26524                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_53_of_rule_sysfun]<< (return value: [}
26525                                         . $_tok . q{]},
26526
26527                                           Parse::RecDescent::_tracefirst($text),
26528                                           q{sysfun},
26529                                           $tracelevel)
26530                                                 if defined $::RD_TRACE;
26531                 $item{q{_alternation_1_of_production_53_of_rule_sysfun}} = $_tok;
26532                 push @item, $_tok;
26533
26534                 }
26535
26536
26537                 Parse::RecDescent::_trace(q{>>Matched production: [/TRUNCATE/i, or /TRUNC/i]<<},
26538                                           Parse::RecDescent::_tracefirst($text),
26539                                           q{sysfun},
26540                                           $tracelevel)
26541                                                 if defined $::RD_TRACE;
26542                 $_matched = 1;
26543                 last;
26544         }
26545
26546
26547         while (!$_matched && !$commit)
26548         {
26549
26550                 Parse::RecDescent::_trace(q{Trying production: [/UCASE/i]},
26551                                           Parse::RecDescent::_tracefirst($_[1]),
26552                                           q{sysfun},
26553                                           $tracelevel)
26554                                                 if defined $::RD_TRACE;
26555                 my $thisprod = $thisrule->{"prods"}[53];
26556                 $text = $_[1];
26557                 my $_savetext;
26558                 @item = (q{sysfun});
26559                 %item = (__RULE__ => q{sysfun});
26560                 my $repcount = 0;
26561
26562
26563                 Parse::RecDescent::_trace(q{Trying terminal: [/UCASE/i]}, Parse::RecDescent::_tracefirst($text),
26564                                           q{sysfun},
26565                                           $tracelevel)
26566                                                 if defined $::RD_TRACE;
26567                 $lastsep = "";
26568                 $expectation->is(q{})->at($text);
26569
26570
26571                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:UCASE)//i)
26572                 {
26573
26574                         $expectation->failed();
26575                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
26576                                                   Parse::RecDescent::_tracefirst($text))
26577                                         if defined $::RD_TRACE;
26578
26579                         last;
26580                 }
26581                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
26582                                                 . $& . q{])},
26583                                                   Parse::RecDescent::_tracefirst($text))
26584                                         if defined $::RD_TRACE;
26585                 push @item, $item{__PATTERN1__}=$&;
26586
26587
26588
26589                 Parse::RecDescent::_trace(q{>>Matched production: [/UCASE/i]<<},
26590                                           Parse::RecDescent::_tracefirst($text),
26591                                           q{sysfun},
26592                                           $tracelevel)
26593                                                 if defined $::RD_TRACE;
26594                 $_matched = 1;
26595                 last;
26596         }
26597
26598
26599         while (!$_matched && !$commit)
26600         {
26601
26602                 Parse::RecDescent::_trace(q{Trying production: [/WEEK/i]},
26603                                           Parse::RecDescent::_tracefirst($_[1]),
26604                                           q{sysfun},
26605                                           $tracelevel)
26606                                                 if defined $::RD_TRACE;
26607                 my $thisprod = $thisrule->{"prods"}[54];
26608                 $text = $_[1];
26609                 my $_savetext;
26610                 @item = (q{sysfun});
26611                 %item = (__RULE__ => q{sysfun});
26612                 my $repcount = 0;
26613
26614
26615                 Parse::RecDescent::_trace(q{Trying terminal: [/WEEK/i]}, Parse::RecDescent::_tracefirst($text),
26616                                           q{sysfun},
26617                                           $tracelevel)
26618                                                 if defined $::RD_TRACE;
26619                 $lastsep = "";
26620                 $expectation->is(q{})->at($text);
26621
26622
26623                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:WEEK)//i)
26624                 {
26625
26626                         $expectation->failed();
26627                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
26628                                                   Parse::RecDescent::_tracefirst($text))
26629                                         if defined $::RD_TRACE;
26630
26631                         last;
26632                 }
26633                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
26634                                                 . $& . q{])},
26635                                                   Parse::RecDescent::_tracefirst($text))
26636                                         if defined $::RD_TRACE;
26637                 push @item, $item{__PATTERN1__}=$&;
26638
26639
26640
26641                 Parse::RecDescent::_trace(q{>>Matched production: [/WEEK/i]<<},
26642                                           Parse::RecDescent::_tracefirst($text),
26643                                           q{sysfun},
26644                                           $tracelevel)
26645                                                 if defined $::RD_TRACE;
26646                 $_matched = 1;
26647                 last;
26648         }
26649
26650
26651         while (!$_matched && !$commit)
26652         {
26653
26654                 Parse::RecDescent::_trace(q{Trying production: [/WEEK_ISO/i]},
26655                                           Parse::RecDescent::_tracefirst($_[1]),
26656                                           q{sysfun},
26657                                           $tracelevel)
26658                                                 if defined $::RD_TRACE;
26659                 my $thisprod = $thisrule->{"prods"}[55];
26660                 $text = $_[1];
26661                 my $_savetext;
26662                 @item = (q{sysfun});
26663                 %item = (__RULE__ => q{sysfun});
26664                 my $repcount = 0;
26665
26666
26667                 Parse::RecDescent::_trace(q{Trying terminal: [/WEEK_ISO/i]}, Parse::RecDescent::_tracefirst($text),
26668                                           q{sysfun},
26669                                           $tracelevel)
26670                                                 if defined $::RD_TRACE;
26671                 $lastsep = "";
26672                 $expectation->is(q{})->at($text);
26673
26674
26675                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:WEEK_ISO)//i)
26676                 {
26677
26678                         $expectation->failed();
26679                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
26680                                                   Parse::RecDescent::_tracefirst($text))
26681                                         if defined $::RD_TRACE;
26682
26683                         last;
26684                 }
26685                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
26686                                                 . $& . q{])},
26687                                                   Parse::RecDescent::_tracefirst($text))
26688                                         if defined $::RD_TRACE;
26689                 push @item, $item{__PATTERN1__}=$&;
26690
26691
26692
26693                 Parse::RecDescent::_trace(q{>>Matched production: [/WEEK_ISO/i]<<},
26694                                           Parse::RecDescent::_tracefirst($text),
26695                                           q{sysfun},
26696                                           $tracelevel)
26697                                                 if defined $::RD_TRACE;
26698                 $_matched = 1;
26699                 last;
26700         }
26701
26702
26703         unless ( $_matched || defined($return) || defined($score) )
26704         {
26705
26706
26707                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
26708                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
26709                                          Parse::RecDescent::_tracefirst($_[1]),
26710                                          q{sysfun},
26711                                          $tracelevel)
26712                                         if defined $::RD_TRACE;
26713                 return undef;
26714         }
26715         if (!defined($return) && defined($score))
26716         {
26717                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
26718                                           q{sysfun},
26719                                           $tracelevel)
26720                                                 if defined $::RD_TRACE;
26721                 $return = $score_return;
26722         }
26723         splice @{$thisparser->{errors}}, $err_at;
26724         $return = $item[$#item] unless defined $return;
26725         if (defined $::RD_TRACE)
26726         {
26727                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
26728                                           $return . q{])}, "",
26729                                           q{sysfun},
26730                                           $tracelevel);
26731                 Parse::RecDescent::_trace(q{(consumed: [} .
26732                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
26733                                           Parse::RecDescent::_tracefirst($text),
26734                                           , q{sysfun},
26735                                           $tracelevel)
26736         }
26737         $_[1] = $text;
26738         return $return;
26739 }
26740
26741 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
26742 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond
26743 {
26744         my $thisparser = $_[0];
26745         use vars q{$tracelevel};
26746         local $tracelevel = ($tracelevel||0)+1;
26747         $ERRORS = 0;
26748         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond"};
26749
26750         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond]},
26751                                   Parse::RecDescent::_tracefirst($_[1]),
26752                                   q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond},
26753                                   $tracelevel)
26754                                         if defined $::RD_TRACE;
26755
26756
26757         my $err_at = @{$thisparser->{errors}};
26758
26759         my $score;
26760         my $score_return;
26761         my $_tok;
26762         my $return = undef;
26763         my $_matched=0;
26764         my $commit=0;
26765         my @item = ();
26766         my %item = ();
26767         my $repeating =  defined($_[2]) && $_[2];
26768         my $_noactions = defined($_[3]) && $_[3];
26769         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
26770         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
26771         my $text;
26772         my $lastsep="";
26773         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
26774         $expectation->at($_[1]);
26775
26776         my $thisline;
26777         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
26778
26779
26780
26781         while (!$_matched && !$commit)
26782         {
26783
26784                 Parse::RecDescent::_trace(q{Trying production: [/SELECTIVITY/i numeric_constant]},
26785                                           Parse::RecDescent::_tracefirst($_[1]),
26786                                           q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond},
26787                                           $tracelevel)
26788                                                 if defined $::RD_TRACE;
26789                 my $thisprod = $thisrule->{"prods"}[0];
26790                 $text = $_[1];
26791                 my $_savetext;
26792                 @item = (q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond});
26793                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond});
26794                 my $repcount = 0;
26795
26796
26797                 Parse::RecDescent::_trace(q{Trying terminal: [/SELECTIVITY/i]}, Parse::RecDescent::_tracefirst($text),
26798                                           q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond},
26799                                           $tracelevel)
26800                                                 if defined $::RD_TRACE;
26801                 $lastsep = "";
26802                 $expectation->is(q{})->at($text);
26803
26804
26805                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SELECTIVITY)//i)
26806                 {
26807
26808                         $expectation->failed();
26809                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
26810                                                   Parse::RecDescent::_tracefirst($text))
26811                                         if defined $::RD_TRACE;
26812
26813                         last;
26814                 }
26815                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
26816                                                 . $& . q{])},
26817                                                   Parse::RecDescent::_tracefirst($text))
26818                                         if defined $::RD_TRACE;
26819                 push @item, $item{__PATTERN1__}=$&;
26820
26821
26822                 Parse::RecDescent::_trace(q{Trying subrule: [numeric_constant]},
26823                                   Parse::RecDescent::_tracefirst($text),
26824                                   q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond},
26825                                   $tracelevel)
26826                                         if defined $::RD_TRACE;
26827                 if (1) { no strict qw{refs};
26828                 $expectation->is(q{numeric_constant})->at($text);
26829                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::numeric_constant($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
26830                 {
26831
26832                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [numeric_constant]>>},
26833                                                   Parse::RecDescent::_tracefirst($text),
26834                                                   q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond},
26835                                                   $tracelevel)
26836                                                         if defined $::RD_TRACE;
26837                         $expectation->failed();
26838                         last;
26839                 }
26840                 Parse::RecDescent::_trace(q{>>Matched subrule: [numeric_constant]<< (return value: [}
26841                                         . $_tok . q{]},
26842
26843                                           Parse::RecDescent::_tracefirst($text),
26844                                           q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond},
26845                                           $tracelevel)
26846                                                 if defined $::RD_TRACE;
26847                 $item{q{numeric_constant}} = $_tok;
26848                 push @item, $_tok;
26849
26850                 }
26851
26852
26853                 Parse::RecDescent::_trace(q{>>Matched production: [/SELECTIVITY/i numeric_constant]<<},
26854                                           Parse::RecDescent::_tracefirst($text),
26855                                           q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond},
26856                                           $tracelevel)
26857                                                 if defined $::RD_TRACE;
26858                 $_matched = 1;
26859                 last;
26860         }
26861
26862
26863         unless ( $_matched || defined($return) || defined($score) )
26864         {
26865
26866
26867                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
26868                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
26869                                          Parse::RecDescent::_tracefirst($_[1]),
26870                                          q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond},
26871                                          $tracelevel)
26872                                         if defined $::RD_TRACE;
26873                 return undef;
26874         }
26875         if (!defined($return) && defined($score))
26876         {
26877                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
26878                                           q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond},
26879                                           $tracelevel)
26880                                                 if defined $::RD_TRACE;
26881                 $return = $score_return;
26882         }
26883         splice @{$thisparser->{errors}}, $err_at;
26884         $return = $item[$#item] unless defined $return;
26885         if (defined $::RD_TRACE)
26886         {
26887                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
26888                                           $return . q{])}, "",
26889                                           q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond},
26890                                           $tracelevel);
26891                 Parse::RecDescent::_trace(q{(consumed: [} .
26892                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
26893                                           Parse::RecDescent::_tracefirst($text),
26894                                           , q{_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond},
26895                                           $tracelevel)
26896         }
26897         $_[1] = $text;
26898         return $return;
26899 }
26900
26901 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
26902 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::NAME
26903 {
26904         my $thisparser = $_[0];
26905         use vars q{$tracelevel};
26906         local $tracelevel = ($tracelevel||0)+1;
26907         $ERRORS = 0;
26908         my $thisrule = $thisparser->{"rules"}{"NAME"};
26909
26910         Parse::RecDescent::_trace(q{Trying rule: [NAME]},
26911                                   Parse::RecDescent::_tracefirst($_[1]),
26912                                   q{NAME},
26913                                   $tracelevel)
26914                                         if defined $::RD_TRACE;
26915
26916
26917         my $err_at = @{$thisparser->{errors}};
26918
26919         my $score;
26920         my $score_return;
26921         my $_tok;
26922         my $return = undef;
26923         my $_matched=0;
26924         my $commit=0;
26925         my @item = ();
26926         my %item = ();
26927         my $repeating =  defined($_[2]) && $_[2];
26928         my $_noactions = defined($_[3]) && $_[3];
26929         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
26930         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
26931         my $text;
26932         my $lastsep="";
26933         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
26934         $expectation->at($_[1]);
26935
26936         my $thisline;
26937         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
26938
26939
26940
26941         while (!$_matched && !$commit)
26942         {
26943
26944                 Parse::RecDescent::_trace(q{Trying production: [/\\w+/]},
26945                                           Parse::RecDescent::_tracefirst($_[1]),
26946                                           q{NAME},
26947                                           $tracelevel)
26948                                                 if defined $::RD_TRACE;
26949                 my $thisprod = $thisrule->{"prods"}[0];
26950                 $text = $_[1];
26951                 my $_savetext;
26952                 @item = (q{NAME});
26953                 %item = (__RULE__ => q{NAME});
26954                 my $repcount = 0;
26955
26956
26957                 Parse::RecDescent::_trace(q{Trying terminal: [/\\w+/]}, Parse::RecDescent::_tracefirst($text),
26958                                           q{NAME},
26959                                           $tracelevel)
26960                                                 if defined $::RD_TRACE;
26961                 $lastsep = "";
26962                 $expectation->is(q{})->at($text);
26963
26964
26965                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:\w+)//)
26966                 {
26967
26968                         $expectation->failed();
26969                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
26970                                                   Parse::RecDescent::_tracefirst($text))
26971                                         if defined $::RD_TRACE;
26972
26973                         last;
26974                 }
26975                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
26976                                                 . $& . q{])},
26977                                                   Parse::RecDescent::_tracefirst($text))
26978                                         if defined $::RD_TRACE;
26979                 push @item, $item{__PATTERN1__}=$&;
26980
26981
26982
26983                 Parse::RecDescent::_trace(q{>>Matched production: [/\\w+/]<<},
26984                                           Parse::RecDescent::_tracefirst($text),
26985                                           q{NAME},
26986                                           $tracelevel)
26987                                                 if defined $::RD_TRACE;
26988                 $_matched = 1;
26989                 last;
26990         }
26991
26992
26993         while (!$_matched && !$commit)
26994         {
26995
26996                 Parse::RecDescent::_trace(q{Trying production: [/\\w\{1,18\}/]},
26997                                           Parse::RecDescent::_tracefirst($_[1]),
26998                                           q{NAME},
26999                                           $tracelevel)
27000                                                 if defined $::RD_TRACE;
27001                 my $thisprod = $thisrule->{"prods"}[1];
27002                 $text = $_[1];
27003                 my $_savetext;
27004                 @item = (q{NAME});
27005                 %item = (__RULE__ => q{NAME});
27006                 my $repcount = 0;
27007
27008
27009                 Parse::RecDescent::_trace(q{Trying terminal: [/\\w\{1,18\}/]}, Parse::RecDescent::_tracefirst($text),
27010                                           q{NAME},
27011                                           $tracelevel)
27012                                                 if defined $::RD_TRACE;
27013                 $lastsep = "";
27014                 $expectation->is(q{})->at($text);
27015
27016
27017                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:\w{1,18})//)
27018                 {
27019
27020                         $expectation->failed();
27021                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
27022                                                   Parse::RecDescent::_tracefirst($text))
27023                                         if defined $::RD_TRACE;
27024
27025                         last;
27026                 }
27027                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
27028                                                 . $& . q{])},
27029                                                   Parse::RecDescent::_tracefirst($text))
27030                                         if defined $::RD_TRACE;
27031                 push @item, $item{__PATTERN1__}=$&;
27032
27033
27034
27035                 Parse::RecDescent::_trace(q{>>Matched production: [/\\w\{1,18\}/]<<},
27036                                           Parse::RecDescent::_tracefirst($text),
27037                                           q{NAME},
27038                                           $tracelevel)
27039                                                 if defined $::RD_TRACE;
27040                 $_matched = 1;
27041                 last;
27042         }
27043
27044
27045         unless ( $_matched || defined($return) || defined($score) )
27046         {
27047
27048
27049                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
27050                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
27051                                          Parse::RecDescent::_tracefirst($_[1]),
27052                                          q{NAME},
27053                                          $tracelevel)
27054                                         if defined $::RD_TRACE;
27055                 return undef;
27056         }
27057         if (!defined($return) && defined($score))
27058         {
27059                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
27060                                           q{NAME},
27061                                           $tracelevel)
27062                                                 if defined $::RD_TRACE;
27063                 $return = $score_return;
27064         }
27065         splice @{$thisparser->{errors}}, $err_at;
27066         $return = $item[$#item] unless defined $return;
27067         if (defined $::RD_TRACE)
27068         {
27069                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
27070                                           $return . q{])}, "",
27071                                           q{NAME},
27072                                           $tracelevel);
27073                 Parse::RecDescent::_trace(q{(consumed: [} .
27074                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
27075                                           Parse::RecDescent::_tracefirst($text),
27076                                           , q{NAME},
27077                                           $tracelevel)
27078         }
27079         $_[1] = $text;
27080         return $return;
27081 }
27082
27083 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
27084 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::constant
27085 {
27086         my $thisparser = $_[0];
27087         use vars q{$tracelevel};
27088         local $tracelevel = ($tracelevel||0)+1;
27089         $ERRORS = 0;
27090         my $thisrule = $thisparser->{"rules"}{"constant"};
27091
27092         Parse::RecDescent::_trace(q{Trying rule: [constant]},
27093                                   Parse::RecDescent::_tracefirst($_[1]),
27094                                   q{constant},
27095                                   $tracelevel)
27096                                         if defined $::RD_TRACE;
27097
27098
27099         my $err_at = @{$thisparser->{errors}};
27100
27101         my $score;
27102         my $score_return;
27103         my $_tok;
27104         my $return = undef;
27105         my $_matched=0;
27106         my $commit=0;
27107         my @item = ();
27108         my %item = ();
27109         my $repeating =  defined($_[2]) && $_[2];
27110         my $_noactions = defined($_[3]) && $_[3];
27111         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
27112         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
27113         my $text;
27114         my $lastsep="";
27115         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
27116         $expectation->at($_[1]);
27117
27118         my $thisline;
27119         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
27120
27121
27122
27123         while (!$_matched && !$commit)
27124         {
27125
27126                 Parse::RecDescent::_trace(q{Trying production: [int_const]},
27127                                           Parse::RecDescent::_tracefirst($_[1]),
27128                                           q{constant},
27129                                           $tracelevel)
27130                                                 if defined $::RD_TRACE;
27131                 my $thisprod = $thisrule->{"prods"}[0];
27132                 $text = $_[1];
27133                 my $_savetext;
27134                 @item = (q{constant});
27135                 %item = (__RULE__ => q{constant});
27136                 my $repcount = 0;
27137
27138
27139                 Parse::RecDescent::_trace(q{Trying subrule: [int_const]},
27140                                   Parse::RecDescent::_tracefirst($text),
27141                                   q{constant},
27142                                   $tracelevel)
27143                                         if defined $::RD_TRACE;
27144                 if (1) { no strict qw{refs};
27145                 $expectation->is(q{})->at($text);
27146                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::int_const($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
27147                 {
27148
27149                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [int_const]>>},
27150                                                   Parse::RecDescent::_tracefirst($text),
27151                                                   q{constant},
27152                                                   $tracelevel)
27153                                                         if defined $::RD_TRACE;
27154                         $expectation->failed();
27155                         last;
27156                 }
27157                 Parse::RecDescent::_trace(q{>>Matched subrule: [int_const]<< (return value: [}
27158                                         . $_tok . q{]},
27159
27160                                           Parse::RecDescent::_tracefirst($text),
27161                                           q{constant},
27162                                           $tracelevel)
27163                                                 if defined $::RD_TRACE;
27164                 $item{q{int_const}} = $_tok;
27165                 push @item, $_tok;
27166
27167                 }
27168
27169
27170                 Parse::RecDescent::_trace(q{>>Matched production: [int_const]<<},
27171                                           Parse::RecDescent::_tracefirst($text),
27172                                           q{constant},
27173                                           $tracelevel)
27174                                                 if defined $::RD_TRACE;
27175                 $_matched = 1;
27176                 last;
27177         }
27178
27179
27180         while (!$_matched && !$commit)
27181         {
27182
27183                 Parse::RecDescent::_trace(q{Trying production: [float_const]},
27184                                           Parse::RecDescent::_tracefirst($_[1]),
27185                                           q{constant},
27186                                           $tracelevel)
27187                                                 if defined $::RD_TRACE;
27188                 my $thisprod = $thisrule->{"prods"}[1];
27189                 $text = $_[1];
27190                 my $_savetext;
27191                 @item = (q{constant});
27192                 %item = (__RULE__ => q{constant});
27193                 my $repcount = 0;
27194
27195
27196                 Parse::RecDescent::_trace(q{Trying subrule: [float_const]},
27197                                   Parse::RecDescent::_tracefirst($text),
27198                                   q{constant},
27199                                   $tracelevel)
27200                                         if defined $::RD_TRACE;
27201                 if (1) { no strict qw{refs};
27202                 $expectation->is(q{})->at($text);
27203                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::float_const($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
27204                 {
27205
27206                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [float_const]>>},
27207                                                   Parse::RecDescent::_tracefirst($text),
27208                                                   q{constant},
27209                                                   $tracelevel)
27210                                                         if defined $::RD_TRACE;
27211                         $expectation->failed();
27212                         last;
27213                 }
27214                 Parse::RecDescent::_trace(q{>>Matched subrule: [float_const]<< (return value: [}
27215                                         . $_tok . q{]},
27216
27217                                           Parse::RecDescent::_tracefirst($text),
27218                                           q{constant},
27219                                           $tracelevel)
27220                                                 if defined $::RD_TRACE;
27221                 $item{q{float_const}} = $_tok;
27222                 push @item, $_tok;
27223
27224                 }
27225
27226
27227                 Parse::RecDescent::_trace(q{>>Matched production: [float_const]<<},
27228                                           Parse::RecDescent::_tracefirst($text),
27229                                           q{constant},
27230                                           $tracelevel)
27231                                                 if defined $::RD_TRACE;
27232                 $_matched = 1;
27233                 last;
27234         }
27235
27236
27237         while (!$_matched && !$commit)
27238         {
27239
27240                 Parse::RecDescent::_trace(q{Trying production: [dec_const]},
27241                                           Parse::RecDescent::_tracefirst($_[1]),
27242                                           q{constant},
27243                                           $tracelevel)
27244                                                 if defined $::RD_TRACE;
27245                 my $thisprod = $thisrule->{"prods"}[2];
27246                 $text = $_[1];
27247                 my $_savetext;
27248                 @item = (q{constant});
27249                 %item = (__RULE__ => q{constant});
27250                 my $repcount = 0;
27251
27252
27253                 Parse::RecDescent::_trace(q{Trying subrule: [dec_const]},
27254                                   Parse::RecDescent::_tracefirst($text),
27255                                   q{constant},
27256                                   $tracelevel)
27257                                         if defined $::RD_TRACE;
27258                 if (1) { no strict qw{refs};
27259                 $expectation->is(q{})->at($text);
27260                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::dec_const($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
27261                 {
27262
27263                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [dec_const]>>},
27264                                                   Parse::RecDescent::_tracefirst($text),
27265                                                   q{constant},
27266                                                   $tracelevel)
27267                                                         if defined $::RD_TRACE;
27268                         $expectation->failed();
27269                         last;
27270                 }
27271                 Parse::RecDescent::_trace(q{>>Matched subrule: [dec_const]<< (return value: [}
27272                                         . $_tok . q{]},
27273
27274                                           Parse::RecDescent::_tracefirst($text),
27275                                           q{constant},
27276                                           $tracelevel)
27277                                                 if defined $::RD_TRACE;
27278                 $item{q{dec_const}} = $_tok;
27279                 push @item, $_tok;
27280
27281                 }
27282
27283
27284                 Parse::RecDescent::_trace(q{>>Matched production: [dec_const]<<},
27285                                           Parse::RecDescent::_tracefirst($text),
27286                                           q{constant},
27287                                           $tracelevel)
27288                                                 if defined $::RD_TRACE;
27289                 $_matched = 1;
27290                 last;
27291         }
27292
27293
27294         while (!$_matched && !$commit)
27295         {
27296
27297                 Parse::RecDescent::_trace(q{Trying production: [char_const]},
27298                                           Parse::RecDescent::_tracefirst($_[1]),
27299                                           q{constant},
27300                                           $tracelevel)
27301                                                 if defined $::RD_TRACE;
27302                 my $thisprod = $thisrule->{"prods"}[3];
27303                 $text = $_[1];
27304                 my $_savetext;
27305                 @item = (q{constant});
27306                 %item = (__RULE__ => q{constant});
27307                 my $repcount = 0;
27308
27309
27310                 Parse::RecDescent::_trace(q{Trying subrule: [char_const]},
27311                                   Parse::RecDescent::_tracefirst($text),
27312                                   q{constant},
27313                                   $tracelevel)
27314                                         if defined $::RD_TRACE;
27315                 if (1) { no strict qw{refs};
27316                 $expectation->is(q{})->at($text);
27317                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::char_const($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
27318                 {
27319
27320                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [char_const]>>},
27321                                                   Parse::RecDescent::_tracefirst($text),
27322                                                   q{constant},
27323                                                   $tracelevel)
27324                                                         if defined $::RD_TRACE;
27325                         $expectation->failed();
27326                         last;
27327                 }
27328                 Parse::RecDescent::_trace(q{>>Matched subrule: [char_const]<< (return value: [}
27329                                         . $_tok . q{]},
27330
27331                                           Parse::RecDescent::_tracefirst($text),
27332                                           q{constant},
27333                                           $tracelevel)
27334                                                 if defined $::RD_TRACE;
27335                 $item{q{char_const}} = $_tok;
27336                 push @item, $_tok;
27337
27338                 }
27339
27340
27341                 Parse::RecDescent::_trace(q{>>Matched production: [char_const]<<},
27342                                           Parse::RecDescent::_tracefirst($text),
27343                                           q{constant},
27344                                           $tracelevel)
27345                                                 if defined $::RD_TRACE;
27346                 $_matched = 1;
27347                 last;
27348         }
27349
27350
27351         while (!$_matched && !$commit)
27352         {
27353
27354                 Parse::RecDescent::_trace(q{Trying production: [hex_const]},
27355                                           Parse::RecDescent::_tracefirst($_[1]),
27356                                           q{constant},
27357                                           $tracelevel)
27358                                                 if defined $::RD_TRACE;
27359                 my $thisprod = $thisrule->{"prods"}[4];
27360                 $text = $_[1];
27361                 my $_savetext;
27362                 @item = (q{constant});
27363                 %item = (__RULE__ => q{constant});
27364                 my $repcount = 0;
27365
27366
27367                 Parse::RecDescent::_trace(q{Trying subrule: [hex_const]},
27368                                   Parse::RecDescent::_tracefirst($text),
27369                                   q{constant},
27370                                   $tracelevel)
27371                                         if defined $::RD_TRACE;
27372                 if (1) { no strict qw{refs};
27373                 $expectation->is(q{})->at($text);
27374                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::hex_const($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
27375                 {
27376
27377                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [hex_const]>>},
27378                                                   Parse::RecDescent::_tracefirst($text),
27379                                                   q{constant},
27380                                                   $tracelevel)
27381                                                         if defined $::RD_TRACE;
27382                         $expectation->failed();
27383                         last;
27384                 }
27385                 Parse::RecDescent::_trace(q{>>Matched subrule: [hex_const]<< (return value: [}
27386                                         . $_tok . q{]},
27387
27388                                           Parse::RecDescent::_tracefirst($text),
27389                                           q{constant},
27390                                           $tracelevel)
27391                                                 if defined $::RD_TRACE;
27392                 $item{q{hex_const}} = $_tok;
27393                 push @item, $_tok;
27394
27395                 }
27396
27397
27398                 Parse::RecDescent::_trace(q{>>Matched production: [hex_const]<<},
27399                                           Parse::RecDescent::_tracefirst($text),
27400                                           q{constant},
27401                                           $tracelevel)
27402                                                 if defined $::RD_TRACE;
27403                 $_matched = 1;
27404                 last;
27405         }
27406
27407
27408         while (!$_matched && !$commit)
27409         {
27410
27411                 Parse::RecDescent::_trace(q{Trying production: [grastr_const]},
27412                                           Parse::RecDescent::_tracefirst($_[1]),
27413                                           q{constant},
27414                                           $tracelevel)
27415                                                 if defined $::RD_TRACE;
27416                 my $thisprod = $thisrule->{"prods"}[5];
27417                 $text = $_[1];
27418                 my $_savetext;
27419                 @item = (q{constant});
27420                 %item = (__RULE__ => q{constant});
27421                 my $repcount = 0;
27422
27423
27424                 Parse::RecDescent::_trace(q{Trying subrule: [grastr_const]},
27425                                   Parse::RecDescent::_tracefirst($text),
27426                                   q{constant},
27427                                   $tracelevel)
27428                                         if defined $::RD_TRACE;
27429                 if (1) { no strict qw{refs};
27430                 $expectation->is(q{})->at($text);
27431                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::grastr_const($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
27432                 {
27433
27434                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [grastr_const]>>},
27435                                                   Parse::RecDescent::_tracefirst($text),
27436                                                   q{constant},
27437                                                   $tracelevel)
27438                                                         if defined $::RD_TRACE;
27439                         $expectation->failed();
27440                         last;
27441                 }
27442                 Parse::RecDescent::_trace(q{>>Matched subrule: [grastr_const]<< (return value: [}
27443                                         . $_tok . q{]},
27444
27445                                           Parse::RecDescent::_tracefirst($text),
27446                                           q{constant},
27447                                           $tracelevel)
27448                                                 if defined $::RD_TRACE;
27449                 $item{q{grastr_const}} = $_tok;
27450                 push @item, $_tok;
27451
27452                 }
27453
27454
27455                 Parse::RecDescent::_trace(q{>>Matched production: [grastr_const]<<},
27456                                           Parse::RecDescent::_tracefirst($text),
27457                                           q{constant},
27458                                           $tracelevel)
27459                                                 if defined $::RD_TRACE;
27460                 $_matched = 1;
27461                 last;
27462         }
27463
27464
27465         unless ( $_matched || defined($return) || defined($score) )
27466         {
27467
27468
27469                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
27470                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
27471                                          Parse::RecDescent::_tracefirst($_[1]),
27472                                          q{constant},
27473                                          $tracelevel)
27474                                         if defined $::RD_TRACE;
27475                 return undef;
27476         }
27477         if (!defined($return) && defined($score))
27478         {
27479                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
27480                                           q{constant},
27481                                           $tracelevel)
27482                                                 if defined $::RD_TRACE;
27483                 $return = $score_return;
27484         }
27485         splice @{$thisparser->{errors}}, $err_at;
27486         $return = $item[$#item] unless defined $return;
27487         if (defined $::RD_TRACE)
27488         {
27489                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
27490                                           $return . q{])}, "",
27491                                           q{constant},
27492                                           $tracelevel);
27493                 Parse::RecDescent::_trace(q{(consumed: [} .
27494                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
27495                                           Parse::RecDescent::_tracefirst($text),
27496                                           , q{constant},
27497                                           $tracelevel)
27498         }
27499         $_[1] = $text;
27500         return $return;
27501 }
27502
27503 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
27504 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_ranking_function
27505 {
27506         my $thisparser = $_[0];
27507         use vars q{$tracelevel};
27508         local $tracelevel = ($tracelevel||0)+1;
27509         $ERRORS = 0;
27510         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_ranking_function"};
27511
27512         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_ranking_function]},
27513                                   Parse::RecDescent::_tracefirst($_[1]),
27514                                   q{_alternation_1_of_production_1_of_rule_ranking_function},
27515                                   $tracelevel)
27516                                         if defined $::RD_TRACE;
27517
27518
27519         my $err_at = @{$thisparser->{errors}};
27520
27521         my $score;
27522         my $score_return;
27523         my $_tok;
27524         my $return = undef;
27525         my $_matched=0;
27526         my $commit=0;
27527         my @item = ();
27528         my %item = ();
27529         my $repeating =  defined($_[2]) && $_[2];
27530         my $_noactions = defined($_[3]) && $_[3];
27531         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
27532         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
27533         my $text;
27534         my $lastsep="";
27535         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
27536         $expectation->at($_[1]);
27537
27538         my $thisline;
27539         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
27540
27541
27542
27543         while (!$_matched && !$commit)
27544         {
27545
27546                 Parse::RecDescent::_trace(q{Trying production: [/RANK/ '()']},
27547                                           Parse::RecDescent::_tracefirst($_[1]),
27548                                           q{_alternation_1_of_production_1_of_rule_ranking_function},
27549                                           $tracelevel)
27550                                                 if defined $::RD_TRACE;
27551                 my $thisprod = $thisrule->{"prods"}[0];
27552                 $text = $_[1];
27553                 my $_savetext;
27554                 @item = (q{_alternation_1_of_production_1_of_rule_ranking_function});
27555                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_ranking_function});
27556                 my $repcount = 0;
27557
27558
27559                 Parse::RecDescent::_trace(q{Trying terminal: [/RANK/]}, Parse::RecDescent::_tracefirst($text),
27560                                           q{_alternation_1_of_production_1_of_rule_ranking_function},
27561                                           $tracelevel)
27562                                                 if defined $::RD_TRACE;
27563                 $lastsep = "";
27564                 $expectation->is(q{})->at($text);
27565
27566
27567                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:RANK)//)
27568                 {
27569
27570                         $expectation->failed();
27571                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
27572                                                   Parse::RecDescent::_tracefirst($text))
27573                                         if defined $::RD_TRACE;
27574
27575                         last;
27576                 }
27577                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
27578                                                 . $& . q{])},
27579                                                   Parse::RecDescent::_tracefirst($text))
27580                                         if defined $::RD_TRACE;
27581                 push @item, $item{__PATTERN1__}=$&;
27582
27583
27584                 Parse::RecDescent::_trace(q{Trying terminal: ['()']},
27585                                           Parse::RecDescent::_tracefirst($text),
27586                                           q{_alternation_1_of_production_1_of_rule_ranking_function},
27587                                           $tracelevel)
27588                                                 if defined $::RD_TRACE;
27589                 $lastsep = "";
27590                 $expectation->is(q{'()'})->at($text);
27591
27592
27593                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(\)//)
27594                 {
27595
27596                         $expectation->failed();
27597                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
27598                                                   Parse::RecDescent::_tracefirst($text))
27599                                                         if defined $::RD_TRACE;
27600                         last;
27601                 }
27602                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
27603                                                 . $& . q{])},
27604                                                   Parse::RecDescent::_tracefirst($text))
27605                                                         if defined $::RD_TRACE;
27606                 push @item, $item{__STRING1__}=$&;
27607
27608
27609
27610                 Parse::RecDescent::_trace(q{>>Matched production: [/RANK/ '()']<<},
27611                                           Parse::RecDescent::_tracefirst($text),
27612                                           q{_alternation_1_of_production_1_of_rule_ranking_function},
27613                                           $tracelevel)
27614                                                 if defined $::RD_TRACE;
27615                 $_matched = 1;
27616                 last;
27617         }
27618
27619
27620         while (!$_matched && !$commit)
27621         {
27622
27623                 Parse::RecDescent::_trace(q{Trying production: [/DENSE_RANK|DENSERANK/i '()']},
27624                                           Parse::RecDescent::_tracefirst($_[1]),
27625                                           q{_alternation_1_of_production_1_of_rule_ranking_function},
27626                                           $tracelevel)
27627                                                 if defined $::RD_TRACE;
27628                 my $thisprod = $thisrule->{"prods"}[1];
27629                 $text = $_[1];
27630                 my $_savetext;
27631                 @item = (q{_alternation_1_of_production_1_of_rule_ranking_function});
27632                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_ranking_function});
27633                 my $repcount = 0;
27634
27635
27636                 Parse::RecDescent::_trace(q{Trying terminal: [/DENSE_RANK|DENSERANK/i]}, Parse::RecDescent::_tracefirst($text),
27637                                           q{_alternation_1_of_production_1_of_rule_ranking_function},
27638                                           $tracelevel)
27639                                                 if defined $::RD_TRACE;
27640                 $lastsep = "";
27641                 $expectation->is(q{})->at($text);
27642
27643
27644                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DENSE_RANK|DENSERANK)//i)
27645                 {
27646
27647                         $expectation->failed();
27648                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
27649                                                   Parse::RecDescent::_tracefirst($text))
27650                                         if defined $::RD_TRACE;
27651
27652                         last;
27653                 }
27654                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
27655                                                 . $& . q{])},
27656                                                   Parse::RecDescent::_tracefirst($text))
27657                                         if defined $::RD_TRACE;
27658                 push @item, $item{__PATTERN1__}=$&;
27659
27660
27661                 Parse::RecDescent::_trace(q{Trying terminal: ['()']},
27662                                           Parse::RecDescent::_tracefirst($text),
27663                                           q{_alternation_1_of_production_1_of_rule_ranking_function},
27664                                           $tracelevel)
27665                                                 if defined $::RD_TRACE;
27666                 $lastsep = "";
27667                 $expectation->is(q{'()'})->at($text);
27668
27669
27670                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(\)//)
27671                 {
27672
27673                         $expectation->failed();
27674                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
27675                                                   Parse::RecDescent::_tracefirst($text))
27676                                                         if defined $::RD_TRACE;
27677                         last;
27678                 }
27679                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
27680                                                 . $& . q{])},
27681                                                   Parse::RecDescent::_tracefirst($text))
27682                                                         if defined $::RD_TRACE;
27683                 push @item, $item{__STRING1__}=$&;
27684
27685
27686
27687                 Parse::RecDescent::_trace(q{>>Matched production: [/DENSE_RANK|DENSERANK/i '()']<<},
27688                                           Parse::RecDescent::_tracefirst($text),
27689                                           q{_alternation_1_of_production_1_of_rule_ranking_function},
27690                                           $tracelevel)
27691                                                 if defined $::RD_TRACE;
27692                 $_matched = 1;
27693                 last;
27694         }
27695
27696
27697         unless ( $_matched || defined($return) || defined($score) )
27698         {
27699
27700
27701                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
27702                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
27703                                          Parse::RecDescent::_tracefirst($_[1]),
27704                                          q{_alternation_1_of_production_1_of_rule_ranking_function},
27705                                          $tracelevel)
27706                                         if defined $::RD_TRACE;
27707                 return undef;
27708         }
27709         if (!defined($return) && defined($score))
27710         {
27711                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
27712                                           q{_alternation_1_of_production_1_of_rule_ranking_function},
27713                                           $tracelevel)
27714                                                 if defined $::RD_TRACE;
27715                 $return = $score_return;
27716         }
27717         splice @{$thisparser->{errors}}, $err_at;
27718         $return = $item[$#item] unless defined $return;
27719         if (defined $::RD_TRACE)
27720         {
27721                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
27722                                           $return . q{])}, "",
27723                                           q{_alternation_1_of_production_1_of_rule_ranking_function},
27724                                           $tracelevel);
27725                 Parse::RecDescent::_trace(q{(consumed: [} .
27726                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
27727                                           Parse::RecDescent::_tracefirst($text),
27728                                           , q{_alternation_1_of_production_1_of_rule_ranking_function},
27729                                           $tracelevel)
27730         }
27731         $_[1] = $text;
27732         return $return;
27733 }
27734
27735 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
27736 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::window_aggregation_group_clause
27737 {
27738         my $thisparser = $_[0];
27739         use vars q{$tracelevel};
27740         local $tracelevel = ($tracelevel||0)+1;
27741         $ERRORS = 0;
27742         my $thisrule = $thisparser->{"rules"}{"window_aggregation_group_clause"};
27743
27744         Parse::RecDescent::_trace(q{Trying rule: [window_aggregation_group_clause]},
27745                                   Parse::RecDescent::_tracefirst($_[1]),
27746                                   q{window_aggregation_group_clause},
27747                                   $tracelevel)
27748                                         if defined $::RD_TRACE;
27749
27750
27751         my $err_at = @{$thisparser->{errors}};
27752
27753         my $score;
27754         my $score_return;
27755         my $_tok;
27756         my $return = undef;
27757         my $_matched=0;
27758         my $commit=0;
27759         my @item = ();
27760         my %item = ();
27761         my $repeating =  defined($_[2]) && $_[2];
27762         my $_noactions = defined($_[3]) && $_[3];
27763         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
27764         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
27765         my $text;
27766         my $lastsep="";
27767         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
27768         $expectation->at($_[1]);
27769
27770         my $thisline;
27771         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
27772
27773
27774
27775         while (!$_matched && !$commit)
27776         {
27777
27778                 Parse::RecDescent::_trace(q{Trying production: [/ROWS/i, or /RANGE/i group_start, or group_between, or group_end]},
27779                                           Parse::RecDescent::_tracefirst($_[1]),
27780                                           q{window_aggregation_group_clause},
27781                                           $tracelevel)
27782                                                 if defined $::RD_TRACE;
27783                 my $thisprod = $thisrule->{"prods"}[0];
27784                 $text = $_[1];
27785                 my $_savetext;
27786                 @item = (q{window_aggregation_group_clause});
27787                 %item = (__RULE__ => q{window_aggregation_group_clause});
27788                 my $repcount = 0;
27789
27790
27791                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule_window_aggregation_group_clause]},
27792                                   Parse::RecDescent::_tracefirst($text),
27793                                   q{window_aggregation_group_clause},
27794                                   $tracelevel)
27795                                         if defined $::RD_TRACE;
27796                 if (1) { no strict qw{refs};
27797                 $expectation->is(q{})->at($text);
27798                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_window_aggregation_group_clause($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
27799                 {
27800
27801                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule_window_aggregation_group_clause]>>},
27802                                                   Parse::RecDescent::_tracefirst($text),
27803                                                   q{window_aggregation_group_clause},
27804                                                   $tracelevel)
27805                                                         if defined $::RD_TRACE;
27806                         $expectation->failed();
27807                         last;
27808                 }
27809                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule_window_aggregation_group_clause]<< (return value: [}
27810                                         . $_tok . q{]},
27811
27812                                           Parse::RecDescent::_tracefirst($text),
27813                                           q{window_aggregation_group_clause},
27814                                           $tracelevel)
27815                                                 if defined $::RD_TRACE;
27816                 $item{q{_alternation_1_of_production_1_of_rule_window_aggregation_group_clause}} = $_tok;
27817                 push @item, $_tok;
27818
27819                 }
27820
27821                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_2_of_production_1_of_rule_window_aggregation_group_clause]},
27822                                   Parse::RecDescent::_tracefirst($text),
27823                                   q{window_aggregation_group_clause},
27824                                   $tracelevel)
27825                                         if defined $::RD_TRACE;
27826                 if (1) { no strict qw{refs};
27827                 $expectation->is(q{group_start, or group_between, or group_end})->at($text);
27828                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_2_of_production_1_of_rule_window_aggregation_group_clause($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
27829                 {
27830
27831                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_2_of_production_1_of_rule_window_aggregation_group_clause]>>},
27832                                                   Parse::RecDescent::_tracefirst($text),
27833                                                   q{window_aggregation_group_clause},
27834                                                   $tracelevel)
27835                                                         if defined $::RD_TRACE;
27836                         $expectation->failed();
27837                         last;
27838                 }
27839                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_2_of_production_1_of_rule_window_aggregation_group_clause]<< (return value: [}
27840                                         . $_tok . q{]},
27841
27842                                           Parse::RecDescent::_tracefirst($text),
27843                                           q{window_aggregation_group_clause},
27844                                           $tracelevel)
27845                                                 if defined $::RD_TRACE;
27846                 $item{q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause}} = $_tok;
27847                 push @item, $_tok;
27848
27849                 }
27850
27851
27852                 Parse::RecDescent::_trace(q{>>Matched production: [/ROWS/i, or /RANGE/i group_start, or group_between, or group_end]<<},
27853                                           Parse::RecDescent::_tracefirst($text),
27854                                           q{window_aggregation_group_clause},
27855                                           $tracelevel)
27856                                                 if defined $::RD_TRACE;
27857                 $_matched = 1;
27858                 last;
27859         }
27860
27861
27862         unless ( $_matched || defined($return) || defined($score) )
27863         {
27864
27865
27866                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
27867                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
27868                                          Parse::RecDescent::_tracefirst($_[1]),
27869                                          q{window_aggregation_group_clause},
27870                                          $tracelevel)
27871                                         if defined $::RD_TRACE;
27872                 return undef;
27873         }
27874         if (!defined($return) && defined($score))
27875         {
27876                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
27877                                           q{window_aggregation_group_clause},
27878                                           $tracelevel)
27879                                                 if defined $::RD_TRACE;
27880                 $return = $score_return;
27881         }
27882         splice @{$thisparser->{errors}}, $err_at;
27883         $return = $item[$#item] unless defined $return;
27884         if (defined $::RD_TRACE)
27885         {
27886                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
27887                                           $return . q{])}, "",
27888                                           q{window_aggregation_group_clause},
27889                                           $tracelevel);
27890                 Parse::RecDescent::_trace(q{(consumed: [} .
27891                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
27892                                           Parse::RecDescent::_tracefirst($text),
27893                                           , q{window_aggregation_group_clause},
27894                                           $tracelevel)
27895         }
27896         $_[1] = $text;
27897         return $return;
27898 }
27899
27900 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
27901 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_2_of_production_1_of_rule_window_aggregation_group_clause
27902 {
27903         my $thisparser = $_[0];
27904         use vars q{$tracelevel};
27905         local $tracelevel = ($tracelevel||0)+1;
27906         $ERRORS = 0;
27907         my $thisrule = $thisparser->{"rules"}{"_alternation_2_of_production_1_of_rule_window_aggregation_group_clause"};
27908
27909         Parse::RecDescent::_trace(q{Trying rule: [_alternation_2_of_production_1_of_rule_window_aggregation_group_clause]},
27910                                   Parse::RecDescent::_tracefirst($_[1]),
27911                                   q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
27912                                   $tracelevel)
27913                                         if defined $::RD_TRACE;
27914
27915
27916         my $err_at = @{$thisparser->{errors}};
27917
27918         my $score;
27919         my $score_return;
27920         my $_tok;
27921         my $return = undef;
27922         my $_matched=0;
27923         my $commit=0;
27924         my @item = ();
27925         my %item = ();
27926         my $repeating =  defined($_[2]) && $_[2];
27927         my $_noactions = defined($_[3]) && $_[3];
27928         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
27929         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
27930         my $text;
27931         my $lastsep="";
27932         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
27933         $expectation->at($_[1]);
27934
27935         my $thisline;
27936         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
27937
27938
27939
27940         while (!$_matched && !$commit)
27941         {
27942
27943                 Parse::RecDescent::_trace(q{Trying production: [group_start]},
27944                                           Parse::RecDescent::_tracefirst($_[1]),
27945                                           q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
27946                                           $tracelevel)
27947                                                 if defined $::RD_TRACE;
27948                 my $thisprod = $thisrule->{"prods"}[0];
27949                 $text = $_[1];
27950                 my $_savetext;
27951                 @item = (q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause});
27952                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause});
27953                 my $repcount = 0;
27954
27955
27956                 Parse::RecDescent::_trace(q{Trying subrule: [group_start]},
27957                                   Parse::RecDescent::_tracefirst($text),
27958                                   q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
27959                                   $tracelevel)
27960                                         if defined $::RD_TRACE;
27961                 if (1) { no strict qw{refs};
27962                 $expectation->is(q{})->at($text);
27963                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::group_start($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
27964                 {
27965
27966                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [group_start]>>},
27967                                                   Parse::RecDescent::_tracefirst($text),
27968                                                   q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
27969                                                   $tracelevel)
27970                                                         if defined $::RD_TRACE;
27971                         $expectation->failed();
27972                         last;
27973                 }
27974                 Parse::RecDescent::_trace(q{>>Matched subrule: [group_start]<< (return value: [}
27975                                         . $_tok . q{]},
27976
27977                                           Parse::RecDescent::_tracefirst($text),
27978                                           q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
27979                                           $tracelevel)
27980                                                 if defined $::RD_TRACE;
27981                 $item{q{group_start}} = $_tok;
27982                 push @item, $_tok;
27983
27984                 }
27985
27986
27987                 Parse::RecDescent::_trace(q{>>Matched production: [group_start]<<},
27988                                           Parse::RecDescent::_tracefirst($text),
27989                                           q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
27990                                           $tracelevel)
27991                                                 if defined $::RD_TRACE;
27992                 $_matched = 1;
27993                 last;
27994         }
27995
27996
27997         while (!$_matched && !$commit)
27998         {
27999
28000                 Parse::RecDescent::_trace(q{Trying production: [group_between]},
28001                                           Parse::RecDescent::_tracefirst($_[1]),
28002                                           q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
28003                                           $tracelevel)
28004                                                 if defined $::RD_TRACE;
28005                 my $thisprod = $thisrule->{"prods"}[1];
28006                 $text = $_[1];
28007                 my $_savetext;
28008                 @item = (q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause});
28009                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause});
28010                 my $repcount = 0;
28011
28012
28013                 Parse::RecDescent::_trace(q{Trying subrule: [group_between]},
28014                                   Parse::RecDescent::_tracefirst($text),
28015                                   q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
28016                                   $tracelevel)
28017                                         if defined $::RD_TRACE;
28018                 if (1) { no strict qw{refs};
28019                 $expectation->is(q{})->at($text);
28020                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::group_between($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
28021                 {
28022
28023                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [group_between]>>},
28024                                                   Parse::RecDescent::_tracefirst($text),
28025                                                   q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
28026                                                   $tracelevel)
28027                                                         if defined $::RD_TRACE;
28028                         $expectation->failed();
28029                         last;
28030                 }
28031                 Parse::RecDescent::_trace(q{>>Matched subrule: [group_between]<< (return value: [}
28032                                         . $_tok . q{]},
28033
28034                                           Parse::RecDescent::_tracefirst($text),
28035                                           q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
28036                                           $tracelevel)
28037                                                 if defined $::RD_TRACE;
28038                 $item{q{group_between}} = $_tok;
28039                 push @item, $_tok;
28040
28041                 }
28042
28043
28044                 Parse::RecDescent::_trace(q{>>Matched production: [group_between]<<},
28045                                           Parse::RecDescent::_tracefirst($text),
28046                                           q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
28047                                           $tracelevel)
28048                                                 if defined $::RD_TRACE;
28049                 $_matched = 1;
28050                 last;
28051         }
28052
28053
28054         while (!$_matched && !$commit)
28055         {
28056
28057                 Parse::RecDescent::_trace(q{Trying production: [group_end]},
28058                                           Parse::RecDescent::_tracefirst($_[1]),
28059                                           q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
28060                                           $tracelevel)
28061                                                 if defined $::RD_TRACE;
28062                 my $thisprod = $thisrule->{"prods"}[2];
28063                 $text = $_[1];
28064                 my $_savetext;
28065                 @item = (q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause});
28066                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause});
28067                 my $repcount = 0;
28068
28069
28070                 Parse::RecDescent::_trace(q{Trying subrule: [group_end]},
28071                                   Parse::RecDescent::_tracefirst($text),
28072                                   q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
28073                                   $tracelevel)
28074                                         if defined $::RD_TRACE;
28075                 if (1) { no strict qw{refs};
28076                 $expectation->is(q{})->at($text);
28077                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::group_end($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
28078                 {
28079
28080                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [group_end]>>},
28081                                                   Parse::RecDescent::_tracefirst($text),
28082                                                   q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
28083                                                   $tracelevel)
28084                                                         if defined $::RD_TRACE;
28085                         $expectation->failed();
28086                         last;
28087                 }
28088                 Parse::RecDescent::_trace(q{>>Matched subrule: [group_end]<< (return value: [}
28089                                         . $_tok . q{]},
28090
28091                                           Parse::RecDescent::_tracefirst($text),
28092                                           q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
28093                                           $tracelevel)
28094                                                 if defined $::RD_TRACE;
28095                 $item{q{group_end}} = $_tok;
28096                 push @item, $_tok;
28097
28098                 }
28099
28100
28101                 Parse::RecDescent::_trace(q{>>Matched production: [group_end]<<},
28102                                           Parse::RecDescent::_tracefirst($text),
28103                                           q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
28104                                           $tracelevel)
28105                                                 if defined $::RD_TRACE;
28106                 $_matched = 1;
28107                 last;
28108         }
28109
28110
28111         unless ( $_matched || defined($return) || defined($score) )
28112         {
28113
28114
28115                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
28116                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
28117                                          Parse::RecDescent::_tracefirst($_[1]),
28118                                          q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
28119                                          $tracelevel)
28120                                         if defined $::RD_TRACE;
28121                 return undef;
28122         }
28123         if (!defined($return) && defined($score))
28124         {
28125                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
28126                                           q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
28127                                           $tracelevel)
28128                                                 if defined $::RD_TRACE;
28129                 $return = $score_return;
28130         }
28131         splice @{$thisparser->{errors}}, $err_at;
28132         $return = $item[$#item] unless defined $return;
28133         if (defined $::RD_TRACE)
28134         {
28135                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
28136                                           $return . q{])}, "",
28137                                           q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
28138                                           $tracelevel);
28139                 Parse::RecDescent::_trace(q{(consumed: [} .
28140                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
28141                                           Parse::RecDescent::_tracefirst($text),
28142                                           , q{_alternation_2_of_production_1_of_rule_window_aggregation_group_clause},
28143                                           $tracelevel)
28144         }
28145         $_[1] = $text;
28146         return $return;
28147 }
28148
28149 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
28150 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::VIEW
28151 {
28152         my $thisparser = $_[0];
28153         use vars q{$tracelevel};
28154         local $tracelevel = ($tracelevel||0)+1;
28155         $ERRORS = 0;
28156         my $thisrule = $thisparser->{"rules"}{"VIEW"};
28157
28158         Parse::RecDescent::_trace(q{Trying rule: [VIEW]},
28159                                   Parse::RecDescent::_tracefirst($_[1]),
28160                                   q{VIEW},
28161                                   $tracelevel)
28162                                         if defined $::RD_TRACE;
28163
28164
28165         my $err_at = @{$thisparser->{errors}};
28166
28167         my $score;
28168         my $score_return;
28169         my $_tok;
28170         my $return = undef;
28171         my $_matched=0;
28172         my $commit=0;
28173         my @item = ();
28174         my %item = ();
28175         my $repeating =  defined($_[2]) && $_[2];
28176         my $_noactions = defined($_[3]) && $_[3];
28177         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
28178         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
28179         my $text;
28180         my $lastsep="";
28181         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
28182         $expectation->at($_[1]);
28183
28184         my $thisline;
28185         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
28186
28187
28188
28189         while (!$_matched && !$commit)
28190         {
28191
28192                 Parse::RecDescent::_trace(q{Trying production: [/view/i]},
28193                                           Parse::RecDescent::_tracefirst($_[1]),
28194                                           q{VIEW},
28195                                           $tracelevel)
28196                                                 if defined $::RD_TRACE;
28197                 my $thisprod = $thisrule->{"prods"}[0];
28198                 $text = $_[1];
28199                 my $_savetext;
28200                 @item = (q{VIEW});
28201                 %item = (__RULE__ => q{VIEW});
28202                 my $repcount = 0;
28203
28204
28205                 Parse::RecDescent::_trace(q{Trying terminal: [/view/i]}, Parse::RecDescent::_tracefirst($text),
28206                                           q{VIEW},
28207                                           $tracelevel)
28208                                                 if defined $::RD_TRACE;
28209                 $lastsep = "";
28210                 $expectation->is(q{})->at($text);
28211
28212
28213                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:view)//i)
28214                 {
28215
28216                         $expectation->failed();
28217                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
28218                                                   Parse::RecDescent::_tracefirst($text))
28219                                         if defined $::RD_TRACE;
28220
28221                         last;
28222                 }
28223                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
28224                                                 . $& . q{])},
28225                                                   Parse::RecDescent::_tracefirst($text))
28226                                         if defined $::RD_TRACE;
28227                 push @item, $item{__PATTERN1__}=$&;
28228
28229
28230
28231                 Parse::RecDescent::_trace(q{>>Matched production: [/view/i]<<},
28232                                           Parse::RecDescent::_tracefirst($text),
28233                                           q{VIEW},
28234                                           $tracelevel)
28235                                                 if defined $::RD_TRACE;
28236                 $_matched = 1;
28237                 last;
28238         }
28239
28240
28241         unless ( $_matched || defined($return) || defined($score) )
28242         {
28243
28244
28245                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
28246                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
28247                                          Parse::RecDescent::_tracefirst($_[1]),
28248                                          q{VIEW},
28249                                          $tracelevel)
28250                                         if defined $::RD_TRACE;
28251                 return undef;
28252         }
28253         if (!defined($return) && defined($score))
28254         {
28255                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
28256                                           q{VIEW},
28257                                           $tracelevel)
28258                                                 if defined $::RD_TRACE;
28259                 $return = $score_return;
28260         }
28261         splice @{$thisparser->{errors}}, $err_at;
28262         $return = $item[$#item] unless defined $return;
28263         if (defined $::RD_TRACE)
28264         {
28265                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
28266                                           $return . q{])}, "",
28267                                           q{VIEW},
28268                                           $tracelevel);
28269                 Parse::RecDescent::_trace(q{(consumed: [} .
28270                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
28271                                           Parse::RecDescent::_tracefirst($text),
28272                                           , q{VIEW},
28273                                           $tracelevel)
28274         }
28275         $_[1] = $text;
28276         return $return;
28277 }
28278
28279 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
28280 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::with_expression
28281 {
28282         my $thisparser = $_[0];
28283         use vars q{$tracelevel};
28284         local $tracelevel = ($tracelevel||0)+1;
28285         $ERRORS = 0;
28286         my $thisrule = $thisparser->{"rules"}{"with_expression"};
28287
28288         Parse::RecDescent::_trace(q{Trying rule: [with_expression]},
28289                                   Parse::RecDescent::_tracefirst($_[1]),
28290                                   q{with_expression},
28291                                   $tracelevel)
28292                                         if defined $::RD_TRACE;
28293
28294
28295         my $err_at = @{$thisparser->{errors}};
28296
28297         my $score;
28298         my $score_return;
28299         my $_tok;
28300         my $return = undef;
28301         my $_matched=0;
28302         my $commit=0;
28303         my @item = ();
28304         my %item = ();
28305         my $repeating =  defined($_[2]) && $_[2];
28306         my $_noactions = defined($_[3]) && $_[3];
28307         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
28308         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
28309         my $text;
28310         my $lastsep="";
28311         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
28312         $expectation->at($_[1]);
28313
28314         my $thisline;
28315         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
28316
28317
28318
28319         while (!$_matched && !$commit)
28320         {
28321
28322                 Parse::RecDescent::_trace(q{Trying production: [/WITH/i <leftop: common_table_expression /,/ common_table_expression>]},
28323                                           Parse::RecDescent::_tracefirst($_[1]),
28324                                           q{with_expression},
28325                                           $tracelevel)
28326                                                 if defined $::RD_TRACE;
28327                 my $thisprod = $thisrule->{"prods"}[0];
28328                 $text = $_[1];
28329                 my $_savetext;
28330                 @item = (q{with_expression});
28331                 %item = (__RULE__ => q{with_expression});
28332                 my $repcount = 0;
28333
28334
28335                 Parse::RecDescent::_trace(q{Trying terminal: [/WITH/i]}, Parse::RecDescent::_tracefirst($text),
28336                                           q{with_expression},
28337                                           $tracelevel)
28338                                                 if defined $::RD_TRACE;
28339                 $lastsep = "";
28340                 $expectation->is(q{})->at($text);
28341
28342
28343                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:WITH)//i)
28344                 {
28345
28346                         $expectation->failed();
28347                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
28348                                                   Parse::RecDescent::_tracefirst($text))
28349                                         if defined $::RD_TRACE;
28350
28351                         last;
28352                 }
28353                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
28354                                                 . $& . q{])},
28355                                                   Parse::RecDescent::_tracefirst($text))
28356                                         if defined $::RD_TRACE;
28357                 push @item, $item{__PATTERN1__}=$&;
28358
28359
28360                 Parse::RecDescent::_trace(q{Trying operator: [<leftop: common_table_expression /,/ common_table_expression>]},
28361                                   Parse::RecDescent::_tracefirst($text),
28362                                   q{with_expression},
28363                                   $tracelevel)
28364                                         if defined $::RD_TRACE;
28365                 $expectation->is(q{<leftop: common_table_expression /,/ common_table_expression>})->at($text);
28366
28367                 $_tok = undef;
28368                 OPLOOP: while (1)
28369                 {
28370                   $repcount = 0;
28371                   my  @item;
28372
28373                   # MATCH LEFTARG
28374
28375                 Parse::RecDescent::_trace(q{Trying subrule: [common_table_expression]},
28376                                   Parse::RecDescent::_tracefirst($text),
28377                                   q{with_expression},
28378                                   $tracelevel)
28379                                         if defined $::RD_TRACE;
28380                 if (1) { no strict qw{refs};
28381                 $expectation->is(q{common_table_expression})->at($text);
28382                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::common_table_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
28383                 {
28384
28385                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [common_table_expression]>>},
28386                                                   Parse::RecDescent::_tracefirst($text),
28387                                                   q{with_expression},
28388                                                   $tracelevel)
28389                                                         if defined $::RD_TRACE;
28390                         $expectation->failed();
28391                         last;
28392                 }
28393                 Parse::RecDescent::_trace(q{>>Matched subrule: [common_table_expression]<< (return value: [}
28394                                         . $_tok . q{]},
28395
28396                                           Parse::RecDescent::_tracefirst($text),
28397                                           q{with_expression},
28398                                           $tracelevel)
28399                                                 if defined $::RD_TRACE;
28400                 $item{q{common_table_expression}} = $_tok;
28401                 push @item, $_tok;
28402
28403                 }
28404
28405
28406                   $repcount++;
28407
28408                   my $savetext = $text;
28409                   my $backtrack;
28410
28411                   # MATCH (OP RIGHTARG)(s)
28412                   while ($repcount < 100000000)
28413                   {
28414                         $backtrack = 0;
28415
28416                 Parse::RecDescent::_trace(q{Trying terminal: [/,/]}, Parse::RecDescent::_tracefirst($text),
28417                                           q{with_expression},
28418                                           $tracelevel)
28419                                                 if defined $::RD_TRACE;
28420                 $lastsep = "";
28421                 $expectation->is(q{/,/})->at($text);
28422
28423
28424                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:,)//)
28425                 {
28426
28427                         $expectation->failed();
28428                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
28429                                                   Parse::RecDescent::_tracefirst($text))
28430                                         if defined $::RD_TRACE;
28431
28432                         last;
28433                 }
28434                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
28435                                                 . $& . q{])},
28436                                                   Parse::RecDescent::_tracefirst($text))
28437                                         if defined $::RD_TRACE;
28438                 push @item, $item{__PATTERN2__}=$&;
28439
28440
28441                         pop @item;
28442                         if (defined $1) {push @item, $item{'common_table_expression(s)'}=$1; $backtrack=1;}
28443
28444                 Parse::RecDescent::_trace(q{Trying subrule: [common_table_expression]},
28445                                   Parse::RecDescent::_tracefirst($text),
28446                                   q{with_expression},
28447                                   $tracelevel)
28448                                         if defined $::RD_TRACE;
28449                 if (1) { no strict qw{refs};
28450                 $expectation->is(q{common_table_expression})->at($text);
28451                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::common_table_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
28452                 {
28453
28454                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [common_table_expression]>>},
28455                                                   Parse::RecDescent::_tracefirst($text),
28456                                                   q{with_expression},
28457                                                   $tracelevel)
28458                                                         if defined $::RD_TRACE;
28459                         $expectation->failed();
28460                         last;
28461                 }
28462                 Parse::RecDescent::_trace(q{>>Matched subrule: [common_table_expression]<< (return value: [}
28463                                         . $_tok . q{]},
28464
28465                                           Parse::RecDescent::_tracefirst($text),
28466                                           q{with_expression},
28467                                           $tracelevel)
28468                                                 if defined $::RD_TRACE;
28469                 $item{q{common_table_expression}} = $_tok;
28470                 push @item, $_tok;
28471
28472                 }
28473
28474                         $savetext = $text;
28475                         $repcount++;
28476                   }
28477                   $text = $savetext;
28478                   pop @item if $backtrack;
28479
28480                   unless (@item) { undef $_tok; last }
28481                   $_tok = [ @item ];
28482                   last;
28483                 }
28484
28485                 unless ($repcount>=1)
28486                 {
28487                         Parse::RecDescent::_trace(q{<<Didn't match operator: [<leftop: common_table_expression /,/ common_table_expression>]>>},
28488                                                   Parse::RecDescent::_tracefirst($text),
28489                                                   q{with_expression},
28490                                                   $tracelevel)
28491                                                         if defined $::RD_TRACE;
28492                         $expectation->failed();
28493                         last;
28494                 }
28495                 Parse::RecDescent::_trace(q{>>Matched operator: [<leftop: common_table_expression /,/ common_table_expression>]<< (return value: [}
28496                                           . qq{@{$_tok||[]}} . q{]},
28497                                           Parse::RecDescent::_tracefirst($text),
28498                                           q{with_expression},
28499                                           $tracelevel)
28500                                                 if defined $::RD_TRACE;
28501
28502                 push @item, $item{'common_table_expression(s)'}=$_tok||[];
28503
28504
28505                 Parse::RecDescent::_trace(q{Trying action},
28506                                           Parse::RecDescent::_tracefirst($text),
28507                                           q{with_expression},
28508                                           $tracelevel)
28509                                                 if defined $::RD_TRACE;
28510
28511
28512                 $_tok = ($_noactions) ? 0 : do {
28513     $return = $item{'common_table_expression'};
28514 };
28515                 unless (defined $_tok)
28516                 {
28517                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
28518                                         if defined $::RD_TRACE;
28519                         last;
28520                 }
28521                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
28522                                           . $_tok . q{])},
28523                                           Parse::RecDescent::_tracefirst($text))
28524                                                 if defined $::RD_TRACE;
28525                 push @item, $_tok;
28526                 $item{__ACTION1__}=$_tok;
28527
28528
28529
28530                 Parse::RecDescent::_trace(q{>>Matched production: [/WITH/i <leftop: common_table_expression /,/ common_table_expression>]<<},
28531                                           Parse::RecDescent::_tracefirst($text),
28532                                           q{with_expression},
28533                                           $tracelevel)
28534                                                 if defined $::RD_TRACE;
28535                 $_matched = 1;
28536                 last;
28537         }
28538
28539
28540         unless ( $_matched || defined($return) || defined($score) )
28541         {
28542
28543
28544                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
28545                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
28546                                          Parse::RecDescent::_tracefirst($_[1]),
28547                                          q{with_expression},
28548                                          $tracelevel)
28549                                         if defined $::RD_TRACE;
28550                 return undef;
28551         }
28552         if (!defined($return) && defined($score))
28553         {
28554                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
28555                                           q{with_expression},
28556                                           $tracelevel)
28557                                                 if defined $::RD_TRACE;
28558                 $return = $score_return;
28559         }
28560         splice @{$thisparser->{errors}}, $err_at;
28561         $return = $item[$#item] unless defined $return;
28562         if (defined $::RD_TRACE)
28563         {
28564                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
28565                                           $return . q{])}, "",
28566                                           q{with_expression},
28567                                           $tracelevel);
28568                 Parse::RecDescent::_trace(q{(consumed: [} .
28569                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
28570                                           Parse::RecDescent::_tracefirst($text),
28571                                           , q{with_expression},
28572                                           $tracelevel)
28573         }
28574         $_[1] = $text;
28575         return $return;
28576 }
28577
28578 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
28579 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::numeric_constant
28580 {
28581         my $thisparser = $_[0];
28582         use vars q{$tracelevel};
28583         local $tracelevel = ($tracelevel||0)+1;
28584         $ERRORS = 0;
28585         my $thisrule = $thisparser->{"rules"}{"numeric_constant"};
28586
28587         Parse::RecDescent::_trace(q{Trying rule: [numeric_constant]},
28588                                   Parse::RecDescent::_tracefirst($_[1]),
28589                                   q{numeric_constant},
28590                                   $tracelevel)
28591                                         if defined $::RD_TRACE;
28592
28593
28594         my $err_at = @{$thisparser->{errors}};
28595
28596         my $score;
28597         my $score_return;
28598         my $_tok;
28599         my $return = undef;
28600         my $_matched=0;
28601         my $commit=0;
28602         my @item = ();
28603         my %item = ();
28604         my $repeating =  defined($_[2]) && $_[2];
28605         my $_noactions = defined($_[3]) && $_[3];
28606         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
28607         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
28608         my $text;
28609         my $lastsep="";
28610         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
28611         $expectation->at($_[1]);
28612
28613         my $thisline;
28614         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
28615
28616
28617
28618         while (!$_matched && !$commit)
28619         {
28620
28621                 Parse::RecDescent::_trace(q{Trying production: [/\\d+/]},
28622                                           Parse::RecDescent::_tracefirst($_[1]),
28623                                           q{numeric_constant},
28624                                           $tracelevel)
28625                                                 if defined $::RD_TRACE;
28626                 my $thisprod = $thisrule->{"prods"}[0];
28627                 $text = $_[1];
28628                 my $_savetext;
28629                 @item = (q{numeric_constant});
28630                 %item = (__RULE__ => q{numeric_constant});
28631                 my $repcount = 0;
28632
28633
28634                 Parse::RecDescent::_trace(q{Trying terminal: [/\\d+/]}, Parse::RecDescent::_tracefirst($text),
28635                                           q{numeric_constant},
28636                                           $tracelevel)
28637                                                 if defined $::RD_TRACE;
28638                 $lastsep = "";
28639                 $expectation->is(q{})->at($text);
28640
28641
28642                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:\d+)//)
28643                 {
28644
28645                         $expectation->failed();
28646                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
28647                                                   Parse::RecDescent::_tracefirst($text))
28648                                         if defined $::RD_TRACE;
28649
28650                         last;
28651                 }
28652                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
28653                                                 . $& . q{])},
28654                                                   Parse::RecDescent::_tracefirst($text))
28655                                         if defined $::RD_TRACE;
28656                 push @item, $item{__PATTERN1__}=$&;
28657
28658
28659
28660                 Parse::RecDescent::_trace(q{>>Matched production: [/\\d+/]<<},
28661                                           Parse::RecDescent::_tracefirst($text),
28662                                           q{numeric_constant},
28663                                           $tracelevel)
28664                                                 if defined $::RD_TRACE;
28665                 $_matched = 1;
28666                 last;
28667         }
28668
28669
28670         unless ( $_matched || defined($return) || defined($score) )
28671         {
28672
28673
28674                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
28675                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
28676                                          Parse::RecDescent::_tracefirst($_[1]),
28677                                          q{numeric_constant},
28678                                          $tracelevel)
28679                                         if defined $::RD_TRACE;
28680                 return undef;
28681         }
28682         if (!defined($return) && defined($score))
28683         {
28684                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
28685                                           q{numeric_constant},
28686                                           $tracelevel)
28687                                                 if defined $::RD_TRACE;
28688                 $return = $score_return;
28689         }
28690         splice @{$thisparser->{errors}}, $err_at;
28691         $return = $item[$#item] unless defined $return;
28692         if (defined $::RD_TRACE)
28693         {
28694                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
28695                                           $return . q{])}, "",
28696                                           q{numeric_constant},
28697                                           $tracelevel);
28698                 Parse::RecDescent::_trace(q{(consumed: [} .
28699                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
28700                                           Parse::RecDescent::_tracefirst($text),
28701                                           , q{numeric_constant},
28702                                           $tracelevel)
28703         }
28704         $_[1] = $text;
28705         return $return;
28706 }
28707
28708 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
28709 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::old_new_table
28710 {
28711         my $thisparser = $_[0];
28712         use vars q{$tracelevel};
28713         local $tracelevel = ($tracelevel||0)+1;
28714         $ERRORS = 0;
28715         my $thisrule = $thisparser->{"rules"}{"old_new_table"};
28716
28717         Parse::RecDescent::_trace(q{Trying rule: [old_new_table]},
28718                                   Parse::RecDescent::_tracefirst($_[1]),
28719                                   q{old_new_table},
28720                                   $tracelevel)
28721                                         if defined $::RD_TRACE;
28722
28723
28724         my $err_at = @{$thisparser->{errors}};
28725
28726         my $score;
28727         my $score_return;
28728         my $_tok;
28729         my $return = undef;
28730         my $_matched=0;
28731         my $commit=0;
28732         my @item = ();
28733         my %item = ();
28734         my $repeating =  defined($_[2]) && $_[2];
28735         my $_noactions = defined($_[3]) && $_[3];
28736         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
28737         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
28738         my $text;
28739         my $lastsep="";
28740         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
28741         $expectation->at($_[1]);
28742
28743         my $thisline;
28744         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
28745
28746
28747
28748         while (!$_matched && !$commit)
28749         {
28750
28751                 Parse::RecDescent::_trace(q{Trying production: [/OLD_TABLE/i /(AS)?/i identifier]},
28752                                           Parse::RecDescent::_tracefirst($_[1]),
28753                                           q{old_new_table},
28754                                           $tracelevel)
28755                                                 if defined $::RD_TRACE;
28756                 my $thisprod = $thisrule->{"prods"}[0];
28757                 $text = $_[1];
28758                 my $_savetext;
28759                 @item = (q{old_new_table});
28760                 %item = (__RULE__ => q{old_new_table});
28761                 my $repcount = 0;
28762
28763
28764                 Parse::RecDescent::_trace(q{Trying terminal: [/OLD_TABLE/i]}, Parse::RecDescent::_tracefirst($text),
28765                                           q{old_new_table},
28766                                           $tracelevel)
28767                                                 if defined $::RD_TRACE;
28768                 $lastsep = "";
28769                 $expectation->is(q{})->at($text);
28770
28771
28772                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:OLD_TABLE)//i)
28773                 {
28774
28775                         $expectation->failed();
28776                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
28777                                                   Parse::RecDescent::_tracefirst($text))
28778                                         if defined $::RD_TRACE;
28779
28780                         last;
28781                 }
28782                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
28783                                                 . $& . q{])},
28784                                                   Parse::RecDescent::_tracefirst($text))
28785                                         if defined $::RD_TRACE;
28786                 push @item, $item{__PATTERN1__}=$&;
28787
28788
28789                 Parse::RecDescent::_trace(q{Trying terminal: [/(AS)?/i]}, Parse::RecDescent::_tracefirst($text),
28790                                           q{old_new_table},
28791                                           $tracelevel)
28792                                                 if defined $::RD_TRACE;
28793                 $lastsep = "";
28794                 $expectation->is(q{/(AS)?/i})->at($text);
28795
28796
28797                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:(AS)?)//i)
28798                 {
28799
28800                         $expectation->failed();
28801                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
28802                                                   Parse::RecDescent::_tracefirst($text))
28803                                         if defined $::RD_TRACE;
28804
28805                         last;
28806                 }
28807                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
28808                                                 . $& . q{])},
28809                                                   Parse::RecDescent::_tracefirst($text))
28810                                         if defined $::RD_TRACE;
28811                 push @item, $item{__PATTERN2__}=$&;
28812
28813
28814                 Parse::RecDescent::_trace(q{Trying subrule: [identifier]},
28815                                   Parse::RecDescent::_tracefirst($text),
28816                                   q{old_new_table},
28817                                   $tracelevel)
28818                                         if defined $::RD_TRACE;
28819                 if (1) { no strict qw{refs};
28820                 $expectation->is(q{identifier})->at($text);
28821                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::identifier($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
28822                 {
28823
28824                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [identifier]>>},
28825                                                   Parse::RecDescent::_tracefirst($text),
28826                                                   q{old_new_table},
28827                                                   $tracelevel)
28828                                                         if defined $::RD_TRACE;
28829                         $expectation->failed();
28830                         last;
28831                 }
28832                 Parse::RecDescent::_trace(q{>>Matched subrule: [identifier]<< (return value: [}
28833                                         . $_tok . q{]},
28834
28835                                           Parse::RecDescent::_tracefirst($text),
28836                                           q{old_new_table},
28837                                           $tracelevel)
28838                                                 if defined $::RD_TRACE;
28839                 $item{q{identifier}} = $_tok;
28840                 push @item, $_tok;
28841
28842                 }
28843
28844                 Parse::RecDescent::_trace(q{Trying action},
28845                                           Parse::RecDescent::_tracefirst($text),
28846                                           q{old_new_table},
28847                                           $tracelevel)
28848                                                 if defined $::RD_TRACE;
28849
28850
28851                 $_tok = ($_noactions) ? 0 : do { $return = join(' ', @item[1..3] ) };
28852                 unless (defined $_tok)
28853                 {
28854                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
28855                                         if defined $::RD_TRACE;
28856                         last;
28857                 }
28858                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
28859                                           . $_tok . q{])},
28860                                           Parse::RecDescent::_tracefirst($text))
28861                                                 if defined $::RD_TRACE;
28862                 push @item, $_tok;
28863                 $item{__ACTION1__}=$_tok;
28864
28865
28866
28867                 Parse::RecDescent::_trace(q{>>Matched production: [/OLD_TABLE/i /(AS)?/i identifier]<<},
28868                                           Parse::RecDescent::_tracefirst($text),
28869                                           q{old_new_table},
28870                                           $tracelevel)
28871                                                 if defined $::RD_TRACE;
28872                 $_matched = 1;
28873                 last;
28874         }
28875
28876
28877         while (!$_matched && !$commit)
28878         {
28879
28880                 Parse::RecDescent::_trace(q{Trying production: [/NEW_TABLE/i /(AS)?/i identifier]},
28881                                           Parse::RecDescent::_tracefirst($_[1]),
28882                                           q{old_new_table},
28883                                           $tracelevel)
28884                                                 if defined $::RD_TRACE;
28885                 my $thisprod = $thisrule->{"prods"}[1];
28886                 $text = $_[1];
28887                 my $_savetext;
28888                 @item = (q{old_new_table});
28889                 %item = (__RULE__ => q{old_new_table});
28890                 my $repcount = 0;
28891
28892
28893                 Parse::RecDescent::_trace(q{Trying terminal: [/NEW_TABLE/i]}, Parse::RecDescent::_tracefirst($text),
28894                                           q{old_new_table},
28895                                           $tracelevel)
28896                                                 if defined $::RD_TRACE;
28897                 $lastsep = "";
28898                 $expectation->is(q{})->at($text);
28899
28900
28901                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NEW_TABLE)//i)
28902                 {
28903
28904                         $expectation->failed();
28905                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
28906                                                   Parse::RecDescent::_tracefirst($text))
28907                                         if defined $::RD_TRACE;
28908
28909                         last;
28910                 }
28911                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
28912                                                 . $& . q{])},
28913                                                   Parse::RecDescent::_tracefirst($text))
28914                                         if defined $::RD_TRACE;
28915                 push @item, $item{__PATTERN1__}=$&;
28916
28917
28918                 Parse::RecDescent::_trace(q{Trying terminal: [/(AS)?/i]}, Parse::RecDescent::_tracefirst($text),
28919                                           q{old_new_table},
28920                                           $tracelevel)
28921                                                 if defined $::RD_TRACE;
28922                 $lastsep = "";
28923                 $expectation->is(q{/(AS)?/i})->at($text);
28924
28925
28926                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:(AS)?)//i)
28927                 {
28928
28929                         $expectation->failed();
28930                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
28931                                                   Parse::RecDescent::_tracefirst($text))
28932                                         if defined $::RD_TRACE;
28933
28934                         last;
28935                 }
28936                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
28937                                                 . $& . q{])},
28938                                                   Parse::RecDescent::_tracefirst($text))
28939                                         if defined $::RD_TRACE;
28940                 push @item, $item{__PATTERN2__}=$&;
28941
28942
28943                 Parse::RecDescent::_trace(q{Trying subrule: [identifier]},
28944                                   Parse::RecDescent::_tracefirst($text),
28945                                   q{old_new_table},
28946                                   $tracelevel)
28947                                         if defined $::RD_TRACE;
28948                 if (1) { no strict qw{refs};
28949                 $expectation->is(q{identifier})->at($text);
28950                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::identifier($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
28951                 {
28952
28953                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [identifier]>>},
28954                                                   Parse::RecDescent::_tracefirst($text),
28955                                                   q{old_new_table},
28956                                                   $tracelevel)
28957                                                         if defined $::RD_TRACE;
28958                         $expectation->failed();
28959                         last;
28960                 }
28961                 Parse::RecDescent::_trace(q{>>Matched subrule: [identifier]<< (return value: [}
28962                                         . $_tok . q{]},
28963
28964                                           Parse::RecDescent::_tracefirst($text),
28965                                           q{old_new_table},
28966                                           $tracelevel)
28967                                                 if defined $::RD_TRACE;
28968                 $item{q{identifier}} = $_tok;
28969                 push @item, $_tok;
28970
28971                 }
28972
28973                 Parse::RecDescent::_trace(q{Trying action},
28974                                           Parse::RecDescent::_tracefirst($text),
28975                                           q{old_new_table},
28976                                           $tracelevel)
28977                                                 if defined $::RD_TRACE;
28978
28979
28980                 $_tok = ($_noactions) ? 0 : do { $return = join(' ', @item[1..3] ) };
28981                 unless (defined $_tok)
28982                 {
28983                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
28984                                         if defined $::RD_TRACE;
28985                         last;
28986                 }
28987                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
28988                                           . $_tok . q{])},
28989                                           Parse::RecDescent::_tracefirst($text))
28990                                                 if defined $::RD_TRACE;
28991                 push @item, $_tok;
28992                 $item{__ACTION1__}=$_tok;
28993
28994
28995
28996                 Parse::RecDescent::_trace(q{>>Matched production: [/NEW_TABLE/i /(AS)?/i identifier]<<},
28997                                           Parse::RecDescent::_tracefirst($text),
28998                                           q{old_new_table},
28999                                           $tracelevel)
29000                                                 if defined $::RD_TRACE;
29001                 $_matched = 1;
29002                 last;
29003         }
29004
29005
29006         unless ( $_matched || defined($return) || defined($score) )
29007         {
29008
29009
29010                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
29011                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
29012                                          Parse::RecDescent::_tracefirst($_[1]),
29013                                          q{old_new_table},
29014                                          $tracelevel)
29015                                         if defined $::RD_TRACE;
29016                 return undef;
29017         }
29018         if (!defined($return) && defined($score))
29019         {
29020                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
29021                                           q{old_new_table},
29022                                           $tracelevel)
29023                                                 if defined $::RD_TRACE;
29024                 $return = $score_return;
29025         }
29026         splice @{$thisparser->{errors}}, $err_at;
29027         $return = $item[$#item] unless defined $return;
29028         if (defined $::RD_TRACE)
29029         {
29030                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
29031                                           $return . q{])}, "",
29032                                           q{old_new_table},
29033                                           $tracelevel);
29034                 Parse::RecDescent::_trace(q{(consumed: [} .
29035                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
29036                                           Parse::RecDescent::_tracefirst($text),
29037                                           , q{old_new_table},
29038                                           $tracelevel)
29039         }
29040         $_[1] = $text;
29041         return $return;
29042 }
29043
29044 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
29045 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_numbering_function
29046 {
29047         my $thisparser = $_[0];
29048         use vars q{$tracelevel};
29049         local $tracelevel = ($tracelevel||0)+1;
29050         $ERRORS = 0;
29051         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_numbering_function"};
29052
29053         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_numbering_function]},
29054                                   Parse::RecDescent::_tracefirst($_[1]),
29055                                   q{_alternation_1_of_production_1_of_rule_numbering_function},
29056                                   $tracelevel)
29057                                         if defined $::RD_TRACE;
29058
29059
29060         my $err_at = @{$thisparser->{errors}};
29061
29062         my $score;
29063         my $score_return;
29064         my $_tok;
29065         my $return = undef;
29066         my $_matched=0;
29067         my $commit=0;
29068         my @item = ();
29069         my %item = ();
29070         my $repeating =  defined($_[2]) && $_[2];
29071         my $_noactions = defined($_[3]) && $_[3];
29072         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
29073         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
29074         my $text;
29075         my $lastsep="";
29076         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
29077         $expectation->at($_[1]);
29078
29079         my $thisline;
29080         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
29081
29082
29083
29084         while (!$_matched && !$commit)
29085         {
29086
29087                 Parse::RecDescent::_trace(q{Trying production: [window_order_clause window_aggregation_group_clause]},
29088                                           Parse::RecDescent::_tracefirst($_[1]),
29089                                           q{_alternation_1_of_production_1_of_rule_numbering_function},
29090                                           $tracelevel)
29091                                                 if defined $::RD_TRACE;
29092                 my $thisprod = $thisrule->{"prods"}[0];
29093                 $text = $_[1];
29094                 my $_savetext;
29095                 @item = (q{_alternation_1_of_production_1_of_rule_numbering_function});
29096                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_numbering_function});
29097                 my $repcount = 0;
29098
29099
29100                 Parse::RecDescent::_trace(q{Trying subrule: [window_order_clause]},
29101                                   Parse::RecDescent::_tracefirst($text),
29102                                   q{_alternation_1_of_production_1_of_rule_numbering_function},
29103                                   $tracelevel)
29104                                         if defined $::RD_TRACE;
29105                 if (1) { no strict qw{refs};
29106                 $expectation->is(q{})->at($text);
29107                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::window_order_clause($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
29108                 {
29109
29110                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [window_order_clause]>>},
29111                                                   Parse::RecDescent::_tracefirst($text),
29112                                                   q{_alternation_1_of_production_1_of_rule_numbering_function},
29113                                                   $tracelevel)
29114                                                         if defined $::RD_TRACE;
29115                         $expectation->failed();
29116                         last;
29117                 }
29118                 Parse::RecDescent::_trace(q{>>Matched subrule: [window_order_clause]<< (return value: [}
29119                                         . $_tok . q{]},
29120
29121                                           Parse::RecDescent::_tracefirst($text),
29122                                           q{_alternation_1_of_production_1_of_rule_numbering_function},
29123                                           $tracelevel)
29124                                                 if defined $::RD_TRACE;
29125                 $item{q{window_order_clause}} = $_tok;
29126                 push @item, $_tok;
29127
29128                 }
29129
29130                 Parse::RecDescent::_trace(q{Trying repeated subrule: [window_aggregation_group_clause]},
29131                                   Parse::RecDescent::_tracefirst($text),
29132                                   q{_alternation_1_of_production_1_of_rule_numbering_function},
29133                                   $tracelevel)
29134                                         if defined $::RD_TRACE;
29135                 $expectation->is(q{window_aggregation_group_clause})->at($text);
29136
29137                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::window_aggregation_group_clause, 0, 1, $_noactions,$expectation,undef)))
29138                 {
29139                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [window_aggregation_group_clause]>>},
29140                                                   Parse::RecDescent::_tracefirst($text),
29141                                                   q{_alternation_1_of_production_1_of_rule_numbering_function},
29142                                                   $tracelevel)
29143                                                         if defined $::RD_TRACE;
29144                         last;
29145                 }
29146                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [window_aggregation_group_clause]<< (}
29147                                         . @$_tok . q{ times)},
29148
29149                                           Parse::RecDescent::_tracefirst($text),
29150                                           q{_alternation_1_of_production_1_of_rule_numbering_function},
29151                                           $tracelevel)
29152                                                 if defined $::RD_TRACE;
29153                 $item{q{window_aggregation_group_clause(?)}} = $_tok;
29154                 push @item, $_tok;
29155
29156
29157
29158
29159                 Parse::RecDescent::_trace(q{>>Matched production: [window_order_clause window_aggregation_group_clause]<<},
29160                                           Parse::RecDescent::_tracefirst($text),
29161                                           q{_alternation_1_of_production_1_of_rule_numbering_function},
29162                                           $tracelevel)
29163                                                 if defined $::RD_TRACE;
29164                 $_matched = 1;
29165                 last;
29166         }
29167
29168
29169         unless ( $_matched || defined($return) || defined($score) )
29170         {
29171
29172
29173                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
29174                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
29175                                          Parse::RecDescent::_tracefirst($_[1]),
29176                                          q{_alternation_1_of_production_1_of_rule_numbering_function},
29177                                          $tracelevel)
29178                                         if defined $::RD_TRACE;
29179                 return undef;
29180         }
29181         if (!defined($return) && defined($score))
29182         {
29183                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
29184                                           q{_alternation_1_of_production_1_of_rule_numbering_function},
29185                                           $tracelevel)
29186                                                 if defined $::RD_TRACE;
29187                 $return = $score_return;
29188         }
29189         splice @{$thisparser->{errors}}, $err_at;
29190         $return = $item[$#item] unless defined $return;
29191         if (defined $::RD_TRACE)
29192         {
29193                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
29194                                           $return . q{])}, "",
29195                                           q{_alternation_1_of_production_1_of_rule_numbering_function},
29196                                           $tracelevel);
29197                 Parse::RecDescent::_trace(q{(consumed: [} .
29198                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
29199                                           Parse::RecDescent::_tracefirst($text),
29200                                           , q{_alternation_1_of_production_1_of_rule_numbering_function},
29201                                           $tracelevel)
29202         }
29203         $_[1] = $text;
29204         return $return;
29205 }
29206
29207 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
29208 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause
29209 {
29210         my $thisparser = $_[0];
29211         use vars q{$tracelevel};
29212         local $tracelevel = ($tracelevel||0)+1;
29213         $ERRORS = 0;
29214         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause"};
29215
29216         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause]},
29217                                   Parse::RecDescent::_tracefirst($_[1]),
29218                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause},
29219                                   $tracelevel)
29220                                         if defined $::RD_TRACE;
29221
29222
29223         my $err_at = @{$thisparser->{errors}};
29224
29225         my $score;
29226         my $score_return;
29227         my $_tok;
29228         my $return = undef;
29229         my $_matched=0;
29230         my $commit=0;
29231         my @item = ();
29232         my %item = ();
29233         my $repeating =  defined($_[2]) && $_[2];
29234         my $_noactions = defined($_[3]) && $_[3];
29235         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
29236         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
29237         my $text;
29238         my $lastsep="";
29239         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
29240         $expectation->at($_[1]);
29241
29242         my $thisline;
29243         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
29244
29245
29246
29247         while (!$_matched && !$commit)
29248         {
29249
29250                 Parse::RecDescent::_trace(q{Trying production: [result_expression]},
29251                                           Parse::RecDescent::_tracefirst($_[1]),
29252                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause},
29253                                           $tracelevel)
29254                                                 if defined $::RD_TRACE;
29255                 my $thisprod = $thisrule->{"prods"}[0];
29256                 $text = $_[1];
29257                 my $_savetext;
29258                 @item = (q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause});
29259                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause});
29260                 my $repcount = 0;
29261
29262
29263                 Parse::RecDescent::_trace(q{Trying subrule: [result_expression]},
29264                                   Parse::RecDescent::_tracefirst($text),
29265                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause},
29266                                   $tracelevel)
29267                                         if defined $::RD_TRACE;
29268                 if (1) { no strict qw{refs};
29269                 $expectation->is(q{})->at($text);
29270                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::result_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
29271                 {
29272
29273                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [result_expression]>>},
29274                                                   Parse::RecDescent::_tracefirst($text),
29275                                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause},
29276                                                   $tracelevel)
29277                                                         if defined $::RD_TRACE;
29278                         $expectation->failed();
29279                         last;
29280                 }
29281                 Parse::RecDescent::_trace(q{>>Matched subrule: [result_expression]<< (return value: [}
29282                                         . $_tok . q{]},
29283
29284                                           Parse::RecDescent::_tracefirst($text),
29285                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause},
29286                                           $tracelevel)
29287                                                 if defined $::RD_TRACE;
29288                 $item{q{result_expression}} = $_tok;
29289                 push @item, $_tok;
29290
29291                 }
29292
29293
29294                 Parse::RecDescent::_trace(q{>>Matched production: [result_expression]<<},
29295                                           Parse::RecDescent::_tracefirst($text),
29296                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause},
29297                                           $tracelevel)
29298                                                 if defined $::RD_TRACE;
29299                 $_matched = 1;
29300                 last;
29301         }
29302
29303
29304         while (!$_matched && !$commit)
29305         {
29306
29307                 Parse::RecDescent::_trace(q{Trying production: [/NULL/i]},
29308                                           Parse::RecDescent::_tracefirst($_[1]),
29309                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause},
29310                                           $tracelevel)
29311                                                 if defined $::RD_TRACE;
29312                 my $thisprod = $thisrule->{"prods"}[1];
29313                 $text = $_[1];
29314                 my $_savetext;
29315                 @item = (q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause});
29316                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause});
29317                 my $repcount = 0;
29318
29319
29320                 Parse::RecDescent::_trace(q{Trying terminal: [/NULL/i]}, Parse::RecDescent::_tracefirst($text),
29321                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause},
29322                                           $tracelevel)
29323                                                 if defined $::RD_TRACE;
29324                 $lastsep = "";
29325                 $expectation->is(q{})->at($text);
29326
29327
29328                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NULL)//i)
29329                 {
29330
29331                         $expectation->failed();
29332                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
29333                                                   Parse::RecDescent::_tracefirst($text))
29334                                         if defined $::RD_TRACE;
29335
29336                         last;
29337                 }
29338                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
29339                                                 . $& . q{])},
29340                                                   Parse::RecDescent::_tracefirst($text))
29341                                         if defined $::RD_TRACE;
29342                 push @item, $item{__PATTERN1__}=$&;
29343
29344
29345
29346                 Parse::RecDescent::_trace(q{>>Matched production: [/NULL/i]<<},
29347                                           Parse::RecDescent::_tracefirst($text),
29348                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause},
29349                                           $tracelevel)
29350                                                 if defined $::RD_TRACE;
29351                 $_matched = 1;
29352                 last;
29353         }
29354
29355
29356         unless ( $_matched || defined($return) || defined($score) )
29357         {
29358
29359
29360                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
29361                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
29362                                          Parse::RecDescent::_tracefirst($_[1]),
29363                                          q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause},
29364                                          $tracelevel)
29365                                         if defined $::RD_TRACE;
29366                 return undef;
29367         }
29368         if (!defined($return) && defined($score))
29369         {
29370                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
29371                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause},
29372                                           $tracelevel)
29373                                                 if defined $::RD_TRACE;
29374                 $return = $score_return;
29375         }
29376         splice @{$thisparser->{errors}}, $err_at;
29377         $return = $item[$#item] unless defined $return;
29378         if (defined $::RD_TRACE)
29379         {
29380                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
29381                                           $return . q{])}, "",
29382                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause},
29383                                           $tracelevel);
29384                 Parse::RecDescent::_trace(q{(consumed: [} .
29385                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
29386                                           Parse::RecDescent::_tracefirst($text),
29387                                           , q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause},
29388                                           $tracelevel)
29389         }
29390         $_[1] = $text;
29391         return $return;
29392 }
29393
29394 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
29395 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::old_new_corr
29396 {
29397         my $thisparser = $_[0];
29398         use vars q{$tracelevel};
29399         local $tracelevel = ($tracelevel||0)+1;
29400         $ERRORS = 0;
29401         my $thisrule = $thisparser->{"rules"}{"old_new_corr"};
29402
29403         Parse::RecDescent::_trace(q{Trying rule: [old_new_corr]},
29404                                   Parse::RecDescent::_tracefirst($_[1]),
29405                                   q{old_new_corr},
29406                                   $tracelevel)
29407                                         if defined $::RD_TRACE;
29408
29409
29410         my $err_at = @{$thisparser->{errors}};
29411
29412         my $score;
29413         my $score_return;
29414         my $_tok;
29415         my $return = undef;
29416         my $_matched=0;
29417         my $commit=0;
29418         my @item = ();
29419         my %item = ();
29420         my $repeating =  defined($_[2]) && $_[2];
29421         my $_noactions = defined($_[3]) && $_[3];
29422         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
29423         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
29424         my $text;
29425         my $lastsep="";
29426         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
29427         $expectation->at($_[1]);
29428
29429         my $thisline;
29430         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
29431
29432
29433
29434         while (!$_matched && !$commit)
29435         {
29436
29437                 Parse::RecDescent::_trace(q{Trying production: [/OLD/i /(AS)?/i correlation_name]},
29438                                           Parse::RecDescent::_tracefirst($_[1]),
29439                                           q{old_new_corr},
29440                                           $tracelevel)
29441                                                 if defined $::RD_TRACE;
29442                 my $thisprod = $thisrule->{"prods"}[0];
29443                 $text = $_[1];
29444                 my $_savetext;
29445                 @item = (q{old_new_corr});
29446                 %item = (__RULE__ => q{old_new_corr});
29447                 my $repcount = 0;
29448
29449
29450                 Parse::RecDescent::_trace(q{Trying terminal: [/OLD/i]}, Parse::RecDescent::_tracefirst($text),
29451                                           q{old_new_corr},
29452                                           $tracelevel)
29453                                                 if defined $::RD_TRACE;
29454                 $lastsep = "";
29455                 $expectation->is(q{})->at($text);
29456
29457
29458                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:OLD)//i)
29459                 {
29460
29461                         $expectation->failed();
29462                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
29463                                                   Parse::RecDescent::_tracefirst($text))
29464                                         if defined $::RD_TRACE;
29465
29466                         last;
29467                 }
29468                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
29469                                                 . $& . q{])},
29470                                                   Parse::RecDescent::_tracefirst($text))
29471                                         if defined $::RD_TRACE;
29472                 push @item, $item{__PATTERN1__}=$&;
29473
29474
29475                 Parse::RecDescent::_trace(q{Trying terminal: [/(AS)?/i]}, Parse::RecDescent::_tracefirst($text),
29476                                           q{old_new_corr},
29477                                           $tracelevel)
29478                                                 if defined $::RD_TRACE;
29479                 $lastsep = "";
29480                 $expectation->is(q{/(AS)?/i})->at($text);
29481
29482
29483                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:(AS)?)//i)
29484                 {
29485
29486                         $expectation->failed();
29487                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
29488                                                   Parse::RecDescent::_tracefirst($text))
29489                                         if defined $::RD_TRACE;
29490
29491                         last;
29492                 }
29493                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
29494                                                 . $& . q{])},
29495                                                   Parse::RecDescent::_tracefirst($text))
29496                                         if defined $::RD_TRACE;
29497                 push @item, $item{__PATTERN2__}=$&;
29498
29499
29500                 Parse::RecDescent::_trace(q{Trying subrule: [correlation_name]},
29501                                   Parse::RecDescent::_tracefirst($text),
29502                                   q{old_new_corr},
29503                                   $tracelevel)
29504                                         if defined $::RD_TRACE;
29505                 if (1) { no strict qw{refs};
29506                 $expectation->is(q{correlation_name})->at($text);
29507                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::correlation_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
29508                 {
29509
29510                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [correlation_name]>>},
29511                                                   Parse::RecDescent::_tracefirst($text),
29512                                                   q{old_new_corr},
29513                                                   $tracelevel)
29514                                                         if defined $::RD_TRACE;
29515                         $expectation->failed();
29516                         last;
29517                 }
29518                 Parse::RecDescent::_trace(q{>>Matched subrule: [correlation_name]<< (return value: [}
29519                                         . $_tok . q{]},
29520
29521                                           Parse::RecDescent::_tracefirst($text),
29522                                           q{old_new_corr},
29523                                           $tracelevel)
29524                                                 if defined $::RD_TRACE;
29525                 $item{q{correlation_name}} = $_tok;
29526                 push @item, $_tok;
29527
29528                 }
29529
29530                 Parse::RecDescent::_trace(q{Trying action},
29531                                           Parse::RecDescent::_tracefirst($text),
29532                                           q{old_new_corr},
29533                                           $tracelevel)
29534                                                 if defined $::RD_TRACE;
29535
29536
29537                 $_tok = ($_noactions) ? 0 : do { $return = join(' ', @item[1..3] ) };
29538                 unless (defined $_tok)
29539                 {
29540                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
29541                                         if defined $::RD_TRACE;
29542                         last;
29543                 }
29544                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
29545                                           . $_tok . q{])},
29546                                           Parse::RecDescent::_tracefirst($text))
29547                                                 if defined $::RD_TRACE;
29548                 push @item, $_tok;
29549                 $item{__ACTION1__}=$_tok;
29550
29551
29552
29553                 Parse::RecDescent::_trace(q{>>Matched production: [/OLD/i /(AS)?/i correlation_name]<<},
29554                                           Parse::RecDescent::_tracefirst($text),
29555                                           q{old_new_corr},
29556                                           $tracelevel)
29557                                                 if defined $::RD_TRACE;
29558                 $_matched = 1;
29559                 last;
29560         }
29561
29562
29563         while (!$_matched && !$commit)
29564         {
29565
29566                 Parse::RecDescent::_trace(q{Trying production: [/NEW/i /(AS)?/i correlation_name]},
29567                                           Parse::RecDescent::_tracefirst($_[1]),
29568                                           q{old_new_corr},
29569                                           $tracelevel)
29570                                                 if defined $::RD_TRACE;
29571                 my $thisprod = $thisrule->{"prods"}[1];
29572                 $text = $_[1];
29573                 my $_savetext;
29574                 @item = (q{old_new_corr});
29575                 %item = (__RULE__ => q{old_new_corr});
29576                 my $repcount = 0;
29577
29578
29579                 Parse::RecDescent::_trace(q{Trying terminal: [/NEW/i]}, Parse::RecDescent::_tracefirst($text),
29580                                           q{old_new_corr},
29581                                           $tracelevel)
29582                                                 if defined $::RD_TRACE;
29583                 $lastsep = "";
29584                 $expectation->is(q{})->at($text);
29585
29586
29587                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NEW)//i)
29588                 {
29589
29590                         $expectation->failed();
29591                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
29592                                                   Parse::RecDescent::_tracefirst($text))
29593                                         if defined $::RD_TRACE;
29594
29595                         last;
29596                 }
29597                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
29598                                                 . $& . q{])},
29599                                                   Parse::RecDescent::_tracefirst($text))
29600                                         if defined $::RD_TRACE;
29601                 push @item, $item{__PATTERN1__}=$&;
29602
29603
29604                 Parse::RecDescent::_trace(q{Trying terminal: [/(AS)?/i]}, Parse::RecDescent::_tracefirst($text),
29605                                           q{old_new_corr},
29606                                           $tracelevel)
29607                                                 if defined $::RD_TRACE;
29608                 $lastsep = "";
29609                 $expectation->is(q{/(AS)?/i})->at($text);
29610
29611
29612                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:(AS)?)//i)
29613                 {
29614
29615                         $expectation->failed();
29616                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
29617                                                   Parse::RecDescent::_tracefirst($text))
29618                                         if defined $::RD_TRACE;
29619
29620                         last;
29621                 }
29622                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
29623                                                 . $& . q{])},
29624                                                   Parse::RecDescent::_tracefirst($text))
29625                                         if defined $::RD_TRACE;
29626                 push @item, $item{__PATTERN2__}=$&;
29627
29628
29629                 Parse::RecDescent::_trace(q{Trying subrule: [correlation_name]},
29630                                   Parse::RecDescent::_tracefirst($text),
29631                                   q{old_new_corr},
29632                                   $tracelevel)
29633                                         if defined $::RD_TRACE;
29634                 if (1) { no strict qw{refs};
29635                 $expectation->is(q{correlation_name})->at($text);
29636                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::correlation_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
29637                 {
29638
29639                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [correlation_name]>>},
29640                                                   Parse::RecDescent::_tracefirst($text),
29641                                                   q{old_new_corr},
29642                                                   $tracelevel)
29643                                                         if defined $::RD_TRACE;
29644                         $expectation->failed();
29645                         last;
29646                 }
29647                 Parse::RecDescent::_trace(q{>>Matched subrule: [correlation_name]<< (return value: [}
29648                                         . $_tok . q{]},
29649
29650                                           Parse::RecDescent::_tracefirst($text),
29651                                           q{old_new_corr},
29652                                           $tracelevel)
29653                                                 if defined $::RD_TRACE;
29654                 $item{q{correlation_name}} = $_tok;
29655                 push @item, $_tok;
29656
29657                 }
29658
29659                 Parse::RecDescent::_trace(q{Trying action},
29660                                           Parse::RecDescent::_tracefirst($text),
29661                                           q{old_new_corr},
29662                                           $tracelevel)
29663                                                 if defined $::RD_TRACE;
29664
29665
29666                 $_tok = ($_noactions) ? 0 : do { $return = join(' ', @item[1..3] ) };
29667                 unless (defined $_tok)
29668                 {
29669                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
29670                                         if defined $::RD_TRACE;
29671                         last;
29672                 }
29673                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
29674                                           . $_tok . q{])},
29675                                           Parse::RecDescent::_tracefirst($text))
29676                                                 if defined $::RD_TRACE;
29677                 push @item, $_tok;
29678                 $item{__ACTION1__}=$_tok;
29679
29680
29681
29682                 Parse::RecDescent::_trace(q{>>Matched production: [/NEW/i /(AS)?/i correlation_name]<<},
29683                                           Parse::RecDescent::_tracefirst($text),
29684                                           q{old_new_corr},
29685                                           $tracelevel)
29686                                                 if defined $::RD_TRACE;
29687                 $_matched = 1;
29688                 last;
29689         }
29690
29691
29692         unless ( $_matched || defined($return) || defined($score) )
29693         {
29694
29695
29696                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
29697                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
29698                                          Parse::RecDescent::_tracefirst($_[1]),
29699                                          q{old_new_corr},
29700                                          $tracelevel)
29701                                         if defined $::RD_TRACE;
29702                 return undef;
29703         }
29704         if (!defined($return) && defined($score))
29705         {
29706                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
29707                                           q{old_new_corr},
29708                                           $tracelevel)
29709                                                 if defined $::RD_TRACE;
29710                 $return = $score_return;
29711         }
29712         splice @{$thisparser->{errors}}, $err_at;
29713         $return = $item[$#item] unless defined $return;
29714         if (defined $::RD_TRACE)
29715         {
29716                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
29717                                           $return . q{])}, "",
29718                                           q{old_new_corr},
29719                                           $tracelevel);
29720                 Parse::RecDescent::_trace(q{(consumed: [} .
29721                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
29722                                           Parse::RecDescent::_tracefirst($text),
29723                                           , q{old_new_corr},
29724                                           $tracelevel)
29725         }
29726         $_[1] = $text;
29727         return $return;
29728 }
29729
29730 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
29731 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_42_of_rule_sysibm_function
29732 {
29733         my $thisparser = $_[0];
29734         use vars q{$tracelevel};
29735         local $tracelevel = ($tracelevel||0)+1;
29736         $ERRORS = 0;
29737         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_42_of_rule_sysibm_function"};
29738
29739         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_42_of_rule_sysibm_function]},
29740                                   Parse::RecDescent::_tracefirst($_[1]),
29741                                   q{_alternation_1_of_production_42_of_rule_sysibm_function},
29742                                   $tracelevel)
29743                                         if defined $::RD_TRACE;
29744
29745
29746         my $err_at = @{$thisparser->{errors}};
29747
29748         my $score;
29749         my $score_return;
29750         my $_tok;
29751         my $return = undef;
29752         my $_matched=0;
29753         my $commit=0;
29754         my @item = ();
29755         my %item = ();
29756         my $repeating =  defined($_[2]) && $_[2];
29757         my $_noactions = defined($_[3]) && $_[3];
29758         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
29759         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
29760         my $text;
29761         my $lastsep="";
29762         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
29763         $expectation->at($_[1]);
29764
29765         my $thisline;
29766         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
29767
29768
29769
29770         while (!$_matched && !$commit)
29771         {
29772
29773                 Parse::RecDescent::_trace(q{Trying production: [/LCASE/i]},
29774                                           Parse::RecDescent::_tracefirst($_[1]),
29775                                           q{_alternation_1_of_production_42_of_rule_sysibm_function},
29776                                           $tracelevel)
29777                                                 if defined $::RD_TRACE;
29778                 my $thisprod = $thisrule->{"prods"}[0];
29779                 $text = $_[1];
29780                 my $_savetext;
29781                 @item = (q{_alternation_1_of_production_42_of_rule_sysibm_function});
29782                 %item = (__RULE__ => q{_alternation_1_of_production_42_of_rule_sysibm_function});
29783                 my $repcount = 0;
29784
29785
29786                 Parse::RecDescent::_trace(q{Trying terminal: [/LCASE/i]}, Parse::RecDescent::_tracefirst($text),
29787                                           q{_alternation_1_of_production_42_of_rule_sysibm_function},
29788                                           $tracelevel)
29789                                                 if defined $::RD_TRACE;
29790                 $lastsep = "";
29791                 $expectation->is(q{})->at($text);
29792
29793
29794                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:LCASE)//i)
29795                 {
29796
29797                         $expectation->failed();
29798                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
29799                                                   Parse::RecDescent::_tracefirst($text))
29800                                         if defined $::RD_TRACE;
29801
29802                         last;
29803                 }
29804                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
29805                                                 . $& . q{])},
29806                                                   Parse::RecDescent::_tracefirst($text))
29807                                         if defined $::RD_TRACE;
29808                 push @item, $item{__PATTERN1__}=$&;
29809
29810
29811
29812                 Parse::RecDescent::_trace(q{>>Matched production: [/LCASE/i]<<},
29813                                           Parse::RecDescent::_tracefirst($text),
29814                                           q{_alternation_1_of_production_42_of_rule_sysibm_function},
29815                                           $tracelevel)
29816                                                 if defined $::RD_TRACE;
29817                 $_matched = 1;
29818                 last;
29819         }
29820
29821
29822         while (!$_matched && !$commit)
29823         {
29824
29825                 Parse::RecDescent::_trace(q{Trying production: [/LOWER/]},
29826                                           Parse::RecDescent::_tracefirst($_[1]),
29827                                           q{_alternation_1_of_production_42_of_rule_sysibm_function},
29828                                           $tracelevel)
29829                                                 if defined $::RD_TRACE;
29830                 my $thisprod = $thisrule->{"prods"}[1];
29831                 $text = $_[1];
29832                 my $_savetext;
29833                 @item = (q{_alternation_1_of_production_42_of_rule_sysibm_function});
29834                 %item = (__RULE__ => q{_alternation_1_of_production_42_of_rule_sysibm_function});
29835                 my $repcount = 0;
29836
29837
29838                 Parse::RecDescent::_trace(q{Trying terminal: [/LOWER/]}, Parse::RecDescent::_tracefirst($text),
29839                                           q{_alternation_1_of_production_42_of_rule_sysibm_function},
29840                                           $tracelevel)
29841                                                 if defined $::RD_TRACE;
29842                 $lastsep = "";
29843                 $expectation->is(q{})->at($text);
29844
29845
29846                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:LOWER)//)
29847                 {
29848
29849                         $expectation->failed();
29850                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
29851                                                   Parse::RecDescent::_tracefirst($text))
29852                                         if defined $::RD_TRACE;
29853
29854                         last;
29855                 }
29856                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
29857                                                 . $& . q{])},
29858                                                   Parse::RecDescent::_tracefirst($text))
29859                                         if defined $::RD_TRACE;
29860                 push @item, $item{__PATTERN1__}=$&;
29861
29862
29863
29864                 Parse::RecDescent::_trace(q{>>Matched production: [/LOWER/]<<},
29865                                           Parse::RecDescent::_tracefirst($text),
29866                                           q{_alternation_1_of_production_42_of_rule_sysibm_function},
29867                                           $tracelevel)
29868                                                 if defined $::RD_TRACE;
29869                 $_matched = 1;
29870                 last;
29871         }
29872
29873
29874         unless ( $_matched || defined($return) || defined($score) )
29875         {
29876
29877
29878                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
29879                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
29880                                          Parse::RecDescent::_tracefirst($_[1]),
29881                                          q{_alternation_1_of_production_42_of_rule_sysibm_function},
29882                                          $tracelevel)
29883                                         if defined $::RD_TRACE;
29884                 return undef;
29885         }
29886         if (!defined($return) && defined($score))
29887         {
29888                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
29889                                           q{_alternation_1_of_production_42_of_rule_sysibm_function},
29890                                           $tracelevel)
29891                                                 if defined $::RD_TRACE;
29892                 $return = $score_return;
29893         }
29894         splice @{$thisparser->{errors}}, $err_at;
29895         $return = $item[$#item] unless defined $return;
29896         if (defined $::RD_TRACE)
29897         {
29898                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
29899                                           $return . q{])}, "",
29900                                           q{_alternation_1_of_production_42_of_rule_sysibm_function},
29901                                           $tracelevel);
29902                 Parse::RecDescent::_trace(q{(consumed: [} .
29903                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
29904                                           Parse::RecDescent::_tracefirst($text),
29905                                           , q{_alternation_1_of_production_42_of_rule_sysibm_function},
29906                                           $tracelevel)
29907         }
29908         $_[1] = $text;
29909         return $return;
29910 }
29911
29912 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
29913 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::subtype_treatment
29914 {
29915         my $thisparser = $_[0];
29916         use vars q{$tracelevel};
29917         local $tracelevel = ($tracelevel||0)+1;
29918         $ERRORS = 0;
29919         my $thisrule = $thisparser->{"rules"}{"subtype_treatment"};
29920
29921         Parse::RecDescent::_trace(q{Trying rule: [subtype_treatment]},
29922                                   Parse::RecDescent::_tracefirst($_[1]),
29923                                   q{subtype_treatment},
29924                                   $tracelevel)
29925                                         if defined $::RD_TRACE;
29926
29927
29928         my $err_at = @{$thisparser->{errors}};
29929
29930         my $score;
29931         my $score_return;
29932         my $_tok;
29933         my $return = undef;
29934         my $_matched=0;
29935         my $commit=0;
29936         my @item = ();
29937         my %item = ();
29938         my $repeating =  defined($_[2]) && $_[2];
29939         my $_noactions = defined($_[3]) && $_[3];
29940         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
29941         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
29942         my $text;
29943         my $lastsep="";
29944         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
29945         $expectation->at($_[1]);
29946
29947         my $thisline;
29948         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
29949
29950
29951
29952         while (!$_matched && !$commit)
29953         {
29954
29955                 Parse::RecDescent::_trace(q{Trying production: [/TREAT/i '(' expression /AS/i data_type ')']},
29956                                           Parse::RecDescent::_tracefirst($_[1]),
29957                                           q{subtype_treatment},
29958                                           $tracelevel)
29959                                                 if defined $::RD_TRACE;
29960                 my $thisprod = $thisrule->{"prods"}[0];
29961                 $text = $_[1];
29962                 my $_savetext;
29963                 @item = (q{subtype_treatment});
29964                 %item = (__RULE__ => q{subtype_treatment});
29965                 my $repcount = 0;
29966
29967
29968                 Parse::RecDescent::_trace(q{Trying terminal: [/TREAT/i]}, Parse::RecDescent::_tracefirst($text),
29969                                           q{subtype_treatment},
29970                                           $tracelevel)
29971                                                 if defined $::RD_TRACE;
29972                 $lastsep = "";
29973                 $expectation->is(q{})->at($text);
29974
29975
29976                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:TREAT)//i)
29977                 {
29978
29979                         $expectation->failed();
29980                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
29981                                                   Parse::RecDescent::_tracefirst($text))
29982                                         if defined $::RD_TRACE;
29983
29984                         last;
29985                 }
29986                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
29987                                                 . $& . q{])},
29988                                                   Parse::RecDescent::_tracefirst($text))
29989                                         if defined $::RD_TRACE;
29990                 push @item, $item{__PATTERN1__}=$&;
29991
29992
29993                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
29994                                           Parse::RecDescent::_tracefirst($text),
29995                                           q{subtype_treatment},
29996                                           $tracelevel)
29997                                                 if defined $::RD_TRACE;
29998                 $lastsep = "";
29999                 $expectation->is(q{'('})->at($text);
30000
30001
30002                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
30003                 {
30004
30005                         $expectation->failed();
30006                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
30007                                                   Parse::RecDescent::_tracefirst($text))
30008                                                         if defined $::RD_TRACE;
30009                         last;
30010                 }
30011                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
30012                                                 . $& . q{])},
30013                                                   Parse::RecDescent::_tracefirst($text))
30014                                                         if defined $::RD_TRACE;
30015                 push @item, $item{__STRING1__}=$&;
30016
30017
30018                 Parse::RecDescent::_trace(q{Trying subrule: [expression]},
30019                                   Parse::RecDescent::_tracefirst($text),
30020                                   q{subtype_treatment},
30021                                   $tracelevel)
30022                                         if defined $::RD_TRACE;
30023                 if (1) { no strict qw{refs};
30024                 $expectation->is(q{expression})->at($text);
30025                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
30026                 {
30027
30028                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [expression]>>},
30029                                                   Parse::RecDescent::_tracefirst($text),
30030                                                   q{subtype_treatment},
30031                                                   $tracelevel)
30032                                                         if defined $::RD_TRACE;
30033                         $expectation->failed();
30034                         last;
30035                 }
30036                 Parse::RecDescent::_trace(q{>>Matched subrule: [expression]<< (return value: [}
30037                                         . $_tok . q{]},
30038
30039                                           Parse::RecDescent::_tracefirst($text),
30040                                           q{subtype_treatment},
30041                                           $tracelevel)
30042                                                 if defined $::RD_TRACE;
30043                 $item{q{expression}} = $_tok;
30044                 push @item, $_tok;
30045
30046                 }
30047
30048                 Parse::RecDescent::_trace(q{Trying terminal: [/AS/i]}, Parse::RecDescent::_tracefirst($text),
30049                                           q{subtype_treatment},
30050                                           $tracelevel)
30051                                                 if defined $::RD_TRACE;
30052                 $lastsep = "";
30053                 $expectation->is(q{/AS/i})->at($text);
30054
30055
30056                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:AS)//i)
30057                 {
30058
30059                         $expectation->failed();
30060                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
30061                                                   Parse::RecDescent::_tracefirst($text))
30062                                         if defined $::RD_TRACE;
30063
30064                         last;
30065                 }
30066                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
30067                                                 . $& . q{])},
30068                                                   Parse::RecDescent::_tracefirst($text))
30069                                         if defined $::RD_TRACE;
30070                 push @item, $item{__PATTERN2__}=$&;
30071
30072
30073                 Parse::RecDescent::_trace(q{Trying subrule: [data_type]},
30074                                   Parse::RecDescent::_tracefirst($text),
30075                                   q{subtype_treatment},
30076                                   $tracelevel)
30077                                         if defined $::RD_TRACE;
30078                 if (1) { no strict qw{refs};
30079                 $expectation->is(q{data_type})->at($text);
30080                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::data_type($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
30081                 {
30082
30083                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [data_type]>>},
30084                                                   Parse::RecDescent::_tracefirst($text),
30085                                                   q{subtype_treatment},
30086                                                   $tracelevel)
30087                                                         if defined $::RD_TRACE;
30088                         $expectation->failed();
30089                         last;
30090                 }
30091                 Parse::RecDescent::_trace(q{>>Matched subrule: [data_type]<< (return value: [}
30092                                         . $_tok . q{]},
30093
30094                                           Parse::RecDescent::_tracefirst($text),
30095                                           q{subtype_treatment},
30096                                           $tracelevel)
30097                                                 if defined $::RD_TRACE;
30098                 $item{q{data_type}} = $_tok;
30099                 push @item, $_tok;
30100
30101                 }
30102
30103                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
30104                                           Parse::RecDescent::_tracefirst($text),
30105                                           q{subtype_treatment},
30106                                           $tracelevel)
30107                                                 if defined $::RD_TRACE;
30108                 $lastsep = "";
30109                 $expectation->is(q{')'})->at($text);
30110
30111
30112                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
30113                 {
30114
30115                         $expectation->failed();
30116                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
30117                                                   Parse::RecDescent::_tracefirst($text))
30118                                                         if defined $::RD_TRACE;
30119                         last;
30120                 }
30121                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
30122                                                 . $& . q{])},
30123                                                   Parse::RecDescent::_tracefirst($text))
30124                                                         if defined $::RD_TRACE;
30125                 push @item, $item{__STRING2__}=$&;
30126
30127
30128
30129                 Parse::RecDescent::_trace(q{>>Matched production: [/TREAT/i '(' expression /AS/i data_type ')']<<},
30130                                           Parse::RecDescent::_tracefirst($text),
30131                                           q{subtype_treatment},
30132                                           $tracelevel)
30133                                                 if defined $::RD_TRACE;
30134                 $_matched = 1;
30135                 last;
30136         }
30137
30138
30139         unless ( $_matched || defined($return) || defined($score) )
30140         {
30141
30142
30143                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
30144                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
30145                                          Parse::RecDescent::_tracefirst($_[1]),
30146                                          q{subtype_treatment},
30147                                          $tracelevel)
30148                                         if defined $::RD_TRACE;
30149                 return undef;
30150         }
30151         if (!defined($return) && defined($score))
30152         {
30153                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
30154                                           q{subtype_treatment},
30155                                           $tracelevel)
30156                                                 if defined $::RD_TRACE;
30157                 $return = $score_return;
30158         }
30159         splice @{$thisparser->{errors}}, $err_at;
30160         $return = $item[$#item] unless defined $return;
30161         if (defined $::RD_TRACE)
30162         {
30163                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
30164                                           $return . q{])}, "",
30165                                           q{subtype_treatment},
30166                                           $tracelevel);
30167                 Parse::RecDescent::_trace(q{(consumed: [} .
30168                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
30169                                           Parse::RecDescent::_tracefirst($text),
30170                                           , q{subtype_treatment},
30171                                           $tracelevel)
30172         }
30173         $_[1] = $text;
30174         return $return;
30175 }
30176
30177 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
30178 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression
30179 {
30180         my $thisparser = $_[0];
30181         use vars q{$tracelevel};
30182         local $tracelevel = ($tracelevel||0)+1;
30183         $ERRORS = 0;
30184         my $thisrule = $thisparser->{"rules"}{"expression"};
30185
30186         Parse::RecDescent::_trace(q{Trying rule: [expression]},
30187                                   Parse::RecDescent::_tracefirst($_[1]),
30188                                   q{expression},
30189                                   $tracelevel)
30190                                         if defined $::RD_TRACE;
30191
30192
30193         my $err_at = @{$thisparser->{errors}};
30194
30195         my $score;
30196         my $score_return;
30197         my $_tok;
30198         my $return = undef;
30199         my $_matched=0;
30200         my $commit=0;
30201         my @item = ();
30202         my %item = ();
30203         my $repeating =  defined($_[2]) && $_[2];
30204         my $_noactions = defined($_[3]) && $_[3];
30205         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
30206         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
30207         my $text;
30208         my $lastsep="";
30209         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
30210         $expectation->at($_[1]);
30211
30212         my $thisline;
30213         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
30214
30215
30216
30217         while (!$_matched && !$commit)
30218         {
30219
30220                 Parse::RecDescent::_trace(q{Trying production: [<leftop: '+', or '-' /operator/ '+', or '-'>]},
30221                                           Parse::RecDescent::_tracefirst($_[1]),
30222                                           q{expression},
30223                                           $tracelevel)
30224                                                 if defined $::RD_TRACE;
30225                 my $thisprod = $thisrule->{"prods"}[0];
30226                 $text = $_[1];
30227                 my $_savetext;
30228                 @item = (q{expression});
30229                 %item = (__RULE__ => q{expression});
30230                 my $repcount = 0;
30231
30232
30233                 Parse::RecDescent::_trace(q{Trying operator: [<leftop: '+', or '-' /operator/ '+', or '-'>]},
30234                                   Parse::RecDescent::_tracefirst($text),
30235                                   q{expression},
30236                                   $tracelevel)
30237                                         if defined $::RD_TRACE;
30238                 $expectation->is(q{})->at($text);
30239
30240                 $_tok = undef;
30241                 OPLOOP: while (1)
30242                 {
30243                   $repcount = 0;
30244                   my  @item;
30245
30246                   # MATCH LEFTARG
30247
30248                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule_expression]},
30249                                   Parse::RecDescent::_tracefirst($text),
30250                                   q{expression},
30251                                   $tracelevel)
30252                                         if defined $::RD_TRACE;
30253                 if (1) { no strict qw{refs};
30254                 $expectation->is(q{'+', or '-'})->at($text);
30255                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
30256                 {
30257
30258                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule_expression]>>},
30259                                                   Parse::RecDescent::_tracefirst($text),
30260                                                   q{expression},
30261                                                   $tracelevel)
30262                                                         if defined $::RD_TRACE;
30263                         $expectation->failed();
30264                         last;
30265                 }
30266                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule_expression]<< (return value: [}
30267                                         . $_tok . q{]},
30268
30269                                           Parse::RecDescent::_tracefirst($text),
30270                                           q{expression},
30271                                           $tracelevel)
30272                                                 if defined $::RD_TRACE;
30273                 $item{q{_alternation_1_of_production_1_of_rule_expression}} = $_tok;
30274                 push @item, $_tok;
30275
30276                 }
30277
30278
30279                   $repcount++;
30280
30281                   my $savetext = $text;
30282                   my $backtrack;
30283
30284                   # MATCH (OP RIGHTARG)(s)
30285                   while ($repcount < 100000000)
30286                   {
30287                         $backtrack = 0;
30288
30289                 Parse::RecDescent::_trace(q{Trying terminal: [/operator/]}, Parse::RecDescent::_tracefirst($text),
30290                                           q{expression},
30291                                           $tracelevel)
30292                                                 if defined $::RD_TRACE;
30293                 $lastsep = "";
30294                 $expectation->is(q{/operator/})->at($text);
30295
30296
30297                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:operator)//)
30298                 {
30299
30300                         $expectation->failed();
30301                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
30302                                                   Parse::RecDescent::_tracefirst($text))
30303                                         if defined $::RD_TRACE;
30304
30305                         last;
30306                 }
30307                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
30308                                                 . $& . q{])},
30309                                                   Parse::RecDescent::_tracefirst($text))
30310                                         if defined $::RD_TRACE;
30311                 push @item, $item{__PATTERN1__}=$&;
30312
30313
30314                         pop @item;
30315                         if (defined $1) {push @item, $item{'_alternation_1_of_production_1_of_rule_expression(s)'}=$1; $backtrack=1;}
30316
30317                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule_expression]},
30318                                   Parse::RecDescent::_tracefirst($text),
30319                                   q{expression},
30320                                   $tracelevel)
30321                                         if defined $::RD_TRACE;
30322                 if (1) { no strict qw{refs};
30323                 $expectation->is(q{'+', or '-'})->at($text);
30324                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
30325                 {
30326
30327                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule_expression]>>},
30328                                                   Parse::RecDescent::_tracefirst($text),
30329                                                   q{expression},
30330                                                   $tracelevel)
30331                                                         if defined $::RD_TRACE;
30332                         $expectation->failed();
30333                         last;
30334                 }
30335                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule_expression]<< (return value: [}
30336                                         . $_tok . q{]},
30337
30338                                           Parse::RecDescent::_tracefirst($text),
30339                                           q{expression},
30340                                           $tracelevel)
30341                                                 if defined $::RD_TRACE;
30342                 $item{q{_alternation_1_of_production_1_of_rule_expression}} = $_tok;
30343                 push @item, $_tok;
30344
30345                 }
30346
30347                         $savetext = $text;
30348                         $repcount++;
30349                   }
30350                   $text = $savetext;
30351                   pop @item if $backtrack;
30352
30353                   unless (@item) { undef $_tok; last }
30354                   $_tok = [ @item ];
30355                   last;
30356                 }
30357
30358                 unless ($repcount>=1)
30359                 {
30360                         Parse::RecDescent::_trace(q{<<Didn't match operator: [<leftop: '+', or '-' /operator/ '+', or '-'>]>>},
30361                                                   Parse::RecDescent::_tracefirst($text),
30362                                                   q{expression},
30363                                                   $tracelevel)
30364                                                         if defined $::RD_TRACE;
30365                         $expectation->failed();
30366                         last;
30367                 }
30368                 Parse::RecDescent::_trace(q{>>Matched operator: [<leftop: '+', or '-' /operator/ '+', or '-'>]<< (return value: [}
30369                                           . qq{@{$_tok||[]}} . q{]},
30370                                           Parse::RecDescent::_tracefirst($text),
30371                                           q{expression},
30372                                           $tracelevel)
30373                                                 if defined $::RD_TRACE;
30374
30375                 push @item, $item{'_alternation_1_of_production_1_of_rule_expression(s)'}=$_tok||[];
30376
30377
30378
30379                 Parse::RecDescent::_trace(q{>>Matched production: [<leftop: '+', or '-' /operator/ '+', or '-'>]<<},
30380                                           Parse::RecDescent::_tracefirst($text),
30381                                           q{expression},
30382                                           $tracelevel)
30383                                                 if defined $::RD_TRACE;
30384                 $_matched = 1;
30385                 last;
30386         }
30387
30388
30389         unless ( $_matched || defined($return) || defined($score) )
30390         {
30391
30392
30393                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
30394                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
30395                                          Parse::RecDescent::_tracefirst($_[1]),
30396                                          q{expression},
30397                                          $tracelevel)
30398                                         if defined $::RD_TRACE;
30399                 return undef;
30400         }
30401         if (!defined($return) && defined($score))
30402         {
30403                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
30404                                           q{expression},
30405                                           $tracelevel)
30406                                                 if defined $::RD_TRACE;
30407                 $return = $score_return;
30408         }
30409         splice @{$thisparser->{errors}}, $err_at;
30410         $return = $item[$#item] unless defined $return;
30411         if (defined $::RD_TRACE)
30412         {
30413                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
30414                                           $return . q{])}, "",
30415                                           q{expression},
30416                                           $tracelevel);
30417                 Parse::RecDescent::_trace(q{(consumed: [} .
30418                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
30419                                           Parse::RecDescent::_tracefirst($text),
30420                                           , q{expression},
30421                                           $tracelevel)
30422         }
30423         $_[1] = $text;
30424         return $return;
30425 }
30426
30427 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
30428 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression
30429 {
30430         my $thisparser = $_[0];
30431         use vars q{$tracelevel};
30432         local $tracelevel = ($tracelevel||0)+1;
30433         $ERRORS = 0;
30434         my $thisrule = $thisparser->{"rules"}{"_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression"};
30435
30436         Parse::RecDescent::_trace(q{Trying rule: [_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression]},
30437                                   Parse::RecDescent::_tracefirst($_[1]),
30438                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30439                                   $tracelevel)
30440                                         if defined $::RD_TRACE;
30441
30442
30443         my $err_at = @{$thisparser->{errors}};
30444
30445         my $score;
30446         my $score_return;
30447         my $_tok;
30448         my $return = undef;
30449         my $_matched=0;
30450         my $commit=0;
30451         my @item = ();
30452         my %item = ();
30453         my $repeating =  defined($_[2]) && $_[2];
30454         my $_noactions = defined($_[3]) && $_[3];
30455         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
30456         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
30457         my $text;
30458         my $lastsep="";
30459         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
30460         $expectation->at($_[1]);
30461
30462         my $thisline;
30463         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
30464
30465
30466
30467         while (!$_matched && !$commit)
30468         {
30469
30470                 Parse::RecDescent::_trace(q{Trying production: [function]},
30471                                           Parse::RecDescent::_tracefirst($_[1]),
30472                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30473                                           $tracelevel)
30474                                                 if defined $::RD_TRACE;
30475                 my $thisprod = $thisrule->{"prods"}[0];
30476                 $text = $_[1];
30477                 my $_savetext;
30478                 @item = (q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30479                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30480                 my $repcount = 0;
30481
30482
30483                 Parse::RecDescent::_trace(q{Trying subrule: [function]},
30484                                   Parse::RecDescent::_tracefirst($text),
30485                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30486                                   $tracelevel)
30487                                         if defined $::RD_TRACE;
30488                 if (1) { no strict qw{refs};
30489                 $expectation->is(q{})->at($text);
30490                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
30491                 {
30492
30493                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [function]>>},
30494                                                   Parse::RecDescent::_tracefirst($text),
30495                                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30496                                                   $tracelevel)
30497                                                         if defined $::RD_TRACE;
30498                         $expectation->failed();
30499                         last;
30500                 }
30501                 Parse::RecDescent::_trace(q{>>Matched subrule: [function]<< (return value: [}
30502                                         . $_tok . q{]},
30503
30504                                           Parse::RecDescent::_tracefirst($text),
30505                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30506                                           $tracelevel)
30507                                                 if defined $::RD_TRACE;
30508                 $item{q{function}} = $_tok;
30509                 push @item, $_tok;
30510
30511                 }
30512
30513
30514                 Parse::RecDescent::_trace(q{>>Matched production: [function]<<},
30515                                           Parse::RecDescent::_tracefirst($text),
30516                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30517                                           $tracelevel)
30518                                                 if defined $::RD_TRACE;
30519                 $_matched = 1;
30520                 last;
30521         }
30522
30523
30524         while (!$_matched && !$commit)
30525         {
30526
30527                 Parse::RecDescent::_trace(q{Trying production: ['(' expression ')']},
30528                                           Parse::RecDescent::_tracefirst($_[1]),
30529                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30530                                           $tracelevel)
30531                                                 if defined $::RD_TRACE;
30532                 my $thisprod = $thisrule->{"prods"}[1];
30533                 $text = $_[1];
30534                 my $_savetext;
30535                 @item = (q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30536                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30537                 my $repcount = 0;
30538
30539
30540                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
30541                                           Parse::RecDescent::_tracefirst($text),
30542                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30543                                           $tracelevel)
30544                                                 if defined $::RD_TRACE;
30545                 $lastsep = "";
30546                 $expectation->is(q{})->at($text);
30547
30548
30549                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
30550                 {
30551
30552                         $expectation->failed();
30553                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
30554                                                   Parse::RecDescent::_tracefirst($text))
30555                                                         if defined $::RD_TRACE;
30556                         last;
30557                 }
30558                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
30559                                                 . $& . q{])},
30560                                                   Parse::RecDescent::_tracefirst($text))
30561                                                         if defined $::RD_TRACE;
30562                 push @item, $item{__STRING1__}=$&;
30563
30564
30565                 Parse::RecDescent::_trace(q{Trying subrule: [expression]},
30566                                   Parse::RecDescent::_tracefirst($text),
30567                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30568                                   $tracelevel)
30569                                         if defined $::RD_TRACE;
30570                 if (1) { no strict qw{refs};
30571                 $expectation->is(q{expression})->at($text);
30572                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
30573                 {
30574
30575                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [expression]>>},
30576                                                   Parse::RecDescent::_tracefirst($text),
30577                                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30578                                                   $tracelevel)
30579                                                         if defined $::RD_TRACE;
30580                         $expectation->failed();
30581                         last;
30582                 }
30583                 Parse::RecDescent::_trace(q{>>Matched subrule: [expression]<< (return value: [}
30584                                         . $_tok . q{]},
30585
30586                                           Parse::RecDescent::_tracefirst($text),
30587                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30588                                           $tracelevel)
30589                                                 if defined $::RD_TRACE;
30590                 $item{q{expression}} = $_tok;
30591                 push @item, $_tok;
30592
30593                 }
30594
30595                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
30596                                           Parse::RecDescent::_tracefirst($text),
30597                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30598                                           $tracelevel)
30599                                                 if defined $::RD_TRACE;
30600                 $lastsep = "";
30601                 $expectation->is(q{')'})->at($text);
30602
30603
30604                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
30605                 {
30606
30607                         $expectation->failed();
30608                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
30609                                                   Parse::RecDescent::_tracefirst($text))
30610                                                         if defined $::RD_TRACE;
30611                         last;
30612                 }
30613                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
30614                                                 . $& . q{])},
30615                                                   Parse::RecDescent::_tracefirst($text))
30616                                                         if defined $::RD_TRACE;
30617                 push @item, $item{__STRING2__}=$&;
30618
30619
30620
30621                 Parse::RecDescent::_trace(q{>>Matched production: ['(' expression ')']<<},
30622                                           Parse::RecDescent::_tracefirst($text),
30623                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30624                                           $tracelevel)
30625                                                 if defined $::RD_TRACE;
30626                 $_matched = 1;
30627                 last;
30628         }
30629
30630
30631         while (!$_matched && !$commit)
30632         {
30633
30634                 Parse::RecDescent::_trace(q{Trying production: [constant]},
30635                                           Parse::RecDescent::_tracefirst($_[1]),
30636                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30637                                           $tracelevel)
30638                                                 if defined $::RD_TRACE;
30639                 my $thisprod = $thisrule->{"prods"}[2];
30640                 $text = $_[1];
30641                 my $_savetext;
30642                 @item = (q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30643                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30644                 my $repcount = 0;
30645
30646
30647                 Parse::RecDescent::_trace(q{Trying subrule: [constant]},
30648                                   Parse::RecDescent::_tracefirst($text),
30649                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30650                                   $tracelevel)
30651                                         if defined $::RD_TRACE;
30652                 if (1) { no strict qw{refs};
30653                 $expectation->is(q{})->at($text);
30654                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::constant($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
30655                 {
30656
30657                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [constant]>>},
30658                                                   Parse::RecDescent::_tracefirst($text),
30659                                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30660                                                   $tracelevel)
30661                                                         if defined $::RD_TRACE;
30662                         $expectation->failed();
30663                         last;
30664                 }
30665                 Parse::RecDescent::_trace(q{>>Matched subrule: [constant]<< (return value: [}
30666                                         . $_tok . q{]},
30667
30668                                           Parse::RecDescent::_tracefirst($text),
30669                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30670                                           $tracelevel)
30671                                                 if defined $::RD_TRACE;
30672                 $item{q{constant}} = $_tok;
30673                 push @item, $_tok;
30674
30675                 }
30676
30677
30678                 Parse::RecDescent::_trace(q{>>Matched production: [constant]<<},
30679                                           Parse::RecDescent::_tracefirst($text),
30680                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30681                                           $tracelevel)
30682                                                 if defined $::RD_TRACE;
30683                 $_matched = 1;
30684                 last;
30685         }
30686
30687
30688         while (!$_matched && !$commit)
30689         {
30690
30691                 Parse::RecDescent::_trace(q{Trying production: [column_name]},
30692                                           Parse::RecDescent::_tracefirst($_[1]),
30693                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30694                                           $tracelevel)
30695                                                 if defined $::RD_TRACE;
30696                 my $thisprod = $thisrule->{"prods"}[3];
30697                 $text = $_[1];
30698                 my $_savetext;
30699                 @item = (q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30700                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30701                 my $repcount = 0;
30702
30703
30704                 Parse::RecDescent::_trace(q{Trying subrule: [column_name]},
30705                                   Parse::RecDescent::_tracefirst($text),
30706                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30707                                   $tracelevel)
30708                                         if defined $::RD_TRACE;
30709                 if (1) { no strict qw{refs};
30710                 $expectation->is(q{})->at($text);
30711                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::column_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
30712                 {
30713
30714                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [column_name]>>},
30715                                                   Parse::RecDescent::_tracefirst($text),
30716                                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30717                                                   $tracelevel)
30718                                                         if defined $::RD_TRACE;
30719                         $expectation->failed();
30720                         last;
30721                 }
30722                 Parse::RecDescent::_trace(q{>>Matched subrule: [column_name]<< (return value: [}
30723                                         . $_tok . q{]},
30724
30725                                           Parse::RecDescent::_tracefirst($text),
30726                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30727                                           $tracelevel)
30728                                                 if defined $::RD_TRACE;
30729                 $item{q{column_name}} = $_tok;
30730                 push @item, $_tok;
30731
30732                 }
30733
30734
30735                 Parse::RecDescent::_trace(q{>>Matched production: [column_name]<<},
30736                                           Parse::RecDescent::_tracefirst($text),
30737                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30738                                           $tracelevel)
30739                                                 if defined $::RD_TRACE;
30740                 $_matched = 1;
30741                 last;
30742         }
30743
30744
30745         while (!$_matched && !$commit)
30746         {
30747
30748                 Parse::RecDescent::_trace(q{Trying production: [host_variable]},
30749                                           Parse::RecDescent::_tracefirst($_[1]),
30750                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30751                                           $tracelevel)
30752                                                 if defined $::RD_TRACE;
30753                 my $thisprod = $thisrule->{"prods"}[4];
30754                 $text = $_[1];
30755                 my $_savetext;
30756                 @item = (q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30757                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30758                 my $repcount = 0;
30759
30760
30761                 Parse::RecDescent::_trace(q{Trying subrule: [host_variable]},
30762                                   Parse::RecDescent::_tracefirst($text),
30763                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30764                                   $tracelevel)
30765                                         if defined $::RD_TRACE;
30766                 if (1) { no strict qw{refs};
30767                 $expectation->is(q{})->at($text);
30768                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::host_variable($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
30769                 {
30770
30771                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [host_variable]>>},
30772                                                   Parse::RecDescent::_tracefirst($text),
30773                                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30774                                                   $tracelevel)
30775                                                         if defined $::RD_TRACE;
30776                         $expectation->failed();
30777                         last;
30778                 }
30779                 Parse::RecDescent::_trace(q{>>Matched subrule: [host_variable]<< (return value: [}
30780                                         . $_tok . q{]},
30781
30782                                           Parse::RecDescent::_tracefirst($text),
30783                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30784                                           $tracelevel)
30785                                                 if defined $::RD_TRACE;
30786                 $item{q{host_variable}} = $_tok;
30787                 push @item, $_tok;
30788
30789                 }
30790
30791
30792                 Parse::RecDescent::_trace(q{>>Matched production: [host_variable]<<},
30793                                           Parse::RecDescent::_tracefirst($text),
30794                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30795                                           $tracelevel)
30796                                                 if defined $::RD_TRACE;
30797                 $_matched = 1;
30798                 last;
30799         }
30800
30801
30802         while (!$_matched && !$commit)
30803         {
30804
30805                 Parse::RecDescent::_trace(q{Trying production: [special_register]},
30806                                           Parse::RecDescent::_tracefirst($_[1]),
30807                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30808                                           $tracelevel)
30809                                                 if defined $::RD_TRACE;
30810                 my $thisprod = $thisrule->{"prods"}[5];
30811                 $text = $_[1];
30812                 my $_savetext;
30813                 @item = (q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30814                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30815                 my $repcount = 0;
30816
30817
30818                 Parse::RecDescent::_trace(q{Trying subrule: [special_register]},
30819                                   Parse::RecDescent::_tracefirst($text),
30820                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30821                                   $tracelevel)
30822                                         if defined $::RD_TRACE;
30823                 if (1) { no strict qw{refs};
30824                 $expectation->is(q{})->at($text);
30825                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::special_register($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
30826                 {
30827
30828                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [special_register]>>},
30829                                                   Parse::RecDescent::_tracefirst($text),
30830                                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30831                                                   $tracelevel)
30832                                                         if defined $::RD_TRACE;
30833                         $expectation->failed();
30834                         last;
30835                 }
30836                 Parse::RecDescent::_trace(q{>>Matched subrule: [special_register]<< (return value: [}
30837                                         . $_tok . q{]},
30838
30839                                           Parse::RecDescent::_tracefirst($text),
30840                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30841                                           $tracelevel)
30842                                                 if defined $::RD_TRACE;
30843                 $item{q{special_register}} = $_tok;
30844                 push @item, $_tok;
30845
30846                 }
30847
30848
30849                 Parse::RecDescent::_trace(q{>>Matched production: [special_register]<<},
30850                                           Parse::RecDescent::_tracefirst($text),
30851                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30852                                           $tracelevel)
30853                                                 if defined $::RD_TRACE;
30854                 $_matched = 1;
30855                 last;
30856         }
30857
30858
30859         while (!$_matched && !$commit)
30860         {
30861
30862                 Parse::RecDescent::_trace(q{Trying production: ['(' scalar_fullselect ')']},
30863                                           Parse::RecDescent::_tracefirst($_[1]),
30864                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30865                                           $tracelevel)
30866                                                 if defined $::RD_TRACE;
30867                 my $thisprod = $thisrule->{"prods"}[6];
30868                 $text = $_[1];
30869                 my $_savetext;
30870                 @item = (q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30871                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30872                 my $repcount = 0;
30873
30874
30875                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
30876                                           Parse::RecDescent::_tracefirst($text),
30877                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30878                                           $tracelevel)
30879                                                 if defined $::RD_TRACE;
30880                 $lastsep = "";
30881                 $expectation->is(q{})->at($text);
30882
30883
30884                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
30885                 {
30886
30887                         $expectation->failed();
30888                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
30889                                                   Parse::RecDescent::_tracefirst($text))
30890                                                         if defined $::RD_TRACE;
30891                         last;
30892                 }
30893                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
30894                                                 . $& . q{])},
30895                                                   Parse::RecDescent::_tracefirst($text))
30896                                                         if defined $::RD_TRACE;
30897                 push @item, $item{__STRING1__}=$&;
30898
30899
30900                 Parse::RecDescent::_trace(q{Trying subrule: [scalar_fullselect]},
30901                                   Parse::RecDescent::_tracefirst($text),
30902                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30903                                   $tracelevel)
30904                                         if defined $::RD_TRACE;
30905                 if (1) { no strict qw{refs};
30906                 $expectation->is(q{scalar_fullselect})->at($text);
30907                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::scalar_fullselect($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
30908                 {
30909
30910                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [scalar_fullselect]>>},
30911                                                   Parse::RecDescent::_tracefirst($text),
30912                                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30913                                                   $tracelevel)
30914                                                         if defined $::RD_TRACE;
30915                         $expectation->failed();
30916                         last;
30917                 }
30918                 Parse::RecDescent::_trace(q{>>Matched subrule: [scalar_fullselect]<< (return value: [}
30919                                         . $_tok . q{]},
30920
30921                                           Parse::RecDescent::_tracefirst($text),
30922                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30923                                           $tracelevel)
30924                                                 if defined $::RD_TRACE;
30925                 $item{q{scalar_fullselect}} = $_tok;
30926                 push @item, $_tok;
30927
30928                 }
30929
30930                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
30931                                           Parse::RecDescent::_tracefirst($text),
30932                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30933                                           $tracelevel)
30934                                                 if defined $::RD_TRACE;
30935                 $lastsep = "";
30936                 $expectation->is(q{')'})->at($text);
30937
30938
30939                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
30940                 {
30941
30942                         $expectation->failed();
30943                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
30944                                                   Parse::RecDescent::_tracefirst($text))
30945                                                         if defined $::RD_TRACE;
30946                         last;
30947                 }
30948                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
30949                                                 . $& . q{])},
30950                                                   Parse::RecDescent::_tracefirst($text))
30951                                                         if defined $::RD_TRACE;
30952                 push @item, $item{__STRING2__}=$&;
30953
30954
30955
30956                 Parse::RecDescent::_trace(q{>>Matched production: ['(' scalar_fullselect ')']<<},
30957                                           Parse::RecDescent::_tracefirst($text),
30958                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30959                                           $tracelevel)
30960                                                 if defined $::RD_TRACE;
30961                 $_matched = 1;
30962                 last;
30963         }
30964
30965
30966         while (!$_matched && !$commit)
30967         {
30968
30969                 Parse::RecDescent::_trace(q{Trying production: [labeled_duration]},
30970                                           Parse::RecDescent::_tracefirst($_[1]),
30971                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30972                                           $tracelevel)
30973                                                 if defined $::RD_TRACE;
30974                 my $thisprod = $thisrule->{"prods"}[7];
30975                 $text = $_[1];
30976                 my $_savetext;
30977                 @item = (q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30978                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
30979                 my $repcount = 0;
30980
30981
30982                 Parse::RecDescent::_trace(q{Trying subrule: [labeled_duration]},
30983                                   Parse::RecDescent::_tracefirst($text),
30984                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30985                                   $tracelevel)
30986                                         if defined $::RD_TRACE;
30987                 if (1) { no strict qw{refs};
30988                 $expectation->is(q{})->at($text);
30989                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::labeled_duration($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
30990                 {
30991
30992                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [labeled_duration]>>},
30993                                                   Parse::RecDescent::_tracefirst($text),
30994                                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
30995                                                   $tracelevel)
30996                                                         if defined $::RD_TRACE;
30997                         $expectation->failed();
30998                         last;
30999                 }
31000                 Parse::RecDescent::_trace(q{>>Matched subrule: [labeled_duration]<< (return value: [}
31001                                         . $_tok . q{]},
31002
31003                                           Parse::RecDescent::_tracefirst($text),
31004                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31005                                           $tracelevel)
31006                                                 if defined $::RD_TRACE;
31007                 $item{q{labeled_duration}} = $_tok;
31008                 push @item, $_tok;
31009
31010                 }
31011
31012
31013                 Parse::RecDescent::_trace(q{>>Matched production: [labeled_duration]<<},
31014                                           Parse::RecDescent::_tracefirst($text),
31015                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31016                                           $tracelevel)
31017                                                 if defined $::RD_TRACE;
31018                 $_matched = 1;
31019                 last;
31020         }
31021
31022
31023         while (!$_matched && !$commit)
31024         {
31025
31026                 Parse::RecDescent::_trace(q{Trying production: [case_expression]},
31027                                           Parse::RecDescent::_tracefirst($_[1]),
31028                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31029                                           $tracelevel)
31030                                                 if defined $::RD_TRACE;
31031                 my $thisprod = $thisrule->{"prods"}[8];
31032                 $text = $_[1];
31033                 my $_savetext;
31034                 @item = (q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
31035                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
31036                 my $repcount = 0;
31037
31038
31039                 Parse::RecDescent::_trace(q{Trying subrule: [case_expression]},
31040                                   Parse::RecDescent::_tracefirst($text),
31041                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31042                                   $tracelevel)
31043                                         if defined $::RD_TRACE;
31044                 if (1) { no strict qw{refs};
31045                 $expectation->is(q{})->at($text);
31046                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::case_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
31047                 {
31048
31049                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [case_expression]>>},
31050                                                   Parse::RecDescent::_tracefirst($text),
31051                                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31052                                                   $tracelevel)
31053                                                         if defined $::RD_TRACE;
31054                         $expectation->failed();
31055                         last;
31056                 }
31057                 Parse::RecDescent::_trace(q{>>Matched subrule: [case_expression]<< (return value: [}
31058                                         . $_tok . q{]},
31059
31060                                           Parse::RecDescent::_tracefirst($text),
31061                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31062                                           $tracelevel)
31063                                                 if defined $::RD_TRACE;
31064                 $item{q{case_expression}} = $_tok;
31065                 push @item, $_tok;
31066
31067                 }
31068
31069
31070                 Parse::RecDescent::_trace(q{>>Matched production: [case_expression]<<},
31071                                           Parse::RecDescent::_tracefirst($text),
31072                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31073                                           $tracelevel)
31074                                                 if defined $::RD_TRACE;
31075                 $_matched = 1;
31076                 last;
31077         }
31078
31079
31080         while (!$_matched && !$commit)
31081         {
31082
31083                 Parse::RecDescent::_trace(q{Trying production: [cast_specification]},
31084                                           Parse::RecDescent::_tracefirst($_[1]),
31085                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31086                                           $tracelevel)
31087                                                 if defined $::RD_TRACE;
31088                 my $thisprod = $thisrule->{"prods"}[9];
31089                 $text = $_[1];
31090                 my $_savetext;
31091                 @item = (q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
31092                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
31093                 my $repcount = 0;
31094
31095
31096                 Parse::RecDescent::_trace(q{Trying subrule: [cast_specification]},
31097                                   Parse::RecDescent::_tracefirst($text),
31098                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31099                                   $tracelevel)
31100                                         if defined $::RD_TRACE;
31101                 if (1) { no strict qw{refs};
31102                 $expectation->is(q{})->at($text);
31103                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::cast_specification($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
31104                 {
31105
31106                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [cast_specification]>>},
31107                                                   Parse::RecDescent::_tracefirst($text),
31108                                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31109                                                   $tracelevel)
31110                                                         if defined $::RD_TRACE;
31111                         $expectation->failed();
31112                         last;
31113                 }
31114                 Parse::RecDescent::_trace(q{>>Matched subrule: [cast_specification]<< (return value: [}
31115                                         . $_tok . q{]},
31116
31117                                           Parse::RecDescent::_tracefirst($text),
31118                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31119                                           $tracelevel)
31120                                                 if defined $::RD_TRACE;
31121                 $item{q{cast_specification}} = $_tok;
31122                 push @item, $_tok;
31123
31124                 }
31125
31126
31127                 Parse::RecDescent::_trace(q{>>Matched production: [cast_specification]<<},
31128                                           Parse::RecDescent::_tracefirst($text),
31129                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31130                                           $tracelevel)
31131                                                 if defined $::RD_TRACE;
31132                 $_matched = 1;
31133                 last;
31134         }
31135
31136
31137         while (!$_matched && !$commit)
31138         {
31139
31140                 Parse::RecDescent::_trace(q{Trying production: [OLAP_function]},
31141                                           Parse::RecDescent::_tracefirst($_[1]),
31142                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31143                                           $tracelevel)
31144                                                 if defined $::RD_TRACE;
31145                 my $thisprod = $thisrule->{"prods"}[10];
31146                 $text = $_[1];
31147                 my $_savetext;
31148                 @item = (q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
31149                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
31150                 my $repcount = 0;
31151
31152
31153                 Parse::RecDescent::_trace(q{Trying subrule: [OLAP_function]},
31154                                   Parse::RecDescent::_tracefirst($text),
31155                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31156                                   $tracelevel)
31157                                         if defined $::RD_TRACE;
31158                 if (1) { no strict qw{refs};
31159                 $expectation->is(q{})->at($text);
31160                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::OLAP_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
31161                 {
31162
31163                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [OLAP_function]>>},
31164                                                   Parse::RecDescent::_tracefirst($text),
31165                                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31166                                                   $tracelevel)
31167                                                         if defined $::RD_TRACE;
31168                         $expectation->failed();
31169                         last;
31170                 }
31171                 Parse::RecDescent::_trace(q{>>Matched subrule: [OLAP_function]<< (return value: [}
31172                                         . $_tok . q{]},
31173
31174                                           Parse::RecDescent::_tracefirst($text),
31175                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31176                                           $tracelevel)
31177                                                 if defined $::RD_TRACE;
31178                 $item{q{OLAP_function}} = $_tok;
31179                 push @item, $_tok;
31180
31181                 }
31182
31183
31184                 Parse::RecDescent::_trace(q{>>Matched production: [OLAP_function]<<},
31185                                           Parse::RecDescent::_tracefirst($text),
31186                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31187                                           $tracelevel)
31188                                                 if defined $::RD_TRACE;
31189                 $_matched = 1;
31190                 last;
31191         }
31192
31193
31194         while (!$_matched && !$commit)
31195         {
31196
31197                 Parse::RecDescent::_trace(q{Trying production: [method_invocation]},
31198                                           Parse::RecDescent::_tracefirst($_[1]),
31199                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31200                                           $tracelevel)
31201                                                 if defined $::RD_TRACE;
31202                 my $thisprod = $thisrule->{"prods"}[11];
31203                 $text = $_[1];
31204                 my $_savetext;
31205                 @item = (q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
31206                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
31207                 my $repcount = 0;
31208
31209
31210                 Parse::RecDescent::_trace(q{Trying subrule: [method_invocation]},
31211                                   Parse::RecDescent::_tracefirst($text),
31212                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31213                                   $tracelevel)
31214                                         if defined $::RD_TRACE;
31215                 if (1) { no strict qw{refs};
31216                 $expectation->is(q{})->at($text);
31217                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::method_invocation($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
31218                 {
31219
31220                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [method_invocation]>>},
31221                                                   Parse::RecDescent::_tracefirst($text),
31222                                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31223                                                   $tracelevel)
31224                                                         if defined $::RD_TRACE;
31225                         $expectation->failed();
31226                         last;
31227                 }
31228                 Parse::RecDescent::_trace(q{>>Matched subrule: [method_invocation]<< (return value: [}
31229                                         . $_tok . q{]},
31230
31231                                           Parse::RecDescent::_tracefirst($text),
31232                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31233                                           $tracelevel)
31234                                                 if defined $::RD_TRACE;
31235                 $item{q{method_invocation}} = $_tok;
31236                 push @item, $_tok;
31237
31238                 }
31239
31240
31241                 Parse::RecDescent::_trace(q{>>Matched production: [method_invocation]<<},
31242                                           Parse::RecDescent::_tracefirst($text),
31243                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31244                                           $tracelevel)
31245                                                 if defined $::RD_TRACE;
31246                 $_matched = 1;
31247                 last;
31248         }
31249
31250
31251         while (!$_matched && !$commit)
31252         {
31253
31254                 Parse::RecDescent::_trace(q{Trying production: [subtype_treatment]},
31255                                           Parse::RecDescent::_tracefirst($_[1]),
31256                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31257                                           $tracelevel)
31258                                                 if defined $::RD_TRACE;
31259                 my $thisprod = $thisrule->{"prods"}[12];
31260                 $text = $_[1];
31261                 my $_savetext;
31262                 @item = (q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
31263                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
31264                 my $repcount = 0;
31265
31266
31267                 Parse::RecDescent::_trace(q{Trying subrule: [subtype_treatment]},
31268                                   Parse::RecDescent::_tracefirst($text),
31269                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31270                                   $tracelevel)
31271                                         if defined $::RD_TRACE;
31272                 if (1) { no strict qw{refs};
31273                 $expectation->is(q{})->at($text);
31274                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::subtype_treatment($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
31275                 {
31276
31277                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [subtype_treatment]>>},
31278                                                   Parse::RecDescent::_tracefirst($text),
31279                                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31280                                                   $tracelevel)
31281                                                         if defined $::RD_TRACE;
31282                         $expectation->failed();
31283                         last;
31284                 }
31285                 Parse::RecDescent::_trace(q{>>Matched subrule: [subtype_treatment]<< (return value: [}
31286                                         . $_tok . q{]},
31287
31288                                           Parse::RecDescent::_tracefirst($text),
31289                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31290                                           $tracelevel)
31291                                                 if defined $::RD_TRACE;
31292                 $item{q{subtype_treatment}} = $_tok;
31293                 push @item, $_tok;
31294
31295                 }
31296
31297
31298                 Parse::RecDescent::_trace(q{>>Matched production: [subtype_treatment]<<},
31299                                           Parse::RecDescent::_tracefirst($text),
31300                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31301                                           $tracelevel)
31302                                                 if defined $::RD_TRACE;
31303                 $_matched = 1;
31304                 last;
31305         }
31306
31307
31308         while (!$_matched && !$commit)
31309         {
31310
31311                 Parse::RecDescent::_trace(q{Trying production: [sequence_reference]},
31312                                           Parse::RecDescent::_tracefirst($_[1]),
31313                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31314                                           $tracelevel)
31315                                                 if defined $::RD_TRACE;
31316                 my $thisprod = $thisrule->{"prods"}[13];
31317                 $text = $_[1];
31318                 my $_savetext;
31319                 @item = (q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
31320                 %item = (__RULE__ => q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression});
31321                 my $repcount = 0;
31322
31323
31324                 Parse::RecDescent::_trace(q{Trying subrule: [sequence_reference]},
31325                                   Parse::RecDescent::_tracefirst($text),
31326                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31327                                   $tracelevel)
31328                                         if defined $::RD_TRACE;
31329                 if (1) { no strict qw{refs};
31330                 $expectation->is(q{})->at($text);
31331                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::sequence_reference($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
31332                 {
31333
31334                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [sequence_reference]>>},
31335                                                   Parse::RecDescent::_tracefirst($text),
31336                                                   q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31337                                                   $tracelevel)
31338                                                         if defined $::RD_TRACE;
31339                         $expectation->failed();
31340                         last;
31341                 }
31342                 Parse::RecDescent::_trace(q{>>Matched subrule: [sequence_reference]<< (return value: [}
31343                                         . $_tok . q{]},
31344
31345                                           Parse::RecDescent::_tracefirst($text),
31346                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31347                                           $tracelevel)
31348                                                 if defined $::RD_TRACE;
31349                 $item{q{sequence_reference}} = $_tok;
31350                 push @item, $_tok;
31351
31352                 }
31353
31354
31355                 Parse::RecDescent::_trace(q{>>Matched production: [sequence_reference]<<},
31356                                           Parse::RecDescent::_tracefirst($text),
31357                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31358                                           $tracelevel)
31359                                                 if defined $::RD_TRACE;
31360                 $_matched = 1;
31361                 last;
31362         }
31363
31364
31365         unless ( $_matched || defined($return) || defined($score) )
31366         {
31367
31368
31369                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
31370                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
31371                                          Parse::RecDescent::_tracefirst($_[1]),
31372                                          q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31373                                          $tracelevel)
31374                                         if defined $::RD_TRACE;
31375                 return undef;
31376         }
31377         if (!defined($return) && defined($score))
31378         {
31379                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
31380                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31381                                           $tracelevel)
31382                                                 if defined $::RD_TRACE;
31383                 $return = $score_return;
31384         }
31385         splice @{$thisparser->{errors}}, $err_at;
31386         $return = $item[$#item] unless defined $return;
31387         if (defined $::RD_TRACE)
31388         {
31389                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
31390                                           $return . q{])}, "",
31391                                           q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31392                                           $tracelevel);
31393                 Parse::RecDescent::_trace(q{(consumed: [} .
31394                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
31395                                           Parse::RecDescent::_tracefirst($text),
31396                                           , q{_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression},
31397                                           $tracelevel)
31398         }
31399         $_[1] = $text;
31400         return $return;
31401 }
31402
31403 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
31404 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::startrule
31405 {
31406         my $thisparser = $_[0];
31407         use vars q{$tracelevel};
31408         local $tracelevel = ($tracelevel||0)+1;
31409         $ERRORS = 0;
31410         my $thisrule = $thisparser->{"rules"}{"startrule"};
31411
31412         Parse::RecDescent::_trace(q{Trying rule: [startrule]},
31413                                   Parse::RecDescent::_tracefirst($_[1]),
31414                                   q{startrule},
31415                                   $tracelevel)
31416                                         if defined $::RD_TRACE;
31417
31418
31419         my $err_at = @{$thisparser->{errors}};
31420
31421         my $score;
31422         my $score_return;
31423         my $_tok;
31424         my $return = undef;
31425         my $_matched=0;
31426         my $commit=0;
31427         my @item = ();
31428         my %item = ();
31429         my $repeating =  defined($_[2]) && $_[2];
31430         my $_noactions = defined($_[3]) && $_[3];
31431         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
31432         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
31433         my $text;
31434         my $lastsep="";
31435         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
31436         $expectation->at($_[1]);
31437
31438         my $thisline;
31439         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
31440
31441
31442
31443         while (!$_matched && !$commit)
31444         {
31445
31446                 Parse::RecDescent::_trace(q{Trying production: [statement eofile]},
31447                                           Parse::RecDescent::_tracefirst($_[1]),
31448                                           q{startrule},
31449                                           $tracelevel)
31450                                                 if defined $::RD_TRACE;
31451                 my $thisprod = $thisrule->{"prods"}[0];
31452                 $text = $_[1];
31453                 my $_savetext;
31454                 @item = (q{startrule});
31455                 %item = (__RULE__ => q{startrule});
31456                 my $repcount = 0;
31457
31458
31459                 Parse::RecDescent::_trace(q{Trying repeated subrule: [statement]},
31460                                   Parse::RecDescent::_tracefirst($text),
31461                                   q{startrule},
31462                                   $tracelevel)
31463                                         if defined $::RD_TRACE;
31464                 $expectation->is(q{})->at($text);
31465
31466                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::statement, 1, 100000000, $_noactions,$expectation,undef)))
31467                 {
31468                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [statement]>>},
31469                                                   Parse::RecDescent::_tracefirst($text),
31470                                                   q{startrule},
31471                                                   $tracelevel)
31472                                                         if defined $::RD_TRACE;
31473                         last;
31474                 }
31475                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [statement]<< (}
31476                                         . @$_tok . q{ times)},
31477
31478                                           Parse::RecDescent::_tracefirst($text),
31479                                           q{startrule},
31480                                           $tracelevel)
31481                                                 if defined $::RD_TRACE;
31482                 $item{q{statement(s)}} = $_tok;
31483                 push @item, $_tok;
31484
31485
31486
31487                 Parse::RecDescent::_trace(q{Trying subrule: [eofile]},
31488                                   Parse::RecDescent::_tracefirst($text),
31489                                   q{startrule},
31490                                   $tracelevel)
31491                                         if defined $::RD_TRACE;
31492                 if (1) { no strict qw{refs};
31493                 $expectation->is(q{eofile})->at($text);
31494                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::eofile($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
31495                 {
31496
31497                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [eofile]>>},
31498                                                   Parse::RecDescent::_tracefirst($text),
31499                                                   q{startrule},
31500                                                   $tracelevel)
31501                                                         if defined $::RD_TRACE;
31502                         $expectation->failed();
31503                         last;
31504                 }
31505                 Parse::RecDescent::_trace(q{>>Matched subrule: [eofile]<< (return value: [}
31506                                         . $_tok . q{]},
31507
31508                                           Parse::RecDescent::_tracefirst($text),
31509                                           q{startrule},
31510                                           $tracelevel)
31511                                                 if defined $::RD_TRACE;
31512                 $item{q{eofile}} = $_tok;
31513                 push @item, $_tok;
31514
31515                 }
31516
31517                 Parse::RecDescent::_trace(q{Trying action},
31518                                           Parse::RecDescent::_tracefirst($text),
31519                                           q{startrule},
31520                                           $tracelevel)
31521                                                 if defined $::RD_TRACE;
31522
31523
31524                 $_tok = ($_noactions) ? 0 : do {
31525     $return      = {
31526         tables   => \%tables,
31527         views    => \@views,
31528         triggers => \@triggers,
31529     }
31530 };
31531                 unless (defined $_tok)
31532                 {
31533                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
31534                                         if defined $::RD_TRACE;
31535                         last;
31536                 }
31537                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
31538                                           . $_tok . q{])},
31539                                           Parse::RecDescent::_tracefirst($text))
31540                                                 if defined $::RD_TRACE;
31541                 push @item, $_tok;
31542                 $item{__ACTION1__}=$_tok;
31543
31544
31545
31546                 Parse::RecDescent::_trace(q{>>Matched production: [statement eofile]<<},
31547                                           Parse::RecDescent::_tracefirst($text),
31548                                           q{startrule},
31549                                           $tracelevel)
31550                                                 if defined $::RD_TRACE;
31551                 $_matched = 1;
31552                 last;
31553         }
31554
31555
31556         unless ( $_matched || defined($return) || defined($score) )
31557         {
31558
31559
31560                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
31561                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
31562                                          Parse::RecDescent::_tracefirst($_[1]),
31563                                          q{startrule},
31564                                          $tracelevel)
31565                                         if defined $::RD_TRACE;
31566                 return undef;
31567         }
31568         if (!defined($return) && defined($score))
31569         {
31570                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
31571                                           q{startrule},
31572                                           $tracelevel)
31573                                                 if defined $::RD_TRACE;
31574                 $return = $score_return;
31575         }
31576         splice @{$thisparser->{errors}}, $err_at;
31577         $return = $item[$#item] unless defined $return;
31578         if (defined $::RD_TRACE)
31579         {
31580                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
31581                                           $return . q{])}, "",
31582                                           q{startrule},
31583                                           $tracelevel);
31584                 Parse::RecDescent::_trace(q{(consumed: [} .
31585                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
31586                                           Parse::RecDescent::_tracefirst($text),
31587                                           , q{startrule},
31588                                           $tracelevel)
31589         }
31590         $_[1] = $text;
31591         return $return;
31592 }
31593
31594 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
31595 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_cast_specification
31596 {
31597         my $thisparser = $_[0];
31598         use vars q{$tracelevel};
31599         local $tracelevel = ($tracelevel||0)+1;
31600         $ERRORS = 0;
31601         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_cast_specification"};
31602
31603         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_cast_specification]},
31604                                   Parse::RecDescent::_tracefirst($_[1]),
31605                                   q{_alternation_1_of_production_1_of_rule_cast_specification},
31606                                   $tracelevel)
31607                                         if defined $::RD_TRACE;
31608
31609
31610         my $err_at = @{$thisparser->{errors}};
31611
31612         my $score;
31613         my $score_return;
31614         my $_tok;
31615         my $return = undef;
31616         my $_matched=0;
31617         my $commit=0;
31618         my @item = ();
31619         my %item = ();
31620         my $repeating =  defined($_[2]) && $_[2];
31621         my $_noactions = defined($_[3]) && $_[3];
31622         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
31623         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
31624         my $text;
31625         my $lastsep="";
31626         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
31627         $expectation->at($_[1]);
31628
31629         my $thisline;
31630         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
31631
31632
31633
31634         while (!$_matched && !$commit)
31635         {
31636
31637                 Parse::RecDescent::_trace(q{Trying production: [expression]},
31638                                           Parse::RecDescent::_tracefirst($_[1]),
31639                                           q{_alternation_1_of_production_1_of_rule_cast_specification},
31640                                           $tracelevel)
31641                                                 if defined $::RD_TRACE;
31642                 my $thisprod = $thisrule->{"prods"}[0];
31643                 $text = $_[1];
31644                 my $_savetext;
31645                 @item = (q{_alternation_1_of_production_1_of_rule_cast_specification});
31646                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_cast_specification});
31647                 my $repcount = 0;
31648
31649
31650                 Parse::RecDescent::_trace(q{Trying subrule: [expression]},
31651                                   Parse::RecDescent::_tracefirst($text),
31652                                   q{_alternation_1_of_production_1_of_rule_cast_specification},
31653                                   $tracelevel)
31654                                         if defined $::RD_TRACE;
31655                 if (1) { no strict qw{refs};
31656                 $expectation->is(q{})->at($text);
31657                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
31658                 {
31659
31660                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [expression]>>},
31661                                                   Parse::RecDescent::_tracefirst($text),
31662                                                   q{_alternation_1_of_production_1_of_rule_cast_specification},
31663                                                   $tracelevel)
31664                                                         if defined $::RD_TRACE;
31665                         $expectation->failed();
31666                         last;
31667                 }
31668                 Parse::RecDescent::_trace(q{>>Matched subrule: [expression]<< (return value: [}
31669                                         . $_tok . q{]},
31670
31671                                           Parse::RecDescent::_tracefirst($text),
31672                                           q{_alternation_1_of_production_1_of_rule_cast_specification},
31673                                           $tracelevel)
31674                                                 if defined $::RD_TRACE;
31675                 $item{q{expression}} = $_tok;
31676                 push @item, $_tok;
31677
31678                 }
31679
31680
31681                 Parse::RecDescent::_trace(q{>>Matched production: [expression]<<},
31682                                           Parse::RecDescent::_tracefirst($text),
31683                                           q{_alternation_1_of_production_1_of_rule_cast_specification},
31684                                           $tracelevel)
31685                                                 if defined $::RD_TRACE;
31686                 $_matched = 1;
31687                 last;
31688         }
31689
31690
31691         while (!$_matched && !$commit)
31692         {
31693
31694                 Parse::RecDescent::_trace(q{Trying production: [/NULL/i]},
31695                                           Parse::RecDescent::_tracefirst($_[1]),
31696                                           q{_alternation_1_of_production_1_of_rule_cast_specification},
31697                                           $tracelevel)
31698                                                 if defined $::RD_TRACE;
31699                 my $thisprod = $thisrule->{"prods"}[1];
31700                 $text = $_[1];
31701                 my $_savetext;
31702                 @item = (q{_alternation_1_of_production_1_of_rule_cast_specification});
31703                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_cast_specification});
31704                 my $repcount = 0;
31705
31706
31707                 Parse::RecDescent::_trace(q{Trying terminal: [/NULL/i]}, Parse::RecDescent::_tracefirst($text),
31708                                           q{_alternation_1_of_production_1_of_rule_cast_specification},
31709                                           $tracelevel)
31710                                                 if defined $::RD_TRACE;
31711                 $lastsep = "";
31712                 $expectation->is(q{})->at($text);
31713
31714
31715                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NULL)//i)
31716                 {
31717
31718                         $expectation->failed();
31719                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
31720                                                   Parse::RecDescent::_tracefirst($text))
31721                                         if defined $::RD_TRACE;
31722
31723                         last;
31724                 }
31725                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
31726                                                 . $& . q{])},
31727                                                   Parse::RecDescent::_tracefirst($text))
31728                                         if defined $::RD_TRACE;
31729                 push @item, $item{__PATTERN1__}=$&;
31730
31731
31732
31733                 Parse::RecDescent::_trace(q{>>Matched production: [/NULL/i]<<},
31734                                           Parse::RecDescent::_tracefirst($text),
31735                                           q{_alternation_1_of_production_1_of_rule_cast_specification},
31736                                           $tracelevel)
31737                                                 if defined $::RD_TRACE;
31738                 $_matched = 1;
31739                 last;
31740         }
31741
31742
31743         while (!$_matched && !$commit)
31744         {
31745
31746                 Parse::RecDescent::_trace(q{Trying production: [parameter_marker]},
31747                                           Parse::RecDescent::_tracefirst($_[1]),
31748                                           q{_alternation_1_of_production_1_of_rule_cast_specification},
31749                                           $tracelevel)
31750                                                 if defined $::RD_TRACE;
31751                 my $thisprod = $thisrule->{"prods"}[2];
31752                 $text = $_[1];
31753                 my $_savetext;
31754                 @item = (q{_alternation_1_of_production_1_of_rule_cast_specification});
31755                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_cast_specification});
31756                 my $repcount = 0;
31757
31758
31759                 Parse::RecDescent::_trace(q{Trying subrule: [parameter_marker]},
31760                                   Parse::RecDescent::_tracefirst($text),
31761                                   q{_alternation_1_of_production_1_of_rule_cast_specification},
31762                                   $tracelevel)
31763                                         if defined $::RD_TRACE;
31764                 if (1) { no strict qw{refs};
31765                 $expectation->is(q{})->at($text);
31766                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::parameter_marker($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
31767                 {
31768
31769                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [parameter_marker]>>},
31770                                                   Parse::RecDescent::_tracefirst($text),
31771                                                   q{_alternation_1_of_production_1_of_rule_cast_specification},
31772                                                   $tracelevel)
31773                                                         if defined $::RD_TRACE;
31774                         $expectation->failed();
31775                         last;
31776                 }
31777                 Parse::RecDescent::_trace(q{>>Matched subrule: [parameter_marker]<< (return value: [}
31778                                         . $_tok . q{]},
31779
31780                                           Parse::RecDescent::_tracefirst($text),
31781                                           q{_alternation_1_of_production_1_of_rule_cast_specification},
31782                                           $tracelevel)
31783                                                 if defined $::RD_TRACE;
31784                 $item{q{parameter_marker}} = $_tok;
31785                 push @item, $_tok;
31786
31787                 }
31788
31789
31790                 Parse::RecDescent::_trace(q{>>Matched production: [parameter_marker]<<},
31791                                           Parse::RecDescent::_tracefirst($text),
31792                                           q{_alternation_1_of_production_1_of_rule_cast_specification},
31793                                           $tracelevel)
31794                                                 if defined $::RD_TRACE;
31795                 $_matched = 1;
31796                 last;
31797         }
31798
31799
31800         unless ( $_matched || defined($return) || defined($score) )
31801         {
31802
31803
31804                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
31805                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
31806                                          Parse::RecDescent::_tracefirst($_[1]),
31807                                          q{_alternation_1_of_production_1_of_rule_cast_specification},
31808                                          $tracelevel)
31809                                         if defined $::RD_TRACE;
31810                 return undef;
31811         }
31812         if (!defined($return) && defined($score))
31813         {
31814                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
31815                                           q{_alternation_1_of_production_1_of_rule_cast_specification},
31816                                           $tracelevel)
31817                                                 if defined $::RD_TRACE;
31818                 $return = $score_return;
31819         }
31820         splice @{$thisparser->{errors}}, $err_at;
31821         $return = $item[$#item] unless defined $return;
31822         if (defined $::RD_TRACE)
31823         {
31824                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
31825                                           $return . q{])}, "",
31826                                           q{_alternation_1_of_production_1_of_rule_cast_specification},
31827                                           $tracelevel);
31828                 Parse::RecDescent::_trace(q{(consumed: [} .
31829                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
31830                                           Parse::RecDescent::_tracefirst($text),
31831                                           , q{_alternation_1_of_production_1_of_rule_cast_specification},
31832                                           $tracelevel)
31833         }
31834         $_[1] = $text;
31835         return $return;
31836 }
31837
31838 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
31839 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::before
31840 {
31841         my $thisparser = $_[0];
31842         use vars q{$tracelevel};
31843         local $tracelevel = ($tracelevel||0)+1;
31844         $ERRORS = 0;
31845         my $thisrule = $thisparser->{"rules"}{"before"};
31846
31847         Parse::RecDescent::_trace(q{Trying rule: [before]},
31848                                   Parse::RecDescent::_tracefirst($_[1]),
31849                                   q{before},
31850                                   $tracelevel)
31851                                         if defined $::RD_TRACE;
31852
31853
31854         my $err_at = @{$thisparser->{errors}};
31855
31856         my $score;
31857         my $score_return;
31858         my $_tok;
31859         my $return = undef;
31860         my $_matched=0;
31861         my $commit=0;
31862         my @item = ();
31863         my %item = ();
31864         my $repeating =  defined($_[2]) && $_[2];
31865         my $_noactions = defined($_[3]) && $_[3];
31866         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
31867         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
31868         my $text;
31869         my $lastsep="";
31870         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
31871         $expectation->at($_[1]);
31872
31873         my $thisline;
31874         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
31875
31876
31877
31878         while (!$_matched && !$commit)
31879         {
31880
31881                 Parse::RecDescent::_trace(q{Trying production: [/NO CASCADE BEFORE/i]},
31882                                           Parse::RecDescent::_tracefirst($_[1]),
31883                                           q{before},
31884                                           $tracelevel)
31885                                                 if defined $::RD_TRACE;
31886                 my $thisprod = $thisrule->{"prods"}[0];
31887                 $text = $_[1];
31888                 my $_savetext;
31889                 @item = (q{before});
31890                 %item = (__RULE__ => q{before});
31891                 my $repcount = 0;
31892
31893
31894                 Parse::RecDescent::_trace(q{Trying terminal: [/NO CASCADE BEFORE/i]}, Parse::RecDescent::_tracefirst($text),
31895                                           q{before},
31896                                           $tracelevel)
31897                                                 if defined $::RD_TRACE;
31898                 $lastsep = "";
31899                 $expectation->is(q{})->at($text);
31900
31901
31902                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NO CASCADE BEFORE)//i)
31903                 {
31904
31905                         $expectation->failed();
31906                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
31907                                                   Parse::RecDescent::_tracefirst($text))
31908                                         if defined $::RD_TRACE;
31909
31910                         last;
31911                 }
31912                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
31913                                                 . $& . q{])},
31914                                                   Parse::RecDescent::_tracefirst($text))
31915                                         if defined $::RD_TRACE;
31916                 push @item, $item{__PATTERN1__}=$&;
31917
31918
31919
31920                 Parse::RecDescent::_trace(q{>>Matched production: [/NO CASCADE BEFORE/i]<<},
31921                                           Parse::RecDescent::_tracefirst($text),
31922                                           q{before},
31923                                           $tracelevel)
31924                                                 if defined $::RD_TRACE;
31925                 $_matched = 1;
31926                 last;
31927         }
31928
31929
31930         unless ( $_matched || defined($return) || defined($score) )
31931         {
31932
31933
31934                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
31935                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
31936                                          Parse::RecDescent::_tracefirst($_[1]),
31937                                          q{before},
31938                                          $tracelevel)
31939                                         if defined $::RD_TRACE;
31940                 return undef;
31941         }
31942         if (!defined($return) && defined($score))
31943         {
31944                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
31945                                           q{before},
31946                                           $tracelevel)
31947                                                 if defined $::RD_TRACE;
31948                 $return = $score_return;
31949         }
31950         splice @{$thisparser->{errors}}, $err_at;
31951         $return = $item[$#item] unless defined $return;
31952         if (defined $::RD_TRACE)
31953         {
31954                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
31955                                           $return . q{])}, "",
31956                                           q{before},
31957                                           $tracelevel);
31958                 Parse::RecDescent::_trace(q{(consumed: [} .
31959                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
31960                                           Parse::RecDescent::_tracefirst($text),
31961                                           , q{before},
31962                                           $tracelevel)
31963         }
31964         $_[1] = $text;
31965         return $return;
31966 }
31967
31968 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
31969 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_83_of_rule_sysibm_function
31970 {
31971         my $thisparser = $_[0];
31972         use vars q{$tracelevel};
31973         local $tracelevel = ($tracelevel||0)+1;
31974         $ERRORS = 0;
31975         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_83_of_rule_sysibm_function"};
31976
31977         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_83_of_rule_sysibm_function]},
31978                                   Parse::RecDescent::_tracefirst($_[1]),
31979                                   q{_alternation_1_of_production_83_of_rule_sysibm_function},
31980                                   $tracelevel)
31981                                         if defined $::RD_TRACE;
31982
31983
31984         my $err_at = @{$thisparser->{errors}};
31985
31986         my $score;
31987         my $score_return;
31988         my $_tok;
31989         my $return = undef;
31990         my $_matched=0;
31991         my $commit=0;
31992         my @item = ();
31993         my %item = ();
31994         my $repeating =  defined($_[2]) && $_[2];
31995         my $_noactions = defined($_[3]) && $_[3];
31996         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
31997         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
31998         my $text;
31999         my $lastsep="";
32000         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
32001         $expectation->at($_[1]);
32002
32003         my $thisline;
32004         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
32005
32006
32007
32008         while (!$_matched && !$commit)
32009         {
32010
32011                 Parse::RecDescent::_trace(q{Trying production: [/UCASE/i]},
32012                                           Parse::RecDescent::_tracefirst($_[1]),
32013                                           q{_alternation_1_of_production_83_of_rule_sysibm_function},
32014                                           $tracelevel)
32015                                                 if defined $::RD_TRACE;
32016                 my $thisprod = $thisrule->{"prods"}[0];
32017                 $text = $_[1];
32018                 my $_savetext;
32019                 @item = (q{_alternation_1_of_production_83_of_rule_sysibm_function});
32020                 %item = (__RULE__ => q{_alternation_1_of_production_83_of_rule_sysibm_function});
32021                 my $repcount = 0;
32022
32023
32024                 Parse::RecDescent::_trace(q{Trying terminal: [/UCASE/i]}, Parse::RecDescent::_tracefirst($text),
32025                                           q{_alternation_1_of_production_83_of_rule_sysibm_function},
32026                                           $tracelevel)
32027                                                 if defined $::RD_TRACE;
32028                 $lastsep = "";
32029                 $expectation->is(q{})->at($text);
32030
32031
32032                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:UCASE)//i)
32033                 {
32034
32035                         $expectation->failed();
32036                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
32037                                                   Parse::RecDescent::_tracefirst($text))
32038                                         if defined $::RD_TRACE;
32039
32040                         last;
32041                 }
32042                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
32043                                                 . $& . q{])},
32044                                                   Parse::RecDescent::_tracefirst($text))
32045                                         if defined $::RD_TRACE;
32046                 push @item, $item{__PATTERN1__}=$&;
32047
32048
32049
32050                 Parse::RecDescent::_trace(q{>>Matched production: [/UCASE/i]<<},
32051                                           Parse::RecDescent::_tracefirst($text),
32052                                           q{_alternation_1_of_production_83_of_rule_sysibm_function},
32053                                           $tracelevel)
32054                                                 if defined $::RD_TRACE;
32055                 $_matched = 1;
32056                 last;
32057         }
32058
32059
32060         while (!$_matched && !$commit)
32061         {
32062
32063                 Parse::RecDescent::_trace(q{Trying production: [/UPPER/i]},
32064                                           Parse::RecDescent::_tracefirst($_[1]),
32065                                           q{_alternation_1_of_production_83_of_rule_sysibm_function},
32066                                           $tracelevel)
32067                                                 if defined $::RD_TRACE;
32068                 my $thisprod = $thisrule->{"prods"}[1];
32069                 $text = $_[1];
32070                 my $_savetext;
32071                 @item = (q{_alternation_1_of_production_83_of_rule_sysibm_function});
32072                 %item = (__RULE__ => q{_alternation_1_of_production_83_of_rule_sysibm_function});
32073                 my $repcount = 0;
32074
32075
32076                 Parse::RecDescent::_trace(q{Trying terminal: [/UPPER/i]}, Parse::RecDescent::_tracefirst($text),
32077                                           q{_alternation_1_of_production_83_of_rule_sysibm_function},
32078                                           $tracelevel)
32079                                                 if defined $::RD_TRACE;
32080                 $lastsep = "";
32081                 $expectation->is(q{})->at($text);
32082
32083
32084                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:UPPER)//i)
32085                 {
32086
32087                         $expectation->failed();
32088                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
32089                                                   Parse::RecDescent::_tracefirst($text))
32090                                         if defined $::RD_TRACE;
32091
32092                         last;
32093                 }
32094                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
32095                                                 . $& . q{])},
32096                                                   Parse::RecDescent::_tracefirst($text))
32097                                         if defined $::RD_TRACE;
32098                 push @item, $item{__PATTERN1__}=$&;
32099
32100
32101
32102                 Parse::RecDescent::_trace(q{>>Matched production: [/UPPER/i]<<},
32103                                           Parse::RecDescent::_tracefirst($text),
32104                                           q{_alternation_1_of_production_83_of_rule_sysibm_function},
32105                                           $tracelevel)
32106                                                 if defined $::RD_TRACE;
32107                 $_matched = 1;
32108                 last;
32109         }
32110
32111
32112         unless ( $_matched || defined($return) || defined($score) )
32113         {
32114
32115
32116                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
32117                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
32118                                          Parse::RecDescent::_tracefirst($_[1]),
32119                                          q{_alternation_1_of_production_83_of_rule_sysibm_function},
32120                                          $tracelevel)
32121                                         if defined $::RD_TRACE;
32122                 return undef;
32123         }
32124         if (!defined($return) && defined($score))
32125         {
32126                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
32127                                           q{_alternation_1_of_production_83_of_rule_sysibm_function},
32128                                           $tracelevel)
32129                                                 if defined $::RD_TRACE;
32130                 $return = $score_return;
32131         }
32132         splice @{$thisparser->{errors}}, $err_at;
32133         $return = $item[$#item] unless defined $return;
32134         if (defined $::RD_TRACE)
32135         {
32136                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
32137                                           $return . q{])}, "",
32138                                           q{_alternation_1_of_production_83_of_rule_sysibm_function},
32139                                           $tracelevel);
32140                 Parse::RecDescent::_trace(q{(consumed: [} .
32141                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
32142                                           Parse::RecDescent::_tracefirst($text),
32143                                           , q{_alternation_1_of_production_83_of_rule_sysibm_function},
32144                                           $tracelevel)
32145         }
32146         $_[1] = $text;
32147         return $return;
32148 }
32149
32150 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
32151 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::ranking_function
32152 {
32153         my $thisparser = $_[0];
32154         use vars q{$tracelevel};
32155         local $tracelevel = ($tracelevel||0)+1;
32156         $ERRORS = 0;
32157         my $thisrule = $thisparser->{"rules"}{"ranking_function"};
32158
32159         Parse::RecDescent::_trace(q{Trying rule: [ranking_function]},
32160                                   Parse::RecDescent::_tracefirst($_[1]),
32161                                   q{ranking_function},
32162                                   $tracelevel)
32163                                         if defined $::RD_TRACE;
32164
32165
32166         my $err_at = @{$thisparser->{errors}};
32167
32168         my $score;
32169         my $score_return;
32170         my $_tok;
32171         my $return = undef;
32172         my $_matched=0;
32173         my $commit=0;
32174         my @item = ();
32175         my %item = ();
32176         my $repeating =  defined($_[2]) && $_[2];
32177         my $_noactions = defined($_[3]) && $_[3];
32178         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
32179         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
32180         my $text;
32181         my $lastsep="";
32182         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
32183         $expectation->at($_[1]);
32184
32185         my $thisline;
32186         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
32187
32188
32189
32190         while (!$_matched && !$commit)
32191         {
32192
32193                 Parse::RecDescent::_trace(q{Trying production: [/RANK/, or /DENSE_RANK|DENSERANK/i /OVER/i '(' window_partition_clause window_order_clause ')']},
32194                                           Parse::RecDescent::_tracefirst($_[1]),
32195                                           q{ranking_function},
32196                                           $tracelevel)
32197                                                 if defined $::RD_TRACE;
32198                 my $thisprod = $thisrule->{"prods"}[0];
32199                 $text = $_[1];
32200                 my $_savetext;
32201                 @item = (q{ranking_function});
32202                 %item = (__RULE__ => q{ranking_function});
32203                 my $repcount = 0;
32204
32205
32206                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule_ranking_function]},
32207                                   Parse::RecDescent::_tracefirst($text),
32208                                   q{ranking_function},
32209                                   $tracelevel)
32210                                         if defined $::RD_TRACE;
32211                 if (1) { no strict qw{refs};
32212                 $expectation->is(q{})->at($text);
32213                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_ranking_function($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
32214                 {
32215
32216                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule_ranking_function]>>},
32217                                                   Parse::RecDescent::_tracefirst($text),
32218                                                   q{ranking_function},
32219                                                   $tracelevel)
32220                                                         if defined $::RD_TRACE;
32221                         $expectation->failed();
32222                         last;
32223                 }
32224                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule_ranking_function]<< (return value: [}
32225                                         . $_tok . q{]},
32226
32227                                           Parse::RecDescent::_tracefirst($text),
32228                                           q{ranking_function},
32229                                           $tracelevel)
32230                                                 if defined $::RD_TRACE;
32231                 $item{q{_alternation_1_of_production_1_of_rule_ranking_function}} = $_tok;
32232                 push @item, $_tok;
32233
32234                 }
32235
32236                 Parse::RecDescent::_trace(q{Trying terminal: [/OVER/i]}, Parse::RecDescent::_tracefirst($text),
32237                                           q{ranking_function},
32238                                           $tracelevel)
32239                                                 if defined $::RD_TRACE;
32240                 $lastsep = "";
32241                 $expectation->is(q{/OVER/i})->at($text);
32242
32243
32244                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:OVER)//i)
32245                 {
32246
32247                         $expectation->failed();
32248                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
32249                                                   Parse::RecDescent::_tracefirst($text))
32250                                         if defined $::RD_TRACE;
32251
32252                         last;
32253                 }
32254                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
32255                                                 . $& . q{])},
32256                                                   Parse::RecDescent::_tracefirst($text))
32257                                         if defined $::RD_TRACE;
32258                 push @item, $item{__PATTERN1__}=$&;
32259
32260
32261                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
32262                                           Parse::RecDescent::_tracefirst($text),
32263                                           q{ranking_function},
32264                                           $tracelevel)
32265                                                 if defined $::RD_TRACE;
32266                 $lastsep = "";
32267                 $expectation->is(q{'('})->at($text);
32268
32269
32270                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
32271                 {
32272
32273                         $expectation->failed();
32274                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
32275                                                   Parse::RecDescent::_tracefirst($text))
32276                                                         if defined $::RD_TRACE;
32277                         last;
32278                 }
32279                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
32280                                                 . $& . q{])},
32281                                                   Parse::RecDescent::_tracefirst($text))
32282                                                         if defined $::RD_TRACE;
32283                 push @item, $item{__STRING1__}=$&;
32284
32285
32286                 Parse::RecDescent::_trace(q{Trying repeated subrule: [window_partition_clause]},
32287                                   Parse::RecDescent::_tracefirst($text),
32288                                   q{ranking_function},
32289                                   $tracelevel)
32290                                         if defined $::RD_TRACE;
32291                 $expectation->is(q{window_partition_clause})->at($text);
32292
32293                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::window_partition_clause, 0, 1, $_noactions,$expectation,undef)))
32294                 {
32295                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [window_partition_clause]>>},
32296                                                   Parse::RecDescent::_tracefirst($text),
32297                                                   q{ranking_function},
32298                                                   $tracelevel)
32299                                                         if defined $::RD_TRACE;
32300                         last;
32301                 }
32302                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [window_partition_clause]<< (}
32303                                         . @$_tok . q{ times)},
32304
32305                                           Parse::RecDescent::_tracefirst($text),
32306                                           q{ranking_function},
32307                                           $tracelevel)
32308                                                 if defined $::RD_TRACE;
32309                 $item{q{window_partition_clause(?)}} = $_tok;
32310                 push @item, $_tok;
32311
32312
32313
32314                 Parse::RecDescent::_trace(q{Trying subrule: [window_order_clause]},
32315                                   Parse::RecDescent::_tracefirst($text),
32316                                   q{ranking_function},
32317                                   $tracelevel)
32318                                         if defined $::RD_TRACE;
32319                 if (1) { no strict qw{refs};
32320                 $expectation->is(q{window_order_clause})->at($text);
32321                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::window_order_clause($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
32322                 {
32323
32324                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [window_order_clause]>>},
32325                                                   Parse::RecDescent::_tracefirst($text),
32326                                                   q{ranking_function},
32327                                                   $tracelevel)
32328                                                         if defined $::RD_TRACE;
32329                         $expectation->failed();
32330                         last;
32331                 }
32332                 Parse::RecDescent::_trace(q{>>Matched subrule: [window_order_clause]<< (return value: [}
32333                                         . $_tok . q{]},
32334
32335                                           Parse::RecDescent::_tracefirst($text),
32336                                           q{ranking_function},
32337                                           $tracelevel)
32338                                                 if defined $::RD_TRACE;
32339                 $item{q{window_order_clause}} = $_tok;
32340                 push @item, $_tok;
32341
32342                 }
32343
32344                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
32345                                           Parse::RecDescent::_tracefirst($text),
32346                                           q{ranking_function},
32347                                           $tracelevel)
32348                                                 if defined $::RD_TRACE;
32349                 $lastsep = "";
32350                 $expectation->is(q{')'})->at($text);
32351
32352
32353                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
32354                 {
32355
32356                         $expectation->failed();
32357                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
32358                                                   Parse::RecDescent::_tracefirst($text))
32359                                                         if defined $::RD_TRACE;
32360                         last;
32361                 }
32362                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
32363                                                 . $& . q{])},
32364                                                   Parse::RecDescent::_tracefirst($text))
32365                                                         if defined $::RD_TRACE;
32366                 push @item, $item{__STRING2__}=$&;
32367
32368
32369
32370                 Parse::RecDescent::_trace(q{>>Matched production: [/RANK/, or /DENSE_RANK|DENSERANK/i /OVER/i '(' window_partition_clause window_order_clause ')']<<},
32371                                           Parse::RecDescent::_tracefirst($text),
32372                                           q{ranking_function},
32373                                           $tracelevel)
32374                                                 if defined $::RD_TRACE;
32375                 $_matched = 1;
32376                 last;
32377         }
32378
32379
32380         unless ( $_matched || defined($return) || defined($score) )
32381         {
32382
32383
32384                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
32385                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
32386                                          Parse::RecDescent::_tracefirst($_[1]),
32387                                          q{ranking_function},
32388                                          $tracelevel)
32389                                         if defined $::RD_TRACE;
32390                 return undef;
32391         }
32392         if (!defined($return) && defined($score))
32393         {
32394                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
32395                                           q{ranking_function},
32396                                           $tracelevel)
32397                                                 if defined $::RD_TRACE;
32398                 $return = $score_return;
32399         }
32400         splice @{$thisparser->{errors}}, $err_at;
32401         $return = $item[$#item] unless defined $return;
32402         if (defined $::RD_TRACE)
32403         {
32404                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
32405                                           $return . q{])}, "",
32406                                           q{ranking_function},
32407                                           $tracelevel);
32408                 Parse::RecDescent::_trace(q{(consumed: [} .
32409                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
32410                                           Parse::RecDescent::_tracefirst($text),
32411                                           , q{ranking_function},
32412                                           $tracelevel)
32413         }
32414         $_[1] = $text;
32415         return $return;
32416 }
32417
32418 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
32419 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition
32420 {
32421         my $thisparser = $_[0];
32422         use vars q{$tracelevel};
32423         local $tracelevel = ($tracelevel||0)+1;
32424         $ERRORS = 0;
32425         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition"};
32426
32427         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition]},
32428                                   Parse::RecDescent::_tracefirst($_[1]),
32429                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition},
32430                                   $tracelevel)
32431                                         if defined $::RD_TRACE;
32432
32433
32434         my $err_at = @{$thisparser->{errors}};
32435
32436         my $score;
32437         my $score_return;
32438         my $_tok;
32439         my $return = undef;
32440         my $_matched=0;
32441         my $commit=0;
32442         my @item = ();
32443         my %item = ();
32444         my $repeating =  defined($_[2]) && $_[2];
32445         my $_noactions = defined($_[3]) && $_[3];
32446         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
32447         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
32448         my $text;
32449         my $lastsep="";
32450         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
32451         $expectation->at($_[1]);
32452
32453         my $thisline;
32454         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
32455
32456
32457
32458         while (!$_matched && !$commit)
32459         {
32460
32461                 Parse::RecDescent::_trace(q{Trying production: [/SELECTIVITY/i numeric_constant]},
32462                                           Parse::RecDescent::_tracefirst($_[1]),
32463                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition},
32464                                           $tracelevel)
32465                                                 if defined $::RD_TRACE;
32466                 my $thisprod = $thisrule->{"prods"}[0];
32467                 $text = $_[1];
32468                 my $_savetext;
32469                 @item = (q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition});
32470                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition});
32471                 my $repcount = 0;
32472
32473
32474                 Parse::RecDescent::_trace(q{Trying terminal: [/SELECTIVITY/i]}, Parse::RecDescent::_tracefirst($text),
32475                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition},
32476                                           $tracelevel)
32477                                                 if defined $::RD_TRACE;
32478                 $lastsep = "";
32479                 $expectation->is(q{})->at($text);
32480
32481
32482                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:SELECTIVITY)//i)
32483                 {
32484
32485                         $expectation->failed();
32486                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
32487                                                   Parse::RecDescent::_tracefirst($text))
32488                                         if defined $::RD_TRACE;
32489
32490                         last;
32491                 }
32492                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
32493                                                 . $& . q{])},
32494                                                   Parse::RecDescent::_tracefirst($text))
32495                                         if defined $::RD_TRACE;
32496                 push @item, $item{__PATTERN1__}=$&;
32497
32498
32499                 Parse::RecDescent::_trace(q{Trying subrule: [numeric_constant]},
32500                                   Parse::RecDescent::_tracefirst($text),
32501                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition},
32502                                   $tracelevel)
32503                                         if defined $::RD_TRACE;
32504                 if (1) { no strict qw{refs};
32505                 $expectation->is(q{numeric_constant})->at($text);
32506                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::numeric_constant($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
32507                 {
32508
32509                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [numeric_constant]>>},
32510                                                   Parse::RecDescent::_tracefirst($text),
32511                                                   q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition},
32512                                                   $tracelevel)
32513                                                         if defined $::RD_TRACE;
32514                         $expectation->failed();
32515                         last;
32516                 }
32517                 Parse::RecDescent::_trace(q{>>Matched subrule: [numeric_constant]<< (return value: [}
32518                                         . $_tok . q{]},
32519
32520                                           Parse::RecDescent::_tracefirst($text),
32521                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition},
32522                                           $tracelevel)
32523                                                 if defined $::RD_TRACE;
32524                 $item{q{numeric_constant}} = $_tok;
32525                 push @item, $_tok;
32526
32527                 }
32528
32529
32530                 Parse::RecDescent::_trace(q{>>Matched production: [/SELECTIVITY/i numeric_constant]<<},
32531                                           Parse::RecDescent::_tracefirst($text),
32532                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition},
32533                                           $tracelevel)
32534                                                 if defined $::RD_TRACE;
32535                 $_matched = 1;
32536                 last;
32537         }
32538
32539
32540         unless ( $_matched || defined($return) || defined($score) )
32541         {
32542
32543
32544                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
32545                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
32546                                          Parse::RecDescent::_tracefirst($_[1]),
32547                                          q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition},
32548                                          $tracelevel)
32549                                         if defined $::RD_TRACE;
32550                 return undef;
32551         }
32552         if (!defined($return) && defined($score))
32553         {
32554                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
32555                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition},
32556                                           $tracelevel)
32557                                                 if defined $::RD_TRACE;
32558                 $return = $score_return;
32559         }
32560         splice @{$thisparser->{errors}}, $err_at;
32561         $return = $item[$#item] unless defined $return;
32562         if (defined $::RD_TRACE)
32563         {
32564                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
32565                                           $return . q{])}, "",
32566                                           q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition},
32567                                           $tracelevel);
32568                 Parse::RecDescent::_trace(q{(consumed: [} .
32569                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
32570                                           Parse::RecDescent::_tracefirst($text),
32571                                           , q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition},
32572                                           $tracelevel)
32573         }
32574         $_[1] = $text;
32575         return $return;
32576 }
32577
32578 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
32579 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_sysibm_function
32580 {
32581         my $thisparser = $_[0];
32582         use vars q{$tracelevel};
32583         local $tracelevel = ($tracelevel||0)+1;
32584         $ERRORS = 0;
32585         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_sysibm_function"};
32586
32587         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_sysibm_function]},
32588                                   Parse::RecDescent::_tracefirst($_[1]),
32589                                   q{_alternation_1_of_production_1_of_rule_sysibm_function},
32590                                   $tracelevel)
32591                                         if defined $::RD_TRACE;
32592
32593
32594         my $err_at = @{$thisparser->{errors}};
32595
32596         my $score;
32597         my $score_return;
32598         my $_tok;
32599         my $return = undef;
32600         my $_matched=0;
32601         my $commit=0;
32602         my @item = ();
32603         my %item = ();
32604         my $repeating =  defined($_[2]) && $_[2];
32605         my $_noactions = defined($_[3]) && $_[3];
32606         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
32607         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
32608         my $text;
32609         my $lastsep="";
32610         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
32611         $expectation->at($_[1]);
32612
32613         my $thisline;
32614         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
32615
32616
32617
32618         while (!$_matched && !$commit)
32619         {
32620
32621                 Parse::RecDescent::_trace(q{Trying production: [/ABS/i]},
32622                                           Parse::RecDescent::_tracefirst($_[1]),
32623                                           q{_alternation_1_of_production_1_of_rule_sysibm_function},
32624                                           $tracelevel)
32625                                                 if defined $::RD_TRACE;
32626                 my $thisprod = $thisrule->{"prods"}[0];
32627                 $text = $_[1];
32628                 my $_savetext;
32629                 @item = (q{_alternation_1_of_production_1_of_rule_sysibm_function});
32630                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_sysibm_function});
32631                 my $repcount = 0;
32632
32633
32634                 Parse::RecDescent::_trace(q{Trying terminal: [/ABS/i]}, Parse::RecDescent::_tracefirst($text),
32635                                           q{_alternation_1_of_production_1_of_rule_sysibm_function},
32636                                           $tracelevel)
32637                                                 if defined $::RD_TRACE;
32638                 $lastsep = "";
32639                 $expectation->is(q{})->at($text);
32640
32641
32642                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ABS)//i)
32643                 {
32644
32645                         $expectation->failed();
32646                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
32647                                                   Parse::RecDescent::_tracefirst($text))
32648                                         if defined $::RD_TRACE;
32649
32650                         last;
32651                 }
32652                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
32653                                                 . $& . q{])},
32654                                                   Parse::RecDescent::_tracefirst($text))
32655                                         if defined $::RD_TRACE;
32656                 push @item, $item{__PATTERN1__}=$&;
32657
32658
32659
32660                 Parse::RecDescent::_trace(q{>>Matched production: [/ABS/i]<<},
32661                                           Parse::RecDescent::_tracefirst($text),
32662                                           q{_alternation_1_of_production_1_of_rule_sysibm_function},
32663                                           $tracelevel)
32664                                                 if defined $::RD_TRACE;
32665                 $_matched = 1;
32666                 last;
32667         }
32668
32669
32670         while (!$_matched && !$commit)
32671         {
32672
32673                 Parse::RecDescent::_trace(q{Trying production: [/ABSVAL/i]},
32674                                           Parse::RecDescent::_tracefirst($_[1]),
32675                                           q{_alternation_1_of_production_1_of_rule_sysibm_function},
32676                                           $tracelevel)
32677                                                 if defined $::RD_TRACE;
32678                 my $thisprod = $thisrule->{"prods"}[1];
32679                 $text = $_[1];
32680                 my $_savetext;
32681                 @item = (q{_alternation_1_of_production_1_of_rule_sysibm_function});
32682                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_sysibm_function});
32683                 my $repcount = 0;
32684
32685
32686                 Parse::RecDescent::_trace(q{Trying terminal: [/ABSVAL/i]}, Parse::RecDescent::_tracefirst($text),
32687                                           q{_alternation_1_of_production_1_of_rule_sysibm_function},
32688                                           $tracelevel)
32689                                                 if defined $::RD_TRACE;
32690                 $lastsep = "";
32691                 $expectation->is(q{})->at($text);
32692
32693
32694                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ABSVAL)//i)
32695                 {
32696
32697                         $expectation->failed();
32698                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
32699                                                   Parse::RecDescent::_tracefirst($text))
32700                                         if defined $::RD_TRACE;
32701
32702                         last;
32703                 }
32704                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
32705                                                 . $& . q{])},
32706                                                   Parse::RecDescent::_tracefirst($text))
32707                                         if defined $::RD_TRACE;
32708                 push @item, $item{__PATTERN1__}=$&;
32709
32710
32711
32712                 Parse::RecDescent::_trace(q{>>Matched production: [/ABSVAL/i]<<},
32713                                           Parse::RecDescent::_tracefirst($text),
32714                                           q{_alternation_1_of_production_1_of_rule_sysibm_function},
32715                                           $tracelevel)
32716                                                 if defined $::RD_TRACE;
32717                 $_matched = 1;
32718                 last;
32719         }
32720
32721
32722         unless ( $_matched || defined($return) || defined($score) )
32723         {
32724
32725
32726                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
32727                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
32728                                          Parse::RecDescent::_tracefirst($_[1]),
32729                                          q{_alternation_1_of_production_1_of_rule_sysibm_function},
32730                                          $tracelevel)
32731                                         if defined $::RD_TRACE;
32732                 return undef;
32733         }
32734         if (!defined($return) && defined($score))
32735         {
32736                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
32737                                           q{_alternation_1_of_production_1_of_rule_sysibm_function},
32738                                           $tracelevel)
32739                                                 if defined $::RD_TRACE;
32740                 $return = $score_return;
32741         }
32742         splice @{$thisparser->{errors}}, $err_at;
32743         $return = $item[$#item] unless defined $return;
32744         if (defined $::RD_TRACE)
32745         {
32746                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
32747                                           $return . q{])}, "",
32748                                           q{_alternation_1_of_production_1_of_rule_sysibm_function},
32749                                           $tracelevel);
32750                 Parse::RecDescent::_trace(q{(consumed: [} .
32751                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
32752                                           Parse::RecDescent::_tracefirst($text),
32753                                           , q{_alternation_1_of_production_1_of_rule_sysibm_function},
32754                                           $tracelevel)
32755         }
32756         $_[1] = $text;
32757         return $return;
32758 }
32759
32760 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
32761 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::reference_b
32762 {
32763         my $thisparser = $_[0];
32764         use vars q{$tracelevel};
32765         local $tracelevel = ($tracelevel||0)+1;
32766         $ERRORS = 0;
32767         my $thisrule = $thisparser->{"rules"}{"reference_b"};
32768
32769         Parse::RecDescent::_trace(q{Trying rule: [reference_b]},
32770                                   Parse::RecDescent::_tracefirst($_[1]),
32771                                   q{reference_b},
32772                                   $tracelevel)
32773                                         if defined $::RD_TRACE;
32774
32775
32776         my $err_at = @{$thisparser->{errors}};
32777
32778         my $score;
32779         my $score_return;
32780         my $_tok;
32781         my $return = undef;
32782         my $_matched=0;
32783         my $commit=0;
32784         my @item = ();
32785         my %item = ();
32786         my $repeating =  defined($_[2]) && $_[2];
32787         my $_noactions = defined($_[3]) && $_[3];
32788         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
32789         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
32790         my $text;
32791         my $lastsep="";
32792         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
32793         $expectation->at($_[1]);
32794
32795         my $thisline;
32796         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
32797
32798
32799
32800         while (!$_matched && !$commit)
32801         {
32802
32803                 Parse::RecDescent::_trace(q{Trying production: [/REFERENCING/i old_new_corr]},
32804                                           Parse::RecDescent::_tracefirst($_[1]),
32805                                           q{reference_b},
32806                                           $tracelevel)
32807                                                 if defined $::RD_TRACE;
32808                 my $thisprod = $thisrule->{"prods"}[0];
32809                 $text = $_[1];
32810                 my $_savetext;
32811                 @item = (q{reference_b});
32812                 %item = (__RULE__ => q{reference_b});
32813                 my $repcount = 0;
32814
32815
32816                 Parse::RecDescent::_trace(q{Trying terminal: [/REFERENCING/i]}, Parse::RecDescent::_tracefirst($text),
32817                                           q{reference_b},
32818                                           $tracelevel)
32819                                                 if defined $::RD_TRACE;
32820                 $lastsep = "";
32821                 $expectation->is(q{})->at($text);
32822
32823
32824                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REFERENCING)//i)
32825                 {
32826
32827                         $expectation->failed();
32828                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
32829                                                   Parse::RecDescent::_tracefirst($text))
32830                                         if defined $::RD_TRACE;
32831
32832                         last;
32833                 }
32834                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
32835                                                 . $& . q{])},
32836                                                   Parse::RecDescent::_tracefirst($text))
32837                                         if defined $::RD_TRACE;
32838                 push @item, $item{__PATTERN1__}=$&;
32839
32840
32841                 Parse::RecDescent::_trace(q{Trying repeated subrule: [old_new_corr]},
32842                                   Parse::RecDescent::_tracefirst($text),
32843                                   q{reference_b},
32844                                   $tracelevel)
32845                                         if defined $::RD_TRACE;
32846                 $expectation->is(q{old_new_corr})->at($text);
32847
32848                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::old_new_corr, 0, 2, $_noactions,$expectation,undef)))
32849                 {
32850                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [old_new_corr]>>},
32851                                                   Parse::RecDescent::_tracefirst($text),
32852                                                   q{reference_b},
32853                                                   $tracelevel)
32854                                                         if defined $::RD_TRACE;
32855                         last;
32856                 }
32857                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [old_new_corr]<< (}
32858                                         . @$_tok . q{ times)},
32859
32860                                           Parse::RecDescent::_tracefirst($text),
32861                                           q{reference_b},
32862                                           $tracelevel)
32863                                                 if defined $::RD_TRACE;
32864                 $item{q{old_new_corr(0..2)}} = $_tok;
32865                 push @item, $_tok;
32866
32867
32868
32869                 Parse::RecDescent::_trace(q{Trying action},
32870                                           Parse::RecDescent::_tracefirst($text),
32871                                           q{reference_b},
32872                                           $tracelevel)
32873                                                 if defined $::RD_TRACE;
32874
32875
32876                 $_tok = ($_noactions) ? 0 : do { $return = join(' ', $item[1], join(' ', @{$item[2]}) ) };
32877                 unless (defined $_tok)
32878                 {
32879                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
32880                                         if defined $::RD_TRACE;
32881                         last;
32882                 }
32883                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
32884                                           . $_tok . q{])},
32885                                           Parse::RecDescent::_tracefirst($text))
32886                                                 if defined $::RD_TRACE;
32887                 push @item, $_tok;
32888                 $item{__ACTION1__}=$_tok;
32889
32890
32891
32892                 Parse::RecDescent::_trace(q{>>Matched production: [/REFERENCING/i old_new_corr]<<},
32893                                           Parse::RecDescent::_tracefirst($text),
32894                                           q{reference_b},
32895                                           $tracelevel)
32896                                                 if defined $::RD_TRACE;
32897                 $_matched = 1;
32898                 last;
32899         }
32900
32901
32902         unless ( $_matched || defined($return) || defined($score) )
32903         {
32904
32905
32906                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
32907                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
32908                                          Parse::RecDescent::_tracefirst($_[1]),
32909                                          q{reference_b},
32910                                          $tracelevel)
32911                                         if defined $::RD_TRACE;
32912                 return undef;
32913         }
32914         if (!defined($return) && defined($score))
32915         {
32916                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
32917                                           q{reference_b},
32918                                           $tracelevel)
32919                                                 if defined $::RD_TRACE;
32920                 $return = $score_return;
32921         }
32922         splice @{$thisparser->{errors}}, $err_at;
32923         $return = $item[$#item] unless defined $return;
32924         if (defined $::RD_TRACE)
32925         {
32926                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
32927                                           $return . q{])}, "",
32928                                           q{reference_b},
32929                                           $tracelevel);
32930                 Parse::RecDescent::_trace(q{(consumed: [} .
32931                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
32932                                           Parse::RecDescent::_tracefirst($text),
32933                                           , q{reference_b},
32934                                           $tracelevel)
32935         }
32936         $_[1] = $text;
32937         return $return;
32938 }
32939
32940 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
32941 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_simple_when_clause
32942 {
32943         my $thisparser = $_[0];
32944         use vars q{$tracelevel};
32945         local $tracelevel = ($tracelevel||0)+1;
32946         $ERRORS = 0;
32947         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_1_of_rule_simple_when_clause"};
32948
32949         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_1_of_rule_simple_when_clause]},
32950                                   Parse::RecDescent::_tracefirst($_[1]),
32951                                   q{_alternation_1_of_production_1_of_rule_simple_when_clause},
32952                                   $tracelevel)
32953                                         if defined $::RD_TRACE;
32954
32955
32956         my $err_at = @{$thisparser->{errors}};
32957
32958         my $score;
32959         my $score_return;
32960         my $_tok;
32961         my $return = undef;
32962         my $_matched=0;
32963         my $commit=0;
32964         my @item = ();
32965         my %item = ();
32966         my $repeating =  defined($_[2]) && $_[2];
32967         my $_noactions = defined($_[3]) && $_[3];
32968         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
32969         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
32970         my $text;
32971         my $lastsep="";
32972         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
32973         $expectation->at($_[1]);
32974
32975         my $thisline;
32976         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
32977
32978
32979
32980         while (!$_matched && !$commit)
32981         {
32982
32983                 Parse::RecDescent::_trace(q{Trying production: [/WHEN/i search_condition /THEN/i result_expression, or /NULL/i]},
32984                                           Parse::RecDescent::_tracefirst($_[1]),
32985                                           q{_alternation_1_of_production_1_of_rule_simple_when_clause},
32986                                           $tracelevel)
32987                                                 if defined $::RD_TRACE;
32988                 my $thisprod = $thisrule->{"prods"}[0];
32989                 $text = $_[1];
32990                 my $_savetext;
32991                 @item = (q{_alternation_1_of_production_1_of_rule_simple_when_clause});
32992                 %item = (__RULE__ => q{_alternation_1_of_production_1_of_rule_simple_when_clause});
32993                 my $repcount = 0;
32994
32995
32996                 Parse::RecDescent::_trace(q{Trying terminal: [/WHEN/i]}, Parse::RecDescent::_tracefirst($text),
32997                                           q{_alternation_1_of_production_1_of_rule_simple_when_clause},
32998                                           $tracelevel)
32999                                                 if defined $::RD_TRACE;
33000                 $lastsep = "";
33001                 $expectation->is(q{})->at($text);
33002
33003
33004                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:WHEN)//i)
33005                 {
33006
33007                         $expectation->failed();
33008                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
33009                                                   Parse::RecDescent::_tracefirst($text))
33010                                         if defined $::RD_TRACE;
33011
33012                         last;
33013                 }
33014                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
33015                                                 . $& . q{])},
33016                                                   Parse::RecDescent::_tracefirst($text))
33017                                         if defined $::RD_TRACE;
33018                 push @item, $item{__PATTERN1__}=$&;
33019
33020
33021                 Parse::RecDescent::_trace(q{Trying subrule: [search_condition]},
33022                                   Parse::RecDescent::_tracefirst($text),
33023                                   q{_alternation_1_of_production_1_of_rule_simple_when_clause},
33024                                   $tracelevel)
33025                                         if defined $::RD_TRACE;
33026                 if (1) { no strict qw{refs};
33027                 $expectation->is(q{search_condition})->at($text);
33028                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::search_condition($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
33029                 {
33030
33031                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [search_condition]>>},
33032                                                   Parse::RecDescent::_tracefirst($text),
33033                                                   q{_alternation_1_of_production_1_of_rule_simple_when_clause},
33034                                                   $tracelevel)
33035                                                         if defined $::RD_TRACE;
33036                         $expectation->failed();
33037                         last;
33038                 }
33039                 Parse::RecDescent::_trace(q{>>Matched subrule: [search_condition]<< (return value: [}
33040                                         . $_tok . q{]},
33041
33042                                           Parse::RecDescent::_tracefirst($text),
33043                                           q{_alternation_1_of_production_1_of_rule_simple_when_clause},
33044                                           $tracelevel)
33045                                                 if defined $::RD_TRACE;
33046                 $item{q{search_condition}} = $_tok;
33047                 push @item, $_tok;
33048
33049                 }
33050
33051                 Parse::RecDescent::_trace(q{Trying terminal: [/THEN/i]}, Parse::RecDescent::_tracefirst($text),
33052                                           q{_alternation_1_of_production_1_of_rule_simple_when_clause},
33053                                           $tracelevel)
33054                                                 if defined $::RD_TRACE;
33055                 $lastsep = "";
33056                 $expectation->is(q{/THEN/i})->at($text);
33057
33058
33059                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:THEN)//i)
33060                 {
33061
33062                         $expectation->failed();
33063                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
33064                                                   Parse::RecDescent::_tracefirst($text))
33065                                         if defined $::RD_TRACE;
33066
33067                         last;
33068                 }
33069                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
33070                                                 . $& . q{])},
33071                                                   Parse::RecDescent::_tracefirst($text))
33072                                         if defined $::RD_TRACE;
33073                 push @item, $item{__PATTERN2__}=$&;
33074
33075
33076                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause]},
33077                                   Parse::RecDescent::_tracefirst($text),
33078                                   q{_alternation_1_of_production_1_of_rule_simple_when_clause},
33079                                   $tracelevel)
33080                                         if defined $::RD_TRACE;
33081                 if (1) { no strict qw{refs};
33082                 $expectation->is(q{result_expression, or /NULL/i})->at($text);
33083                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
33084                 {
33085
33086                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause]>>},
33087                                                   Parse::RecDescent::_tracefirst($text),
33088                                                   q{_alternation_1_of_production_1_of_rule_simple_when_clause},
33089                                                   $tracelevel)
33090                                                         if defined $::RD_TRACE;
33091                         $expectation->failed();
33092                         last;
33093                 }
33094                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause]<< (return value: [}
33095                                         . $_tok . q{]},
33096
33097                                           Parse::RecDescent::_tracefirst($text),
33098                                           q{_alternation_1_of_production_1_of_rule_simple_when_clause},
33099                                           $tracelevel)
33100                                                 if defined $::RD_TRACE;
33101                 $item{q{_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause}} = $_tok;
33102                 push @item, $_tok;
33103
33104                 }
33105
33106
33107                 Parse::RecDescent::_trace(q{>>Matched production: [/WHEN/i search_condition /THEN/i result_expression, or /NULL/i]<<},
33108                                           Parse::RecDescent::_tracefirst($text),
33109                                           q{_alternation_1_of_production_1_of_rule_simple_when_clause},
33110                                           $tracelevel)
33111                                                 if defined $::RD_TRACE;
33112                 $_matched = 1;
33113                 last;
33114         }
33115
33116
33117         unless ( $_matched || defined($return) || defined($score) )
33118         {
33119
33120
33121                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
33122                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
33123                                          Parse::RecDescent::_tracefirst($_[1]),
33124                                          q{_alternation_1_of_production_1_of_rule_simple_when_clause},
33125                                          $tracelevel)
33126                                         if defined $::RD_TRACE;
33127                 return undef;
33128         }
33129         if (!defined($return) && defined($score))
33130         {
33131                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
33132                                           q{_alternation_1_of_production_1_of_rule_simple_when_clause},
33133                                           $tracelevel)
33134                                                 if defined $::RD_TRACE;
33135                 $return = $score_return;
33136         }
33137         splice @{$thisparser->{errors}}, $err_at;
33138         $return = $item[$#item] unless defined $return;
33139         if (defined $::RD_TRACE)
33140         {
33141                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
33142                                           $return . q{])}, "",
33143                                           q{_alternation_1_of_production_1_of_rule_simple_when_clause},
33144                                           $tracelevel);
33145                 Parse::RecDescent::_trace(q{(consumed: [} .
33146                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
33147                                           Parse::RecDescent::_tracefirst($text),
33148                                           , q{_alternation_1_of_production_1_of_rule_simple_when_clause},
33149                                           $tracelevel)
33150         }
33151         $_[1] = $text;
33152         return $return;
33153 }
33154
33155 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
33156 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_9_of_rule_sysibm_function
33157 {
33158         my $thisparser = $_[0];
33159         use vars q{$tracelevel};
33160         local $tracelevel = ($tracelevel||0)+1;
33161         $ERRORS = 0;
33162         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_9_of_rule_sysibm_function"};
33163
33164         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_9_of_rule_sysibm_function]},
33165                                   Parse::RecDescent::_tracefirst($_[1]),
33166                                   q{_alternation_1_of_production_9_of_rule_sysibm_function},
33167                                   $tracelevel)
33168                                         if defined $::RD_TRACE;
33169
33170
33171         my $err_at = @{$thisparser->{errors}};
33172
33173         my $score;
33174         my $score_return;
33175         my $_tok;
33176         my $return = undef;
33177         my $_matched=0;
33178         my $commit=0;
33179         my @item = ();
33180         my %item = ();
33181         my $repeating =  defined($_[2]) && $_[2];
33182         my $_noactions = defined($_[3]) && $_[3];
33183         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
33184         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
33185         my $text;
33186         my $lastsep="";
33187         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
33188         $expectation->at($_[1]);
33189
33190         my $thisline;
33191         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
33192
33193
33194
33195         while (!$_matched && !$commit)
33196         {
33197
33198                 Parse::RecDescent::_trace(q{Trying production: [/CORRELATION/i]},
33199                                           Parse::RecDescent::_tracefirst($_[1]),
33200                                           q{_alternation_1_of_production_9_of_rule_sysibm_function},
33201                                           $tracelevel)
33202                                                 if defined $::RD_TRACE;
33203                 my $thisprod = $thisrule->{"prods"}[0];
33204                 $text = $_[1];
33205                 my $_savetext;
33206                 @item = (q{_alternation_1_of_production_9_of_rule_sysibm_function});
33207                 %item = (__RULE__ => q{_alternation_1_of_production_9_of_rule_sysibm_function});
33208                 my $repcount = 0;
33209
33210
33211                 Parse::RecDescent::_trace(q{Trying terminal: [/CORRELATION/i]}, Parse::RecDescent::_tracefirst($text),
33212                                           q{_alternation_1_of_production_9_of_rule_sysibm_function},
33213                                           $tracelevel)
33214                                                 if defined $::RD_TRACE;
33215                 $lastsep = "";
33216                 $expectation->is(q{})->at($text);
33217
33218
33219                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CORRELATION)//i)
33220                 {
33221
33222                         $expectation->failed();
33223                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
33224                                                   Parse::RecDescent::_tracefirst($text))
33225                                         if defined $::RD_TRACE;
33226
33227                         last;
33228                 }
33229                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
33230                                                 . $& . q{])},
33231                                                   Parse::RecDescent::_tracefirst($text))
33232                                         if defined $::RD_TRACE;
33233                 push @item, $item{__PATTERN1__}=$&;
33234
33235
33236
33237                 Parse::RecDescent::_trace(q{>>Matched production: [/CORRELATION/i]<<},
33238                                           Parse::RecDescent::_tracefirst($text),
33239                                           q{_alternation_1_of_production_9_of_rule_sysibm_function},
33240                                           $tracelevel)
33241                                                 if defined $::RD_TRACE;
33242                 $_matched = 1;
33243                 last;
33244         }
33245
33246
33247         while (!$_matched && !$commit)
33248         {
33249
33250                 Parse::RecDescent::_trace(q{Trying production: [/CORR/]},
33251                                           Parse::RecDescent::_tracefirst($_[1]),
33252                                           q{_alternation_1_of_production_9_of_rule_sysibm_function},
33253                                           $tracelevel)
33254                                                 if defined $::RD_TRACE;
33255                 my $thisprod = $thisrule->{"prods"}[1];
33256                 $text = $_[1];
33257                 my $_savetext;
33258                 @item = (q{_alternation_1_of_production_9_of_rule_sysibm_function});
33259                 %item = (__RULE__ => q{_alternation_1_of_production_9_of_rule_sysibm_function});
33260                 my $repcount = 0;
33261
33262
33263                 Parse::RecDescent::_trace(q{Trying terminal: [/CORR/]}, Parse::RecDescent::_tracefirst($text),
33264                                           q{_alternation_1_of_production_9_of_rule_sysibm_function},
33265                                           $tracelevel)
33266                                                 if defined $::RD_TRACE;
33267                 $lastsep = "";
33268                 $expectation->is(q{})->at($text);
33269
33270
33271                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CORR)//)
33272                 {
33273
33274                         $expectation->failed();
33275                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
33276                                                   Parse::RecDescent::_tracefirst($text))
33277                                         if defined $::RD_TRACE;
33278
33279                         last;
33280                 }
33281                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
33282                                                 . $& . q{])},
33283                                                   Parse::RecDescent::_tracefirst($text))
33284                                         if defined $::RD_TRACE;
33285                 push @item, $item{__PATTERN1__}=$&;
33286
33287
33288
33289                 Parse::RecDescent::_trace(q{>>Matched production: [/CORR/]<<},
33290                                           Parse::RecDescent::_tracefirst($text),
33291                                           q{_alternation_1_of_production_9_of_rule_sysibm_function},
33292                                           $tracelevel)
33293                                                 if defined $::RD_TRACE;
33294                 $_matched = 1;
33295                 last;
33296         }
33297
33298
33299         unless ( $_matched || defined($return) || defined($score) )
33300         {
33301
33302
33303                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
33304                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
33305                                          Parse::RecDescent::_tracefirst($_[1]),
33306                                          q{_alternation_1_of_production_9_of_rule_sysibm_function},
33307                                          $tracelevel)
33308                                         if defined $::RD_TRACE;
33309                 return undef;
33310         }
33311         if (!defined($return) && defined($score))
33312         {
33313                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
33314                                           q{_alternation_1_of_production_9_of_rule_sysibm_function},
33315                                           $tracelevel)
33316                                                 if defined $::RD_TRACE;
33317                 $return = $score_return;
33318         }
33319         splice @{$thisparser->{errors}}, $err_at;
33320         $return = $item[$#item] unless defined $return;
33321         if (defined $::RD_TRACE)
33322         {
33323                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
33324                                           $return . q{])}, "",
33325                                           q{_alternation_1_of_production_9_of_rule_sysibm_function},
33326                                           $tracelevel);
33327                 Parse::RecDescent::_trace(q{(consumed: [} .
33328                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
33329                                           Parse::RecDescent::_tracefirst($text),
33330                                           , q{_alternation_1_of_production_9_of_rule_sysibm_function},
33331                                           $tracelevel)
33332         }
33333         $_[1] = $text;
33334         return $return;
33335 }
33336
33337 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
33338 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_7_of_rule_sysfun
33339 {
33340         my $thisparser = $_[0];
33341         use vars q{$tracelevel};
33342         local $tracelevel = ($tracelevel||0)+1;
33343         $ERRORS = 0;
33344         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_7_of_rule_sysfun"};
33345
33346         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_7_of_rule_sysfun]},
33347                                   Parse::RecDescent::_tracefirst($_[1]),
33348                                   q{_alternation_1_of_production_7_of_rule_sysfun},
33349                                   $tracelevel)
33350                                         if defined $::RD_TRACE;
33351
33352
33353         my $err_at = @{$thisparser->{errors}};
33354
33355         my $score;
33356         my $score_return;
33357         my $_tok;
33358         my $return = undef;
33359         my $_matched=0;
33360         my $commit=0;
33361         my @item = ();
33362         my %item = ();
33363         my $repeating =  defined($_[2]) && $_[2];
33364         my $_noactions = defined($_[3]) && $_[3];
33365         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
33366         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
33367         my $text;
33368         my $lastsep="";
33369         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
33370         $expectation->at($_[1]);
33371
33372         my $thisline;
33373         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
33374
33375
33376
33377         while (!$_matched && !$commit)
33378         {
33379
33380                 Parse::RecDescent::_trace(q{Trying production: [/CEIL/i]},
33381                                           Parse::RecDescent::_tracefirst($_[1]),
33382                                           q{_alternation_1_of_production_7_of_rule_sysfun},
33383                                           $tracelevel)
33384                                                 if defined $::RD_TRACE;
33385                 my $thisprod = $thisrule->{"prods"}[0];
33386                 $text = $_[1];
33387                 my $_savetext;
33388                 @item = (q{_alternation_1_of_production_7_of_rule_sysfun});
33389                 %item = (__RULE__ => q{_alternation_1_of_production_7_of_rule_sysfun});
33390                 my $repcount = 0;
33391
33392
33393                 Parse::RecDescent::_trace(q{Trying terminal: [/CEIL/i]}, Parse::RecDescent::_tracefirst($text),
33394                                           q{_alternation_1_of_production_7_of_rule_sysfun},
33395                                           $tracelevel)
33396                                                 if defined $::RD_TRACE;
33397                 $lastsep = "";
33398                 $expectation->is(q{})->at($text);
33399
33400
33401                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CEIL)//i)
33402                 {
33403
33404                         $expectation->failed();
33405                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
33406                                                   Parse::RecDescent::_tracefirst($text))
33407                                         if defined $::RD_TRACE;
33408
33409                         last;
33410                 }
33411                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
33412                                                 . $& . q{])},
33413                                                   Parse::RecDescent::_tracefirst($text))
33414                                         if defined $::RD_TRACE;
33415                 push @item, $item{__PATTERN1__}=$&;
33416
33417
33418
33419                 Parse::RecDescent::_trace(q{>>Matched production: [/CEIL/i]<<},
33420                                           Parse::RecDescent::_tracefirst($text),
33421                                           q{_alternation_1_of_production_7_of_rule_sysfun},
33422                                           $tracelevel)
33423                                                 if defined $::RD_TRACE;
33424                 $_matched = 1;
33425                 last;
33426         }
33427
33428
33429         while (!$_matched && !$commit)
33430         {
33431
33432                 Parse::RecDescent::_trace(q{Trying production: [/CEILING/i]},
33433                                           Parse::RecDescent::_tracefirst($_[1]),
33434                                           q{_alternation_1_of_production_7_of_rule_sysfun},
33435                                           $tracelevel)
33436                                                 if defined $::RD_TRACE;
33437                 my $thisprod = $thisrule->{"prods"}[1];
33438                 $text = $_[1];
33439                 my $_savetext;
33440                 @item = (q{_alternation_1_of_production_7_of_rule_sysfun});
33441                 %item = (__RULE__ => q{_alternation_1_of_production_7_of_rule_sysfun});
33442                 my $repcount = 0;
33443
33444
33445                 Parse::RecDescent::_trace(q{Trying terminal: [/CEILING/i]}, Parse::RecDescent::_tracefirst($text),
33446                                           q{_alternation_1_of_production_7_of_rule_sysfun},
33447                                           $tracelevel)
33448                                                 if defined $::RD_TRACE;
33449                 $lastsep = "";
33450                 $expectation->is(q{})->at($text);
33451
33452
33453                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CEILING)//i)
33454                 {
33455
33456                         $expectation->failed();
33457                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
33458                                                   Parse::RecDescent::_tracefirst($text))
33459                                         if defined $::RD_TRACE;
33460
33461                         last;
33462                 }
33463                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
33464                                                 . $& . q{])},
33465                                                   Parse::RecDescent::_tracefirst($text))
33466                                         if defined $::RD_TRACE;
33467                 push @item, $item{__PATTERN1__}=$&;
33468
33469
33470
33471                 Parse::RecDescent::_trace(q{>>Matched production: [/CEILING/i]<<},
33472                                           Parse::RecDescent::_tracefirst($text),
33473                                           q{_alternation_1_of_production_7_of_rule_sysfun},
33474                                           $tracelevel)
33475                                                 if defined $::RD_TRACE;
33476                 $_matched = 1;
33477                 last;
33478         }
33479
33480
33481         unless ( $_matched || defined($return) || defined($score) )
33482         {
33483
33484
33485                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
33486                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
33487                                          Parse::RecDescent::_tracefirst($_[1]),
33488                                          q{_alternation_1_of_production_7_of_rule_sysfun},
33489                                          $tracelevel)
33490                                         if defined $::RD_TRACE;
33491                 return undef;
33492         }
33493         if (!defined($return) && defined($score))
33494         {
33495                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
33496                                           q{_alternation_1_of_production_7_of_rule_sysfun},
33497                                           $tracelevel)
33498                                                 if defined $::RD_TRACE;
33499                 $return = $score_return;
33500         }
33501         splice @{$thisparser->{errors}}, $err_at;
33502         $return = $item[$#item] unless defined $return;
33503         if (defined $::RD_TRACE)
33504         {
33505                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
33506                                           $return . q{])}, "",
33507                                           q{_alternation_1_of_production_7_of_rule_sysfun},
33508                                           $tracelevel);
33509                 Parse::RecDescent::_trace(q{(consumed: [} .
33510                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
33511                                           Parse::RecDescent::_tracefirst($text),
33512                                           , q{_alternation_1_of_production_7_of_rule_sysfun},
33513                                           $tracelevel)
33514         }
33515         $_[1] = $text;
33516         return $return;
33517 }
33518
33519 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
33520 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::prevval_expression
33521 {
33522         my $thisparser = $_[0];
33523         use vars q{$tracelevel};
33524         local $tracelevel = ($tracelevel||0)+1;
33525         $ERRORS = 0;
33526         my $thisrule = $thisparser->{"rules"}{"prevval_expression"};
33527
33528         Parse::RecDescent::_trace(q{Trying rule: [prevval_expression]},
33529                                   Parse::RecDescent::_tracefirst($_[1]),
33530                                   q{prevval_expression},
33531                                   $tracelevel)
33532                                         if defined $::RD_TRACE;
33533
33534
33535         my $err_at = @{$thisparser->{errors}};
33536
33537         my $score;
33538         my $score_return;
33539         my $_tok;
33540         my $return = undef;
33541         my $_matched=0;
33542         my $commit=0;
33543         my @item = ();
33544         my %item = ();
33545         my $repeating =  defined($_[2]) && $_[2];
33546         my $_noactions = defined($_[3]) && $_[3];
33547         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
33548         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
33549         my $text;
33550         my $lastsep="";
33551         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
33552         $expectation->at($_[1]);
33553
33554         my $thisline;
33555         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
33556
33557
33558
33559         while (!$_matched && !$commit)
33560         {
33561
33562                 Parse::RecDescent::_trace(q{Trying production: [/PREVVAL\\s+FOR/i sequence_name]},
33563                                           Parse::RecDescent::_tracefirst($_[1]),
33564                                           q{prevval_expression},
33565                                           $tracelevel)
33566                                                 if defined $::RD_TRACE;
33567                 my $thisprod = $thisrule->{"prods"}[0];
33568                 $text = $_[1];
33569                 my $_savetext;
33570                 @item = (q{prevval_expression});
33571                 %item = (__RULE__ => q{prevval_expression});
33572                 my $repcount = 0;
33573
33574
33575                 Parse::RecDescent::_trace(q{Trying terminal: [/PREVVAL\\s+FOR/i]}, Parse::RecDescent::_tracefirst($text),
33576                                           q{prevval_expression},
33577                                           $tracelevel)
33578                                                 if defined $::RD_TRACE;
33579                 $lastsep = "";
33580                 $expectation->is(q{})->at($text);
33581
33582
33583                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:PREVVAL\s+FOR)//i)
33584                 {
33585
33586                         $expectation->failed();
33587                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
33588                                                   Parse::RecDescent::_tracefirst($text))
33589                                         if defined $::RD_TRACE;
33590
33591                         last;
33592                 }
33593                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
33594                                                 . $& . q{])},
33595                                                   Parse::RecDescent::_tracefirst($text))
33596                                         if defined $::RD_TRACE;
33597                 push @item, $item{__PATTERN1__}=$&;
33598
33599
33600                 Parse::RecDescent::_trace(q{Trying subrule: [sequence_name]},
33601                                   Parse::RecDescent::_tracefirst($text),
33602                                   q{prevval_expression},
33603                                   $tracelevel)
33604                                         if defined $::RD_TRACE;
33605                 if (1) { no strict qw{refs};
33606                 $expectation->is(q{sequence_name})->at($text);
33607                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::sequence_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
33608                 {
33609
33610                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [sequence_name]>>},
33611                                                   Parse::RecDescent::_tracefirst($text),
33612                                                   q{prevval_expression},
33613                                                   $tracelevel)
33614                                                         if defined $::RD_TRACE;
33615                         $expectation->failed();
33616                         last;
33617                 }
33618                 Parse::RecDescent::_trace(q{>>Matched subrule: [sequence_name]<< (return value: [}
33619                                         . $_tok . q{]},
33620
33621                                           Parse::RecDescent::_tracefirst($text),
33622                                           q{prevval_expression},
33623                                           $tracelevel)
33624                                                 if defined $::RD_TRACE;
33625                 $item{q{sequence_name}} = $_tok;
33626                 push @item, $_tok;
33627
33628                 }
33629
33630
33631                 Parse::RecDescent::_trace(q{>>Matched production: [/PREVVAL\\s+FOR/i sequence_name]<<},
33632                                           Parse::RecDescent::_tracefirst($text),
33633                                           q{prevval_expression},
33634                                           $tracelevel)
33635                                                 if defined $::RD_TRACE;
33636                 $_matched = 1;
33637                 last;
33638         }
33639
33640
33641         unless ( $_matched || defined($return) || defined($score) )
33642         {
33643
33644
33645                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
33646                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
33647                                          Parse::RecDescent::_tracefirst($_[1]),
33648                                          q{prevval_expression},
33649                                          $tracelevel)
33650                                         if defined $::RD_TRACE;
33651                 return undef;
33652         }
33653         if (!defined($return) && defined($score))
33654         {
33655                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
33656                                           q{prevval_expression},
33657                                           $tracelevel)
33658                                                 if defined $::RD_TRACE;
33659                 $return = $score_return;
33660         }
33661         splice @{$thisparser->{errors}}, $err_at;
33662         $return = $item[$#item] unless defined $return;
33663         if (defined $::RD_TRACE)
33664         {
33665                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
33666                                           $return . q{])}, "",
33667                                           q{prevval_expression},
33668                                           $tracelevel);
33669                 Parse::RecDescent::_trace(q{(consumed: [} .
33670                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
33671                                           Parse::RecDescent::_tracefirst($text),
33672                                           , q{prevval_expression},
33673                                           $tracelevel)
33674         }
33675         $_[1] = $text;
33676         return $return;
33677 }
33678
33679 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
33680 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::where_clause
33681 {
33682         my $thisparser = $_[0];
33683         use vars q{$tracelevel};
33684         local $tracelevel = ($tracelevel||0)+1;
33685         $ERRORS = 0;
33686         my $thisrule = $thisparser->{"rules"}{"where_clause"};
33687
33688         Parse::RecDescent::_trace(q{Trying rule: [where_clause]},
33689                                   Parse::RecDescent::_tracefirst($_[1]),
33690                                   q{where_clause},
33691                                   $tracelevel)
33692                                         if defined $::RD_TRACE;
33693
33694
33695         my $err_at = @{$thisparser->{errors}};
33696
33697         my $score;
33698         my $score_return;
33699         my $_tok;
33700         my $return = undef;
33701         my $_matched=0;
33702         my $commit=0;
33703         my @item = ();
33704         my %item = ();
33705         my $repeating =  defined($_[2]) && $_[2];
33706         my $_noactions = defined($_[3]) && $_[3];
33707         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
33708         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
33709         my $text;
33710         my $lastsep="";
33711         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
33712         $expectation->at($_[1]);
33713
33714         my $thisline;
33715         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
33716
33717
33718
33719         while (!$_matched && !$commit)
33720         {
33721
33722                 Parse::RecDescent::_trace(q{Trying production: [WHERE search_condition]},
33723                                           Parse::RecDescent::_tracefirst($_[1]),
33724                                           q{where_clause},
33725                                           $tracelevel)
33726                                                 if defined $::RD_TRACE;
33727                 my $thisprod = $thisrule->{"prods"}[0];
33728                 $text = $_[1];
33729                 my $_savetext;
33730                 @item = (q{where_clause});
33731                 %item = (__RULE__ => q{where_clause});
33732                 my $repcount = 0;
33733
33734
33735                 Parse::RecDescent::_trace(q{Trying subrule: [WHERE]},
33736                                   Parse::RecDescent::_tracefirst($text),
33737                                   q{where_clause},
33738                                   $tracelevel)
33739                                         if defined $::RD_TRACE;
33740                 if (1) { no strict qw{refs};
33741                 $expectation->is(q{})->at($text);
33742                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::WHERE($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
33743                 {
33744
33745                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [WHERE]>>},
33746                                                   Parse::RecDescent::_tracefirst($text),
33747                                                   q{where_clause},
33748                                                   $tracelevel)
33749                                                         if defined $::RD_TRACE;
33750                         $expectation->failed();
33751                         last;
33752                 }
33753                 Parse::RecDescent::_trace(q{>>Matched subrule: [WHERE]<< (return value: [}
33754                                         . $_tok . q{]},
33755
33756                                           Parse::RecDescent::_tracefirst($text),
33757                                           q{where_clause},
33758                                           $tracelevel)
33759                                                 if defined $::RD_TRACE;
33760                 $item{q{WHERE}} = $_tok;
33761                 push @item, $_tok;
33762
33763                 }
33764
33765                 Parse::RecDescent::_trace(q{Trying subrule: [search_condition]},
33766                                   Parse::RecDescent::_tracefirst($text),
33767                                   q{where_clause},
33768                                   $tracelevel)
33769                                         if defined $::RD_TRACE;
33770                 if (1) { no strict qw{refs};
33771                 $expectation->is(q{search_condition})->at($text);
33772                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::search_condition($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
33773                 {
33774
33775                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [search_condition]>>},
33776                                                   Parse::RecDescent::_tracefirst($text),
33777                                                   q{where_clause},
33778                                                   $tracelevel)
33779                                                         if defined $::RD_TRACE;
33780                         $expectation->failed();
33781                         last;
33782                 }
33783                 Parse::RecDescent::_trace(q{>>Matched subrule: [search_condition]<< (return value: [}
33784                                         . $_tok . q{]},
33785
33786                                           Parse::RecDescent::_tracefirst($text),
33787                                           q{where_clause},
33788                                           $tracelevel)
33789                                                 if defined $::RD_TRACE;
33790                 $item{q{search_condition}} = $_tok;
33791                 push @item, $_tok;
33792
33793                 }
33794
33795
33796                 Parse::RecDescent::_trace(q{>>Matched production: [WHERE search_condition]<<},
33797                                           Parse::RecDescent::_tracefirst($text),
33798                                           q{where_clause},
33799                                           $tracelevel)
33800                                                 if defined $::RD_TRACE;
33801                 $_matched = 1;
33802                 last;
33803         }
33804
33805
33806         unless ( $_matched || defined($return) || defined($score) )
33807         {
33808
33809
33810                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
33811                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
33812                                          Parse::RecDescent::_tracefirst($_[1]),
33813                                          q{where_clause},
33814                                          $tracelevel)
33815                                         if defined $::RD_TRACE;
33816                 return undef;
33817         }
33818         if (!defined($return) && defined($score))
33819         {
33820                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
33821                                           q{where_clause},
33822                                           $tracelevel)
33823                                                 if defined $::RD_TRACE;
33824                 $return = $score_return;
33825         }
33826         splice @{$thisparser->{errors}}, $err_at;
33827         $return = $item[$#item] unless defined $return;
33828         if (defined $::RD_TRACE)
33829         {
33830                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
33831                                           $return . q{])}, "",
33832                                           q{where_clause},
33833                                           $tracelevel);
33834                 Parse::RecDescent::_trace(q{(consumed: [} .
33835                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
33836                                           Parse::RecDescent::_tracefirst($text),
33837                                           , q{where_clause},
33838                                           $tracelevel)
33839         }
33840         $_[1] = $text;
33841         return $return;
33842 }
33843
33844 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
33845 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::group_start
33846 {
33847         my $thisparser = $_[0];
33848         use vars q{$tracelevel};
33849         local $tracelevel = ($tracelevel||0)+1;
33850         $ERRORS = 0;
33851         my $thisrule = $thisparser->{"rules"}{"group_start"};
33852
33853         Parse::RecDescent::_trace(q{Trying rule: [group_start]},
33854                                   Parse::RecDescent::_tracefirst($_[1]),
33855                                   q{group_start},
33856                                   $tracelevel)
33857                                         if defined $::RD_TRACE;
33858
33859
33860         my $err_at = @{$thisparser->{errors}};
33861
33862         my $score;
33863         my $score_return;
33864         my $_tok;
33865         my $return = undef;
33866         my $_matched=0;
33867         my $commit=0;
33868         my @item = ();
33869         my %item = ();
33870         my $repeating =  defined($_[2]) && $_[2];
33871         my $_noactions = defined($_[3]) && $_[3];
33872         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
33873         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
33874         my $text;
33875         my $lastsep="";
33876         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
33877         $expectation->at($_[1]);
33878
33879         my $thisline;
33880         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
33881
33882
33883
33884         while (!$_matched && !$commit)
33885         {
33886
33887                 Parse::RecDescent::_trace(q{Trying production: [/UNBOUNDED\\s+PRECEDING/i]},
33888                                           Parse::RecDescent::_tracefirst($_[1]),
33889                                           q{group_start},
33890                                           $tracelevel)
33891                                                 if defined $::RD_TRACE;
33892                 my $thisprod = $thisrule->{"prods"}[0];
33893                 $text = $_[1];
33894                 my $_savetext;
33895                 @item = (q{group_start});
33896                 %item = (__RULE__ => q{group_start});
33897                 my $repcount = 0;
33898
33899
33900                 Parse::RecDescent::_trace(q{Trying terminal: [/UNBOUNDED\\s+PRECEDING/i]}, Parse::RecDescent::_tracefirst($text),
33901                                           q{group_start},
33902                                           $tracelevel)
33903                                                 if defined $::RD_TRACE;
33904                 $lastsep = "";
33905                 $expectation->is(q{})->at($text);
33906
33907
33908                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:UNBOUNDED\s+PRECEDING)//i)
33909                 {
33910
33911                         $expectation->failed();
33912                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
33913                                                   Parse::RecDescent::_tracefirst($text))
33914                                         if defined $::RD_TRACE;
33915
33916                         last;
33917                 }
33918                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
33919                                                 . $& . q{])},
33920                                                   Parse::RecDescent::_tracefirst($text))
33921                                         if defined $::RD_TRACE;
33922                 push @item, $item{__PATTERN1__}=$&;
33923
33924
33925
33926                 Parse::RecDescent::_trace(q{>>Matched production: [/UNBOUNDED\\s+PRECEDING/i]<<},
33927                                           Parse::RecDescent::_tracefirst($text),
33928                                           q{group_start},
33929                                           $tracelevel)
33930                                                 if defined $::RD_TRACE;
33931                 $_matched = 1;
33932                 last;
33933         }
33934
33935
33936         while (!$_matched && !$commit)
33937         {
33938
33939                 Parse::RecDescent::_trace(q{Trying production: [unsigned_constant /PRECEDING/i]},
33940                                           Parse::RecDescent::_tracefirst($_[1]),
33941                                           q{group_start},
33942                                           $tracelevel)
33943                                                 if defined $::RD_TRACE;
33944                 my $thisprod = $thisrule->{"prods"}[1];
33945                 $text = $_[1];
33946                 my $_savetext;
33947                 @item = (q{group_start});
33948                 %item = (__RULE__ => q{group_start});
33949                 my $repcount = 0;
33950
33951
33952                 Parse::RecDescent::_trace(q{Trying subrule: [unsigned_constant]},
33953                                   Parse::RecDescent::_tracefirst($text),
33954                                   q{group_start},
33955                                   $tracelevel)
33956                                         if defined $::RD_TRACE;
33957                 if (1) { no strict qw{refs};
33958                 $expectation->is(q{})->at($text);
33959                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::unsigned_constant($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
33960                 {
33961
33962                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [unsigned_constant]>>},
33963                                                   Parse::RecDescent::_tracefirst($text),
33964                                                   q{group_start},
33965                                                   $tracelevel)
33966                                                         if defined $::RD_TRACE;
33967                         $expectation->failed();
33968                         last;
33969                 }
33970                 Parse::RecDescent::_trace(q{>>Matched subrule: [unsigned_constant]<< (return value: [}
33971                                         . $_tok . q{]},
33972
33973                                           Parse::RecDescent::_tracefirst($text),
33974                                           q{group_start},
33975                                           $tracelevel)
33976                                                 if defined $::RD_TRACE;
33977                 $item{q{unsigned_constant}} = $_tok;
33978                 push @item, $_tok;
33979
33980                 }
33981
33982                 Parse::RecDescent::_trace(q{Trying terminal: [/PRECEDING/i]}, Parse::RecDescent::_tracefirst($text),
33983                                           q{group_start},
33984                                           $tracelevel)
33985                                                 if defined $::RD_TRACE;
33986                 $lastsep = "";
33987                 $expectation->is(q{/PRECEDING/i})->at($text);
33988
33989
33990                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:PRECEDING)//i)
33991                 {
33992
33993                         $expectation->failed();
33994                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
33995                                                   Parse::RecDescent::_tracefirst($text))
33996                                         if defined $::RD_TRACE;
33997
33998                         last;
33999                 }
34000                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
34001                                                 . $& . q{])},
34002                                                   Parse::RecDescent::_tracefirst($text))
34003                                         if defined $::RD_TRACE;
34004                 push @item, $item{__PATTERN1__}=$&;
34005
34006
34007
34008                 Parse::RecDescent::_trace(q{>>Matched production: [unsigned_constant /PRECEDING/i]<<},
34009                                           Parse::RecDescent::_tracefirst($text),
34010                                           q{group_start},
34011                                           $tracelevel)
34012                                                 if defined $::RD_TRACE;
34013                 $_matched = 1;
34014                 last;
34015         }
34016
34017
34018         while (!$_matched && !$commit)
34019         {
34020
34021                 Parse::RecDescent::_trace(q{Trying production: [/CURRENT\\s+ROW/i]},
34022                                           Parse::RecDescent::_tracefirst($_[1]),
34023                                           q{group_start},
34024                                           $tracelevel)
34025                                                 if defined $::RD_TRACE;
34026                 my $thisprod = $thisrule->{"prods"}[2];
34027                 $text = $_[1];
34028                 my $_savetext;
34029                 @item = (q{group_start});
34030                 %item = (__RULE__ => q{group_start});
34031                 my $repcount = 0;
34032
34033
34034                 Parse::RecDescent::_trace(q{Trying terminal: [/CURRENT\\s+ROW/i]}, Parse::RecDescent::_tracefirst($text),
34035                                           q{group_start},
34036                                           $tracelevel)
34037                                                 if defined $::RD_TRACE;
34038                 $lastsep = "";
34039                 $expectation->is(q{})->at($text);
34040
34041
34042                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:CURRENT\s+ROW)//i)
34043                 {
34044
34045                         $expectation->failed();
34046                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
34047                                                   Parse::RecDescent::_tracefirst($text))
34048                                         if defined $::RD_TRACE;
34049
34050                         last;
34051                 }
34052                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
34053                                                 . $& . q{])},
34054                                                   Parse::RecDescent::_tracefirst($text))
34055                                         if defined $::RD_TRACE;
34056                 push @item, $item{__PATTERN1__}=$&;
34057
34058
34059
34060                 Parse::RecDescent::_trace(q{>>Matched production: [/CURRENT\\s+ROW/i]<<},
34061                                           Parse::RecDescent::_tracefirst($text),
34062                                           q{group_start},
34063                                           $tracelevel)
34064                                                 if defined $::RD_TRACE;
34065                 $_matched = 1;
34066                 last;
34067         }
34068
34069
34070         unless ( $_matched || defined($return) || defined($score) )
34071         {
34072
34073
34074                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
34075                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
34076                                          Parse::RecDescent::_tracefirst($_[1]),
34077                                          q{group_start},
34078                                          $tracelevel)
34079                                         if defined $::RD_TRACE;
34080                 return undef;
34081         }
34082         if (!defined($return) && defined($score))
34083         {
34084                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
34085                                           q{group_start},
34086                                           $tracelevel)
34087                                                 if defined $::RD_TRACE;
34088                 $return = $score_return;
34089         }
34090         splice @{$thisparser->{errors}}, $err_at;
34091         $return = $item[$#item] unless defined $return;
34092         if (defined $::RD_TRACE)
34093         {
34094                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
34095                                           $return . q{])}, "",
34096                                           q{group_start},
34097                                           $tracelevel);
34098                 Parse::RecDescent::_trace(q{(consumed: [} .
34099                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
34100                                           Parse::RecDescent::_tracefirst($text),
34101                                           , q{group_start},
34102                                           $tracelevel)
34103         }
34104         $_[1] = $text;
34105         return $return;
34106 }
34107
34108 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
34109 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::correlation_name
34110 {
34111         my $thisparser = $_[0];
34112         use vars q{$tracelevel};
34113         local $tracelevel = ($tracelevel||0)+1;
34114         $ERRORS = 0;
34115         my $thisrule = $thisparser->{"rules"}{"correlation_name"};
34116
34117         Parse::RecDescent::_trace(q{Trying rule: [correlation_name]},
34118                                   Parse::RecDescent::_tracefirst($_[1]),
34119                                   q{correlation_name},
34120                                   $tracelevel)
34121                                         if defined $::RD_TRACE;
34122
34123
34124         my $err_at = @{$thisparser->{errors}};
34125
34126         my $score;
34127         my $score_return;
34128         my $_tok;
34129         my $return = undef;
34130         my $_matched=0;
34131         my $commit=0;
34132         my @item = ();
34133         my %item = ();
34134         my $repeating =  defined($_[2]) && $_[2];
34135         my $_noactions = defined($_[3]) && $_[3];
34136         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
34137         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
34138         my $text;
34139         my $lastsep="";
34140         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
34141         $expectation->at($_[1]);
34142
34143         my $thisline;
34144         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
34145
34146
34147
34148         while (!$_matched && !$commit)
34149         {
34150
34151                 Parse::RecDescent::_trace(q{Trying production: [NAME]},
34152                                           Parse::RecDescent::_tracefirst($_[1]),
34153                                           q{correlation_name},
34154                                           $tracelevel)
34155                                                 if defined $::RD_TRACE;
34156                 my $thisprod = $thisrule->{"prods"}[0];
34157                 $text = $_[1];
34158                 my $_savetext;
34159                 @item = (q{correlation_name});
34160                 %item = (__RULE__ => q{correlation_name});
34161                 my $repcount = 0;
34162
34163
34164                 Parse::RecDescent::_trace(q{Trying subrule: [NAME]},
34165                                   Parse::RecDescent::_tracefirst($text),
34166                                   q{correlation_name},
34167                                   $tracelevel)
34168                                         if defined $::RD_TRACE;
34169                 if (1) { no strict qw{refs};
34170                 $expectation->is(q{})->at($text);
34171                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::NAME($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
34172                 {
34173
34174                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [NAME]>>},
34175                                                   Parse::RecDescent::_tracefirst($text),
34176                                                   q{correlation_name},
34177                                                   $tracelevel)
34178                                                         if defined $::RD_TRACE;
34179                         $expectation->failed();
34180                         last;
34181                 }
34182                 Parse::RecDescent::_trace(q{>>Matched subrule: [NAME]<< (return value: [}
34183                                         . $_tok . q{]},
34184
34185                                           Parse::RecDescent::_tracefirst($text),
34186                                           q{correlation_name},
34187                                           $tracelevel)
34188                                                 if defined $::RD_TRACE;
34189                 $item{q{NAME}} = $_tok;
34190                 push @item, $_tok;
34191
34192                 }
34193
34194
34195                 Parse::RecDescent::_trace(q{>>Matched production: [NAME]<<},
34196                                           Parse::RecDescent::_tracefirst($text),
34197                                           q{correlation_name},
34198                                           $tracelevel)
34199                                                 if defined $::RD_TRACE;
34200                 $_matched = 1;
34201                 last;
34202         }
34203
34204
34205         unless ( $_matched || defined($return) || defined($score) )
34206         {
34207
34208
34209                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
34210                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
34211                                          Parse::RecDescent::_tracefirst($_[1]),
34212                                          q{correlation_name},
34213                                          $tracelevel)
34214                                         if defined $::RD_TRACE;
34215                 return undef;
34216         }
34217         if (!defined($return) && defined($score))
34218         {
34219                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
34220                                           q{correlation_name},
34221                                           $tracelevel)
34222                                                 if defined $::RD_TRACE;
34223                 $return = $score_return;
34224         }
34225         splice @{$thisparser->{errors}}, $err_at;
34226         $return = $item[$#item] unless defined $return;
34227         if (defined $::RD_TRACE)
34228         {
34229                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
34230                                           $return . q{])}, "",
34231                                           q{correlation_name},
34232                                           $tracelevel);
34233                 Parse::RecDescent::_trace(q{(consumed: [} .
34234                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
34235                                           Parse::RecDescent::_tracefirst($text),
34236                                           , q{correlation_name},
34237                                           $tracelevel)
34238         }
34239         $_[1] = $text;
34240         return $return;
34241 }
34242
34243 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
34244 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::SQL_procedure_statement
34245 {
34246         my $thisparser = $_[0];
34247         use vars q{$tracelevel};
34248         local $tracelevel = ($tracelevel||0)+1;
34249         $ERRORS = 0;
34250         my $thisrule = $thisparser->{"rules"}{"SQL_procedure_statement"};
34251
34252         Parse::RecDescent::_trace(q{Trying rule: [SQL_procedure_statement]},
34253                                   Parse::RecDescent::_tracefirst($_[1]),
34254                                   q{SQL_procedure_statement},
34255                                   $tracelevel)
34256                                         if defined $::RD_TRACE;
34257
34258
34259         my $err_at = @{$thisparser->{errors}};
34260
34261         my $score;
34262         my $score_return;
34263         my $_tok;
34264         my $return = undef;
34265         my $_matched=0;
34266         my $commit=0;
34267         my @item = ();
34268         my %item = ();
34269         my $repeating =  defined($_[2]) && $_[2];
34270         my $_noactions = defined($_[3]) && $_[3];
34271         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
34272         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
34273         my $text;
34274         my $lastsep="";
34275         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
34276         $expectation->at($_[1]);
34277
34278         my $thisline;
34279         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
34280
34281
34282
34283         while (!$_matched && !$commit)
34284         {
34285
34286                 Parse::RecDescent::_trace(q{Trying production: [/[^;]*/ /(;|\\z)/]},
34287                                           Parse::RecDescent::_tracefirst($_[1]),
34288                                           q{SQL_procedure_statement},
34289                                           $tracelevel)
34290                                                 if defined $::RD_TRACE;
34291                 my $thisprod = $thisrule->{"prods"}[0];
34292                 $text = $_[1];
34293                 my $_savetext;
34294                 @item = (q{SQL_procedure_statement});
34295                 %item = (__RULE__ => q{SQL_procedure_statement});
34296                 my $repcount = 0;
34297
34298
34299                 Parse::RecDescent::_trace(q{Trying terminal: [/[^;]*/]}, Parse::RecDescent::_tracefirst($text),
34300                                           q{SQL_procedure_statement},
34301                                           $tracelevel)
34302                                                 if defined $::RD_TRACE;
34303                 $lastsep = "";
34304                 $expectation->is(q{})->at($text);
34305
34306
34307                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:[^;]*)//)
34308                 {
34309
34310                         $expectation->failed();
34311                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
34312                                                   Parse::RecDescent::_tracefirst($text))
34313                                         if defined $::RD_TRACE;
34314
34315                         last;
34316                 }
34317                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
34318                                                 . $& . q{])},
34319                                                   Parse::RecDescent::_tracefirst($text))
34320                                         if defined $::RD_TRACE;
34321                 push @item, $item{__PATTERN1__}=$&;
34322
34323
34324                 Parse::RecDescent::_trace(q{Trying terminal: [/(;|\\z)/]}, Parse::RecDescent::_tracefirst($text),
34325                                           q{SQL_procedure_statement},
34326                                           $tracelevel)
34327                                                 if defined $::RD_TRACE;
34328                 $lastsep = "";
34329                 $expectation->is(q{/(;|\\z)/})->at($text);
34330
34331
34332                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:(;|\z))//)
34333                 {
34334
34335                         $expectation->failed();
34336                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
34337                                                   Parse::RecDescent::_tracefirst($text))
34338                                         if defined $::RD_TRACE;
34339
34340                         last;
34341                 }
34342                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
34343                                                 . $& . q{])},
34344                                                   Parse::RecDescent::_tracefirst($text))
34345                                         if defined $::RD_TRACE;
34346                 push @item, $item{__PATTERN2__}=$&;
34347
34348
34349                 Parse::RecDescent::_trace(q{Trying action},
34350                                           Parse::RecDescent::_tracefirst($text),
34351                                           q{SQL_procedure_statement},
34352                                           $tracelevel)
34353                                                 if defined $::RD_TRACE;
34354
34355
34356                 $_tok = ($_noactions) ? 0 : do { $return = $item[1] . $item[2] };
34357                 unless (defined $_tok)
34358                 {
34359                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
34360                                         if defined $::RD_TRACE;
34361                         last;
34362                 }
34363                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
34364                                           . $_tok . q{])},
34365                                           Parse::RecDescent::_tracefirst($text))
34366                                                 if defined $::RD_TRACE;
34367                 push @item, $_tok;
34368                 $item{__ACTION1__}=$_tok;
34369
34370
34371
34372                 Parse::RecDescent::_trace(q{>>Matched production: [/[^;]*/ /(;|\\z)/]<<},
34373                                           Parse::RecDescent::_tracefirst($text),
34374                                           q{SQL_procedure_statement},
34375                                           $tracelevel)
34376                                                 if defined $::RD_TRACE;
34377                 $_matched = 1;
34378                 last;
34379         }
34380
34381
34382         unless ( $_matched || defined($return) || defined($score) )
34383         {
34384
34385
34386                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
34387                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
34388                                          Parse::RecDescent::_tracefirst($_[1]),
34389                                          q{SQL_procedure_statement},
34390                                          $tracelevel)
34391                                         if defined $::RD_TRACE;
34392                 return undef;
34393         }
34394         if (!defined($return) && defined($score))
34395         {
34396                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
34397                                           q{SQL_procedure_statement},
34398                                           $tracelevel)
34399                                                 if defined $::RD_TRACE;
34400                 $return = $score_return;
34401         }
34402         splice @{$thisparser->{errors}}, $err_at;
34403         $return = $item[$#item] unless defined $return;
34404         if (defined $::RD_TRACE)
34405         {
34406                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
34407                                           $return . q{])}, "",
34408                                           q{SQL_procedure_statement},
34409                                           $tracelevel);
34410                 Parse::RecDescent::_trace(q{(consumed: [} .
34411                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
34412                                           Parse::RecDescent::_tracefirst($text),
34413                                           , q{SQL_procedure_statement},
34414                                           $tracelevel)
34415         }
34416         $_[1] = $text;
34417         return $return;
34418 }
34419
34420 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
34421 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::group_between
34422 {
34423         my $thisparser = $_[0];
34424         use vars q{$tracelevel};
34425         local $tracelevel = ($tracelevel||0)+1;
34426         $ERRORS = 0;
34427         my $thisrule = $thisparser->{"rules"}{"group_between"};
34428
34429         Parse::RecDescent::_trace(q{Trying rule: [group_between]},
34430                                   Parse::RecDescent::_tracefirst($_[1]),
34431                                   q{group_between},
34432                                   $tracelevel)
34433                                         if defined $::RD_TRACE;
34434
34435
34436         my $err_at = @{$thisparser->{errors}};
34437
34438         my $score;
34439         my $score_return;
34440         my $_tok;
34441         my $return = undef;
34442         my $_matched=0;
34443         my $commit=0;
34444         my @item = ();
34445         my %item = ();
34446         my $repeating =  defined($_[2]) && $_[2];
34447         my $_noactions = defined($_[3]) && $_[3];
34448         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
34449         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
34450         my $text;
34451         my $lastsep="";
34452         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
34453         $expectation->at($_[1]);
34454
34455         my $thisline;
34456         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
34457
34458
34459
34460         while (!$_matched && !$commit)
34461         {
34462
34463                 Parse::RecDescent::_trace(q{Trying production: [/BETWEEN/i group_bound1 /AND/i group_bound2]},
34464                                           Parse::RecDescent::_tracefirst($_[1]),
34465                                           q{group_between},
34466                                           $tracelevel)
34467                                                 if defined $::RD_TRACE;
34468                 my $thisprod = $thisrule->{"prods"}[0];
34469                 $text = $_[1];
34470                 my $_savetext;
34471                 @item = (q{group_between});
34472                 %item = (__RULE__ => q{group_between});
34473                 my $repcount = 0;
34474
34475
34476                 Parse::RecDescent::_trace(q{Trying terminal: [/BETWEEN/i]}, Parse::RecDescent::_tracefirst($text),
34477                                           q{group_between},
34478                                           $tracelevel)
34479                                                 if defined $::RD_TRACE;
34480                 $lastsep = "";
34481                 $expectation->is(q{})->at($text);
34482
34483
34484                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:BETWEEN)//i)
34485                 {
34486
34487                         $expectation->failed();
34488                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
34489                                                   Parse::RecDescent::_tracefirst($text))
34490                                         if defined $::RD_TRACE;
34491
34492                         last;
34493                 }
34494                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
34495                                                 . $& . q{])},
34496                                                   Parse::RecDescent::_tracefirst($text))
34497                                         if defined $::RD_TRACE;
34498                 push @item, $item{__PATTERN1__}=$&;
34499
34500
34501                 Parse::RecDescent::_trace(q{Trying subrule: [group_bound1]},
34502                                   Parse::RecDescent::_tracefirst($text),
34503                                   q{group_between},
34504                                   $tracelevel)
34505                                         if defined $::RD_TRACE;
34506                 if (1) { no strict qw{refs};
34507                 $expectation->is(q{group_bound1})->at($text);
34508                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::group_bound1($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
34509                 {
34510
34511                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [group_bound1]>>},
34512                                                   Parse::RecDescent::_tracefirst($text),
34513                                                   q{group_between},
34514                                                   $tracelevel)
34515                                                         if defined $::RD_TRACE;
34516                         $expectation->failed();
34517                         last;
34518                 }
34519                 Parse::RecDescent::_trace(q{>>Matched subrule: [group_bound1]<< (return value: [}
34520                                         . $_tok . q{]},
34521
34522                                           Parse::RecDescent::_tracefirst($text),
34523                                           q{group_between},
34524                                           $tracelevel)
34525                                                 if defined $::RD_TRACE;
34526                 $item{q{group_bound1}} = $_tok;
34527                 push @item, $_tok;
34528
34529                 }
34530
34531                 Parse::RecDescent::_trace(q{Trying terminal: [/AND/i]}, Parse::RecDescent::_tracefirst($text),
34532                                           q{group_between},
34533                                           $tracelevel)
34534                                                 if defined $::RD_TRACE;
34535                 $lastsep = "";
34536                 $expectation->is(q{/AND/i})->at($text);
34537
34538
34539                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:AND)//i)
34540                 {
34541
34542                         $expectation->failed();
34543                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
34544                                                   Parse::RecDescent::_tracefirst($text))
34545                                         if defined $::RD_TRACE;
34546
34547                         last;
34548                 }
34549                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
34550                                                 . $& . q{])},
34551                                                   Parse::RecDescent::_tracefirst($text))
34552                                         if defined $::RD_TRACE;
34553                 push @item, $item{__PATTERN2__}=$&;
34554
34555
34556                 Parse::RecDescent::_trace(q{Trying subrule: [group_bound2]},
34557                                   Parse::RecDescent::_tracefirst($text),
34558                                   q{group_between},
34559                                   $tracelevel)
34560                                         if defined $::RD_TRACE;
34561                 if (1) { no strict qw{refs};
34562                 $expectation->is(q{group_bound2})->at($text);
34563                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::group_bound2($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
34564                 {
34565
34566                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [group_bound2]>>},
34567                                                   Parse::RecDescent::_tracefirst($text),
34568                                                   q{group_between},
34569                                                   $tracelevel)
34570                                                         if defined $::RD_TRACE;
34571                         $expectation->failed();
34572                         last;
34573                 }
34574                 Parse::RecDescent::_trace(q{>>Matched subrule: [group_bound2]<< (return value: [}
34575                                         . $_tok . q{]},
34576
34577                                           Parse::RecDescent::_tracefirst($text),
34578                                           q{group_between},
34579                                           $tracelevel)
34580                                                 if defined $::RD_TRACE;
34581                 $item{q{group_bound2}} = $_tok;
34582                 push @item, $_tok;
34583
34584                 }
34585
34586
34587                 Parse::RecDescent::_trace(q{>>Matched production: [/BETWEEN/i group_bound1 /AND/i group_bound2]<<},
34588                                           Parse::RecDescent::_tracefirst($text),
34589                                           q{group_between},
34590                                           $tracelevel)
34591                                                 if defined $::RD_TRACE;
34592                 $_matched = 1;
34593                 last;
34594         }
34595
34596
34597         unless ( $_matched || defined($return) || defined($score) )
34598         {
34599
34600
34601                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
34602                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
34603                                          Parse::RecDescent::_tracefirst($_[1]),
34604                                          q{group_between},
34605                                          $tracelevel)
34606                                         if defined $::RD_TRACE;
34607                 return undef;
34608         }
34609         if (!defined($return) && defined($score))
34610         {
34611                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
34612                                           q{group_between},
34613                                           $tracelevel)
34614                                                 if defined $::RD_TRACE;
34615                 $return = $score_return;
34616         }
34617         splice @{$thisparser->{errors}}, $err_at;
34618         $return = $item[$#item] unless defined $return;
34619         if (defined $::RD_TRACE)
34620         {
34621                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
34622                                           $return . q{])}, "",
34623                                           q{group_between},
34624                                           $tracelevel);
34625                 Parse::RecDescent::_trace(q{(consumed: [} .
34626                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
34627                                           Parse::RecDescent::_tracefirst($text),
34628                                           , q{group_between},
34629                                           $tracelevel)
34630         }
34631         $_[1] = $text;
34632         return $return;
34633 }
34634
34635 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
34636 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::nextval_expression
34637 {
34638         my $thisparser = $_[0];
34639         use vars q{$tracelevel};
34640         local $tracelevel = ($tracelevel||0)+1;
34641         $ERRORS = 0;
34642         my $thisrule = $thisparser->{"rules"}{"nextval_expression"};
34643
34644         Parse::RecDescent::_trace(q{Trying rule: [nextval_expression]},
34645                                   Parse::RecDescent::_tracefirst($_[1]),
34646                                   q{nextval_expression},
34647                                   $tracelevel)
34648                                         if defined $::RD_TRACE;
34649
34650
34651         my $err_at = @{$thisparser->{errors}};
34652
34653         my $score;
34654         my $score_return;
34655         my $_tok;
34656         my $return = undef;
34657         my $_matched=0;
34658         my $commit=0;
34659         my @item = ();
34660         my %item = ();
34661         my $repeating =  defined($_[2]) && $_[2];
34662         my $_noactions = defined($_[3]) && $_[3];
34663         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
34664         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
34665         my $text;
34666         my $lastsep="";
34667         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
34668         $expectation->at($_[1]);
34669
34670         my $thisline;
34671         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
34672
34673
34674
34675         while (!$_matched && !$commit)
34676         {
34677
34678                 Parse::RecDescent::_trace(q{Trying production: [/NEXTVAL\\s+FOR/i sequence_name]},
34679                                           Parse::RecDescent::_tracefirst($_[1]),
34680                                           q{nextval_expression},
34681                                           $tracelevel)
34682                                                 if defined $::RD_TRACE;
34683                 my $thisprod = $thisrule->{"prods"}[0];
34684                 $text = $_[1];
34685                 my $_savetext;
34686                 @item = (q{nextval_expression});
34687                 %item = (__RULE__ => q{nextval_expression});
34688                 my $repcount = 0;
34689
34690
34691                 Parse::RecDescent::_trace(q{Trying terminal: [/NEXTVAL\\s+FOR/i]}, Parse::RecDescent::_tracefirst($text),
34692                                           q{nextval_expression},
34693                                           $tracelevel)
34694                                                 if defined $::RD_TRACE;
34695                 $lastsep = "";
34696                 $expectation->is(q{})->at($text);
34697
34698
34699                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:NEXTVAL\s+FOR)//i)
34700                 {
34701
34702                         $expectation->failed();
34703                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
34704                                                   Parse::RecDescent::_tracefirst($text))
34705                                         if defined $::RD_TRACE;
34706
34707                         last;
34708                 }
34709                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
34710                                                 . $& . q{])},
34711                                                   Parse::RecDescent::_tracefirst($text))
34712                                         if defined $::RD_TRACE;
34713                 push @item, $item{__PATTERN1__}=$&;
34714
34715
34716                 Parse::RecDescent::_trace(q{Trying subrule: [sequence_name]},
34717                                   Parse::RecDescent::_tracefirst($text),
34718                                   q{nextval_expression},
34719                                   $tracelevel)
34720                                         if defined $::RD_TRACE;
34721                 if (1) { no strict qw{refs};
34722                 $expectation->is(q{sequence_name})->at($text);
34723                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::sequence_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
34724                 {
34725
34726                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [sequence_name]>>},
34727                                                   Parse::RecDescent::_tracefirst($text),
34728                                                   q{nextval_expression},
34729                                                   $tracelevel)
34730                                                         if defined $::RD_TRACE;
34731                         $expectation->failed();
34732                         last;
34733                 }
34734                 Parse::RecDescent::_trace(q{>>Matched subrule: [sequence_name]<< (return value: [}
34735                                         . $_tok . q{]},
34736
34737                                           Parse::RecDescent::_tracefirst($text),
34738                                           q{nextval_expression},
34739                                           $tracelevel)
34740                                                 if defined $::RD_TRACE;
34741                 $item{q{sequence_name}} = $_tok;
34742                 push @item, $_tok;
34743
34744                 }
34745
34746
34747                 Parse::RecDescent::_trace(q{>>Matched production: [/NEXTVAL\\s+FOR/i sequence_name]<<},
34748                                           Parse::RecDescent::_tracefirst($text),
34749                                           q{nextval_expression},
34750                                           $tracelevel)
34751                                                 if defined $::RD_TRACE;
34752                 $_matched = 1;
34753                 last;
34754         }
34755
34756
34757         unless ( $_matched || defined($return) || defined($score) )
34758         {
34759
34760
34761                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
34762                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
34763                                          Parse::RecDescent::_tracefirst($_[1]),
34764                                          q{nextval_expression},
34765                                          $tracelevel)
34766                                         if defined $::RD_TRACE;
34767                 return undef;
34768         }
34769         if (!defined($return) && defined($score))
34770         {
34771                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
34772                                           q{nextval_expression},
34773                                           $tracelevel)
34774                                                 if defined $::RD_TRACE;
34775                 $return = $score_return;
34776         }
34777         splice @{$thisparser->{errors}}, $err_at;
34778         $return = $item[$#item] unless defined $return;
34779         if (defined $::RD_TRACE)
34780         {
34781                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
34782                                           $return . q{])}, "",
34783                                           q{nextval_expression},
34784                                           $tracelevel);
34785                 Parse::RecDescent::_trace(q{(consumed: [} .
34786                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
34787                                           Parse::RecDescent::_tracefirst($text),
34788                                           , q{nextval_expression},
34789                                           $tracelevel)
34790         }
34791         $_[1] = $text;
34792         return $return;
34793 }
34794
34795 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
34796 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::desc_option
34797 {
34798         my $thisparser = $_[0];
34799         use vars q{$tracelevel};
34800         local $tracelevel = ($tracelevel||0)+1;
34801         $ERRORS = 0;
34802         my $thisrule = $thisparser->{"rules"}{"desc_option"};
34803
34804         Parse::RecDescent::_trace(q{Trying rule: [desc_option]},
34805                                   Parse::RecDescent::_tracefirst($_[1]),
34806                                   q{desc_option},
34807                                   $tracelevel)
34808                                         if defined $::RD_TRACE;
34809
34810
34811         my $err_at = @{$thisparser->{errors}};
34812
34813         my $score;
34814         my $score_return;
34815         my $_tok;
34816         my $return = undef;
34817         my $_matched=0;
34818         my $commit=0;
34819         my @item = ();
34820         my %item = ();
34821         my $repeating =  defined($_[2]) && $_[2];
34822         my $_noactions = defined($_[3]) && $_[3];
34823         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
34824         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
34825         my $text;
34826         my $lastsep="";
34827         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
34828         $expectation->at($_[1]);
34829
34830         my $thisline;
34831         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
34832
34833
34834
34835         while (!$_matched && !$commit)
34836         {
34837
34838                 Parse::RecDescent::_trace(q{Trying production: [/DESC/i /NULLS\\s+FIRST/i, or /NULLS\\s+LAST/i]},
34839                                           Parse::RecDescent::_tracefirst($_[1]),
34840                                           q{desc_option},
34841                                           $tracelevel)
34842                                                 if defined $::RD_TRACE;
34843                 my $thisprod = $thisrule->{"prods"}[0];
34844                 $text = $_[1];
34845                 my $_savetext;
34846                 @item = (q{desc_option});
34847                 %item = (__RULE__ => q{desc_option});
34848                 my $repcount = 0;
34849
34850
34851                 Parse::RecDescent::_trace(q{Trying terminal: [/DESC/i]}, Parse::RecDescent::_tracefirst($text),
34852                                           q{desc_option},
34853                                           $tracelevel)
34854                                                 if defined $::RD_TRACE;
34855                 $lastsep = "";
34856                 $expectation->is(q{})->at($text);
34857
34858
34859                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:DESC)//i)
34860                 {
34861
34862                         $expectation->failed();
34863                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
34864                                                   Parse::RecDescent::_tracefirst($text))
34865                                         if defined $::RD_TRACE;
34866
34867                         last;
34868                 }
34869                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
34870                                                 . $& . q{])},
34871                                                   Parse::RecDescent::_tracefirst($text))
34872                                         if defined $::RD_TRACE;
34873                 push @item, $item{__PATTERN1__}=$&;
34874
34875
34876                 Parse::RecDescent::_trace(q{Trying repeated subrule: [/NULLS\\s+FIRST/i, or /NULLS\\s+LAST/i]},
34877                                   Parse::RecDescent::_tracefirst($text),
34878                                   q{desc_option},
34879                                   $tracelevel)
34880                                         if defined $::RD_TRACE;
34881                 $expectation->is(q{/NULLS\\s+FIRST/i, or /NULLS\\s+LAST/i})->at($text);
34882
34883                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_desc_option, 0, 1, $_noactions,$expectation,undef)))
34884                 {
34885                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [/NULLS\\s+FIRST/i, or /NULLS\\s+LAST/i]>>},
34886                                                   Parse::RecDescent::_tracefirst($text),
34887                                                   q{desc_option},
34888                                                   $tracelevel)
34889                                                         if defined $::RD_TRACE;
34890                         last;
34891                 }
34892                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [_alternation_1_of_production_1_of_rule_desc_option]<< (}
34893                                         . @$_tok . q{ times)},
34894
34895                                           Parse::RecDescent::_tracefirst($text),
34896                                           q{desc_option},
34897                                           $tracelevel)
34898                                                 if defined $::RD_TRACE;
34899                 $item{q{_alternation_1_of_production_1_of_rule_desc_option(?)}} = $_tok;
34900                 push @item, $_tok;
34901
34902
34903
34904
34905                 Parse::RecDescent::_trace(q{>>Matched production: [/DESC/i /NULLS\\s+FIRST/i, or /NULLS\\s+LAST/i]<<},
34906                                           Parse::RecDescent::_tracefirst($text),
34907                                           q{desc_option},
34908                                           $tracelevel)
34909                                                 if defined $::RD_TRACE;
34910                 $_matched = 1;
34911                 last;
34912         }
34913
34914
34915         unless ( $_matched || defined($return) || defined($score) )
34916         {
34917
34918
34919                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
34920                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
34921                                          Parse::RecDescent::_tracefirst($_[1]),
34922                                          q{desc_option},
34923                                          $tracelevel)
34924                                         if defined $::RD_TRACE;
34925                 return undef;
34926         }
34927         if (!defined($return) && defined($score))
34928         {
34929                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
34930                                           q{desc_option},
34931                                           $tracelevel)
34932                                                 if defined $::RD_TRACE;
34933                 $return = $score_return;
34934         }
34935         splice @{$thisparser->{errors}}, $err_at;
34936         $return = $item[$#item] unless defined $return;
34937         if (defined $::RD_TRACE)
34938         {
34939                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
34940                                           $return . q{])}, "",
34941                                           q{desc_option},
34942                                           $tracelevel);
34943                 Parse::RecDescent::_trace(q{(consumed: [} .
34944                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
34945                                           Parse::RecDescent::_tracefirst($text),
34946                                           , q{desc_option},
34947                                           $tracelevel)
34948         }
34949         $_[1] = $text;
34950         return $return;
34951 }
34952
34953 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
34954 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::column_list
34955 {
34956         my $thisparser = $_[0];
34957         use vars q{$tracelevel};
34958         local $tracelevel = ($tracelevel||0)+1;
34959         $ERRORS = 0;
34960         my $thisrule = $thisparser->{"rules"}{"column_list"};
34961
34962         Parse::RecDescent::_trace(q{Trying rule: [column_list]},
34963                                   Parse::RecDescent::_tracefirst($_[1]),
34964                                   q{column_list},
34965                                   $tracelevel)
34966                                         if defined $::RD_TRACE;
34967
34968
34969         my $err_at = @{$thisparser->{errors}};
34970
34971         my $score;
34972         my $score_return;
34973         my $_tok;
34974         my $return = undef;
34975         my $_matched=0;
34976         my $commit=0;
34977         my @item = ();
34978         my %item = ();
34979         my $repeating =  defined($_[2]) && $_[2];
34980         my $_noactions = defined($_[3]) && $_[3];
34981         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
34982         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
34983         my $text;
34984         my $lastsep="";
34985         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
34986         $expectation->at($_[1]);
34987
34988         my $thisline;
34989         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
34990
34991
34992
34993         while (!$_matched && !$commit)
34994         {
34995
34996                 Parse::RecDescent::_trace(q{Trying production: ['(' <leftop: column_name /,/ column_name> ')']},
34997                                           Parse::RecDescent::_tracefirst($_[1]),
34998                                           q{column_list},
34999                                           $tracelevel)
35000                                                 if defined $::RD_TRACE;
35001                 my $thisprod = $thisrule->{"prods"}[0];
35002                 $text = $_[1];
35003                 my $_savetext;
35004                 @item = (q{column_list});
35005                 %item = (__RULE__ => q{column_list});
35006                 my $repcount = 0;
35007
35008
35009                 Parse::RecDescent::_trace(q{Trying terminal: ['(']},
35010                                           Parse::RecDescent::_tracefirst($text),
35011                                           q{column_list},
35012                                           $tracelevel)
35013                                                 if defined $::RD_TRACE;
35014                 $lastsep = "";
35015                 $expectation->is(q{})->at($text);
35016
35017
35018                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\(//)
35019                 {
35020
35021                         $expectation->failed();
35022                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
35023                                                   Parse::RecDescent::_tracefirst($text))
35024                                                         if defined $::RD_TRACE;
35025                         last;
35026                 }
35027                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
35028                                                 . $& . q{])},
35029                                                   Parse::RecDescent::_tracefirst($text))
35030                                                         if defined $::RD_TRACE;
35031                 push @item, $item{__STRING1__}=$&;
35032
35033
35034                 Parse::RecDescent::_trace(q{Trying operator: [<leftop: column_name /,/ column_name>]},
35035                                   Parse::RecDescent::_tracefirst($text),
35036                                   q{column_list},
35037                                   $tracelevel)
35038                                         if defined $::RD_TRACE;
35039                 $expectation->is(q{<leftop: column_name /,/ column_name>})->at($text);
35040
35041                 $_tok = undef;
35042                 OPLOOP: while (1)
35043                 {
35044                   $repcount = 0;
35045                   my  @item;
35046
35047                   # MATCH LEFTARG
35048
35049                 Parse::RecDescent::_trace(q{Trying subrule: [column_name]},
35050                                   Parse::RecDescent::_tracefirst($text),
35051                                   q{column_list},
35052                                   $tracelevel)
35053                                         if defined $::RD_TRACE;
35054                 if (1) { no strict qw{refs};
35055                 $expectation->is(q{column_name})->at($text);
35056                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::column_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
35057                 {
35058
35059                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [column_name]>>},
35060                                                   Parse::RecDescent::_tracefirst($text),
35061                                                   q{column_list},
35062                                                   $tracelevel)
35063                                                         if defined $::RD_TRACE;
35064                         $expectation->failed();
35065                         last;
35066                 }
35067                 Parse::RecDescent::_trace(q{>>Matched subrule: [column_name]<< (return value: [}
35068                                         . $_tok . q{]},
35069
35070                                           Parse::RecDescent::_tracefirst($text),
35071                                           q{column_list},
35072                                           $tracelevel)
35073                                                 if defined $::RD_TRACE;
35074                 $item{q{column_name}} = $_tok;
35075                 push @item, $_tok;
35076
35077                 }
35078
35079
35080                   $repcount++;
35081
35082                   my $savetext = $text;
35083                   my $backtrack;
35084
35085                   # MATCH (OP RIGHTARG)(s)
35086                   while ($repcount < 100000000)
35087                   {
35088                         $backtrack = 0;
35089
35090                 Parse::RecDescent::_trace(q{Trying terminal: [/,/]}, Parse::RecDescent::_tracefirst($text),
35091                                           q{column_list},
35092                                           $tracelevel)
35093                                                 if defined $::RD_TRACE;
35094                 $lastsep = "";
35095                 $expectation->is(q{/,/})->at($text);
35096
35097
35098                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:,)//)
35099                 {
35100
35101                         $expectation->failed();
35102                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
35103                                                   Parse::RecDescent::_tracefirst($text))
35104                                         if defined $::RD_TRACE;
35105
35106                         last;
35107                 }
35108                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
35109                                                 . $& . q{])},
35110                                                   Parse::RecDescent::_tracefirst($text))
35111                                         if defined $::RD_TRACE;
35112                 push @item, $item{__PATTERN1__}=$&;
35113
35114
35115                         pop @item;
35116                         if (defined $1) {push @item, $item{'column_name(s)'}=$1; $backtrack=1;}
35117
35118                 Parse::RecDescent::_trace(q{Trying subrule: [column_name]},
35119                                   Parse::RecDescent::_tracefirst($text),
35120                                   q{column_list},
35121                                   $tracelevel)
35122                                         if defined $::RD_TRACE;
35123                 if (1) { no strict qw{refs};
35124                 $expectation->is(q{column_name})->at($text);
35125                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::column_name($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
35126                 {
35127
35128                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [column_name]>>},
35129                                                   Parse::RecDescent::_tracefirst($text),
35130                                                   q{column_list},
35131                                                   $tracelevel)
35132                                                         if defined $::RD_TRACE;
35133                         $expectation->failed();
35134                         last;
35135                 }
35136                 Parse::RecDescent::_trace(q{>>Matched subrule: [column_name]<< (return value: [}
35137                                         . $_tok . q{]},
35138
35139                                           Parse::RecDescent::_tracefirst($text),
35140                                           q{column_list},
35141                                           $tracelevel)
35142                                                 if defined $::RD_TRACE;
35143                 $item{q{column_name}} = $_tok;
35144                 push @item, $_tok;
35145
35146                 }
35147
35148                         $savetext = $text;
35149                         $repcount++;
35150                   }
35151                   $text = $savetext;
35152                   pop @item if $backtrack;
35153
35154                   unless (@item) { undef $_tok; last }
35155                   $_tok = [ @item ];
35156                   last;
35157                 }
35158
35159                 unless ($repcount>=1)
35160                 {
35161                         Parse::RecDescent::_trace(q{<<Didn't match operator: [<leftop: column_name /,/ column_name>]>>},
35162                                                   Parse::RecDescent::_tracefirst($text),
35163                                                   q{column_list},
35164                                                   $tracelevel)
35165                                                         if defined $::RD_TRACE;
35166                         $expectation->failed();
35167                         last;
35168                 }
35169                 Parse::RecDescent::_trace(q{>>Matched operator: [<leftop: column_name /,/ column_name>]<< (return value: [}
35170                                           . qq{@{$_tok||[]}} . q{]},
35171                                           Parse::RecDescent::_tracefirst($text),
35172                                           q{column_list},
35173                                           $tracelevel)
35174                                                 if defined $::RD_TRACE;
35175
35176                 push @item, $item{'column_name(s)'}=$_tok||[];
35177
35178
35179                 Parse::RecDescent::_trace(q{Trying terminal: [')']},
35180                                           Parse::RecDescent::_tracefirst($text),
35181                                           q{column_list},
35182                                           $tracelevel)
35183                                                 if defined $::RD_TRACE;
35184                 $lastsep = "";
35185                 $expectation->is(q{')'})->at($text);
35186
35187
35188                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\)//)
35189                 {
35190
35191                         $expectation->failed();
35192                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
35193                                                   Parse::RecDescent::_tracefirst($text))
35194                                                         if defined $::RD_TRACE;
35195                         last;
35196                 }
35197                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
35198                                                 . $& . q{])},
35199                                                   Parse::RecDescent::_tracefirst($text))
35200                                                         if defined $::RD_TRACE;
35201                 push @item, $item{__STRING2__}=$&;
35202
35203
35204                 Parse::RecDescent::_trace(q{Trying action},
35205                                           Parse::RecDescent::_tracefirst($text),
35206                                           q{column_list},
35207                                           $tracelevel)
35208                                                 if defined $::RD_TRACE;
35209
35210
35211                 $_tok = ($_noactions) ? 0 : do {
35212     $return = join(' ', '(', @{$item[2]}, ')');
35213 };
35214                 unless (defined $_tok)
35215                 {
35216                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
35217                                         if defined $::RD_TRACE;
35218                         last;
35219                 }
35220                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
35221                                           . $_tok . q{])},
35222                                           Parse::RecDescent::_tracefirst($text))
35223                                                 if defined $::RD_TRACE;
35224                 push @item, $_tok;
35225                 $item{__ACTION1__}=$_tok;
35226
35227
35228
35229                 Parse::RecDescent::_trace(q{>>Matched production: ['(' <leftop: column_name /,/ column_name> ')']<<},
35230                                           Parse::RecDescent::_tracefirst($text),
35231                                           q{column_list},
35232                                           $tracelevel)
35233                                                 if defined $::RD_TRACE;
35234                 $_matched = 1;
35235                 last;
35236         }
35237
35238
35239         unless ( $_matched || defined($return) || defined($score) )
35240         {
35241
35242
35243                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
35244                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
35245                                          Parse::RecDescent::_tracefirst($_[1]),
35246                                          q{column_list},
35247                                          $tracelevel)
35248                                         if defined $::RD_TRACE;
35249                 return undef;
35250         }
35251         if (!defined($return) && defined($score))
35252         {
35253                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
35254                                           q{column_list},
35255                                           $tracelevel)
35256                                                 if defined $::RD_TRACE;
35257                 $return = $score_return;
35258         }
35259         splice @{$thisparser->{errors}}, $err_at;
35260         $return = $item[$#item] unless defined $return;
35261         if (defined $::RD_TRACE)
35262         {
35263                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
35264                                           $return . q{])}, "",
35265                                           q{column_list},
35266                                           $tracelevel);
35267                 Parse::RecDescent::_trace(q{(consumed: [} .
35268                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
35269                                           Parse::RecDescent::_tracefirst($text),
35270                                           , q{column_list},
35271                                           $tracelevel)
35272         }
35273         $_[1] = $text;
35274         return $return;
35275 }
35276
35277 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
35278 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_63_of_rule_sysibm_function
35279 {
35280         my $thisparser = $_[0];
35281         use vars q{$tracelevel};
35282         local $tracelevel = ($tracelevel||0)+1;
35283         $ERRORS = 0;
35284         my $thisrule = $thisparser->{"rules"}{"_alternation_1_of_production_63_of_rule_sysibm_function"};
35285
35286         Parse::RecDescent::_trace(q{Trying rule: [_alternation_1_of_production_63_of_rule_sysibm_function]},
35287                                   Parse::RecDescent::_tracefirst($_[1]),
35288                                   q{_alternation_1_of_production_63_of_rule_sysibm_function},
35289                                   $tracelevel)
35290                                         if defined $::RD_TRACE;
35291
35292
35293         my $err_at = @{$thisparser->{errors}};
35294
35295         my $score;
35296         my $score_return;
35297         my $_tok;
35298         my $return = undef;
35299         my $_matched=0;
35300         my $commit=0;
35301         my @item = ();
35302         my %item = ();
35303         my $repeating =  defined($_[2]) && $_[2];
35304         my $_noactions = defined($_[3]) && $_[3];
35305         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
35306         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
35307         my $text;
35308         my $lastsep="";
35309         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
35310         $expectation->at($_[1]);
35311
35312         my $thisline;
35313         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
35314
35315
35316
35317         while (!$_matched && !$commit)
35318         {
35319
35320                 Parse::RecDescent::_trace(q{Trying production: [/REGR_INTERCEPT/i]},
35321                                           Parse::RecDescent::_tracefirst($_[1]),
35322                                           q{_alternation_1_of_production_63_of_rule_sysibm_function},
35323                                           $tracelevel)
35324                                                 if defined $::RD_TRACE;
35325                 my $thisprod = $thisrule->{"prods"}[0];
35326                 $text = $_[1];
35327                 my $_savetext;
35328                 @item = (q{_alternation_1_of_production_63_of_rule_sysibm_function});
35329                 %item = (__RULE__ => q{_alternation_1_of_production_63_of_rule_sysibm_function});
35330                 my $repcount = 0;
35331
35332
35333                 Parse::RecDescent::_trace(q{Trying terminal: [/REGR_INTERCEPT/i]}, Parse::RecDescent::_tracefirst($text),
35334                                           q{_alternation_1_of_production_63_of_rule_sysibm_function},
35335                                           $tracelevel)
35336                                                 if defined $::RD_TRACE;
35337                 $lastsep = "";
35338                 $expectation->is(q{})->at($text);
35339
35340
35341                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REGR_INTERCEPT)//i)
35342                 {
35343
35344                         $expectation->failed();
35345                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
35346                                                   Parse::RecDescent::_tracefirst($text))
35347                                         if defined $::RD_TRACE;
35348
35349                         last;
35350                 }
35351                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
35352                                                 . $& . q{])},
35353                                                   Parse::RecDescent::_tracefirst($text))
35354                                         if defined $::RD_TRACE;
35355                 push @item, $item{__PATTERN1__}=$&;
35356
35357
35358
35359                 Parse::RecDescent::_trace(q{>>Matched production: [/REGR_INTERCEPT/i]<<},
35360                                           Parse::RecDescent::_tracefirst($text),
35361                                           q{_alternation_1_of_production_63_of_rule_sysibm_function},
35362                                           $tracelevel)
35363                                                 if defined $::RD_TRACE;
35364                 $_matched = 1;
35365                 last;
35366         }
35367
35368
35369         while (!$_matched && !$commit)
35370         {
35371
35372                 Parse::RecDescent::_trace(q{Trying production: [/REGR_ICPT/i]},
35373                                           Parse::RecDescent::_tracefirst($_[1]),
35374                                           q{_alternation_1_of_production_63_of_rule_sysibm_function},
35375                                           $tracelevel)
35376                                                 if defined $::RD_TRACE;
35377                 my $thisprod = $thisrule->{"prods"}[1];
35378                 $text = $_[1];
35379                 my $_savetext;
35380                 @item = (q{_alternation_1_of_production_63_of_rule_sysibm_function});
35381                 %item = (__RULE__ => q{_alternation_1_of_production_63_of_rule_sysibm_function});
35382                 my $repcount = 0;
35383
35384
35385                 Parse::RecDescent::_trace(q{Trying terminal: [/REGR_ICPT/i]}, Parse::RecDescent::_tracefirst($text),
35386                                           q{_alternation_1_of_production_63_of_rule_sysibm_function},
35387                                           $tracelevel)
35388                                                 if defined $::RD_TRACE;
35389                 $lastsep = "";
35390                 $expectation->is(q{})->at($text);
35391
35392
35393                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:REGR_ICPT)//i)
35394                 {
35395
35396                         $expectation->failed();
35397                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
35398                                                   Parse::RecDescent::_tracefirst($text))
35399                                         if defined $::RD_TRACE;
35400
35401                         last;
35402                 }
35403                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
35404                                                 . $& . q{])},
35405                                                   Parse::RecDescent::_tracefirst($text))
35406                                         if defined $::RD_TRACE;
35407                 push @item, $item{__PATTERN1__}=$&;
35408
35409
35410
35411                 Parse::RecDescent::_trace(q{>>Matched production: [/REGR_ICPT/i]<<},
35412                                           Parse::RecDescent::_tracefirst($text),
35413                                           q{_alternation_1_of_production_63_of_rule_sysibm_function},
35414                                           $tracelevel)
35415                                                 if defined $::RD_TRACE;
35416                 $_matched = 1;
35417                 last;
35418         }
35419
35420
35421         unless ( $_matched || defined($return) || defined($score) )
35422         {
35423
35424
35425                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
35426                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
35427                                          Parse::RecDescent::_tracefirst($_[1]),
35428                                          q{_alternation_1_of_production_63_of_rule_sysibm_function},
35429                                          $tracelevel)
35430                                         if defined $::RD_TRACE;
35431                 return undef;
35432         }
35433         if (!defined($return) && defined($score))
35434         {
35435                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
35436                                           q{_alternation_1_of_production_63_of_rule_sysibm_function},
35437                                           $tracelevel)
35438                                                 if defined $::RD_TRACE;
35439                 $return = $score_return;
35440         }
35441         splice @{$thisparser->{errors}}, $err_at;
35442         $return = $item[$#item] unless defined $return;
35443         if (defined $::RD_TRACE)
35444         {
35445                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
35446                                           $return . q{])}, "",
35447                                           q{_alternation_1_of_production_63_of_rule_sysibm_function},
35448                                           $tracelevel);
35449                 Parse::RecDescent::_trace(q{(consumed: [} .
35450                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
35451                                           Parse::RecDescent::_tracefirst($text),
35452                                           , q{_alternation_1_of_production_63_of_rule_sysibm_function},
35453                                           $tracelevel)
35454         }
35455         $_[1] = $text;
35456         return $return;
35457 }
35458
35459 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
35460 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::dereference_operation
35461 {
35462         my $thisparser = $_[0];
35463         use vars q{$tracelevel};
35464         local $tracelevel = ($tracelevel||0)+1;
35465         $ERRORS = 0;
35466         my $thisrule = $thisparser->{"rules"}{"dereference_operation"};
35467
35468         Parse::RecDescent::_trace(q{Trying rule: [dereference_operation]},
35469                                   Parse::RecDescent::_tracefirst($_[1]),
35470                                   q{dereference_operation},
35471                                   $tracelevel)
35472                                         if defined $::RD_TRACE;
35473
35474
35475         my $err_at = @{$thisparser->{errors}};
35476
35477         my $score;
35478         my $score_return;
35479         my $_tok;
35480         my $return = undef;
35481         my $_matched=0;
35482         my $commit=0;
35483         my @item = ();
35484         my %item = ();
35485         my $repeating =  defined($_[2]) && $_[2];
35486         my $_noactions = defined($_[3]) && $_[3];
35487         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
35488         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
35489         my $text;
35490         my $lastsep="";
35491         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
35492         $expectation->at($_[1]);
35493
35494         my $thisline;
35495         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
35496
35497
35498
35499         while (!$_matched && !$commit)
35500         {
35501
35502                 Parse::RecDescent::_trace(q{Trying production: [scoped_reference_expression '->' name1 '(']},
35503                                           Parse::RecDescent::_tracefirst($_[1]),
35504                                           q{dereference_operation},
35505                                           $tracelevel)
35506                                                 if defined $::RD_TRACE;
35507                 my $thisprod = $thisrule->{"prods"}[0];
35508                 $text = $_[1];
35509                 my $_savetext;
35510                 @item = (q{dereference_operation});
35511                 %item = (__RULE__ => q{dereference_operation});
35512                 my $repcount = 0;
35513
35514
35515                 Parse::RecDescent::_trace(q{Trying subrule: [scoped_reference_expression]},
35516                                   Parse::RecDescent::_tracefirst($text),
35517                                   q{dereference_operation},
35518                                   $tracelevel)
35519                                         if defined $::RD_TRACE;
35520                 if (1) { no strict qw{refs};
35521                 $expectation->is(q{})->at($text);
35522                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::scoped_reference_expression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
35523                 {
35524
35525                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [scoped_reference_expression]>>},
35526                                                   Parse::RecDescent::_tracefirst($text),
35527                                                   q{dereference_operation},
35528                                                   $tracelevel)
35529                                                         if defined $::RD_TRACE;
35530                         $expectation->failed();
35531                         last;
35532                 }
35533                 Parse::RecDescent::_trace(q{>>Matched subrule: [scoped_reference_expression]<< (return value: [}
35534                                         . $_tok . q{]},
35535
35536                                           Parse::RecDescent::_tracefirst($text),
35537                                           q{dereference_operation},
35538                                           $tracelevel)
35539                                                 if defined $::RD_TRACE;
35540                 $item{q{scoped_reference_expression}} = $_tok;
35541                 push @item, $_tok;
35542
35543                 }
35544
35545                 Parse::RecDescent::_trace(q{Trying terminal: ['->']},
35546                                           Parse::RecDescent::_tracefirst($text),
35547                                           q{dereference_operation},
35548                                           $tracelevel)
35549                                                 if defined $::RD_TRACE;
35550                 $lastsep = "";
35551                 $expectation->is(q{'->'})->at($text);
35552
35553
35554                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A\-\>//)
35555                 {
35556
35557                         $expectation->failed();
35558                         Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
35559                                                   Parse::RecDescent::_tracefirst($text))
35560                                                         if defined $::RD_TRACE;
35561                         last;
35562                 }
35563                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
35564                                                 . $& . q{])},
35565                                                   Parse::RecDescent::_tracefirst($text))
35566                                                         if defined $::RD_TRACE;
35567                 push @item, $item{__STRING1__}=$&;
35568
35569
35570                 Parse::RecDescent::_trace(q{Trying subrule: [name1]},
35571                                   Parse::RecDescent::_tracefirst($text),
35572                                   q{dereference_operation},
35573                                   $tracelevel)
35574                                         if defined $::RD_TRACE;
35575                 if (1) { no strict qw{refs};
35576                 $expectation->is(q{name1})->at($text);
35577                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::name1($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
35578                 {
35579
35580                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [name1]>>},
35581                                                   Parse::RecDescent::_tracefirst($text),
35582                                                   q{dereference_operation},
35583                                                   $tracelevel)
35584                                                         if defined $::RD_TRACE;
35585                         $expectation->failed();
35586                         last;
35587                 }
35588                 Parse::RecDescent::_trace(q{>>Matched subrule: [name1]<< (return value: [}
35589                                         . $_tok . q{]},
35590
35591                                           Parse::RecDescent::_tracefirst($text),
35592                                           q{dereference_operation},
35593                                           $tracelevel)
35594                                                 if defined $::RD_TRACE;
35595                 $item{q{name1}} = $_tok;
35596                 push @item, $_tok;
35597
35598                 }
35599
35600                 Parse::RecDescent::_trace(q{Trying repeated subrule: ['(']},
35601                                   Parse::RecDescent::_tracefirst($text),
35602                                   q{dereference_operation},
35603                                   $tracelevel)
35604                                         if defined $::RD_TRACE;
35605                 $expectation->is(q{'('})->at($text);
35606
35607                 unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_dereference_operation, 0, 1, $_noactions,$expectation,undef)))
35608                 {
35609                         Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: ['(']>>},
35610                                                   Parse::RecDescent::_tracefirst($text),
35611                                                   q{dereference_operation},
35612                                                   $tracelevel)
35613                                                         if defined $::RD_TRACE;
35614                         last;
35615                 }
35616                 Parse::RecDescent::_trace(q{>>Matched repeated subrule: [_alternation_1_of_production_1_of_rule_dereference_operation]<< (}
35617                                         . @$_tok . q{ times)},
35618
35619                                           Parse::RecDescent::_tracefirst($text),
35620                                           q{dereference_operation},
35621                                           $tracelevel)
35622                                                 if defined $::RD_TRACE;
35623                 $item{q{_alternation_1_of_production_1_of_rule_dereference_operation(?)}} = $_tok;
35624                 push @item, $_tok;
35625
35626
35627
35628
35629                 Parse::RecDescent::_trace(q{>>Matched production: [scoped_reference_expression '->' name1 '(']<<},
35630                                           Parse::RecDescent::_tracefirst($text),
35631                                           q{dereference_operation},
35632                                           $tracelevel)
35633                                                 if defined $::RD_TRACE;
35634                 $_matched = 1;
35635                 last;
35636         }
35637
35638
35639         unless ( $_matched || defined($return) || defined($score) )
35640         {
35641
35642
35643                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
35644                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
35645                                          Parse::RecDescent::_tracefirst($_[1]),
35646                                          q{dereference_operation},
35647                                          $tracelevel)
35648                                         if defined $::RD_TRACE;
35649                 return undef;
35650         }
35651         if (!defined($return) && defined($score))
35652         {
35653                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
35654                                           q{dereference_operation},
35655                                           $tracelevel)
35656                                                 if defined $::RD_TRACE;
35657                 $return = $score_return;
35658         }
35659         splice @{$thisparser->{errors}}, $err_at;
35660         $return = $item[$#item] unless defined $return;
35661         if (defined $::RD_TRACE)
35662         {
35663                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
35664                                           $return . q{])}, "",
35665                                           q{dereference_operation},
35666                                           $tracelevel);
35667                 Parse::RecDescent::_trace(q{(consumed: [} .
35668                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
35669                                           Parse::RecDescent::_tracefirst($text),
35670                                           , q{dereference_operation},
35671                                           $tracelevel)
35672         }
35673         $_[1] = $text;
35674         return $return;
35675 }
35676
35677 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
35678 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::OUTER
35679 {
35680         my $thisparser = $_[0];
35681         use vars q{$tracelevel};
35682         local $tracelevel = ($tracelevel||0)+1;
35683         $ERRORS = 0;
35684         my $thisrule = $thisparser->{"rules"}{"OUTER"};
35685
35686         Parse::RecDescent::_trace(q{Trying rule: [OUTER]},
35687                                   Parse::RecDescent::_tracefirst($_[1]),
35688                                   q{OUTER},
35689                                   $tracelevel)
35690                                         if defined $::RD_TRACE;
35691
35692
35693         my $err_at = @{$thisparser->{errors}};
35694
35695         my $score;
35696         my $score_return;
35697         my $_tok;
35698         my $return = undef;
35699         my $_matched=0;
35700         my $commit=0;
35701         my @item = ();
35702         my %item = ();
35703         my $repeating =  defined($_[2]) && $_[2];
35704         my $_noactions = defined($_[3]) && $_[3];
35705         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
35706         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
35707         my $text;
35708         my $lastsep="";
35709         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
35710         $expectation->at($_[1]);
35711
35712         my $thisline;
35713         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
35714
35715
35716
35717         while (!$_matched && !$commit)
35718         {
35719
35720                 Parse::RecDescent::_trace(q{Trying production: [/outer/i]},
35721                                           Parse::RecDescent::_tracefirst($_[1]),
35722                                           q{OUTER},
35723                                           $tracelevel)
35724                                                 if defined $::RD_TRACE;
35725                 my $thisprod = $thisrule->{"prods"}[0];
35726                 $text = $_[1];
35727                 my $_savetext;
35728                 @item = (q{OUTER});
35729                 %item = (__RULE__ => q{OUTER});
35730                 my $repcount = 0;
35731
35732
35733                 Parse::RecDescent::_trace(q{Trying terminal: [/outer/i]}, Parse::RecDescent::_tracefirst($text),
35734                                           q{OUTER},
35735                                           $tracelevel)
35736                                                 if defined $::RD_TRACE;
35737                 $lastsep = "";
35738                 $expectation->is(q{})->at($text);
35739
35740
35741                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:outer)//i)
35742                 {
35743
35744                         $expectation->failed();
35745                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
35746                                                   Parse::RecDescent::_tracefirst($text))
35747                                         if defined $::RD_TRACE;
35748
35749                         last;
35750                 }
35751                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
35752                                                 . $& . q{])},
35753                                                   Parse::RecDescent::_tracefirst($text))
35754                                         if defined $::RD_TRACE;
35755                 push @item, $item{__PATTERN1__}=$&;
35756
35757
35758
35759                 Parse::RecDescent::_trace(q{>>Matched production: [/outer/i]<<},
35760                                           Parse::RecDescent::_tracefirst($text),
35761                                           q{OUTER},
35762                                           $tracelevel)
35763                                                 if defined $::RD_TRACE;
35764                 $_matched = 1;
35765                 last;
35766         }
35767
35768
35769         unless ( $_matched || defined($return) || defined($score) )
35770         {
35771
35772
35773                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
35774                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
35775                                          Parse::RecDescent::_tracefirst($_[1]),
35776                                          q{OUTER},
35777                                          $tracelevel)
35778                                         if defined $::RD_TRACE;
35779                 return undef;
35780         }
35781         if (!defined($return) && defined($score))
35782         {
35783                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
35784                                           q{OUTER},
35785                                           $tracelevel)
35786                                                 if defined $::RD_TRACE;
35787                 $return = $score_return;
35788         }
35789         splice @{$thisparser->{errors}}, $err_at;
35790         $return = $item[$#item] unless defined $return;
35791         if (defined $::RD_TRACE)
35792         {
35793                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
35794                                           $return . q{])}, "",
35795                                           q{OUTER},
35796                                           $tracelevel);
35797                 Parse::RecDescent::_trace(q{(consumed: [} .
35798                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
35799                                           Parse::RecDescent::_tracefirst($text),
35800                                           , q{OUTER},
35801                                           $tracelevel)
35802         }
35803         $_[1] = $text;
35804         return $return;
35805 }
35806
35807 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
35808 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::window_order_clause
35809 {
35810         my $thisparser = $_[0];
35811         use vars q{$tracelevel};
35812         local $tracelevel = ($tracelevel||0)+1;
35813         $ERRORS = 0;
35814         my $thisrule = $thisparser->{"rules"}{"window_order_clause"};
35815
35816         Parse::RecDescent::_trace(q{Trying rule: [window_order_clause]},
35817                                   Parse::RecDescent::_tracefirst($_[1]),
35818                                   q{window_order_clause},
35819                                   $tracelevel)
35820                                         if defined $::RD_TRACE;
35821
35822
35823         my $err_at = @{$thisparser->{errors}};
35824
35825         my $score;
35826         my $score_return;
35827         my $_tok;
35828         my $return = undef;
35829         my $_matched=0;
35830         my $commit=0;
35831         my @item = ();
35832         my %item = ();
35833         my $repeating =  defined($_[2]) && $_[2];
35834         my $_noactions = defined($_[3]) && $_[3];
35835         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
35836         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
35837         my $text;
35838         my $lastsep="";
35839         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
35840         $expectation->at($_[1]);
35841
35842         my $thisline;
35843         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
35844
35845
35846
35847         while (!$_matched && !$commit)
35848         {
35849
35850                 Parse::RecDescent::_trace(q{Trying production: [/ORDER\\s+BY/i <leftop: sort_key_expression /,/ sort_key_expression>]},
35851                                           Parse::RecDescent::_tracefirst($_[1]),
35852                                           q{window_order_clause},
35853                                           $tracelevel)
35854                                                 if defined $::RD_TRACE;
35855                 my $thisprod = $thisrule->{"prods"}[0];
35856                 $text = $_[1];
35857                 my $_savetext;
35858                 @item = (q{window_order_clause});
35859                 %item = (__RULE__ => q{window_order_clause});
35860                 my $repcount = 0;
35861
35862
35863                 Parse::RecDescent::_trace(q{Trying terminal: [/ORDER\\s+BY/i]}, Parse::RecDescent::_tracefirst($text),
35864                                           q{window_order_clause},
35865                                           $tracelevel)
35866                                                 if defined $::RD_TRACE;
35867                 $lastsep = "";
35868                 $expectation->is(q{})->at($text);
35869
35870
35871                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:ORDER\s+BY)//i)
35872                 {
35873
35874                         $expectation->failed();
35875                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
35876                                                   Parse::RecDescent::_tracefirst($text))
35877                                         if defined $::RD_TRACE;
35878
35879                         last;
35880                 }
35881                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
35882                                                 . $& . q{])},
35883                                                   Parse::RecDescent::_tracefirst($text))
35884                                         if defined $::RD_TRACE;
35885                 push @item, $item{__PATTERN1__}=$&;
35886
35887
35888                 Parse::RecDescent::_trace(q{Trying operator: [<leftop: sort_key_expression /,/ sort_key_expression>]},
35889                                   Parse::RecDescent::_tracefirst($text),
35890                                   q{window_order_clause},
35891                                   $tracelevel)
35892                                         if defined $::RD_TRACE;
35893                 $expectation->is(q{<leftop: sort_key_expression /,/ sort_key_expression>})->at($text);
35894
35895                 $_tok = undef;
35896                 OPLOOP: while (1)
35897                 {
35898                   $repcount = 0;
35899                   my  @item;
35900
35901                   # MATCH LEFTARG
35902
35903                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule_window_order_clause]},
35904                                   Parse::RecDescent::_tracefirst($text),
35905                                   q{window_order_clause},
35906                                   $tracelevel)
35907                                         if defined $::RD_TRACE;
35908                 if (1) { no strict qw{refs};
35909                 $expectation->is(q{sort_key_expression})->at($text);
35910                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_window_order_clause($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
35911                 {
35912
35913                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule_window_order_clause]>>},
35914                                                   Parse::RecDescent::_tracefirst($text),
35915                                                   q{window_order_clause},
35916                                                   $tracelevel)
35917                                                         if defined $::RD_TRACE;
35918                         $expectation->failed();
35919                         last;
35920                 }
35921                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule_window_order_clause]<< (return value: [}
35922                                         . $_tok . q{]},
35923
35924                                           Parse::RecDescent::_tracefirst($text),
35925                                           q{window_order_clause},
35926                                           $tracelevel)
35927                                                 if defined $::RD_TRACE;
35928                 $item{q{_alternation_1_of_production_1_of_rule_window_order_clause}} = $_tok;
35929                 push @item, $_tok;
35930
35931                 }
35932
35933
35934                   $repcount++;
35935
35936                   my $savetext = $text;
35937                   my $backtrack;
35938
35939                   # MATCH (OP RIGHTARG)(s)
35940                   while ($repcount < 100000000)
35941                   {
35942                         $backtrack = 0;
35943
35944                 Parse::RecDescent::_trace(q{Trying terminal: [/,/]}, Parse::RecDescent::_tracefirst($text),
35945                                           q{window_order_clause},
35946                                           $tracelevel)
35947                                                 if defined $::RD_TRACE;
35948                 $lastsep = "";
35949                 $expectation->is(q{/,/})->at($text);
35950
35951
35952                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:,)//)
35953                 {
35954
35955                         $expectation->failed();
35956                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
35957                                                   Parse::RecDescent::_tracefirst($text))
35958                                         if defined $::RD_TRACE;
35959
35960                         last;
35961                 }
35962                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
35963                                                 . $& . q{])},
35964                                                   Parse::RecDescent::_tracefirst($text))
35965                                         if defined $::RD_TRACE;
35966                 push @item, $item{__PATTERN2__}=$&;
35967
35968
35969                         pop @item;
35970                         if (defined $1) {push @item, $item{'_alternation_1_of_production_1_of_rule_window_order_clause(s)'}=$1; $backtrack=1;}
35971
35972                 Parse::RecDescent::_trace(q{Trying subrule: [_alternation_1_of_production_1_of_rule_window_order_clause]},
35973                                   Parse::RecDescent::_tracefirst($text),
35974                                   q{window_order_clause},
35975                                   $tracelevel)
35976                                         if defined $::RD_TRACE;
35977                 if (1) { no strict qw{refs};
35978                 $expectation->is(q{sort_key_expression})->at($text);
35979                 unless (defined ($_tok = Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::_alternation_1_of_production_1_of_rule_window_order_clause($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
35980                 {
35981
35982                         Parse::RecDescent::_trace(q{<<Didn't match subrule: [_alternation_1_of_production_1_of_rule_window_order_clause]>>},
35983                                                   Parse::RecDescent::_tracefirst($text),
35984                                                   q{window_order_clause},
35985                                                   $tracelevel)
35986                                                         if defined $::RD_TRACE;
35987                         $expectation->failed();
35988                         last;
35989                 }
35990                 Parse::RecDescent::_trace(q{>>Matched subrule: [_alternation_1_of_production_1_of_rule_window_order_clause]<< (return value: [}
35991                                         . $_tok . q{]},
35992
35993                                           Parse::RecDescent::_tracefirst($text),
35994                                           q{window_order_clause},
35995                                           $tracelevel)
35996                                                 if defined $::RD_TRACE;
35997                 $item{q{_alternation_1_of_production_1_of_rule_window_order_clause}} = $_tok;
35998                 push @item, $_tok;
35999
36000                 }
36001
36002                         $savetext = $text;
36003                         $repcount++;
36004                   }
36005                   $text = $savetext;
36006                   pop @item if $backtrack;
36007
36008                   unless (@item) { undef $_tok; last }
36009                   $_tok = [ @item ];
36010                   last;
36011                 }
36012
36013                 unless ($repcount>=1)
36014                 {
36015                         Parse::RecDescent::_trace(q{<<Didn't match operator: [<leftop: sort_key_expression /,/ sort_key_expression>]>>},
36016                                                   Parse::RecDescent::_tracefirst($text),
36017                                                   q{window_order_clause},
36018                                                   $tracelevel)
36019                                                         if defined $::RD_TRACE;
36020                         $expectation->failed();
36021                         last;
36022                 }
36023                 Parse::RecDescent::_trace(q{>>Matched operator: [<leftop: sort_key_expression /,/ sort_key_expression>]<< (return value: [}
36024                                           . qq{@{$_tok||[]}} . q{]},
36025                                           Parse::RecDescent::_tracefirst($text),
36026                                           q{window_order_clause},
36027                                           $tracelevel)
36028                                                 if defined $::RD_TRACE;
36029
36030                 push @item, $item{'_alternation_1_of_production_1_of_rule_window_order_clause(s)'}=$_tok||[];
36031
36032
36033
36034                 Parse::RecDescent::_trace(q{>>Matched production: [/ORDER\\s+BY/i <leftop: sort_key_expression /,/ sort_key_expression>]<<},
36035                                           Parse::RecDescent::_tracefirst($text),
36036                                           q{window_order_clause},
36037                                           $tracelevel)
36038                                                 if defined $::RD_TRACE;
36039                 $_matched = 1;
36040                 last;
36041         }
36042
36043
36044         unless ( $_matched || defined($return) || defined($score) )
36045         {
36046
36047
36048                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
36049                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
36050                                          Parse::RecDescent::_tracefirst($_[1]),
36051                                          q{window_order_clause},
36052                                          $tracelevel)
36053                                         if defined $::RD_TRACE;
36054                 return undef;
36055         }
36056         if (!defined($return) && defined($score))
36057         {
36058                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
36059                                           q{window_order_clause},
36060                                           $tracelevel)
36061                                                 if defined $::RD_TRACE;
36062                 $return = $score_return;
36063         }
36064         splice @{$thisparser->{errors}}, $err_at;
36065         $return = $item[$#item] unless defined $return;
36066         if (defined $::RD_TRACE)
36067         {
36068                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
36069                                           $return . q{])}, "",
36070                                           q{window_order_clause},
36071                                           $tracelevel);
36072                 Parse::RecDescent::_trace(q{(consumed: [} .
36073                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
36074                                           Parse::RecDescent::_tracefirst($text),
36075                                           , q{window_order_clause},
36076                                           $tracelevel)
36077         }
36078         $_[1] = $text;
36079         return $return;
36080 }
36081
36082 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
36083 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::TRIGGER
36084 {
36085         my $thisparser = $_[0];
36086         use vars q{$tracelevel};
36087         local $tracelevel = ($tracelevel||0)+1;
36088         $ERRORS = 0;
36089         my $thisrule = $thisparser->{"rules"}{"TRIGGER"};
36090
36091         Parse::RecDescent::_trace(q{Trying rule: [TRIGGER]},
36092                                   Parse::RecDescent::_tracefirst($_[1]),
36093                                   q{TRIGGER},
36094                                   $tracelevel)
36095                                         if defined $::RD_TRACE;
36096
36097
36098         my $err_at = @{$thisparser->{errors}};
36099
36100         my $score;
36101         my $score_return;
36102         my $_tok;
36103         my $return = undef;
36104         my $_matched=0;
36105         my $commit=0;
36106         my @item = ();
36107         my %item = ();
36108         my $repeating =  defined($_[2]) && $_[2];
36109         my $_noactions = defined($_[3]) && $_[3];
36110         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
36111         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
36112         my $text;
36113         my $lastsep="";
36114         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
36115         $expectation->at($_[1]);
36116
36117         my $thisline;
36118         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
36119
36120
36121
36122         while (!$_matched && !$commit)
36123         {
36124
36125                 Parse::RecDescent::_trace(q{Trying production: [/trigger/i]},
36126                                           Parse::RecDescent::_tracefirst($_[1]),
36127                                           q{TRIGGER},
36128                                           $tracelevel)
36129                                                 if defined $::RD_TRACE;
36130                 my $thisprod = $thisrule->{"prods"}[0];
36131                 $text = $_[1];
36132                 my $_savetext;
36133                 @item = (q{TRIGGER});
36134                 %item = (__RULE__ => q{TRIGGER});
36135                 my $repcount = 0;
36136
36137
36138                 Parse::RecDescent::_trace(q{Trying terminal: [/trigger/i]}, Parse::RecDescent::_tracefirst($text),
36139                                           q{TRIGGER},
36140                                           $tracelevel)
36141                                                 if defined $::RD_TRACE;
36142                 $lastsep = "";
36143                 $expectation->is(q{})->at($text);
36144
36145
36146                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:trigger)//i)
36147                 {
36148
36149                         $expectation->failed();
36150                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
36151                                                   Parse::RecDescent::_tracefirst($text))
36152                                         if defined $::RD_TRACE;
36153
36154                         last;
36155                 }
36156                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
36157                                                 . $& . q{])},
36158                                                   Parse::RecDescent::_tracefirst($text))
36159                                         if defined $::RD_TRACE;
36160                 push @item, $item{__PATTERN1__}=$&;
36161
36162
36163
36164                 Parse::RecDescent::_trace(q{>>Matched production: [/trigger/i]<<},
36165                                           Parse::RecDescent::_tracefirst($text),
36166                                           q{TRIGGER},
36167                                           $tracelevel)
36168                                                 if defined $::RD_TRACE;
36169                 $_matched = 1;
36170                 last;
36171         }
36172
36173
36174         unless ( $_matched || defined($return) || defined($score) )
36175         {
36176
36177
36178                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
36179                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
36180                                          Parse::RecDescent::_tracefirst($_[1]),
36181                                          q{TRIGGER},
36182                                          $tracelevel)
36183                                         if defined $::RD_TRACE;
36184                 return undef;
36185         }
36186         if (!defined($return) && defined($score))
36187         {
36188                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
36189                                           q{TRIGGER},
36190                                           $tracelevel)
36191                                                 if defined $::RD_TRACE;
36192                 $return = $score_return;
36193         }
36194         splice @{$thisparser->{errors}}, $err_at;
36195         $return = $item[$#item] unless defined $return;
36196         if (defined $::RD_TRACE)
36197         {
36198                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
36199                                           $return . q{])}, "",
36200                                           q{TRIGGER},
36201                                           $tracelevel);
36202                 Parse::RecDescent::_trace(q{(consumed: [} .
36203                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
36204                                           Parse::RecDescent::_tracefirst($text),
36205                                           , q{TRIGGER},
36206                                           $tracelevel)
36207         }
36208         $_[1] = $text;
36209         return $return;
36210 }
36211
36212 # ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
36213 sub Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar::comment
36214 {
36215         my $thisparser = $_[0];
36216         use vars q{$tracelevel};
36217         local $tracelevel = ($tracelevel||0)+1;
36218         $ERRORS = 0;
36219         my $thisrule = $thisparser->{"rules"}{"comment"};
36220
36221         Parse::RecDescent::_trace(q{Trying rule: [comment]},
36222                                   Parse::RecDescent::_tracefirst($_[1]),
36223                                   q{comment},
36224                                   $tracelevel)
36225                                         if defined $::RD_TRACE;
36226
36227
36228         my $err_at = @{$thisparser->{errors}};
36229
36230         my $score;
36231         my $score_return;
36232         my $_tok;
36233         my $return = undef;
36234         my $_matched=0;
36235         my $commit=0;
36236         my @item = ();
36237         my %item = ();
36238         my $repeating =  defined($_[2]) && $_[2];
36239         my $_noactions = defined($_[3]) && $_[3];
36240         my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
36241         my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
36242         my $text;
36243         my $lastsep="";
36244         my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
36245         $expectation->at($_[1]);
36246
36247         my $thisline;
36248         tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
36249
36250
36251
36252         while (!$_matched && !$commit)
36253         {
36254
36255                 Parse::RecDescent::_trace(q{Trying production: [/^\\s*-\{2\}.*\\n/]},
36256                                           Parse::RecDescent::_tracefirst($_[1]),
36257                                           q{comment},
36258                                           $tracelevel)
36259                                                 if defined $::RD_TRACE;
36260                 my $thisprod = $thisrule->{"prods"}[0];
36261                 $text = $_[1];
36262                 my $_savetext;
36263                 @item = (q{comment});
36264                 %item = (__RULE__ => q{comment});
36265                 my $repcount = 0;
36266
36267
36268                 Parse::RecDescent::_trace(q{Trying terminal: [/^\\s*-\{2\}.*\\n/]}, Parse::RecDescent::_tracefirst($text),
36269                                           q{comment},
36270                                           $tracelevel)
36271                                                 if defined $::RD_TRACE;
36272                 $lastsep = "";
36273                 $expectation->is(q{})->at($text);
36274
36275
36276                 unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(?:^\s*-{2}.*\n)//)
36277                 {
36278
36279                         $expectation->failed();
36280                         Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
36281                                                   Parse::RecDescent::_tracefirst($text))
36282                                         if defined $::RD_TRACE;
36283
36284                         last;
36285                 }
36286                 Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
36287                                                 . $& . q{])},
36288                                                   Parse::RecDescent::_tracefirst($text))
36289                                         if defined $::RD_TRACE;
36290                 push @item, $item{__PATTERN1__}=$&;
36291
36292
36293                 Parse::RecDescent::_trace(q{Trying action},
36294                                           Parse::RecDescent::_tracefirst($text),
36295                                           q{comment},
36296                                           $tracelevel)
36297                                                 if defined $::RD_TRACE;
36298
36299
36300                 $_tok = ($_noactions) ? 0 : do {
36301         my $comment =  $item[1];
36302         $comment    =~ s/^\s*(-{2})\s*//;
36303         $comment    =~ s/\s*$//;
36304         $return     = $comment;
36305     };
36306                 unless (defined $_tok)
36307                 {
36308                         Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
36309                                         if defined $::RD_TRACE;
36310                         last;
36311                 }
36312                 Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
36313                                           . $_tok . q{])},
36314                                           Parse::RecDescent::_tracefirst($text))
36315                                                 if defined $::RD_TRACE;
36316                 push @item, $_tok;
36317                 $item{__ACTION1__}=$_tok;
36318
36319
36320
36321                 Parse::RecDescent::_trace(q{>>Matched production: [/^\\s*-\{2\}.*\\n/]<<},
36322                                           Parse::RecDescent::_tracefirst($text),
36323                                           q{comment},
36324                                           $tracelevel)
36325                                                 if defined $::RD_TRACE;
36326                 $_matched = 1;
36327                 last;
36328         }
36329
36330
36331         unless ( $_matched || defined($return) || defined($score) )
36332         {
36333
36334
36335                 $_[1] = $text;  # NOT SURE THIS IS NEEDED
36336                 Parse::RecDescent::_trace(q{<<Didn't match rule>>},
36337                                          Parse::RecDescent::_tracefirst($_[1]),
36338                                          q{comment},
36339                                          $tracelevel)
36340                                         if defined $::RD_TRACE;
36341                 return undef;
36342         }
36343         if (!defined($return) && defined($score))
36344         {
36345                 Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
36346                                           q{comment},
36347                                           $tracelevel)
36348                                                 if defined $::RD_TRACE;
36349                 $return = $score_return;
36350         }
36351         splice @{$thisparser->{errors}}, $err_at;
36352         $return = $item[$#item] unless defined $return;
36353         if (defined $::RD_TRACE)
36354         {
36355                 Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
36356                                           $return . q{])}, "",
36357                                           q{comment},
36358                                           $tracelevel);
36359                 Parse::RecDescent::_trace(q{(consumed: [} .
36360                                           Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
36361                                           Parse::RecDescent::_tracefirst($text),
36362                                           , q{comment},
36363                                           $tracelevel)
36364         }
36365         $_[1] = $text;
36366         return $return;
36367 }
36368 }
36369 package SQL::Translator::Parser::DB2::Grammar; sub new { my $self = bless( {
36370                  '_AUTOTREE' => undef,
36371                  'localvars' => '',
36372                  'startcode' => '',
36373                  '_check' => {
36374                                'thisoffset' => '',
36375                                'itempos' => '',
36376                                'prevoffset' => '',
36377                                'prevline' => '',
36378                                'prevcolumn' => '',
36379                                'thiscolumn' => ''
36380                              },
36381                  'namespace' => 'Parse::RecDescent::SQL::Translator::Parser::DB2::Grammar',
36382                  '_AUTOACTION' => undef,
36383                  'rules' => {
36384                               '_alternation_1_of_production_17_of_rule_sysibm_function' => bless( {
36385                                                                                                     'impcount' => 0,
36386                                                                                                     'calls' => [],
36387                                                                                                     'changed' => 0,
36388                                                                                                     'opcount' => 0,
36389                                                                                                     'prods' => [
36390                                                                                                                  bless( {
36391                                                                                                                           'number' => '0',
36392                                                                                                                           'strcount' => 0,
36393                                                                                                                           'dircount' => 0,
36394                                                                                                                           'uncommit' => undef,
36395                                                                                                                           'error' => undef,
36396                                                                                                                           'patcount' => 1,
36397                                                                                                                           'actcount' => 0,
36398                                                                                                                           'items' => [
36399                                                                                                                                        bless( {
36400                                                                                                                                                 'pattern' => 'DECIMAL',
36401                                                                                                                                                 'hashname' => '__PATTERN1__',
36402                                                                                                                                                 'description' => '/DECIMAL/i',
36403                                                                                                                                                 'lookahead' => 0,
36404                                                                                                                                                 'rdelim' => '/',
36405                                                                                                                                                 'line' => 628,
36406                                                                                                                                                 'mod' => 'i',
36407                                                                                                                                                 'ldelim' => '/'
36408                                                                                                                                               }, 'Parse::RecDescent::Token' )
36409                                                                                                                                      ],
36410                                                                                                                           'line' => undef
36411                                                                                                                         }, 'Parse::RecDescent::Production' ),
36412                                                                                                                  bless( {
36413                                                                                                                           'number' => '1',
36414                                                                                                                           'strcount' => 0,
36415                                                                                                                           'dircount' => 0,
36416                                                                                                                           'uncommit' => undef,
36417                                                                                                                           'error' => undef,
36418                                                                                                                           'patcount' => 1,
36419                                                                                                                           'actcount' => 0,
36420                                                                                                                           'items' => [
36421                                                                                                                                        bless( {
36422                                                                                                                                                 'pattern' => 'DEC',
36423                                                                                                                                                 'hashname' => '__PATTERN1__',
36424                                                                                                                                                 'description' => '/DEC/i',
36425                                                                                                                                                 'lookahead' => 0,
36426                                                                                                                                                 'rdelim' => '/',
36427                                                                                                                                                 'line' => 628,
36428                                                                                                                                                 'mod' => 'i',
36429                                                                                                                                                 'ldelim' => '/'
36430                                                                                                                                               }, 'Parse::RecDescent::Token' )
36431                                                                                                                                      ],
36432                                                                                                                           'line' => 628
36433                                                                                                                         }, 'Parse::RecDescent::Production' )
36434                                                                                                                ],
36435                                                                                                     'name' => '_alternation_1_of_production_17_of_rule_sysibm_function',
36436                                                                                                     'vars' => '',
36437                                                                                                     'line' => 628
36438                                                                                                   }, 'Parse::RecDescent::Rule' ),
36439                               'triggered_action' => bless( {
36440                                                              'impcount' => 0,
36441                                                              'calls' => [
36442                                                                           'when_clause',
36443                                                                           'SQL_procedure_statement'
36444                                                                         ],
36445                                                              'changed' => 0,
36446                                                              'opcount' => 0,
36447                                                              'prods' => [
36448                                                                           bless( {
36449                                                                                    'number' => '0',
36450                                                                                    'strcount' => 0,
36451                                                                                    'dircount' => 0,
36452                                                                                    'uncommit' => undef,
36453                                                                                    'error' => undef,
36454                                                                                    'patcount' => 0,
36455                                                                                    'actcount' => 1,
36456                                                                                    'items' => [
36457                                                                                                 bless( {
36458                                                                                                          'subrule' => 'when_clause',
36459                                                                                                          'expected' => undef,
36460                                                                                                          'min' => 0,
36461                                                                                                          'argcode' => undef,
36462                                                                                                          'max' => 1,
36463                                                                                                          'matchrule' => 0,
36464                                                                                                          'repspec' => '?',
36465                                                                                                          'lookahead' => 0,
36466                                                                                                          'line' => 263
36467                                                                                                        }, 'Parse::RecDescent::Repetition' ),
36468                                                                                                 bless( {
36469                                                                                                          'subrule' => 'SQL_procedure_statement',
36470                                                                                                          'matchrule' => 0,
36471                                                                                                          'implicit' => undef,
36472                                                                                                          'argcode' => undef,
36473                                                                                                          'lookahead' => 0,
36474                                                                                                          'line' => 263
36475                                                                                                        }, 'Parse::RecDescent::Subrule' ),
36476                                                                                                 bless( {
36477                                                                                                          'hashname' => '__ACTION1__',
36478                                                                                                          'lookahead' => 0,
36479                                                                                                          'line' => 264,
36480                                                                                                          'code' => '{ $return = { \'condition\' => $item[1][0],
36481               \'statement\' => $item{\'SQL_procedure_statement\'} };
36482 }'
36483                                                                                                        }, 'Parse::RecDescent::Action' )
36484                                                                                               ],
36485                                                                                    'line' => undef
36486                                                                                  }, 'Parse::RecDescent::Production' )
36487                                                                         ],
36488                                                              'name' => 'triggered_action',
36489                                                              'vars' => '',
36490                                                              'line' => 263
36491                                                            }, 'Parse::RecDescent::Rule' ),
36492                               '_alternation_1_of_production_2_of_rule_search_condition' => bless( {
36493                                                                                                     'impcount' => 0,
36494                                                                                                     'calls' => [
36495                                                                                                                  'predicate',
36496                                                                                                                  '_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition',
36497                                                                                                                  'search_condition'
36498                                                                                                                ],
36499                                                                                                     'changed' => 0,
36500                                                                                                     'opcount' => 0,
36501                                                                                                     'prods' => [
36502                                                                                                                  bless( {
36503                                                                                                                           'number' => '0',
36504                                                                                                                           'strcount' => 0,
36505                                                                                                                           'dircount' => 0,
36506                                                                                                                           'uncommit' => undef,
36507                                                                                                                           'error' => undef,
36508                                                                                                                           'patcount' => 0,
36509                                                                                                                           'actcount' => 0,
36510                                                                                                                           'items' => [
36511                                                                                                                                        bless( {
36512                                                                                                                                                 'subrule' => 'predicate',
36513                                                                                                                                                 'matchrule' => 0,
36514                                                                                                                                                 'implicit' => undef,
36515                                                                                                                                                 'argcode' => undef,
36516                                                                                                                                                 'lookahead' => 0,
36517                                                                                                                                                 'line' => 628
36518                                                                                                                                               }, 'Parse::RecDescent::Subrule' ),
36519                                                                                                                                        bless( {
36520                                                                                                                                                 'subrule' => '_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition',
36521                                                                                                                                                 'expected' => '/SELECTIVITY/i',
36522                                                                                                                                                 'min' => 0,
36523                                                                                                                                                 'argcode' => undef,
36524                                                                                                                                                 'max' => 1,
36525                                                                                                                                                 'matchrule' => 0,
36526                                                                                                                                                 'repspec' => '?',
36527                                                                                                                                                 'lookahead' => 0,
36528                                                                                                                                                 'line' => 628
36529                                                                                                                                               }, 'Parse::RecDescent::Repetition' )
36530                                                                                                                                      ],
36531                                                                                                                           'line' => undef
36532                                                                                                                         }, 'Parse::RecDescent::Production' ),
36533                                                                                                                  bless( {
36534                                                                                                                           'number' => '1',
36535                                                                                                                           'strcount' => 2,
36536                                                                                                                           'dircount' => 0,
36537                                                                                                                           'uncommit' => undef,
36538                                                                                                                           'error' => undef,
36539                                                                                                                           'patcount' => 0,
36540                                                                                                                           'actcount' => 0,
36541                                                                                                                           'items' => [
36542                                                                                                                                        bless( {
36543                                                                                                                                                 'pattern' => '(',
36544                                                                                                                                                 'hashname' => '__STRING1__',
36545                                                                                                                                                 'description' => '\'(\'',
36546                                                                                                                                                 'lookahead' => 0,
36547                                                                                                                                                 'line' => 628
36548                                                                                                                                               }, 'Parse::RecDescent::Literal' ),
36549                                                                                                                                        bless( {
36550                                                                                                                                                 'subrule' => 'search_condition',
36551                                                                                                                                                 'matchrule' => 0,
36552                                                                                                                                                 'implicit' => undef,
36553                                                                                                                                                 'argcode' => undef,
36554                                                                                                                                                 'lookahead' => 0,
36555                                                                                                                                                 'line' => 628
36556                                                                                                                                               }, 'Parse::RecDescent::Subrule' ),
36557                                                                                                                                        bless( {
36558                                                                                                                                                 'pattern' => ')',
36559                                                                                                                                                 'hashname' => '__STRING2__',
36560                                                                                                                                                 'description' => '\')\'',
36561                                                                                                                                                 'lookahead' => 0,
36562                                                                                                                                                 'line' => 628
36563                                                                                                                                               }, 'Parse::RecDescent::Literal' )
36564                                                                                                                                      ],
36565                                                                                                                           'line' => 628
36566                                                                                                                         }, 'Parse::RecDescent::Production' )
36567                                                                                                                ],
36568                                                                                                     'name' => '_alternation_1_of_production_2_of_rule_search_condition',
36569                                                                                                     'vars' => '',
36570                                                                                                     'line' => 628
36571                                                                                                   }, 'Parse::RecDescent::Rule' ),
36572                               'name1' => bless( {
36573                                                   'impcount' => 0,
36574                                                   'calls' => [
36575                                                                'NAME'
36576                                                              ],
36577                                                   'changed' => 0,
36578                                                   'opcount' => 0,
36579                                                   'prods' => [
36580                                                                bless( {
36581                                                                         'number' => '0',
36582                                                                         'strcount' => 0,
36583                                                                         'dircount' => 0,
36584                                                                         'uncommit' => undef,
36585                                                                         'error' => undef,
36586                                                                         'patcount' => 0,
36587                                                                         'actcount' => 0,
36588                                                                         'items' => [
36589                                                                                      bless( {
36590                                                                                               'subrule' => 'NAME',
36591                                                                                               'matchrule' => 0,
36592                                                                                               'implicit' => undef,
36593                                                                                               'argcode' => undef,
36594                                                                                               'lookahead' => 0,
36595                                                                                               'line' => 536
36596                                                                                             }, 'Parse::RecDescent::Subrule' )
36597                                                                                    ],
36598                                                                         'line' => undef
36599                                                                       }, 'Parse::RecDescent::Production' )
36600                                                              ],
36601                                                   'name' => 'name1',
36602                                                   'vars' => '',
36603                                                   'line' => 536
36604                                                 }, 'Parse::RecDescent::Rule' ),
36605                               '_alternation_2_of_production_1_of_rule_cond' => bless( {
36606                                                                                         'impcount' => 0,
36607                                                                                         'calls' => [
36608                                                                                                      'predicate',
36609                                                                                                      '_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond',
36610                                                                                                      'search_condition'
36611                                                                                                    ],
36612                                                                                         'changed' => 0,
36613                                                                                         'opcount' => 0,
36614                                                                                         'prods' => [
36615                                                                                                      bless( {
36616                                                                                                               'number' => '0',
36617                                                                                                               'strcount' => 0,
36618                                                                                                               'dircount' => 0,
36619                                                                                                               'uncommit' => undef,
36620                                                                                                               'error' => undef,
36621                                                                                                               'patcount' => 0,
36622                                                                                                               'actcount' => 0,
36623                                                                                                               'items' => [
36624                                                                                                                            bless( {
36625                                                                                                                                     'subrule' => 'predicate',
36626                                                                                                                                     'matchrule' => 0,
36627                                                                                                                                     'implicit' => undef,
36628                                                                                                                                     'argcode' => undef,
36629                                                                                                                                     'lookahead' => 0,
36630                                                                                                                                     'line' => 628
36631                                                                                                                                   }, 'Parse::RecDescent::Subrule' ),
36632                                                                                                                            bless( {
36633                                                                                                                                     'subrule' => '_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond',
36634                                                                                                                                     'expected' => '/SELECTIVITY/i',
36635                                                                                                                                     'min' => 0,
36636                                                                                                                                     'argcode' => undef,
36637                                                                                                                                     'max' => 1,
36638                                                                                                                                     'matchrule' => 0,
36639                                                                                                                                     'repspec' => '?',
36640                                                                                                                                     'lookahead' => 0,
36641                                                                                                                                     'line' => 628
36642                                                                                                                                   }, 'Parse::RecDescent::Repetition' )
36643                                                                                                                          ],
36644                                                                                                               'line' => undef
36645                                                                                                             }, 'Parse::RecDescent::Production' ),
36646                                                                                                      bless( {
36647                                                                                                               'number' => '1',
36648                                                                                                               'strcount' => 2,
36649                                                                                                               'dircount' => 0,
36650                                                                                                               'uncommit' => undef,
36651                                                                                                               'error' => undef,
36652                                                                                                               'patcount' => 0,
36653                                                                                                               'actcount' => 0,
36654                                                                                                               'items' => [
36655                                                                                                                            bless( {
36656                                                                                                                                     'pattern' => '(',
36657                                                                                                                                     'hashname' => '__STRING1__',
36658                                                                                                                                     'description' => '\'(\'',
36659                                                                                                                                     'lookahead' => 0,
36660                                                                                                                                     'line' => 628
36661                                                                                                                                   }, 'Parse::RecDescent::Literal' ),
36662                                                                                                                            bless( {
36663                                                                                                                                     'subrule' => 'search_condition',
36664                                                                                                                                     'matchrule' => 0,
36665                                                                                                                                     'implicit' => undef,
36666                                                                                                                                     'argcode' => undef,
36667                                                                                                                                     'lookahead' => 0,
36668                                                                                                                                     'line' => 628
36669                                                                                                                                   }, 'Parse::RecDescent::Subrule' ),
36670                                                                                                                            bless( {
36671                                                                                                                                     'pattern' => ')',
36672                                                                                                                                     'hashname' => '__STRING2__',
36673                                                                                                                                     'description' => '\')\'',
36674                                                                                                                                     'lookahead' => 0,
36675                                                                                                                                     'line' => 628
36676                                                                                                                                   }, 'Parse::RecDescent::Literal' )
36677                                                                                                                          ],
36678                                                                                                               'line' => 628
36679                                                                                                             }, 'Parse::RecDescent::Production' )
36680                                                                                                    ],
36681                                                                                         'name' => '_alternation_2_of_production_1_of_rule_cond',
36682                                                                                         'vars' => '',
36683                                                                                         'line' => 628
36684                                                                                       }, 'Parse::RecDescent::Rule' ),
36685                               '_alternation_1_of_production_1_of_rule_expression' => bless( {
36686                                                                                               'impcount' => 2,
36687                                                                                               'calls' => [
36688                                                                                                            '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression',
36689                                                                                                            '_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression'
36690                                                                                                          ],
36691                                                                                               'changed' => 0,
36692                                                                                               'opcount' => 0,
36693                                                                                               'prods' => [
36694                                                                                                            bless( {
36695                                                                                                                     'number' => '0',
36696                                                                                                                     'strcount' => 0,
36697                                                                                                                     'dircount' => 0,
36698                                                                                                                     'uncommit' => undef,
36699                                                                                                                     'error' => undef,
36700                                                                                                                     'patcount' => 0,
36701                                                                                                                     'actcount' => 0,
36702                                                                                                                     'items' => [
36703                                                                                                                                  bless( {
36704                                                                                                                                           'subrule' => '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression',
36705                                                                                                                                           'expected' => '\'+\', or \'-\'',
36706                                                                                                                                           'min' => 0,
36707                                                                                                                                           'argcode' => undef,
36708                                                                                                                                           'max' => 1,
36709                                                                                                                                           'matchrule' => 0,
36710                                                                                                                                           'repspec' => '?',
36711                                                                                                                                           'lookahead' => 0,
36712                                                                                                                                           'line' => 611
36713                                                                                                                                         }, 'Parse::RecDescent::Repetition' ),
36714                                                                                                                                  bless( {
36715                                                                                                                                           'subrule' => '_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression',
36716                                                                                                                                           'matchrule' => 0,
36717                                                                                                                                           'implicit' => 'function, or \'(\', or constant, or column_name, or host_variable, or special_register, or labeled_duration, or case_expression, or cast_specification, or OLAP_function, or method_invocation, or subtype_treatment, or sequence_reference',
36718                                                                                                                                           'argcode' => undef,
36719                                                                                                                                           'lookahead' => 0,
36720                                                                                                                                           'line' => 627
36721                                                                                                                                         }, 'Parse::RecDescent::Subrule' )
36722                                                                                                                                ],
36723                                                                                                                     'line' => undef
36724                                                                                                                   }, 'Parse::RecDescent::Production' )
36725                                                                                                          ],
36726                                                                                               'name' => '_alternation_1_of_production_1_of_rule_expression',
36727                                                                                               'vars' => '',
36728                                                                                               'line' => 608
36729                                                                                             }, 'Parse::RecDescent::Rule' ),
36730                               'SCHEMA' => bless( {
36731                                                    'impcount' => 0,
36732                                                    'calls' => [],
36733                                                    'changed' => 0,
36734                                                    'opcount' => 0,
36735                                                    'prods' => [
36736                                                                 bless( {
36737                                                                          'number' => '0',
36738                                                                          'strcount' => 0,
36739                                                                          'dircount' => 0,
36740                                                                          'uncommit' => undef,
36741                                                                          'error' => undef,
36742                                                                          'patcount' => 1,
36743                                                                          'actcount' => 0,
36744                                                                          'items' => [
36745                                                                                       bless( {
36746                                                                                                'pattern' => '\\w+',
36747                                                                                                'hashname' => '__PATTERN1__',
36748                                                                                                'description' => '/\\\\w+/',
36749                                                                                                'lookahead' => 0,
36750                                                                                                'rdelim' => '/',
36751                                                                                                'line' => 142,
36752                                                                                                'mod' => '',
36753                                                                                                'ldelim' => '/'
36754                                                                                              }, 'Parse::RecDescent::Token' )
36755                                                                                     ],
36756                                                                          'line' => undef
36757                                                                        }, 'Parse::RecDescent::Production' ),
36758                                                                 bless( {
36759                                                                          'number' => '1',
36760                                                                          'strcount' => 0,
36761                                                                          'dircount' => 0,
36762                                                                          'uncommit' => undef,
36763                                                                          'error' => undef,
36764                                                                          'patcount' => 1,
36765                                                                          'actcount' => 0,
36766                                                                          'items' => [
36767                                                                                       bless( {
36768                                                                                                'pattern' => '\\w{1,128}',
36769                                                                                                'hashname' => '__PATTERN1__',
36770                                                                                                'description' => '/\\\\w\\{1,128\\}/',
36771                                                                                                'lookahead' => 0,
36772                                                                                                'rdelim' => '/',
36773                                                                                                'line' => 144,
36774                                                                                                'mod' => '',
36775                                                                                                'ldelim' => '/'
36776                                                                                              }, 'Parse::RecDescent::Token' )
36777                                                                                     ],
36778                                                                          'line' => undef
36779                                                                        }, 'Parse::RecDescent::Production' )
36780                                                               ],
36781                                                    'name' => 'SCHEMA',
36782                                                    'vars' => '',
36783                                                    'line' => 142
36784                                                  }, 'Parse::RecDescent::Rule' ),
36785                               '_alternation_1_of_production_87_of_rule_sysibm_function' => bless( {
36786                                                                                                     'impcount' => 0,
36787                                                                                                     'calls' => [],
36788                                                                                                     'changed' => 0,
36789                                                                                                     'opcount' => 0,
36790                                                                                                     'prods' => [
36791                                                                                                                  bless( {
36792                                                                                                                           'number' => '0',
36793                                                                                                                           'strcount' => 0,
36794                                                                                                                           'dircount' => 0,
36795                                                                                                                           'uncommit' => undef,
36796                                                                                                                           'error' => undef,
36797                                                                                                                           'patcount' => 1,
36798                                                                                                                           'actcount' => 0,
36799                                                                                                                           'items' => [
36800                                                                                                                                        bless( {
36801                                                                                                                                                 'pattern' => 'VARIANCE',
36802                                                                                                                                                 'hashname' => '__PATTERN1__',
36803                                                                                                                                                 'description' => '/VARIANCE/i',
36804                                                                                                                                                 'lookahead' => 0,
36805                                                                                                                                                 'rdelim' => '/',
36806                                                                                                                                                 'line' => 628,
36807                                                                                                                                                 'mod' => 'i',
36808                                                                                                                                                 'ldelim' => '/'
36809                                                                                                                                               }, 'Parse::RecDescent::Token' )
36810                                                                                                                                      ],
36811                                                                                                                           'line' => undef
36812                                                                                                                         }, 'Parse::RecDescent::Production' ),
36813                                                                                                                  bless( {
36814                                                                                                                           'number' => '1',
36815                                                                                                                           'strcount' => 0,
36816                                                                                                                           'dircount' => 0,
36817                                                                                                                           'uncommit' => undef,
36818                                                                                                                           'error' => undef,
36819                                                                                                                           'patcount' => 1,
36820                                                                                                                           'actcount' => 0,
36821                                                                                                                           'items' => [
36822                                                                                                                                        bless( {
36823                                                                                                                                                 'pattern' => 'VAR',
36824                                                                                                                                                 'hashname' => '__PATTERN1__',
36825                                                                                                                                                 'description' => '/VAR/i',
36826                                                                                                                                                 'lookahead' => 0,
36827                                                                                                                                                 'rdelim' => '/',
36828                                                                                                                                                 'line' => 628,
36829                                                                                                                                                 'mod' => 'i',
36830                                                                                                                                                 'ldelim' => '/'
36831                                                                                                                                               }, 'Parse::RecDescent::Token' )
36832                                                                                                                                      ],
36833                                                                                                                           'line' => 628
36834                                                                                                                         }, 'Parse::RecDescent::Production' )
36835                                                                                                                ],
36836                                                                                                     'name' => '_alternation_1_of_production_87_of_rule_sysibm_function',
36837                                                                                                     'vars' => '',
36838                                                                                                     'line' => 628
36839                                                                                                   }, 'Parse::RecDescent::Rule' ),
36840                               '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression' => bless( {
36841                                                                                                                                      'impcount' => 0,
36842                                                                                                                                      'calls' => [],
36843                                                                                                                                      'changed' => 0,
36844                                                                                                                                      'opcount' => 0,
36845                                                                                                                                      'prods' => [
36846                                                                                                                                                   bless( {
36847                                                                                                                                                            'number' => '0',
36848                                                                                                                                                            'strcount' => 1,
36849                                                                                                                                                            'dircount' => 0,
36850                                                                                                                                                            'uncommit' => undef,
36851                                                                                                                                                            'error' => undef,
36852                                                                                                                                                            'patcount' => 0,
36853                                                                                                                                                            'actcount' => 0,
36854                                                                                                                                                            'items' => [
36855                                                                                                                                                                         bless( {
36856                                                                                                                                                                                  'pattern' => '+',
36857                                                                                                                                                                                  'hashname' => '__STRING1__',
36858                                                                                                                                                                                  'description' => '\'+\'',
36859                                                                                                                                                                                  'lookahead' => 0,
36860                                                                                                                                                                                  'line' => 626
36861                                                                                                                                                                                }, 'Parse::RecDescent::Literal' )
36862                                                                                                                                                                       ],
36863                                                                                                                                                            'line' => undef
36864                                                                                                                                                          }, 'Parse::RecDescent::Production' ),
36865                                                                                                                                                   bless( {
36866                                                                                                                                                            'number' => '1',
36867                                                                                                                                                            'strcount' => 1,
36868                                                                                                                                                            'dircount' => 0,
36869                                                                                                                                                            'uncommit' => undef,
36870                                                                                                                                                            'error' => undef,
36871                                                                                                                                                            'patcount' => 0,
36872                                                                                                                                                            'actcount' => 0,
36873                                                                                                                                                            'items' => [
36874                                                                                                                                                                         bless( {
36875                                                                                                                                                                                  'pattern' => '-',
36876                                                                                                                                                                                  'hashname' => '__STRING1__',
36877                                                                                                                                                                                  'description' => '\'-\'',
36878                                                                                                                                                                                  'lookahead' => 0,
36879                                                                                                                                                                                  'line' => 627
36880                                                                                                                                                                                }, 'Parse::RecDescent::Literal' )
36881                                                                                                                                                                       ],
36882                                                                                                                                                            'line' => 627
36883                                                                                                                                                          }, 'Parse::RecDescent::Production' )
36884                                                                                                                                                 ],
36885                                                                                                                                      'name' => '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression',
36886                                                                                                                                      'vars' => '',
36887                                                                                                                                      'line' => 626
36888                                                                                                                                    }, 'Parse::RecDescent::Rule' ),
36889                               'get_bracketed' => bless( {
36890                                                           'impcount' => 0,
36891                                                           'calls' => [],
36892                                                           'changed' => 0,
36893                                                           'opcount' => 0,
36894                                                           'prods' => [
36895                                                                        bless( {
36896                                                                                 'number' => '0',
36897                                                                                 'strcount' => 0,
36898                                                                                 'dircount' => 0,
36899                                                                                 'uncommit' => undef,
36900                                                                                 'error' => undef,
36901                                                                                 'patcount' => 0,
36902                                                                                 'actcount' => 1,
36903                                                                                 'items' => [
36904                                                                                              bless( {
36905                                                                                                       'hashname' => '__ACTION1__',
36906                                                                                                       'lookahead' => 0,
36907                                                                                                       'line' => 170,
36908                                                                                                       'code' => '{
36909     extract_bracketed($text, \'(\');
36910 }'
36911                                                                                                     }, 'Parse::RecDescent::Action' )
36912                                                                                            ],
36913                                                                                 'line' => undef
36914                                                                               }, 'Parse::RecDescent::Production' )
36915                                                                      ],
36916                                                           'name' => 'get_bracketed',
36917                                                           'vars' => '',
36918                                                           'line' => 169
36919                                                         }, 'Parse::RecDescent::Rule' ),
36920                               'labeled_duration' => bless( {
36921                                                              'impcount' => 0,
36922                                                              'calls' => [
36923                                                                           'ld_type',
36924                                                                           'ld_duration'
36925                                                                         ],
36926                                                              'changed' => 0,
36927                                                              'opcount' => 0,
36928                                                              'prods' => [
36929                                                                           bless( {
36930                                                                                    'number' => '0',
36931                                                                                    'strcount' => 0,
36932                                                                                    'dircount' => 0,
36933                                                                                    'uncommit' => undef,
36934                                                                                    'error' => undef,
36935                                                                                    'patcount' => 0,
36936                                                                                    'actcount' => 0,
36937                                                                                    'items' => [
36938                                                                                                 bless( {
36939                                                                                                          'subrule' => 'ld_type',
36940                                                                                                          'matchrule' => 0,
36941                                                                                                          'implicit' => undef,
36942                                                                                                          'argcode' => undef,
36943                                                                                                          'lookahead' => 0,
36944                                                                                                          'line' => 480
36945                                                                                                        }, 'Parse::RecDescent::Subrule' ),
36946                                                                                                 bless( {
36947                                                                                                          'subrule' => 'ld_duration',
36948                                                                                                          'matchrule' => 0,
36949                                                                                                          'implicit' => undef,
36950                                                                                                          'argcode' => undef,
36951                                                                                                          'lookahead' => 0,
36952                                                                                                          'line' => 480
36953                                                                                                        }, 'Parse::RecDescent::Subrule' )
36954                                                                                               ],
36955                                                                                    'line' => undef
36956                                                                                  }, 'Parse::RecDescent::Production' )
36957                                                                         ],
36958                                                              'name' => 'labeled_duration',
36959                                                              'vars' => '',
36960                                                              'line' => 480
36961                                                            }, 'Parse::RecDescent::Rule' ),
36962                               'group_end' => bless( {
36963                                                       'impcount' => 0,
36964                                                       'calls' => [
36965                                                                    'unsigned_constant'
36966                                                                  ],
36967                                                       'changed' => 0,
36968                                                       'opcount' => 0,
36969                                                       'prods' => [
36970                                                                    bless( {
36971                                                                             'number' => '0',
36972                                                                             'strcount' => 0,
36973                                                                             'dircount' => 0,
36974                                                                             'uncommit' => undef,
36975                                                                             'error' => undef,
36976                                                                             'patcount' => 1,
36977                                                                             'actcount' => 0,
36978                                                                             'items' => [
36979                                                                                          bless( {
36980                                                                                                   'pattern' => 'UNBOUNDED\\s+PRECEDING',
36981                                                                                                   'hashname' => '__PATTERN1__',
36982                                                                                                   'description' => '/UNBOUNDED\\\\s+PRECEDING/i',
36983                                                                                                   'lookahead' => 0,
36984                                                                                                   'rdelim' => '/',
36985                                                                                                   'line' => 590,
36986                                                                                                   'mod' => 'i',
36987                                                                                                   'ldelim' => '/'
36988                                                                                                 }, 'Parse::RecDescent::Token' )
36989                                                                                        ],
36990                                                                             'line' => undef
36991                                                                           }, 'Parse::RecDescent::Production' ),
36992                                                                    bless( {
36993                                                                             'number' => '1',
36994                                                                             'strcount' => 0,
36995                                                                             'dircount' => 0,
36996                                                                             'uncommit' => undef,
36997                                                                             'error' => undef,
36998                                                                             'patcount' => 1,
36999                                                                             'actcount' => 0,
37000                                                                             'items' => [
37001                                                                                          bless( {
37002                                                                                                   'subrule' => 'unsigned_constant',
37003                                                                                                   'matchrule' => 0,
37004                                                                                                   'implicit' => undef,
37005                                                                                                   'argcode' => undef,
37006                                                                                                   'lookahead' => 0,
37007                                                                                                   'line' => 591
37008                                                                                                 }, 'Parse::RecDescent::Subrule' ),
37009                                                                                          bless( {
37010                                                                                                   'pattern' => 'FOLLOWING',
37011                                                                                                   'hashname' => '__PATTERN1__',
37012                                                                                                   'description' => '/FOLLOWING/i',
37013                                                                                                   'lookahead' => 0,
37014                                                                                                   'rdelim' => '/',
37015                                                                                                   'line' => 591,
37016                                                                                                   'mod' => 'i',
37017                                                                                                   'ldelim' => '/'
37018                                                                                                 }, 'Parse::RecDescent::Token' )
37019                                                                                        ],
37020                                                                             'line' => 591
37021                                                                           }, 'Parse::RecDescent::Production' )
37022                                                                  ],
37023                                                       'name' => 'group_end',
37024                                                       'vars' => '',
37025                                                       'line' => 590
37026                                                     }, 'Parse::RecDescent::Rule' ),
37027                               'statement' => bless( {
37028                                                       'impcount' => 0,
37029                                                       'calls' => [
37030                                                                    'comment',
37031                                                                    'create'
37032                                                                  ],
37033                                                       'changed' => 0,
37034                                                       'opcount' => 0,
37035                                                       'prods' => [
37036                                                                    bless( {
37037                                                                             'number' => '0',
37038                                                                             'strcount' => 0,
37039                                                                             'dircount' => 0,
37040                                                                             'uncommit' => undef,
37041                                                                             'error' => undef,
37042                                                                             'patcount' => 0,
37043                                                                             'actcount' => 0,
37044                                                                             'items' => [
37045                                                                                          bless( {
37046                                                                                                   'subrule' => 'comment',
37047                                                                                                   'matchrule' => 0,
37048                                                                                                   'implicit' => undef,
37049                                                                                                   'argcode' => undef,
37050                                                                                                   'lookahead' => 0,
37051                                                                                                   'line' => 23
37052                                                                                                 }, 'Parse::RecDescent::Subrule' )
37053                                                                                        ],
37054                                                                             'line' => undef
37055                                                                           }, 'Parse::RecDescent::Production' ),
37056                                                                    bless( {
37057                                                                             'number' => '1',
37058                                                                             'strcount' => 0,
37059                                                                             'dircount' => 0,
37060                                                                             'uncommit' => undef,
37061                                                                             'error' => undef,
37062                                                                             'patcount' => 0,
37063                                                                             'actcount' => 0,
37064                                                                             'items' => [
37065                                                                                          bless( {
37066                                                                                                   'subrule' => 'create',
37067                                                                                                   'matchrule' => 0,
37068                                                                                                   'implicit' => undef,
37069                                                                                                   'argcode' => undef,
37070                                                                                                   'lookahead' => 0,
37071                                                                                                   'line' => 24
37072                                                                                                 }, 'Parse::RecDescent::Subrule' )
37073                                                                                        ],
37074                                                                             'line' => 24
37075                                                                           }, 'Parse::RecDescent::Production' ),
37076                                                                    bless( {
37077                                                                             'number' => '2',
37078                                                                             'strcount' => 0,
37079                                                                             'dircount' => 1,
37080                                                                             'uncommit' => 0,
37081                                                                             'error' => 1,
37082                                                                             'patcount' => 0,
37083                                                                             'actcount' => 0,
37084                                                                             'items' => [
37085                                                                                          bless( {
37086                                                                                                   'msg' => '',
37087                                                                                                   'hashname' => '__DIRECTIVE1__',
37088                                                                                                   'commitonly' => '',
37089                                                                                                   'lookahead' => 0,
37090                                                                                                   'line' => 25
37091                                                                                                 }, 'Parse::RecDescent::Error' )
37092                                                                                        ],
37093                                                                             'line' => 25
37094                                                                           }, 'Parse::RecDescent::Production' )
37095                                                                  ],
37096                                                       'name' => 'statement',
37097                                                       'vars' => '',
37098                                                       'line' => 22
37099                                                     }, 'Parse::RecDescent::Rule' ),
37100                               '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause' => bless( {
37101                                                                                                                                              'impcount' => 0,
37102                                                                                                                                              'calls' => [
37103                                                                                                                                                           'result_expression'
37104                                                                                                                                                         ],
37105                                                                                                                                              'changed' => 0,
37106                                                                                                                                              'opcount' => 0,
37107                                                                                                                                              'prods' => [
37108                                                                                                                                                           bless( {
37109                                                                                                                                                                    'number' => '0',
37110                                                                                                                                                                    'strcount' => 0,
37111                                                                                                                                                                    'dircount' => 0,
37112                                                                                                                                                                    'uncommit' => undef,
37113                                                                                                                                                                    'error' => undef,
37114                                                                                                                                                                    'patcount' => 0,
37115                                                                                                                                                                    'actcount' => 0,
37116                                                                                                                                                                    'items' => [
37117                                                                                                                                                                                 bless( {
37118                                                                                                                                                                                          'subrule' => 'result_expression',
37119                                                                                                                                                                                          'matchrule' => 0,
37120                                                                                                                                                                                          'implicit' => undef,
37121                                                                                                                                                                                          'argcode' => undef,
37122                                                                                                                                                                                          'lookahead' => 0,
37123                                                                                                                                                                                          'line' => 626
37124                                                                                                                                                                                        }, 'Parse::RecDescent::Subrule' )
37125                                                                                                                                                                               ],
37126                                                                                                                                                                    'line' => undef
37127                                                                                                                                                                  }, 'Parse::RecDescent::Production' ),
37128                                                                                                                                                           bless( {
37129                                                                                                                                                                    'number' => '1',
37130                                                                                                                                                                    'strcount' => 0,
37131                                                                                                                                                                    'dircount' => 0,
37132                                                                                                                                                                    'uncommit' => undef,
37133                                                                                                                                                                    'error' => undef,
37134                                                                                                                                                                    'patcount' => 1,
37135                                                                                                                                                                    'actcount' => 0,
37136                                                                                                                                                                    'items' => [
37137                                                                                                                                                                                 bless( {
37138                                                                                                                                                                                          'pattern' => 'NULL',
37139                                                                                                                                                                                          'hashname' => '__PATTERN1__',
37140                                                                                                                                                                                          'description' => '/NULL/i',
37141                                                                                                                                                                                          'lookahead' => 0,
37142                                                                                                                                                                                          'rdelim' => '/',
37143                                                                                                                                                                                          'line' => 627,
37144                                                                                                                                                                                          'mod' => 'i',
37145                                                                                                                                                                                          'ldelim' => '/'
37146                                                                                                                                                                                        }, 'Parse::RecDescent::Token' )
37147                                                                                                                                                                               ],
37148                                                                                                                                                                    'line' => 627
37149                                                                                                                                                                  }, 'Parse::RecDescent::Production' )
37150                                                                                                                                                         ],
37151                                                                                                                                              'name' => '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause',
37152                                                                                                                                              'vars' => '',
37153                                                                                                                                              'line' => 626
37154                                                                                                                                            }, 'Parse::RecDescent::Rule' ),
37155                               '_alternation_2_of_production_1_of_rule_case_expression' => bless( {
37156                                                                                                    'impcount' => 0,
37157                                                                                                    'calls' => [
37158                                                                                                                 'result_expression'
37159                                                                                                               ],
37160                                                                                                    'changed' => 0,
37161                                                                                                    'opcount' => 0,
37162                                                                                                    'prods' => [
37163                                                                                                                 bless( {
37164                                                                                                                          'number' => '0',
37165                                                                                                                          'strcount' => 0,
37166                                                                                                                          'dircount' => 0,
37167                                                                                                                          'uncommit' => undef,
37168                                                                                                                          'error' => undef,
37169                                                                                                                          'patcount' => 1,
37170                                                                                                                          'actcount' => 0,
37171                                                                                                                          'items' => [
37172                                                                                                                                       bless( {
37173                                                                                                                                                'pattern' => 'ELSE\\s+NULL',
37174                                                                                                                                                'hashname' => '__PATTERN1__',
37175                                                                                                                                                'description' => '/ELSE\\\\s+NULL/i',
37176                                                                                                                                                'lookahead' => 0,
37177                                                                                                                                                'rdelim' => '/',
37178                                                                                                                                                'line' => 626,
37179                                                                                                                                                'mod' => 'i',
37180                                                                                                                                                'ldelim' => '/'
37181                                                                                                                                              }, 'Parse::RecDescent::Token' )
37182                                                                                                                                     ],
37183                                                                                                                          'line' => undef
37184                                                                                                                        }, 'Parse::RecDescent::Production' ),
37185                                                                                                                 bless( {
37186                                                                                                                          'number' => '1',
37187                                                                                                                          'strcount' => 0,
37188                                                                                                                          'dircount' => 0,
37189                                                                                                                          'uncommit' => undef,
37190                                                                                                                          'error' => undef,
37191                                                                                                                          'patcount' => 1,
37192                                                                                                                          'actcount' => 0,
37193                                                                                                                          'items' => [
37194                                                                                                                                       bless( {
37195                                                                                                                                                'pattern' => 'ELSE',
37196                                                                                                                                                'hashname' => '__PATTERN1__',
37197                                                                                                                                                'description' => '/ELSE/i',
37198                                                                                                                                                'lookahead' => 0,
37199                                                                                                                                                'rdelim' => '/',
37200                                                                                                                                                'line' => 627,
37201                                                                                                                                                'mod' => 'i',
37202                                                                                                                                                'ldelim' => '/'
37203                                                                                                                                              }, 'Parse::RecDescent::Token' ),
37204                                                                                                                                       bless( {
37205                                                                                                                                                'subrule' => 'result_expression',
37206                                                                                                                                                'matchrule' => 0,
37207                                                                                                                                                'implicit' => undef,
37208                                                                                                                                                'argcode' => undef,
37209                                                                                                                                                'lookahead' => 0,
37210                                                                                                                                                'line' => 627
37211                                                                                                                                              }, 'Parse::RecDescent::Subrule' )
37212                                                                                                                                     ],
37213                                                                                                                          'line' => 627
37214                                                                                                                        }, 'Parse::RecDescent::Production' )
37215                                                                                                               ],
37216                                                                                                    'name' => '_alternation_2_of_production_1_of_rule_case_expression',
37217                                                                                                    'vars' => '',
37218                                                                                                    'line' => 626
37219                                                                                                  }, 'Parse::RecDescent::Rule' ),
37220                               'subject_expression' => bless( {
37221                                                                'impcount' => 0,
37222                                                                'calls' => [
37223                                                                             'expression'
37224                                                                           ],
37225                                                                'changed' => 0,
37226                                                                'opcount' => 0,
37227                                                                'prods' => [
37228                                                                             bless( {
37229                                                                                      'number' => '0',
37230                                                                                      'strcount' => 0,
37231                                                                                      'dircount' => 0,
37232                                                                                      'uncommit' => undef,
37233                                                                                      'error' => undef,
37234                                                                                      'patcount' => 0,
37235                                                                                      'actcount' => 1,
37236                                                                                      'items' => [
37237                                                                                                   bless( {
37238                                                                                                            'subrule' => 'expression',
37239                                                                                                            'matchrule' => 0,
37240                                                                                                            'implicit' => undef,
37241                                                                                                            'argcode' => undef,
37242                                                                                                            'lookahead' => 0,
37243                                                                                                            'line' => 598
37244                                                                                                          }, 'Parse::RecDescent::Subrule' ),
37245                                                                                                   bless( {
37246                                                                                                            'hashname' => '__ACTION1__',
37247                                                                                                            'lookahead' => 0,
37248                                                                                                            'line' => 599,
37249                                                                                                            'code' => '{ # with static result type that is a used-defined struct type
37250 }'
37251                                                                                                          }, 'Parse::RecDescent::Action' )
37252                                                                                                 ],
37253                                                                                      'line' => undef
37254                                                                                    }, 'Parse::RecDescent::Production' )
37255                                                                           ],
37256                                                                'name' => 'subject_expression',
37257                                                                'vars' => '',
37258                                                                'line' => 598
37259                                                              }, 'Parse::RecDescent::Rule' ),
37260                               '_alternation_1_of_production_1_of_rule_desc_option' => bless( {
37261                                                                                                'impcount' => 0,
37262                                                                                                'calls' => [],
37263                                                                                                'changed' => 0,
37264                                                                                                'opcount' => 0,
37265                                                                                                'prods' => [
37266                                                                                                             bless( {
37267                                                                                                                      'number' => '0',
37268                                                                                                                      'strcount' => 0,
37269                                                                                                                      'dircount' => 0,
37270                                                                                                                      'uncommit' => undef,
37271                                                                                                                      'error' => undef,
37272                                                                                                                      'patcount' => 1,
37273                                                                                                                      'actcount' => 0,
37274                                                                                                                      'items' => [
37275                                                                                                                                   bless( {
37276                                                                                                                                            'pattern' => 'NULLS\\s+FIRST',
37277                                                                                                                                            'hashname' => '__PATTERN1__',
37278                                                                                                                                            'description' => '/NULLS\\\\s+FIRST/i',
37279                                                                                                                                            'lookahead' => 0,
37280                                                                                                                                            'rdelim' => '/',
37281                                                                                                                                            'line' => 628,
37282                                                                                                                                            'mod' => 'i',
37283                                                                                                                                            'ldelim' => '/'
37284                                                                                                                                          }, 'Parse::RecDescent::Token' )
37285                                                                                                                                 ],
37286                                                                                                                      'line' => undef
37287                                                                                                                    }, 'Parse::RecDescent::Production' ),
37288                                                                                                             bless( {
37289                                                                                                                      'number' => '1',
37290                                                                                                                      'strcount' => 0,
37291                                                                                                                      'dircount' => 0,
37292                                                                                                                      'uncommit' => undef,
37293                                                                                                                      'error' => undef,
37294                                                                                                                      'patcount' => 1,
37295                                                                                                                      'actcount' => 0,
37296                                                                                                                      'items' => [
37297                                                                                                                                   bless( {
37298                                                                                                                                            'pattern' => 'NULLS\\s+LAST',
37299                                                                                                                                            'hashname' => '__PATTERN1__',
37300                                                                                                                                            'description' => '/NULLS\\\\s+LAST/i',
37301                                                                                                                                            'lookahead' => 0,
37302                                                                                                                                            'rdelim' => '/',
37303                                                                                                                                            'line' => 628,
37304                                                                                                                                            'mod' => 'i',
37305                                                                                                                                            'ldelim' => '/'
37306                                                                                                                                          }, 'Parse::RecDescent::Token' )
37307                                                                                                                                 ],
37308                                                                                                                      'line' => 628
37309                                                                                                                    }, 'Parse::RecDescent::Production' )
37310                                                                                                           ],
37311                                                                                                'name' => '_alternation_1_of_production_1_of_rule_desc_option',
37312                                                                                                'vars' => '',
37313                                                                                                'line' => 628
37314                                                                                              }, 'Parse::RecDescent::Rule' ),
37315                               'view_name' => bless( {
37316                                                       'impcount' => 0,
37317                                                       'calls' => [
37318                                                                    'SCHEMA',
37319                                                                    'NAME'
37320                                                                  ],
37321                                                       'changed' => 0,
37322                                                       'opcount' => 0,
37323                                                       'prods' => [
37324                                                                    bless( {
37325                                                                             'number' => '0',
37326                                                                             'strcount' => 1,
37327                                                                             'dircount' => 0,
37328                                                                             'uncommit' => undef,
37329                                                                             'error' => undef,
37330                                                                             'patcount' => 0,
37331                                                                             'actcount' => 1,
37332                                                                             'items' => [
37333                                                                                          bless( {
37334                                                                                                   'subrule' => 'SCHEMA',
37335                                                                                                   'matchrule' => 0,
37336                                                                                                   'implicit' => undef,
37337                                                                                                   'argcode' => undef,
37338                                                                                                   'lookahead' => 0,
37339                                                                                                   'line' => 129
37340                                                                                                 }, 'Parse::RecDescent::Subrule' ),
37341                                                                                          bless( {
37342                                                                                                   'pattern' => '.',
37343                                                                                                   'hashname' => '__STRING1__',
37344                                                                                                   'description' => '\'.\'',
37345                                                                                                   'lookahead' => 0,
37346                                                                                                   'line' => 129
37347                                                                                                 }, 'Parse::RecDescent::Literal' ),
37348                                                                                          bless( {
37349                                                                                                   'subrule' => 'NAME',
37350                                                                                                   'matchrule' => 0,
37351                                                                                                   'implicit' => undef,
37352                                                                                                   'argcode' => undef,
37353                                                                                                   'lookahead' => 0,
37354                                                                                                   'line' => 129
37355                                                                                                 }, 'Parse::RecDescent::Subrule' ),
37356                                                                                          bless( {
37357                                                                                                   'hashname' => '__ACTION1__',
37358                                                                                                   'lookahead' => 0,
37359                                                                                                   'line' => 130,
37360                                                                                                   'code' => '{ $return = { schema => $item[1], name => $item[3] } }'
37361                                                                                                 }, 'Parse::RecDescent::Action' )
37362                                                                                        ],
37363                                                                             'line' => undef
37364                                                                           }, 'Parse::RecDescent::Production' ),
37365                                                                    bless( {
37366                                                                             'number' => '1',
37367                                                                             'strcount' => 0,
37368                                                                             'dircount' => 0,
37369                                                                             'uncommit' => undef,
37370                                                                             'error' => undef,
37371                                                                             'patcount' => 0,
37372                                                                             'actcount' => 1,
37373                                                                             'items' => [
37374                                                                                          bless( {
37375                                                                                                   'subrule' => 'NAME',
37376                                                                                                   'matchrule' => 0,
37377                                                                                                   'implicit' => undef,
37378                                                                                                   'argcode' => undef,
37379                                                                                                   'lookahead' => 0,
37380                                                                                                   'line' => 131
37381                                                                                                 }, 'Parse::RecDescent::Subrule' ),
37382                                                                                          bless( {
37383                                                                                                   'hashname' => '__ACTION1__',
37384                                                                                                   'lookahead' => 0,
37385                                                                                                   'line' => 132,
37386                                                                                                   'code' => '{ $return = { name => $item[1] } }'
37387                                                                                                 }, 'Parse::RecDescent::Action' )
37388                                                                                        ],
37389                                                                             'line' => 131
37390                                                                           }, 'Parse::RecDescent::Production' )
37391                                                                  ],
37392                                                       'name' => 'view_name',
37393                                                       'vars' => '',
37394                                                       'line' => 129
37395                                                     }, 'Parse::RecDescent::Rule' ),
37396                               '_alternation_1_of_production_1_of_rule_cond' => bless( {
37397                                                                                         'impcount' => 0,
37398                                                                                         'calls' => [],
37399                                                                                         'changed' => 0,
37400                                                                                         'opcount' => 0,
37401                                                                                         'prods' => [
37402                                                                                                      bless( {
37403                                                                                                               'number' => '0',
37404                                                                                                               'strcount' => 0,
37405                                                                                                               'dircount' => 0,
37406                                                                                                               'uncommit' => undef,
37407                                                                                                               'error' => undef,
37408                                                                                                               'patcount' => 1,
37409                                                                                                               'actcount' => 0,
37410                                                                                                               'items' => [
37411                                                                                                                            bless( {
37412                                                                                                                                     'pattern' => 'AND',
37413                                                                                                                                     'hashname' => '__PATTERN1__',
37414                                                                                                                                     'description' => '/AND/i',
37415                                                                                                                                     'lookahead' => 0,
37416                                                                                                                                     'rdelim' => '/',
37417                                                                                                                                     'line' => 628,
37418                                                                                                                                     'mod' => 'i',
37419                                                                                                                                     'ldelim' => '/'
37420                                                                                                                                   }, 'Parse::RecDescent::Token' )
37421                                                                                                                          ],
37422                                                                                                               'line' => undef
37423                                                                                                             }, 'Parse::RecDescent::Production' ),
37424                                                                                                      bless( {
37425                                                                                                               'number' => '1',
37426                                                                                                               'strcount' => 0,
37427                                                                                                               'dircount' => 0,
37428                                                                                                               'uncommit' => undef,
37429                                                                                                               'error' => undef,
37430                                                                                                               'patcount' => 1,
37431                                                                                                               'actcount' => 0,
37432                                                                                                               'items' => [
37433                                                                                                                            bless( {
37434                                                                                                                                     'pattern' => 'OR',
37435                                                                                                                                     'hashname' => '__PATTERN1__',
37436                                                                                                                                     'description' => '/OR/i',
37437                                                                                                                                     'lookahead' => 0,
37438                                                                                                                                     'rdelim' => '/',
37439                                                                                                                                     'line' => 628,
37440                                                                                                                                     'mod' => 'i',
37441                                                                                                                                     'ldelim' => '/'
37442                                                                                                                                   }, 'Parse::RecDescent::Token' )
37443                                                                                                                          ],
37444                                                                                                               'line' => 628
37445                                                                                                             }, 'Parse::RecDescent::Production' )
37446                                                                                                    ],
37447                                                                                         'name' => '_alternation_1_of_production_1_of_rule_cond',
37448                                                                                         'vars' => '',
37449                                                                                         'line' => 628
37450                                                                                       }, 'Parse::RecDescent::Rule' ),
37451                               'numbering_function' => bless( {
37452                                                                'impcount' => 2,
37453                                                                'calls' => [
37454                                                                             'window_partition_clause',
37455                                                                             '_alternation_1_of_production_1_of_rule_numbering_function',
37456                                                                             '_alternation_2_of_production_1_of_rule_numbering_function'
37457                                                                           ],
37458                                                                'changed' => 0,
37459                                                                'opcount' => 0,
37460                                                                'prods' => [
37461                                                                             bless( {
37462                                                                                      'number' => '0',
37463                                                                                      'strcount' => 3,
37464                                                                                      'dircount' => 0,
37465                                                                                      'uncommit' => undef,
37466                                                                                      'error' => undef,
37467                                                                                      'patcount' => 2,
37468                                                                                      'actcount' => 0,
37469                                                                                      'items' => [
37470                                                                                                   bless( {
37471                                                                                                            'pattern' => 'ROW_NUMBER|ROWNUMBER',
37472                                                                                                            'hashname' => '__PATTERN1__',
37473                                                                                                            'description' => '/ROW_NUMBER|ROWNUMBER/i',
37474                                                                                                            'lookahead' => 0,
37475                                                                                                            'rdelim' => '/',
37476                                                                                                            'line' => 546,
37477                                                                                                            'mod' => 'i',
37478                                                                                                            'ldelim' => '/'
37479                                                                                                          }, 'Parse::RecDescent::Token' ),
37480                                                                                                   bless( {
37481                                                                                                            'pattern' => '()',
37482                                                                                                            'hashname' => '__STRING1__',
37483                                                                                                            'description' => '\'()\'',
37484                                                                                                            'lookahead' => 0,
37485                                                                                                            'line' => 546
37486                                                                                                          }, 'Parse::RecDescent::Literal' ),
37487                                                                                                   bless( {
37488                                                                                                            'pattern' => 'OVER',
37489                                                                                                            'hashname' => '__PATTERN2__',
37490                                                                                                            'description' => '/OVER/i',
37491                                                                                                            'lookahead' => 0,
37492                                                                                                            'rdelim' => '/',
37493                                                                                                            'line' => 546,
37494                                                                                                            'mod' => 'i',
37495                                                                                                            'ldelim' => '/'
37496                                                                                                          }, 'Parse::RecDescent::Token' ),
37497                                                                                                   bless( {
37498                                                                                                            'pattern' => '(',
37499                                                                                                            'hashname' => '__STRING2__',
37500                                                                                                            'description' => '\'(\'',
37501                                                                                                            'lookahead' => 0,
37502                                                                                                            'line' => 546
37503                                                                                                          }, 'Parse::RecDescent::Literal' ),
37504                                                                                                   bless( {
37505                                                                                                            'subrule' => 'window_partition_clause',
37506                                                                                                            'expected' => undef,
37507                                                                                                            'min' => 0,
37508                                                                                                            'argcode' => undef,
37509                                                                                                            'max' => 1,
37510                                                                                                            'matchrule' => 0,
37511                                                                                                            'repspec' => '?',
37512                                                                                                            'lookahead' => 0,
37513                                                                                                            'line' => 546
37514                                                                                                          }, 'Parse::RecDescent::Repetition' ),
37515                                                                                                   bless( {
37516                                                                                                            'subrule' => '_alternation_1_of_production_1_of_rule_numbering_function',
37517                                                                                                            'expected' => 'window_order_clause',
37518                                                                                                            'min' => 0,
37519                                                                                                            'argcode' => undef,
37520                                                                                                            'max' => 1,
37521                                                                                                            'matchrule' => 0,
37522                                                                                                            'repspec' => '?',
37523                                                                                                            'lookahead' => 0,
37524                                                                                                            'line' => 548
37525                                                                                                          }, 'Parse::RecDescent::Repetition' ),
37526                                                                                                   bless( {
37527                                                                                                            'subrule' => '_alternation_2_of_production_1_of_rule_numbering_function',
37528                                                                                                            'expected' => '/RANGE\\\\s+BETWEEN\\\\s+UNBOUNDED\\\\s+PRECEDING\\\\s+AND\\\\s+UNBBOUNDED\\\\s+FOLLOWING/i, or window_aggregation_group_clause',
37529                                                                                                            'min' => 0,
37530                                                                                                            'argcode' => undef,
37531                                                                                                            'max' => 1,
37532                                                                                                            'matchrule' => 0,
37533                                                                                                            'repspec' => '?',
37534                                                                                                            'lookahead' => 0,
37535                                                                                                            'line' => 551
37536                                                                                                          }, 'Parse::RecDescent::Repetition' ),
37537                                                                                                   bless( {
37538                                                                                                            'pattern' => ')',
37539                                                                                                            'hashname' => '__STRING3__',
37540                                                                                                            'description' => '\')\'',
37541                                                                                                            'lookahead' => 0,
37542                                                                                                            'line' => 551
37543                                                                                                          }, 'Parse::RecDescent::Literal' )
37544                                                                                                 ],
37545                                                                                      'line' => undef
37546                                                                                    }, 'Parse::RecDescent::Production' )
37547                                                                           ],
37548                                                                'name' => 'numbering_function',
37549                                                                'vars' => '',
37550                                                                'line' => 546
37551                                                              }, 'Parse::RecDescent::Rule' ),
37552                               '_alternation_1_of_production_1_of_rule_window_aggregation_group_clause' => bless( {
37553                                                                                                                    'impcount' => 0,
37554                                                                                                                    'calls' => [],
37555                                                                                                                    'changed' => 0,
37556                                                                                                                    'opcount' => 0,
37557                                                                                                                    'prods' => [
37558                                                                                                                                 bless( {
37559                                                                                                                                          'number' => '0',
37560                                                                                                                                          'strcount' => 0,
37561                                                                                                                                          'dircount' => 0,
37562                                                                                                                                          'uncommit' => undef,
37563                                                                                                                                          'error' => undef,
37564                                                                                                                                          'patcount' => 1,
37565                                                                                                                                          'actcount' => 0,
37566                                                                                                                                          'items' => [
37567                                                                                                                                                       bless( {
37568                                                                                                                                                                'pattern' => 'ROWS',
37569                                                                                                                                                                'hashname' => '__PATTERN1__',
37570                                                                                                                                                                'description' => '/ROWS/i',
37571                                                                                                                                                                'lookahead' => 0,
37572                                                                                                                                                                'rdelim' => '/',
37573                                                                                                                                                                'line' => 626,
37574                                                                                                                                                                'mod' => 'i',
37575                                                                                                                                                                'ldelim' => '/'
37576                                                                                                                                                              }, 'Parse::RecDescent::Token' )
37577                                                                                                                                                     ],
37578                                                                                                                                          'line' => undef
37579                                                                                                                                        }, 'Parse::RecDescent::Production' ),
37580                                                                                                                                 bless( {
37581                                                                                                                                          'number' => '1',
37582                                                                                                                                          'strcount' => 0,
37583                                                                                                                                          'dircount' => 0,
37584                                                                                                                                          'uncommit' => undef,
37585                                                                                                                                          'error' => undef,
37586                                                                                                                                          'patcount' => 1,
37587                                                                                                                                          'actcount' => 0,
37588                                                                                                                                          'items' => [
37589                                                                                                                                                       bless( {
37590                                                                                                                                                                'pattern' => 'RANGE',
37591                                                                                                                                                                'hashname' => '__PATTERN1__',
37592                                                                                                                                                                'description' => '/RANGE/i',
37593                                                                                                                                                                'lookahead' => 0,
37594                                                                                                                                                                'rdelim' => '/',
37595                                                                                                                                                                'line' => 627,
37596                                                                                                                                                                'mod' => 'i',
37597                                                                                                                                                                'ldelim' => '/'
37598                                                                                                                                                              }, 'Parse::RecDescent::Token' )
37599                                                                                                                                                     ],
37600                                                                                                                                          'line' => 627
37601                                                                                                                                        }, 'Parse::RecDescent::Production' )
37602                                                                                                                               ],
37603                                                                                                                    'name' => '_alternation_1_of_production_1_of_rule_window_aggregation_group_clause',
37604                                                                                                                    'vars' => '',
37605                                                                                                                    'line' => 626
37606                                                                                                                  }, 'Parse::RecDescent::Rule' ),
37607                               'group_bound1' => bless( {
37608                                                          'impcount' => 0,
37609                                                          'calls' => [
37610                                                                       'unsigned_constant'
37611                                                                     ],
37612                                                          'changed' => 0,
37613                                                          'opcount' => 0,
37614                                                          'prods' => [
37615                                                                       bless( {
37616                                                                                'number' => '0',
37617                                                                                'strcount' => 0,
37618                                                                                'dircount' => 0,
37619                                                                                'uncommit' => undef,
37620                                                                                'error' => undef,
37621                                                                                'patcount' => 1,
37622                                                                                'actcount' => 0,
37623                                                                                'items' => [
37624                                                                                             bless( {
37625                                                                                                      'pattern' => 'UNBOUNDED\\s+PRECEDING',
37626                                                                                                      'hashname' => '__PATTERN1__',
37627                                                                                                      'description' => '/UNBOUNDED\\\\s+PRECEDING/i',
37628                                                                                                      'lookahead' => 0,
37629                                                                                                      'rdelim' => '/',
37630                                                                                                      'line' => 580,
37631                                                                                                      'mod' => 'i',
37632                                                                                                      'ldelim' => '/'
37633                                                                                                    }, 'Parse::RecDescent::Token' )
37634                                                                                           ],
37635                                                                                'line' => undef
37636                                                                              }, 'Parse::RecDescent::Production' ),
37637                                                                       bless( {
37638                                                                                'number' => '1',
37639                                                                                'strcount' => 0,
37640                                                                                'dircount' => 0,
37641                                                                                'uncommit' => undef,
37642                                                                                'error' => undef,
37643                                                                                'patcount' => 1,
37644                                                                                'actcount' => 0,
37645                                                                                'items' => [
37646                                                                                             bless( {
37647                                                                                                      'subrule' => 'unsigned_constant',
37648                                                                                                      'matchrule' => 0,
37649                                                                                                      'implicit' => undef,
37650                                                                                                      'argcode' => undef,
37651                                                                                                      'lookahead' => 0,
37652                                                                                                      'line' => 581
37653                                                                                                    }, 'Parse::RecDescent::Subrule' ),
37654                                                                                             bless( {
37655                                                                                                      'pattern' => 'PRECEDING',
37656                                                                                                      'hashname' => '__PATTERN1__',
37657                                                                                                      'description' => '/PRECEDING/i',
37658                                                                                                      'lookahead' => 0,
37659                                                                                                      'rdelim' => '/',
37660                                                                                                      'line' => 581,
37661                                                                                                      'mod' => 'i',
37662                                                                                                      'ldelim' => '/'
37663                                                                                                    }, 'Parse::RecDescent::Token' )
37664                                                                                           ],
37665                                                                                'line' => 581
37666                                                                              }, 'Parse::RecDescent::Production' ),
37667                                                                       bless( {
37668                                                                                'number' => '2',
37669                                                                                'strcount' => 0,
37670                                                                                'dircount' => 0,
37671                                                                                'uncommit' => undef,
37672                                                                                'error' => undef,
37673                                                                                'patcount' => 1,
37674                                                                                'actcount' => 0,
37675                                                                                'items' => [
37676                                                                                             bless( {
37677                                                                                                      'subrule' => 'unsigned_constant',
37678                                                                                                      'matchrule' => 0,
37679                                                                                                      'implicit' => undef,
37680                                                                                                      'argcode' => undef,
37681                                                                                                      'lookahead' => 0,
37682                                                                                                      'line' => 582
37683                                                                                                    }, 'Parse::RecDescent::Subrule' ),
37684                                                                                             bless( {
37685                                                                                                      'pattern' => 'FOLLOWING',
37686                                                                                                      'hashname' => '__PATTERN1__',
37687                                                                                                      'description' => '/FOLLOWING/i',
37688                                                                                                      'lookahead' => 0,
37689                                                                                                      'rdelim' => '/',
37690                                                                                                      'line' => 582,
37691                                                                                                      'mod' => 'i',
37692                                                                                                      'ldelim' => '/'
37693                                                                                                    }, 'Parse::RecDescent::Token' )
37694                                                                                           ],
37695                                                                                'line' => 582
37696                                                                              }, 'Parse::RecDescent::Production' ),
37697                                                                       bless( {
37698                                                                                'number' => '3',
37699                                                                                'strcount' => 0,
37700                                                                                'dircount' => 0,
37701                                                                                'uncommit' => undef,
37702                                                                                'error' => undef,
37703                                                                                'patcount' => 1,
37704                                                                                'actcount' => 0,
37705                                                                                'items' => [
37706                                                                                             bless( {
37707                                                                                                      'pattern' => 'CURRENT\\s+ROW',
37708                                                                                                      'hashname' => '__PATTERN1__',
37709                                                                                                      'description' => '/CURRENT\\\\s+ROW/i',
37710                                                                                                      'lookahead' => 0,
37711                                                                                                      'rdelim' => '/',
37712                                                                                                      'line' => 583,
37713                                                                                                      'mod' => 'i',
37714                                                                                                      'ldelim' => '/'
37715                                                                                                    }, 'Parse::RecDescent::Token' )
37716                                                                                           ],
37717                                                                                'line' => 583
37718                                                                              }, 'Parse::RecDescent::Production' )
37719                                                                     ],
37720                                                          'name' => 'group_bound1',
37721                                                          'vars' => '',
37722                                                          'line' => 580
37723                                                        }, 'Parse::RecDescent::Rule' ),
37724                               'OLAP_function' => bless( {
37725                                                           'impcount' => 0,
37726                                                           'calls' => [
37727                                                                        'ranking_function',
37728                                                                        'numbering_function',
37729                                                                        'aggregation_function'
37730                                                                      ],
37731                                                           'changed' => 0,
37732                                                           'opcount' => 0,
37733                                                           'prods' => [
37734                                                                        bless( {
37735                                                                                 'number' => '0',
37736                                                                                 'strcount' => 0,
37737                                                                                 'dircount' => 0,
37738                                                                                 'uncommit' => undef,
37739                                                                                 'error' => undef,
37740                                                                                 'patcount' => 0,
37741                                                                                 'actcount' => 0,
37742                                                                                 'items' => [
37743                                                                                              bless( {
37744                                                                                                       'subrule' => 'ranking_function',
37745                                                                                                       'matchrule' => 0,
37746                                                                                                       'implicit' => undef,
37747                                                                                                       'argcode' => undef,
37748                                                                                                       'lookahead' => 0,
37749                                                                                                       'line' => 538
37750                                                                                                     }, 'Parse::RecDescent::Subrule' )
37751                                                                                            ],
37752                                                                                 'line' => undef
37753                                                                               }, 'Parse::RecDescent::Production' ),
37754                                                                        bless( {
37755                                                                                 'number' => '1',
37756                                                                                 'strcount' => 0,
37757                                                                                 'dircount' => 0,
37758                                                                                 'uncommit' => undef,
37759                                                                                 'error' => undef,
37760                                                                                 'patcount' => 0,
37761                                                                                 'actcount' => 0,
37762                                                                                 'items' => [
37763                                                                                              bless( {
37764                                                                                                       'subrule' => 'numbering_function',
37765                                                                                                       'matchrule' => 0,
37766                                                                                                       'implicit' => undef,
37767                                                                                                       'argcode' => undef,
37768                                                                                                       'lookahead' => 0,
37769                                                                                                       'line' => 539
37770                                                                                                     }, 'Parse::RecDescent::Subrule' )
37771                                                                                            ],
37772                                                                                 'line' => 539
37773                                                                               }, 'Parse::RecDescent::Production' ),
37774                                                                        bless( {
37775                                                                                 'number' => '2',
37776                                                                                 'strcount' => 0,
37777                                                                                 'dircount' => 0,
37778                                                                                 'uncommit' => undef,
37779                                                                                 'error' => undef,
37780                                                                                 'patcount' => 0,
37781                                                                                 'actcount' => 0,
37782                                                                                 'items' => [
37783                                                                                              bless( {
37784                                                                                                       'subrule' => 'aggregation_function',
37785                                                                                                       'matchrule' => 0,
37786                                                                                                       'implicit' => undef,
37787                                                                                                       'argcode' => undef,
37788                                                                                                       'lookahead' => 0,
37789                                                                                                       'line' => 540
37790                                                                                                     }, 'Parse::RecDescent::Subrule' )
37791                                                                                            ],
37792                                                                                 'line' => 540
37793                                                                               }, 'Parse::RecDescent::Production' )
37794                                                                      ],
37795                                                           'name' => 'OLAP_function',
37796                                                           'vars' => '',
37797                                                           'line' => 538
37798                                                         }, 'Parse::RecDescent::Rule' ),
37799                               '_alternation_1_of_production_30_of_rule_sysibm_function' => bless( {
37800                                                                                                     'impcount' => 0,
37801                                                                                                     'calls' => [],
37802                                                                                                     'changed' => 0,
37803                                                                                                     'opcount' => 0,
37804                                                                                                     'prods' => [
37805                                                                                                                  bless( {
37806                                                                                                                           'number' => '0',
37807                                                                                                                           'strcount' => 0,
37808                                                                                                                           'dircount' => 0,
37809                                                                                                                           'uncommit' => undef,
37810                                                                                                                           'error' => undef,
37811                                                                                                                           'patcount' => 1,
37812                                                                                                                           'actcount' => 0,
37813                                                                                                                           'items' => [
37814                                                                                                                                        bless( {
37815                                                                                                                                                 'pattern' => 'DOUBLE',
37816                                                                                                                                                 'hashname' => '__PATTERN1__',
37817                                                                                                                                                 'description' => '/DOUBLE/i',
37818                                                                                                                                                 'lookahead' => 0,
37819                                                                                                                                                 'rdelim' => '/',
37820                                                                                                                                                 'line' => 628,
37821                                                                                                                                                 'mod' => 'i',
37822                                                                                                                                                 'ldelim' => '/'
37823                                                                                                                                               }, 'Parse::RecDescent::Token' )
37824                                                                                                                                      ],
37825                                                                                                                           'line' => undef
37826                                                                                                                         }, 'Parse::RecDescent::Production' ),
37827                                                                                                                  bless( {
37828                                                                                                                           'number' => '1',
37829                                                                                                                           'strcount' => 0,
37830                                                                                                                           'dircount' => 0,
37831                                                                                                                           'uncommit' => undef,
37832                                                                                                                           'error' => undef,
37833                                                                                                                           'patcount' => 1,
37834                                                                                                                           'actcount' => 0,
37835                                                                                                                           'items' => [
37836                                                                                                                                        bless( {
37837                                                                                                                                                 'pattern' => 'DOUBLE_PRECISION',
37838                                                                                                                                                 'hashname' => '__PATTERN1__',
37839                                                                                                                                                 'description' => '/DOUBLE_PRECISION/i',
37840                                                                                                                                                 'lookahead' => 0,
37841                                                                                                                                                 'rdelim' => '/',
37842                                                                                                                                                 'line' => 628,
37843                                                                                                                                                 'mod' => 'i',
37844                                                                                                                                                 'ldelim' => '/'
37845                                                                                                                                               }, 'Parse::RecDescent::Token' )
37846                                                                                                                                      ],
37847                                                                                                                           'line' => 628
37848                                                                                                                         }, 'Parse::RecDescent::Production' )
37849                                                                                                                ],
37850                                                                                                     'name' => '_alternation_1_of_production_30_of_rule_sysibm_function',
37851                                                                                                     'vars' => '',
37852                                                                                                     'line' => 628
37853                                                                                                   }, 'Parse::RecDescent::Rule' ),
37854                               'FULL' => bless( {
37855                                                  'impcount' => 0,
37856                                                  'calls' => [],
37857                                                  'changed' => 0,
37858                                                  'opcount' => 0,
37859                                                  'prods' => [
37860                                                               bless( {
37861                                                                        'number' => '0',
37862                                                                        'strcount' => 0,
37863                                                                        'dircount' => 0,
37864                                                                        'uncommit' => undef,
37865                                                                        'error' => undef,
37866                                                                        'patcount' => 1,
37867                                                                        'actcount' => 0,
37868                                                                        'items' => [
37869                                                                                     bless( {
37870                                                                                              'pattern' => 'full',
37871                                                                                              'hashname' => '__PATTERN1__',
37872                                                                                              'description' => '/full/i',
37873                                                                                              'lookahead' => 0,
37874                                                                                              'rdelim' => '/',
37875                                                                                              'line' => 113,
37876                                                                                              'mod' => 'i',
37877                                                                                              'ldelim' => '/'
37878                                                                                            }, 'Parse::RecDescent::Token' )
37879                                                                                   ],
37880                                                                        'line' => undef
37881                                                                      }, 'Parse::RecDescent::Production' )
37882                                                             ],
37883                                                  'name' => 'FULL',
37884                                                  'vars' => '',
37885                                                  'line' => 113
37886                                                }, 'Parse::RecDescent::Rule' ),
37887                               '_alternation_2_of_production_1_of_rule_cast_specification' => bless( {
37888                                                                                                       'impcount' => 1,
37889                                                                                                       'calls' => [
37890                                                                                                                    '_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification'
37891                                                                                                                  ],
37892                                                                                                       'changed' => 0,
37893                                                                                                       'opcount' => 0,
37894                                                                                                       'prods' => [
37895                                                                                                                    bless( {
37896                                                                                                                             'number' => '0',
37897                                                                                                                             'strcount' => 0,
37898                                                                                                                             'dircount' => 0,
37899                                                                                                                             'uncommit' => undef,
37900                                                                                                                             'error' => undef,
37901                                                                                                                             'patcount' => 1,
37902                                                                                                                             'actcount' => 0,
37903                                                                                                                             'items' => [
37904                                                                                                                                          bless( {
37905                                                                                                                                                   'pattern' => 'SCOPE',
37906                                                                                                                                                   'hashname' => '__PATTERN1__',
37907                                                                                                                                                   'description' => '/SCOPE/',
37908                                                                                                                                                   'lookahead' => 0,
37909                                                                                                                                                   'rdelim' => '/',
37910                                                                                                                                                   'line' => 625,
37911                                                                                                                                                   'mod' => '',
37912                                                                                                                                                   'ldelim' => '/'
37913                                                                                                                                                 }, 'Parse::RecDescent::Token' ),
37914                                                                                                                                          bless( {
37915                                                                                                                                                   'subrule' => '_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification',
37916                                                                                                                                                   'matchrule' => 0,
37917                                                                                                                                                   'implicit' => 'typed_table_name, or typed_view_name',
37918                                                                                                                                                   'argcode' => undef,
37919                                                                                                                                                   'lookahead' => 0,
37920                                                                                                                                                   'line' => 627
37921                                                                                                                                                 }, 'Parse::RecDescent::Subrule' )
37922                                                                                                                                        ],
37923                                                                                                                             'line' => undef
37924                                                                                                                           }, 'Parse::RecDescent::Production' )
37925                                                                                                                  ],
37926                                                                                                       'name' => '_alternation_2_of_production_1_of_rule_cast_specification',
37927                                                                                                       'vars' => '',
37928                                                                                                       'line' => 625
37929                                                                                                     }, 'Parse::RecDescent::Rule' ),
37930                               'case_expression' => bless( {
37931                                                             'impcount' => 2,
37932                                                             'calls' => [
37933                                                                          '_alternation_1_of_production_1_of_rule_case_expression',
37934                                                                          '_alternation_2_of_production_1_of_rule_case_expression'
37935                                                                        ],
37936                                                             'changed' => 0,
37937                                                             'opcount' => 0,
37938                                                             'prods' => [
37939                                                                          bless( {
37940                                                                                   'number' => '0',
37941                                                                                   'strcount' => 0,
37942                                                                                   'dircount' => 0,
37943                                                                                   'uncommit' => undef,
37944                                                                                   'error' => undef,
37945                                                                                   'patcount' => 2,
37946                                                                                   'actcount' => 0,
37947                                                                                   'items' => [
37948                                                                                                bless( {
37949                                                                                                         'pattern' => 'CASE',
37950                                                                                                         'hashname' => '__PATTERN1__',
37951                                                                                                         'description' => '/CASE/i',
37952                                                                                                         'lookahead' => 0,
37953                                                                                                         'rdelim' => '/',
37954                                                                                                         'line' => 496,
37955                                                                                                         'mod' => 'i',
37956                                                                                                         'ldelim' => '/'
37957                                                                                                       }, 'Parse::RecDescent::Token' ),
37958                                                                                                bless( {
37959                                                                                                         'subrule' => '_alternation_1_of_production_1_of_rule_case_expression',
37960                                                                                                         'matchrule' => 0,
37961                                                                                                         'implicit' => 'searched_when_clause, or simple_when_clause',
37962                                                                                                         'argcode' => undef,
37963                                                                                                         'lookahead' => 0,
37964                                                                                                         'line' => 498
37965                                                                                                       }, 'Parse::RecDescent::Subrule' ),
37966                                                                                                bless( {
37967                                                                                                         'subrule' => '_alternation_2_of_production_1_of_rule_case_expression',
37968                                                                                                         'expected' => '/ELSE\\\\s+NULL/i, or /ELSE/i',
37969                                                                                                         'min' => 0,
37970                                                                                                         'argcode' => undef,
37971                                                                                                         'max' => 1,
37972                                                                                                         'matchrule' => 0,
37973                                                                                                         'repspec' => '?',
37974                                                                                                         'lookahead' => 0,
37975                                                                                                         'line' => 501
37976                                                                                                       }, 'Parse::RecDescent::Repetition' ),
37977                                                                                                bless( {
37978                                                                                                         'pattern' => 'END',
37979                                                                                                         'hashname' => '__PATTERN2__',
37980                                                                                                         'description' => '/END/i',
37981                                                                                                         'lookahead' => 0,
37982                                                                                                         'rdelim' => '/',
37983                                                                                                         'line' => 501,
37984                                                                                                         'mod' => 'i',
37985                                                                                                         'ldelim' => '/'
37986                                                                                                       }, 'Parse::RecDescent::Token' )
37987                                                                                              ],
37988                                                                                   'line' => undef
37989                                                                                 }, 'Parse::RecDescent::Production' )
37990                                                                        ],
37991                                                             'name' => 'case_expression',
37992                                                             'vars' => '',
37993                                                             'line' => 496
37994                                                           }, 'Parse::RecDescent::Rule' ),
37995                               'operator' => bless( {
37996                                                      'impcount' => 0,
37997                                                      'calls' => [
37998                                                                   '_alternation_1_of_production_1_of_rule_operator'
37999                                                                 ],
38000                                                      'changed' => 0,
38001                                                      'opcount' => 0,
38002                                                      'prods' => [
38003                                                                   bless( {
38004                                                                            'number' => '0',
38005                                                                            'strcount' => 0,
38006                                                                            'dircount' => 0,
38007                                                                            'uncommit' => undef,
38008                                                                            'error' => undef,
38009                                                                            'patcount' => 0,
38010                                                                            'actcount' => 0,
38011                                                                            'items' => [
38012                                                                                         bless( {
38013                                                                                                  'subrule' => '_alternation_1_of_production_1_of_rule_operator',
38014                                                                                                  'matchrule' => 0,
38015                                                                                                  'implicit' => '/CONCAT/i, or \'||\'',
38016                                                                                                  'argcode' => undef,
38017                                                                                                  'lookahead' => 0,
38018                                                                                                  'line' => 321
38019                                                                                                }, 'Parse::RecDescent::Subrule' )
38020                                                                                       ],
38021                                                                            'line' => undef
38022                                                                          }, 'Parse::RecDescent::Production' ),
38023                                                                   bless( {
38024                                                                            'number' => '1',
38025                                                                            'strcount' => 1,
38026                                                                            'dircount' => 0,
38027                                                                            'uncommit' => undef,
38028                                                                            'error' => undef,
38029                                                                            'patcount' => 0,
38030                                                                            'actcount' => 0,
38031                                                                            'items' => [
38032                                                                                         bless( {
38033                                                                                                  'pattern' => '/',
38034                                                                                                  'hashname' => '__STRING1__',
38035                                                                                                  'description' => '\'/\'',
38036                                                                                                  'lookahead' => 0,
38037                                                                                                  'line' => 321
38038                                                                                                }, 'Parse::RecDescent::Literal' )
38039                                                                                       ],
38040                                                                            'line' => 321
38041                                                                          }, 'Parse::RecDescent::Production' ),
38042                                                                   bless( {
38043                                                                            'number' => '2',
38044                                                                            'strcount' => 1,
38045                                                                            'dircount' => 0,
38046                                                                            'uncommit' => undef,
38047                                                                            'error' => undef,
38048                                                                            'patcount' => 0,
38049                                                                            'actcount' => 0,
38050                                                                            'items' => [
38051                                                                                         bless( {
38052                                                                                                  'pattern' => '*',
38053                                                                                                  'hashname' => '__STRING1__',
38054                                                                                                  'description' => '\'*\'',
38055                                                                                                  'lookahead' => 0,
38056                                                                                                  'line' => 321
38057                                                                                                }, 'Parse::RecDescent::Literal' )
38058                                                                                       ],
38059                                                                            'line' => 321
38060                                                                          }, 'Parse::RecDescent::Production' ),
38061                                                                   bless( {
38062                                                                            'number' => '3',
38063                                                                            'strcount' => 1,
38064                                                                            'dircount' => 0,
38065                                                                            'uncommit' => undef,
38066                                                                            'error' => undef,
38067                                                                            'patcount' => 0,
38068                                                                            'actcount' => 0,
38069                                                                            'items' => [
38070                                                                                         bless( {
38071                                                                                                  'pattern' => '+',
38072                                                                                                  'hashname' => '__STRING1__',
38073                                                                                                  'description' => '\'+\'',
38074                                                                                                  'lookahead' => 0,
38075                                                                                                  'line' => 321
38076                                                                                                }, 'Parse::RecDescent::Literal' )
38077                                                                                       ],
38078                                                                            'line' => 321
38079                                                                          }, 'Parse::RecDescent::Production' ),
38080                                                                   bless( {
38081                                                                            'number' => '4',
38082                                                                            'strcount' => 1,
38083                                                                            'dircount' => 0,
38084                                                                            'uncommit' => undef,
38085                                                                            'error' => undef,
38086                                                                            'patcount' => 0,
38087                                                                            'actcount' => 0,
38088                                                                            'items' => [
38089                                                                                         bless( {
38090                                                                                                  'pattern' => '-',
38091                                                                                                  'hashname' => '__STRING1__',
38092                                                                                                  'description' => '\'-\'',
38093                                                                                                  'lookahead' => 0,
38094                                                                                                  'line' => 321
38095                                                                                                }, 'Parse::RecDescent::Literal' )
38096                                                                                       ],
38097                                                                            'line' => 321
38098                                                                          }, 'Parse::RecDescent::Production' )
38099                                                                 ],
38100                                                      'name' => 'operator',
38101                                                      'vars' => '',
38102                                                      'line' => 321
38103                                                    }, 'Parse::RecDescent::Rule' ),
38104                               '_alternation_1_of_production_2_of_rule_type' => bless( {
38105                                                                                         'impcount' => 0,
38106                                                                                         'calls' => [],
38107                                                                                         'changed' => 0,
38108                                                                                         'opcount' => 0,
38109                                                                                         'prods' => [
38110                                                                                                      bless( {
38111                                                                                                               'number' => '0',
38112                                                                                                               'strcount' => 0,
38113                                                                                                               'dircount' => 0,
38114                                                                                                               'uncommit' => undef,
38115                                                                                                               'error' => undef,
38116                                                                                                               'patcount' => 1,
38117                                                                                                               'actcount' => 0,
38118                                                                                                               'items' => [
38119                                                                                                                            bless( {
38120                                                                                                                                     'pattern' => 'INSERT',
38121                                                                                                                                     'hashname' => '__PATTERN1__',
38122                                                                                                                                     'description' => '/INSERT/i',
38123                                                                                                                                     'lookahead' => 0,
38124                                                                                                                                     'rdelim' => '/',
38125                                                                                                                                     'line' => 628,
38126                                                                                                                                     'mod' => 'i',
38127                                                                                                                                     'ldelim' => '/'
38128                                                                                                                                   }, 'Parse::RecDescent::Token' )
38129                                                                                                                          ],
38130                                                                                                               'line' => undef
38131                                                                                                             }, 'Parse::RecDescent::Production' ),
38132                                                                                                      bless( {
38133                                                                                                               'number' => '1',
38134                                                                                                               'strcount' => 0,
38135                                                                                                               'dircount' => 0,
38136                                                                                                               'uncommit' => undef,
38137                                                                                                               'error' => undef,
38138                                                                                                               'patcount' => 1,
38139                                                                                                               'actcount' => 0,
38140                                                                                                               'items' => [
38141                                                                                                                            bless( {
38142                                                                                                                                     'pattern' => 'DELETE',
38143                                                                                                                                     'hashname' => '__PATTERN1__',
38144                                                                                                                                     'description' => '/DELETE/i',
38145                                                                                                                                     'lookahead' => 0,
38146                                                                                                                                     'rdelim' => '/',
38147                                                                                                                                     'line' => 628,
38148                                                                                                                                     'mod' => 'i',
38149                                                                                                                                     'ldelim' => '/'
38150                                                                                                                                   }, 'Parse::RecDescent::Token' )
38151                                                                                                                          ],
38152                                                                                                               'line' => 628
38153                                                                                                             }, 'Parse::RecDescent::Production' ),
38154                                                                                                      bless( {
38155                                                                                                               'number' => '2',
38156                                                                                                               'strcount' => 0,
38157                                                                                                               'dircount' => 0,
38158                                                                                                               'uncommit' => undef,
38159                                                                                                               'error' => undef,
38160                                                                                                               'patcount' => 1,
38161                                                                                                               'actcount' => 0,
38162                                                                                                               'items' => [
38163                                                                                                                            bless( {
38164                                                                                                                                     'pattern' => 'UPDATE',
38165                                                                                                                                     'hashname' => '__PATTERN1__',
38166                                                                                                                                     'description' => '/UPDATE/i',
38167                                                                                                                                     'lookahead' => 0,
38168                                                                                                                                     'rdelim' => '/',
38169                                                                                                                                     'line' => 628,
38170                                                                                                                                     'mod' => 'i',
38171                                                                                                                                     'ldelim' => '/'
38172                                                                                                                                   }, 'Parse::RecDescent::Token' )
38173                                                                                                                          ],
38174                                                                                                               'line' => 628
38175                                                                                                             }, 'Parse::RecDescent::Production' )
38176                                                                                                    ],
38177                                                                                         'name' => '_alternation_1_of_production_2_of_rule_type',
38178                                                                                         'vars' => '',
38179                                                                                         'line' => 628
38180                                                                                       }, 'Parse::RecDescent::Rule' ),
38181                               '_alternation_1_of_production_8_of_rule_sysibm_function' => bless( {
38182                                                                                                    'impcount' => 0,
38183                                                                                                    'calls' => [],
38184                                                                                                    'changed' => 0,
38185                                                                                                    'opcount' => 0,
38186                                                                                                    'prods' => [
38187                                                                                                                 bless( {
38188                                                                                                                          'number' => '0',
38189                                                                                                                          'strcount' => 0,
38190                                                                                                                          'dircount' => 0,
38191                                                                                                                          'uncommit' => undef,
38192                                                                                                                          'error' => undef,
38193                                                                                                                          'patcount' => 1,
38194                                                                                                                          'actcount' => 0,
38195                                                                                                                          'items' => [
38196                                                                                                                                       bless( {
38197                                                                                                                                                'pattern' => 'CONCAT',
38198                                                                                                                                                'hashname' => '__PATTERN1__',
38199                                                                                                                                                'description' => '/CONCAT/',
38200                                                                                                                                                'lookahead' => 0,
38201                                                                                                                                                'rdelim' => '/',
38202                                                                                                                                                'line' => 628,
38203                                                                                                                                                'mod' => '',
38204                                                                                                                                                'ldelim' => '/'
38205                                                                                                                                              }, 'Parse::RecDescent::Token' )
38206                                                                                                                                     ],
38207                                                                                                                          'line' => undef
38208                                                                                                                        }, 'Parse::RecDescent::Production' ),
38209                                                                                                                 bless( {
38210                                                                                                                          'number' => '1',
38211                                                                                                                          'strcount' => 1,
38212                                                                                                                          'dircount' => 0,
38213                                                                                                                          'uncommit' => undef,
38214                                                                                                                          'error' => undef,
38215                                                                                                                          'patcount' => 0,
38216                                                                                                                          'actcount' => 0,
38217                                                                                                                          'items' => [
38218                                                                                                                                       bless( {
38219                                                                                                                                                'pattern' => '||',
38220                                                                                                                                                'hashname' => '__STRING1__',
38221                                                                                                                                                'description' => '\'||\'',
38222                                                                                                                                                'lookahead' => 0,
38223                                                                                                                                                'line' => 628
38224                                                                                                                                              }, 'Parse::RecDescent::Literal' )
38225                                                                                                                                     ],
38226                                                                                                                          'line' => 628
38227                                                                                                                        }, 'Parse::RecDescent::Production' )
38228                                                                                                               ],
38229                                                                                                    'name' => '_alternation_1_of_production_8_of_rule_sysibm_function',
38230                                                                                                    'vars' => '',
38231                                                                                                    'line' => 628
38232                                                                                                  }, 'Parse::RecDescent::Rule' ),
38233                               'sequence_reference' => bless( {
38234                                                                'impcount' => 0,
38235                                                                'calls' => [
38236                                                                             'nextval_expression',
38237                                                                             'prevval_expression'
38238                                                                           ],
38239                                                                'changed' => 0,
38240                                                                'opcount' => 0,
38241                                                                'prods' => [
38242                                                                             bless( {
38243                                                                                      'number' => '0',
38244                                                                                      'strcount' => 0,
38245                                                                                      'dircount' => 0,
38246                                                                                      'uncommit' => undef,
38247                                                                                      'error' => undef,
38248                                                                                      'patcount' => 0,
38249                                                                                      'actcount' => 0,
38250                                                                                      'items' => [
38251                                                                                                   bless( {
38252                                                                                                            'subrule' => 'nextval_expression',
38253                                                                                                            'matchrule' => 0,
38254                                                                                                            'implicit' => undef,
38255                                                                                                            'argcode' => undef,
38256                                                                                                            'lookahead' => 0,
38257                                                                                                            'line' => 608
38258                                                                                                          }, 'Parse::RecDescent::Subrule' )
38259                                                                                                 ],
38260                                                                                      'line' => undef
38261                                                                                    }, 'Parse::RecDescent::Production' ),
38262                                                                             bless( {
38263                                                                                      'number' => '1',
38264                                                                                      'strcount' => 0,
38265                                                                                      'dircount' => 0,
38266                                                                                      'uncommit' => undef,
38267                                                                                      'error' => undef,
38268                                                                                      'patcount' => 0,
38269                                                                                      'actcount' => 0,
38270                                                                                      'items' => [
38271                                                                                                   bless( {
38272                                                                                                            'subrule' => 'prevval_expression',
38273                                                                                                            'matchrule' => 0,
38274                                                                                                            'implicit' => undef,
38275                                                                                                            'argcode' => undef,
38276                                                                                                            'lookahead' => 0,
38277                                                                                                            'line' => 609
38278                                                                                                          }, 'Parse::RecDescent::Subrule' )
38279                                                                                                 ],
38280                                                                                      'line' => 609
38281                                                                                    }, 'Parse::RecDescent::Production' )
38282                                                                           ],
38283                                                                'name' => 'sequence_reference',
38284                                                                'vars' => '',
38285                                                                'line' => 608
38286                                                              }, 'Parse::RecDescent::Rule' ),
38287                               'sysibm_function' => bless( {
38288                                                             'impcount' => 0,
38289                                                             'calls' => [
38290                                                                          '_alternation_1_of_production_1_of_rule_sysibm_function',
38291                                                                          '_alternation_1_of_production_8_of_rule_sysibm_function',
38292                                                                          '_alternation_1_of_production_9_of_rule_sysibm_function',
38293                                                                          '_alternation_1_of_production_12_of_rule_sysibm_function',
38294                                                                          '_alternation_1_of_production_17_of_rule_sysibm_function',
38295                                                                          '_alternation_1_of_production_30_of_rule_sysibm_function',
38296                                                                          '_alternation_1_of_production_41_of_rule_sysibm_function',
38297                                                                          '_alternation_1_of_production_42_of_rule_sysibm_function',
38298                                                                          '_alternation_1_of_production_63_of_rule_sysibm_function',
38299                                                                          '_alternation_1_of_production_83_of_rule_sysibm_function',
38300                                                                          '_alternation_1_of_production_87_of_rule_sysibm_function'
38301                                                                        ],
38302                                                             'changed' => 0,
38303                                                             'opcount' => 0,
38304                                                             'prods' => [
38305                                                                          bless( {
38306                                                                                   'number' => '0',
38307                                                                                   'strcount' => 0,
38308                                                                                   'dircount' => 0,
38309                                                                                   'uncommit' => undef,
38310                                                                                   'error' => undef,
38311                                                                                   'patcount' => 0,
38312                                                                                   'actcount' => 0,
38313                                                                                   'items' => [
38314                                                                                                bless( {
38315                                                                                                         'subrule' => '_alternation_1_of_production_1_of_rule_sysibm_function',
38316                                                                                                         'matchrule' => 0,
38317                                                                                                         'implicit' => '/ABS/i, or /ABSVAL/i',
38318                                                                                                         'argcode' => undef,
38319                                                                                                         'lookahead' => 0,
38320                                                                                                         'line' => 332
38321                                                                                                       }, 'Parse::RecDescent::Subrule' )
38322                                                                                              ],
38323                                                                                   'line' => undef
38324                                                                                 }, 'Parse::RecDescent::Production' ),
38325                                                                          bless( {
38326                                                                                   'number' => '1',
38327                                                                                   'strcount' => 0,
38328                                                                                   'dircount' => 0,
38329                                                                                   'uncommit' => undef,
38330                                                                                   'error' => undef,
38331                                                                                   'patcount' => 1,
38332                                                                                   'actcount' => 0,
38333                                                                                   'items' => [
38334                                                                                                bless( {
38335                                                                                                         'pattern' => 'AVG',
38336                                                                                                         'hashname' => '__PATTERN1__',
38337                                                                                                         'description' => '/AVG/i',
38338                                                                                                         'lookahead' => 0,
38339                                                                                                         'rdelim' => '/',
38340                                                                                                         'line' => 333,
38341                                                                                                         'mod' => 'i',
38342                                                                                                         'ldelim' => '/'
38343                                                                                                       }, 'Parse::RecDescent::Token' )
38344                                                                                              ],
38345                                                                                   'line' => 333
38346                                                                                 }, 'Parse::RecDescent::Production' ),
38347                                                                          bless( {
38348                                                                                   'number' => '2',
38349                                                                                   'strcount' => 0,
38350                                                                                   'dircount' => 0,
38351                                                                                   'uncommit' => undef,
38352                                                                                   'error' => undef,
38353                                                                                   'patcount' => 1,
38354                                                                                   'actcount' => 0,
38355                                                                                   'items' => [
38356                                                                                                bless( {
38357                                                                                                         'pattern' => 'BIGINT',
38358                                                                                                         'hashname' => '__PATTERN1__',
38359                                                                                                         'description' => '/BIGINT/i',
38360                                                                                                         'lookahead' => 0,
38361                                                                                                         'rdelim' => '/',
38362                                                                                                         'line' => 334,
38363                                                                                                         'mod' => 'i',
38364                                                                                                         'ldelim' => '/'
38365                                                                                                       }, 'Parse::RecDescent::Token' )
38366                                                                                              ],
38367                                                                                   'line' => 334
38368                                                                                 }, 'Parse::RecDescent::Production' ),
38369                                                                          bless( {
38370                                                                                   'number' => '3',
38371                                                                                   'strcount' => 0,
38372                                                                                   'dircount' => 0,
38373                                                                                   'uncommit' => undef,
38374                                                                                   'error' => undef,
38375                                                                                   'patcount' => 1,
38376                                                                                   'actcount' => 0,
38377                                                                                   'items' => [
38378                                                                                                bless( {
38379                                                                                                         'pattern' => 'BLOB',
38380                                                                                                         'hashname' => '__PATTERN1__',
38381                                                                                                         'description' => '/BLOB/i',
38382                                                                                                         'lookahead' => 0,
38383                                                                                                         'rdelim' => '/',
38384                                                                                                         'line' => 335,
38385                                                                                                         'mod' => 'i',
38386                                                                                                         'ldelim' => '/'
38387                                                                                                       }, 'Parse::RecDescent::Token' )
38388                                                                                              ],
38389                                                                                   'line' => 335
38390                                                                                 }, 'Parse::RecDescent::Production' ),
38391                                                                          bless( {
38392                                                                                   'number' => '4',
38393                                                                                   'strcount' => 0,
38394                                                                                   'dircount' => 0,
38395                                                                                   'uncommit' => undef,
38396                                                                                   'error' => undef,
38397                                                                                   'patcount' => 1,
38398                                                                                   'actcount' => 0,
38399                                                                                   'items' => [
38400                                                                                                bless( {
38401                                                                                                         'pattern' => 'CHAR',
38402                                                                                                         'hashname' => '__PATTERN1__',
38403                                                                                                         'description' => '/CHAR/i',
38404                                                                                                         'lookahead' => 0,
38405                                                                                                         'rdelim' => '/',
38406                                                                                                         'line' => 336,
38407                                                                                                         'mod' => 'i',
38408                                                                                                         'ldelim' => '/'
38409                                                                                                       }, 'Parse::RecDescent::Token' )
38410                                                                                              ],
38411                                                                                   'line' => 336
38412                                                                                 }, 'Parse::RecDescent::Production' ),
38413                                                                          bless( {
38414                                                                                   'number' => '5',
38415                                                                                   'strcount' => 0,
38416                                                                                   'dircount' => 0,
38417                                                                                   'uncommit' => undef,
38418                                                                                   'error' => undef,
38419                                                                                   'patcount' => 1,
38420                                                                                   'actcount' => 0,
38421                                                                                   'items' => [
38422                                                                                                bless( {
38423                                                                                                         'pattern' => 'CLOB',
38424                                                                                                         'hashname' => '__PATTERN1__',
38425                                                                                                         'description' => '/CLOB/i',
38426                                                                                                         'lookahead' => 0,
38427                                                                                                         'rdelim' => '/',
38428                                                                                                         'line' => 337,
38429                                                                                                         'mod' => 'i',
38430                                                                                                         'ldelim' => '/'
38431                                                                                                       }, 'Parse::RecDescent::Token' )
38432                                                                                              ],
38433                                                                                   'line' => 337
38434                                                                                 }, 'Parse::RecDescent::Production' ),
38435                                                                          bless( {
38436                                                                                   'number' => '6',
38437                                                                                   'strcount' => 0,
38438                                                                                   'dircount' => 0,
38439                                                                                   'uncommit' => undef,
38440                                                                                   'error' => undef,
38441                                                                                   'patcount' => 1,
38442                                                                                   'actcount' => 0,
38443                                                                                   'items' => [
38444                                                                                                bless( {
38445                                                                                                         'pattern' => 'COALESCE',
38446                                                                                                         'hashname' => '__PATTERN1__',
38447                                                                                                         'description' => '/COALESCE/i',
38448                                                                                                         'lookahead' => 0,
38449                                                                                                         'rdelim' => '/',
38450                                                                                                         'line' => 338,
38451                                                                                                         'mod' => 'i',
38452                                                                                                         'ldelim' => '/'
38453                                                                                                       }, 'Parse::RecDescent::Token' )
38454                                                                                              ],
38455                                                                                   'line' => 338
38456                                                                                 }, 'Parse::RecDescent::Production' ),
38457                                                                          bless( {
38458                                                                                   'number' => '7',
38459                                                                                   'strcount' => 0,
38460                                                                                   'dircount' => 0,
38461                                                                                   'uncommit' => undef,
38462                                                                                   'error' => undef,
38463                                                                                   'patcount' => 0,
38464                                                                                   'actcount' => 0,
38465                                                                                   'items' => [
38466                                                                                                bless( {
38467                                                                                                         'subrule' => '_alternation_1_of_production_8_of_rule_sysibm_function',
38468                                                                                                         'matchrule' => 0,
38469                                                                                                         'implicit' => '/CONCAT/, or \'||\'',
38470                                                                                                         'argcode' => undef,
38471                                                                                                         'lookahead' => 0,
38472                                                                                                         'line' => 339
38473                                                                                                       }, 'Parse::RecDescent::Subrule' )
38474                                                                                              ],
38475                                                                                   'line' => 339
38476                                                                                 }, 'Parse::RecDescent::Production' ),
38477                                                                          bless( {
38478                                                                                   'number' => '8',
38479                                                                                   'strcount' => 0,
38480                                                                                   'dircount' => 0,
38481                                                                                   'uncommit' => undef,
38482                                                                                   'error' => undef,
38483                                                                                   'patcount' => 0,
38484                                                                                   'actcount' => 0,
38485                                                                                   'items' => [
38486                                                                                                bless( {
38487                                                                                                         'subrule' => '_alternation_1_of_production_9_of_rule_sysibm_function',
38488                                                                                                         'matchrule' => 0,
38489                                                                                                         'implicit' => '/CORRELATION/i, or /CORR/',
38490                                                                                                         'argcode' => undef,
38491                                                                                                         'lookahead' => 0,
38492                                                                                                         'line' => 340
38493                                                                                                       }, 'Parse::RecDescent::Subrule' )
38494                                                                                              ],
38495                                                                                   'line' => 340
38496                                                                                 }, 'Parse::RecDescent::Production' ),
38497                                                                          bless( {
38498                                                                                   'number' => '9',
38499                                                                                   'strcount' => 0,
38500                                                                                   'dircount' => 0,
38501                                                                                   'uncommit' => undef,
38502                                                                                   'error' => undef,
38503                                                                                   'patcount' => 1,
38504                                                                                   'actcount' => 0,
38505                                                                                   'items' => [
38506                                                                                                bless( {
38507                                                                                                         'pattern' => 'COUNT',
38508                                                                                                         'hashname' => '__PATTERN1__',
38509                                                                                                         'description' => '/COUNT/i',
38510                                                                                                         'lookahead' => 0,
38511                                                                                                         'rdelim' => '/',
38512                                                                                                         'line' => 341,
38513                                                                                                         'mod' => 'i',
38514                                                                                                         'ldelim' => '/'
38515                                                                                                       }, 'Parse::RecDescent::Token' )
38516                                                                                              ],
38517                                                                                   'line' => 341
38518                                                                                 }, 'Parse::RecDescent::Production' ),
38519                                                                          bless( {
38520                                                                                   'number' => '10',
38521                                                                                   'strcount' => 0,
38522                                                                                   'dircount' => 0,
38523                                                                                   'uncommit' => undef,
38524                                                                                   'error' => undef,
38525                                                                                   'patcount' => 1,
38526                                                                                   'actcount' => 0,
38527                                                                                   'items' => [
38528                                                                                                bless( {
38529                                                                                                         'pattern' => 'COUNT_BIG',
38530                                                                                                         'hashname' => '__PATTERN1__',
38531                                                                                                         'description' => '/COUNT_BIG/i',
38532                                                                                                         'lookahead' => 0,
38533                                                                                                         'rdelim' => '/',
38534                                                                                                         'line' => 342,
38535                                                                                                         'mod' => 'i',
38536                                                                                                         'ldelim' => '/'
38537                                                                                                       }, 'Parse::RecDescent::Token' )
38538                                                                                              ],
38539                                                                                   'line' => 342
38540                                                                                 }, 'Parse::RecDescent::Production' ),
38541                                                                          bless( {
38542                                                                                   'number' => '11',
38543                                                                                   'strcount' => 0,
38544                                                                                   'dircount' => 0,
38545                                                                                   'uncommit' => undef,
38546                                                                                   'error' => undef,
38547                                                                                   'patcount' => 0,
38548                                                                                   'actcount' => 0,
38549                                                                                   'items' => [
38550                                                                                                bless( {
38551                                                                                                         'subrule' => '_alternation_1_of_production_12_of_rule_sysibm_function',
38552                                                                                                         'matchrule' => 0,
38553                                                                                                         'implicit' => '/COVARIANCE/i, or /COVAR/i',
38554                                                                                                         'argcode' => undef,
38555                                                                                                         'lookahead' => 0,
38556                                                                                                         'line' => 343
38557                                                                                                       }, 'Parse::RecDescent::Subrule' )
38558                                                                                              ],
38559                                                                                   'line' => 343
38560                                                                                 }, 'Parse::RecDescent::Production' ),
38561                                                                          bless( {
38562                                                                                   'number' => '12',
38563                                                                                   'strcount' => 0,
38564                                                                                   'dircount' => 0,
38565                                                                                   'uncommit' => undef,
38566                                                                                   'error' => undef,
38567                                                                                   'patcount' => 1,
38568                                                                                   'actcount' => 0,
38569                                                                                   'items' => [
38570                                                                                                bless( {
38571                                                                                                         'pattern' => 'DATE',
38572                                                                                                         'hashname' => '__PATTERN1__',
38573                                                                                                         'description' => '/DATE/i',
38574                                                                                                         'lookahead' => 0,
38575                                                                                                         'rdelim' => '/',
38576                                                                                                         'line' => 344,
38577                                                                                                         'mod' => 'i',
38578                                                                                                         'ldelim' => '/'
38579                                                                                                       }, 'Parse::RecDescent::Token' )
38580                                                                                              ],
38581                                                                                   'line' => 344
38582                                                                                 }, 'Parse::RecDescent::Production' ),
38583                                                                          bless( {
38584                                                                                   'number' => '13',
38585                                                                                   'strcount' => 0,
38586                                                                                   'dircount' => 0,
38587                                                                                   'uncommit' => undef,
38588                                                                                   'error' => undef,
38589                                                                                   'patcount' => 1,
38590                                                                                   'actcount' => 0,
38591                                                                                   'items' => [
38592                                                                                                bless( {
38593                                                                                                         'pattern' => 'DAY',
38594                                                                                                         'hashname' => '__PATTERN1__',
38595                                                                                                         'description' => '/DAY/i',
38596                                                                                                         'lookahead' => 0,
38597                                                                                                         'rdelim' => '/',
38598                                                                                                         'line' => 345,
38599                                                                                                         'mod' => 'i',
38600                                                                                                         'ldelim' => '/'
38601                                                                                                       }, 'Parse::RecDescent::Token' )
38602                                                                                              ],
38603                                                                                   'line' => 345
38604                                                                                 }, 'Parse::RecDescent::Production' ),
38605                                                                          bless( {
38606                                                                                   'number' => '14',
38607                                                                                   'strcount' => 0,
38608                                                                                   'dircount' => 0,
38609                                                                                   'uncommit' => undef,
38610                                                                                   'error' => undef,
38611                                                                                   'patcount' => 1,
38612                                                                                   'actcount' => 0,
38613                                                                                   'items' => [
38614                                                                                                bless( {
38615                                                                                                         'pattern' => 'DAYS',
38616                                                                                                         'hashname' => '__PATTERN1__',
38617                                                                                                         'description' => '/DAYS/i',
38618                                                                                                         'lookahead' => 0,
38619                                                                                                         'rdelim' => '/',
38620                                                                                                         'line' => 346,
38621                                                                                                         'mod' => 'i',
38622                                                                                                         'ldelim' => '/'
38623                                                                                                       }, 'Parse::RecDescent::Token' )
38624                                                                                              ],
38625                                                                                   'line' => 346
38626                                                                                 }, 'Parse::RecDescent::Production' ),
38627                                                                          bless( {
38628                                                                                   'number' => '15',
38629                                                                                   'strcount' => 0,
38630                                                                                   'dircount' => 0,
38631                                                                                   'uncommit' => undef,
38632                                                                                   'error' => undef,
38633                                                                                   'patcount' => 1,
38634                                                                                   'actcount' => 0,
38635                                                                                   'items' => [
38636                                                                                                bless( {
38637                                                                                                         'pattern' => 'DBCLOB',
38638                                                                                                         'hashname' => '__PATTERN1__',
38639                                                                                                         'description' => '/DBCLOB/i',
38640                                                                                                         'lookahead' => 0,
38641                                                                                                         'rdelim' => '/',
38642                                                                                                         'line' => 347,
38643                                                                                                         'mod' => 'i',
38644                                                                                                         'ldelim' => '/'
38645                                                                                                       }, 'Parse::RecDescent::Token' )
38646                                                                                              ],
38647                                                                                   'line' => 347
38648                                                                                 }, 'Parse::RecDescent::Production' ),
38649                                                                          bless( {
38650                                                                                   'number' => '16',
38651                                                                                   'strcount' => 0,
38652                                                                                   'dircount' => 0,
38653                                                                                   'uncommit' => undef,
38654                                                                                   'error' => undef,
38655                                                                                   'patcount' => 0,
38656                                                                                   'actcount' => 0,
38657                                                                                   'items' => [
38658                                                                                                bless( {
38659                                                                                                         'subrule' => '_alternation_1_of_production_17_of_rule_sysibm_function',
38660                                                                                                         'matchrule' => 0,
38661                                                                                                         'implicit' => '/DECIMAL/i, or /DEC/i',
38662                                                                                                         'argcode' => undef,
38663                                                                                                         'lookahead' => 0,
38664                                                                                                         'line' => 348
38665                                                                                                       }, 'Parse::RecDescent::Subrule' )
38666                                                                                              ],
38667                                                                                   'line' => 348
38668                                                                                 }, 'Parse::RecDescent::Production' ),
38669                                                                          bless( {
38670                                                                                   'number' => '17',
38671                                                                                   'strcount' => 0,
38672                                                                                   'dircount' => 0,
38673                                                                                   'uncommit' => undef,
38674                                                                                   'error' => undef,
38675                                                                                   'patcount' => 1,
38676                                                                                   'actcount' => 0,
38677                                                                                   'items' => [
38678                                                                                                bless( {
38679                                                                                                         'pattern' => 'DECRYPT_BIN',
38680                                                                                                         'hashname' => '__PATTERN1__',
38681                                                                                                         'description' => '/DECRYPT_BIN/i',
38682                                                                                                         'lookahead' => 0,
38683                                                                                                         'rdelim' => '/',
38684                                                                                                         'line' => 349,
38685                                                                                                         'mod' => 'i',
38686                                                                                                         'ldelim' => '/'
38687                                                                                                       }, 'Parse::RecDescent::Token' )
38688                                                                                              ],
38689                                                                                   'line' => 349
38690                                                                                 }, 'Parse::RecDescent::Production' ),
38691                                                                          bless( {
38692                                                                                   'number' => '18',
38693                                                                                   'strcount' => 0,
38694                                                                                   'dircount' => 0,
38695                                                                                   'uncommit' => undef,
38696                                                                                   'error' => undef,
38697                                                                                   'patcount' => 1,
38698                                                                                   'actcount' => 0,
38699                                                                                   'items' => [
38700                                                                                                bless( {
38701                                                                                                         'pattern' => 'DECRYPT_CHAR',
38702                                                                                                         'hashname' => '__PATTERN1__',
38703                                                                                                         'description' => '/DECRYPT_CHAR/i',
38704                                                                                                         'lookahead' => 0,
38705                                                                                                         'rdelim' => '/',
38706                                                                                                         'line' => 350,
38707                                                                                                         'mod' => 'i',
38708                                                                                                         'ldelim' => '/'
38709                                                                                                       }, 'Parse::RecDescent::Token' )
38710                                                                                              ],
38711                                                                                   'line' => 350
38712                                                                                 }, 'Parse::RecDescent::Production' ),
38713                                                                          bless( {
38714                                                                                   'number' => '19',
38715                                                                                   'strcount' => 0,
38716                                                                                   'dircount' => 0,
38717                                                                                   'uncommit' => undef,
38718                                                                                   'error' => undef,
38719                                                                                   'patcount' => 1,
38720                                                                                   'actcount' => 0,
38721                                                                                   'items' => [
38722                                                                                                bless( {
38723                                                                                                         'pattern' => 'DEREF',
38724                                                                                                         'hashname' => '__PATTERN1__',
38725                                                                                                         'description' => '/DEREF/i',
38726                                                                                                         'lookahead' => 0,
38727                                                                                                         'rdelim' => '/',
38728                                                                                                         'line' => 351,
38729                                                                                                         'mod' => 'i',
38730                                                                                                         'ldelim' => '/'
38731                                                                                                       }, 'Parse::RecDescent::Token' )
38732                                                                                              ],
38733                                                                                   'line' => 351
38734                                                                                 }, 'Parse::RecDescent::Production' ),
38735                                                                          bless( {
38736                                                                                   'number' => '20',
38737                                                                                   'strcount' => 0,
38738                                                                                   'dircount' => 0,
38739                                                                                   'uncommit' => undef,
38740                                                                                   'error' => undef,
38741                                                                                   'patcount' => 1,
38742                                                                                   'actcount' => 0,
38743                                                                                   'items' => [
38744                                                                                                bless( {
38745                                                                                                         'pattern' => 'DIGITS',
38746                                                                                                         'hashname' => '__PATTERN1__',
38747                                                                                                         'description' => '/DIGITS/i',
38748                                                                                                         'lookahead' => 0,
38749                                                                                                         'rdelim' => '/',
38750                                                                                                         'line' => 352,
38751                                                                                                         'mod' => 'i',
38752                                                                                                         'ldelim' => '/'
38753                                                                                                       }, 'Parse::RecDescent::Token' )
38754                                                                                              ],
38755                                                                                   'line' => 352
38756                                                                                 }, 'Parse::RecDescent::Production' ),
38757                                                                          bless( {
38758                                                                                   'number' => '21',
38759                                                                                   'strcount' => 0,
38760                                                                                   'dircount' => 0,
38761                                                                                   'uncommit' => undef,
38762                                                                                   'error' => undef,
38763                                                                                   'patcount' => 1,
38764                                                                                   'actcount' => 0,
38765                                                                                   'items' => [
38766                                                                                                bless( {
38767                                                                                                         'pattern' => 'DLCOMMENT',
38768                                                                                                         'hashname' => '__PATTERN1__',
38769                                                                                                         'description' => '/DLCOMMENT/i',
38770                                                                                                         'lookahead' => 0,
38771                                                                                                         'rdelim' => '/',
38772                                                                                                         'line' => 353,
38773                                                                                                         'mod' => 'i',
38774                                                                                                         'ldelim' => '/'
38775                                                                                                       }, 'Parse::RecDescent::Token' )
38776                                                                                              ],
38777                                                                                   'line' => 353
38778                                                                                 }, 'Parse::RecDescent::Production' ),
38779                                                                          bless( {
38780                                                                                   'number' => '22',
38781                                                                                   'strcount' => 0,
38782                                                                                   'dircount' => 0,
38783                                                                                   'uncommit' => undef,
38784                                                                                   'error' => undef,
38785                                                                                   'patcount' => 1,
38786                                                                                   'actcount' => 0,
38787                                                                                   'items' => [
38788                                                                                                bless( {
38789                                                                                                         'pattern' => 'DLLINKTYPE',
38790                                                                                                         'hashname' => '__PATTERN1__',
38791                                                                                                         'description' => '/DLLINKTYPE/i',
38792                                                                                                         'lookahead' => 0,
38793                                                                                                         'rdelim' => '/',
38794                                                                                                         'line' => 354,
38795                                                                                                         'mod' => 'i',
38796                                                                                                         'ldelim' => '/'
38797                                                                                                       }, 'Parse::RecDescent::Token' )
38798                                                                                              ],
38799                                                                                   'line' => 354
38800                                                                                 }, 'Parse::RecDescent::Production' ),
38801                                                                          bless( {
38802                                                                                   'number' => '23',
38803                                                                                   'strcount' => 0,
38804                                                                                   'dircount' => 0,
38805                                                                                   'uncommit' => undef,
38806                                                                                   'error' => undef,
38807                                                                                   'patcount' => 1,
38808                                                                                   'actcount' => 0,
38809                                                                                   'items' => [
38810                                                                                                bless( {
38811                                                                                                         'pattern' => 'DLURLCOMPLETE',
38812                                                                                                         'hashname' => '__PATTERN1__',
38813                                                                                                         'description' => '/DLURLCOMPLETE/i',
38814                                                                                                         'lookahead' => 0,
38815                                                                                                         'rdelim' => '/',
38816                                                                                                         'line' => 355,
38817                                                                                                         'mod' => 'i',
38818                                                                                                         'ldelim' => '/'
38819                                                                                                       }, 'Parse::RecDescent::Token' )
38820                                                                                              ],
38821                                                                                   'line' => 355
38822                                                                                 }, 'Parse::RecDescent::Production' ),
38823                                                                          bless( {
38824                                                                                   'number' => '24',
38825                                                                                   'strcount' => 0,
38826                                                                                   'dircount' => 0,
38827                                                                                   'uncommit' => undef,
38828                                                                                   'error' => undef,
38829                                                                                   'patcount' => 1,
38830                                                                                   'actcount' => 0,
38831                                                                                   'items' => [
38832                                                                                                bless( {
38833                                                                                                         'pattern' => 'DLURLPATH',
38834                                                                                                         'hashname' => '__PATTERN1__',
38835                                                                                                         'description' => '/DLURLPATH/i',
38836                                                                                                         'lookahead' => 0,
38837                                                                                                         'rdelim' => '/',
38838                                                                                                         'line' => 356,
38839                                                                                                         'mod' => 'i',
38840                                                                                                         'ldelim' => '/'
38841                                                                                                       }, 'Parse::RecDescent::Token' )
38842                                                                                              ],
38843                                                                                   'line' => 356
38844                                                                                 }, 'Parse::RecDescent::Production' ),
38845                                                                          bless( {
38846                                                                                   'number' => '25',
38847                                                                                   'strcount' => 0,
38848                                                                                   'dircount' => 0,
38849                                                                                   'uncommit' => undef,
38850                                                                                   'error' => undef,
38851                                                                                   'patcount' => 1,
38852                                                                                   'actcount' => 0,
38853                                                                                   'items' => [
38854                                                                                                bless( {
38855                                                                                                         'pattern' => 'DLURLPATHONLY',
38856                                                                                                         'hashname' => '__PATTERN1__',
38857                                                                                                         'description' => '/DLURLPATHONLY/i',
38858                                                                                                         'lookahead' => 0,
38859                                                                                                         'rdelim' => '/',
38860                                                                                                         'line' => 357,
38861                                                                                                         'mod' => 'i',
38862                                                                                                         'ldelim' => '/'
38863                                                                                                       }, 'Parse::RecDescent::Token' )
38864                                                                                              ],
38865                                                                                   'line' => 357
38866                                                                                 }, 'Parse::RecDescent::Production' ),
38867                                                                          bless( {
38868                                                                                   'number' => '26',
38869                                                                                   'strcount' => 0,
38870                                                                                   'dircount' => 0,
38871                                                                                   'uncommit' => undef,
38872                                                                                   'error' => undef,
38873                                                                                   'patcount' => 1,
38874                                                                                   'actcount' => 0,
38875                                                                                   'items' => [
38876                                                                                                bless( {
38877                                                                                                         'pattern' => 'DLURLSCHEME',
38878                                                                                                         'hashname' => '__PATTERN1__',
38879                                                                                                         'description' => '/DLURLSCHEME/i',
38880                                                                                                         'lookahead' => 0,
38881                                                                                                         'rdelim' => '/',
38882                                                                                                         'line' => 358,
38883                                                                                                         'mod' => 'i',
38884                                                                                                         'ldelim' => '/'
38885                                                                                                       }, 'Parse::RecDescent::Token' )
38886                                                                                              ],
38887                                                                                   'line' => 358
38888                                                                                 }, 'Parse::RecDescent::Production' ),
38889                                                                          bless( {
38890                                                                                   'number' => '27',
38891                                                                                   'strcount' => 0,
38892                                                                                   'dircount' => 0,
38893                                                                                   'uncommit' => undef,
38894                                                                                   'error' => undef,
38895                                                                                   'patcount' => 1,
38896                                                                                   'actcount' => 0,
38897                                                                                   'items' => [
38898                                                                                                bless( {
38899                                                                                                         'pattern' => 'DLURLSERVER',
38900                                                                                                         'hashname' => '__PATTERN1__',
38901                                                                                                         'description' => '/DLURLSERVER/i',
38902                                                                                                         'lookahead' => 0,
38903                                                                                                         'rdelim' => '/',
38904                                                                                                         'line' => 359,
38905                                                                                                         'mod' => 'i',
38906                                                                                                         'ldelim' => '/'
38907                                                                                                       }, 'Parse::RecDescent::Token' )
38908                                                                                              ],
38909                                                                                   'line' => 359
38910                                                                                 }, 'Parse::RecDescent::Production' ),
38911                                                                          bless( {
38912                                                                                   'number' => '28',
38913                                                                                   'strcount' => 0,
38914                                                                                   'dircount' => 0,
38915                                                                                   'uncommit' => undef,
38916                                                                                   'error' => undef,
38917                                                                                   'patcount' => 1,
38918                                                                                   'actcount' => 0,
38919                                                                                   'items' => [
38920                                                                                                bless( {
38921                                                                                                         'pattern' => 'DLVALUE',
38922                                                                                                         'hashname' => '__PATTERN1__',
38923                                                                                                         'description' => '/DLVALUE/i',
38924                                                                                                         'lookahead' => 0,
38925                                                                                                         'rdelim' => '/',
38926                                                                                                         'line' => 360,
38927                                                                                                         'mod' => 'i',
38928                                                                                                         'ldelim' => '/'
38929                                                                                                       }, 'Parse::RecDescent::Token' )
38930                                                                                              ],
38931                                                                                   'line' => 360
38932                                                                                 }, 'Parse::RecDescent::Production' ),
38933                                                                          bless( {
38934                                                                                   'number' => '29',
38935                                                                                   'strcount' => 0,
38936                                                                                   'dircount' => 0,
38937                                                                                   'uncommit' => undef,
38938                                                                                   'error' => undef,
38939                                                                                   'patcount' => 0,
38940                                                                                   'actcount' => 0,
38941                                                                                   'items' => [
38942                                                                                                bless( {
38943                                                                                                         'subrule' => '_alternation_1_of_production_30_of_rule_sysibm_function',
38944                                                                                                         'matchrule' => 0,
38945                                                                                                         'implicit' => '/DOUBLE/i, or /DOUBLE_PRECISION/i',
38946                                                                                                         'argcode' => undef,
38947                                                                                                         'lookahead' => 0,
38948                                                                                                         'line' => 361
38949                                                                                                       }, 'Parse::RecDescent::Subrule' )
38950                                                                                              ],
38951                                                                                   'line' => 361
38952                                                                                 }, 'Parse::RecDescent::Production' ),
38953                                                                          bless( {
38954                                                                                   'number' => '30',
38955                                                                                   'strcount' => 0,
38956                                                                                   'dircount' => 0,
38957                                                                                   'uncommit' => undef,
38958                                                                                   'error' => undef,
38959                                                                                   'patcount' => 1,
38960                                                                                   'actcount' => 0,
38961                                                                                   'items' => [
38962                                                                                                bless( {
38963                                                                                                         'pattern' => 'ENCRYPT',
38964                                                                                                         'hashname' => '__PATTERN1__',
38965                                                                                                         'description' => '/ENCRYPT/i',
38966                                                                                                         'lookahead' => 0,
38967                                                                                                         'rdelim' => '/',
38968                                                                                                         'line' => 362,
38969                                                                                                         'mod' => 'i',
38970                                                                                                         'ldelim' => '/'
38971                                                                                                       }, 'Parse::RecDescent::Token' )
38972                                                                                              ],
38973                                                                                   'line' => 362
38974                                                                                 }, 'Parse::RecDescent::Production' ),
38975                                                                          bless( {
38976                                                                                   'number' => '31',
38977                                                                                   'strcount' => 0,
38978                                                                                   'dircount' => 0,
38979                                                                                   'uncommit' => undef,
38980                                                                                   'error' => undef,
38981                                                                                   'patcount' => 1,
38982                                                                                   'actcount' => 0,
38983                                                                                   'items' => [
38984                                                                                                bless( {
38985                                                                                                         'pattern' => 'EVENT_MON_STATE',
38986                                                                                                         'hashname' => '__PATTERN1__',
38987                                                                                                         'description' => '/EVENT_MON_STATE/i',
38988                                                                                                         'lookahead' => 0,
38989                                                                                                         'rdelim' => '/',
38990                                                                                                         'line' => 363,
38991                                                                                                         'mod' => 'i',
38992                                                                                                         'ldelim' => '/'
38993                                                                                                       }, 'Parse::RecDescent::Token' )
38994                                                                                              ],
38995                                                                                   'line' => 363
38996                                                                                 }, 'Parse::RecDescent::Production' ),
38997                                                                          bless( {
38998                                                                                   'number' => '32',
38999                                                                                   'strcount' => 0,
39000                                                                                   'dircount' => 0,
39001                                                                                   'uncommit' => undef,
39002                                                                                   'error' => undef,
39003                                                                                   'patcount' => 1,
39004                                                                                   'actcount' => 0,
39005                                                                                   'items' => [
39006                                                                                                bless( {
39007                                                                                                         'pattern' => 'FLOAT',
39008                                                                                                         'hashname' => '__PATTERN1__',
39009                                                                                                         'description' => '/FLOAT/i',
39010                                                                                                         'lookahead' => 0,
39011                                                                                                         'rdelim' => '/',
39012                                                                                                         'line' => 364,
39013                                                                                                         'mod' => 'i',
39014                                                                                                         'ldelim' => '/'
39015                                                                                                       }, 'Parse::RecDescent::Token' )
39016                                                                                              ],
39017                                                                                   'line' => 364
39018                                                                                 }, 'Parse::RecDescent::Production' ),
39019                                                                          bless( {
39020                                                                                   'number' => '33',
39021                                                                                   'strcount' => 0,
39022                                                                                   'dircount' => 0,
39023                                                                                   'uncommit' => undef,
39024                                                                                   'error' => undef,
39025                                                                                   'patcount' => 1,
39026                                                                                   'actcount' => 0,
39027                                                                                   'items' => [
39028                                                                                                bless( {
39029                                                                                                         'pattern' => 'GETHINT',
39030                                                                                                         'hashname' => '__PATTERN1__',
39031                                                                                                         'description' => '/GETHINT/i',
39032                                                                                                         'lookahead' => 0,
39033                                                                                                         'rdelim' => '/',
39034                                                                                                         'line' => 365,
39035                                                                                                         'mod' => 'i',
39036                                                                                                         'ldelim' => '/'
39037                                                                                                       }, 'Parse::RecDescent::Token' )
39038                                                                                              ],
39039                                                                                   'line' => 365
39040                                                                                 }, 'Parse::RecDescent::Production' ),
39041                                                                          bless( {
39042                                                                                   'number' => '34',
39043                                                                                   'strcount' => 0,
39044                                                                                   'dircount' => 0,
39045                                                                                   'uncommit' => undef,
39046                                                                                   'error' => undef,
39047                                                                                   'patcount' => 1,
39048                                                                                   'actcount' => 0,
39049                                                                                   'items' => [
39050                                                                                                bless( {
39051                                                                                                         'pattern' => 'GENERATE_UNIQUE',
39052                                                                                                         'hashname' => '__PATTERN1__',
39053                                                                                                         'description' => '/GENERATE_UNIQUE/i',
39054                                                                                                         'lookahead' => 0,
39055                                                                                                         'rdelim' => '/',
39056                                                                                                         'line' => 366,
39057                                                                                                         'mod' => 'i',
39058                                                                                                         'ldelim' => '/'
39059                                                                                                       }, 'Parse::RecDescent::Token' )
39060                                                                                              ],
39061                                                                                   'line' => 366
39062                                                                                 }, 'Parse::RecDescent::Production' ),
39063                                                                          bless( {
39064                                                                                   'number' => '35',
39065                                                                                   'strcount' => 0,
39066                                                                                   'dircount' => 0,
39067                                                                                   'uncommit' => undef,
39068                                                                                   'error' => undef,
39069                                                                                   'patcount' => 1,
39070                                                                                   'actcount' => 0,
39071                                                                                   'items' => [
39072                                                                                                bless( {
39073                                                                                                         'pattern' => 'GRAPHIC',
39074                                                                                                         'hashname' => '__PATTERN1__',
39075                                                                                                         'description' => '/GRAPHIC/i',
39076                                                                                                         'lookahead' => 0,
39077                                                                                                         'rdelim' => '/',
39078                                                                                                         'line' => 367,
39079                                                                                                         'mod' => 'i',
39080                                                                                                         'ldelim' => '/'
39081                                                                                                       }, 'Parse::RecDescent::Token' )
39082                                                                                              ],
39083                                                                                   'line' => 367
39084                                                                                 }, 'Parse::RecDescent::Production' ),
39085                                                                          bless( {
39086                                                                                   'number' => '36',
39087                                                                                   'strcount' => 0,
39088                                                                                   'dircount' => 0,
39089                                                                                   'uncommit' => undef,
39090                                                                                   'error' => undef,
39091                                                                                   'patcount' => 1,
39092                                                                                   'actcount' => 0,
39093                                                                                   'items' => [
39094                                                                                                bless( {
39095                                                                                                         'pattern' => 'GROUPING',
39096                                                                                                         'hashname' => '__PATTERN1__',
39097                                                                                                         'description' => '/GROUPING/i',
39098                                                                                                         'lookahead' => 0,
39099                                                                                                         'rdelim' => '/',
39100                                                                                                         'line' => 368,
39101                                                                                                         'mod' => 'i',
39102                                                                                                         'ldelim' => '/'
39103                                                                                                       }, 'Parse::RecDescent::Token' )
39104                                                                                              ],
39105                                                                                   'line' => 368
39106                                                                                 }, 'Parse::RecDescent::Production' ),
39107                                                                          bless( {
39108                                                                                   'number' => '37',
39109                                                                                   'strcount' => 0,
39110                                                                                   'dircount' => 0,
39111                                                                                   'uncommit' => undef,
39112                                                                                   'error' => undef,
39113                                                                                   'patcount' => 1,
39114                                                                                   'actcount' => 0,
39115                                                                                   'items' => [
39116                                                                                                bless( {
39117                                                                                                         'pattern' => 'HEX',
39118                                                                                                         'hashname' => '__PATTERN1__',
39119                                                                                                         'description' => '/HEX/i',
39120                                                                                                         'lookahead' => 0,
39121                                                                                                         'rdelim' => '/',
39122                                                                                                         'line' => 369,
39123                                                                                                         'mod' => 'i',
39124                                                                                                         'ldelim' => '/'
39125                                                                                                       }, 'Parse::RecDescent::Token' )
39126                                                                                              ],
39127                                                                                   'line' => 369
39128                                                                                 }, 'Parse::RecDescent::Production' ),
39129                                                                          bless( {
39130                                                                                   'number' => '38',
39131                                                                                   'strcount' => 0,
39132                                                                                   'dircount' => 0,
39133                                                                                   'uncommit' => undef,
39134                                                                                   'error' => undef,
39135                                                                                   'patcount' => 1,
39136                                                                                   'actcount' => 0,
39137                                                                                   'items' => [
39138                                                                                                bless( {
39139                                                                                                         'pattern' => 'HOUR',
39140                                                                                                         'hashname' => '__PATTERN1__',
39141                                                                                                         'description' => '/HOUR/i',
39142                                                                                                         'lookahead' => 0,
39143                                                                                                         'rdelim' => '/',
39144                                                                                                         'line' => 370,
39145                                                                                                         'mod' => 'i',
39146                                                                                                         'ldelim' => '/'
39147                                                                                                       }, 'Parse::RecDescent::Token' )
39148                                                                                              ],
39149                                                                                   'line' => 370
39150                                                                                 }, 'Parse::RecDescent::Production' ),
39151                                                                          bless( {
39152                                                                                   'number' => '39',
39153                                                                                   'strcount' => 0,
39154                                                                                   'dircount' => 0,
39155                                                                                   'uncommit' => undef,
39156                                                                                   'error' => undef,
39157                                                                                   'patcount' => 1,
39158                                                                                   'actcount' => 0,
39159                                                                                   'items' => [
39160                                                                                                bless( {
39161                                                                                                         'pattern' => 'IDENTITY_VAL_LOCAL',
39162                                                                                                         'hashname' => '__PATTERN1__',
39163                                                                                                         'description' => '/IDENTITY_VAL_LOCAL/i',
39164                                                                                                         'lookahead' => 0,
39165                                                                                                         'rdelim' => '/',
39166                                                                                                         'line' => 371,
39167                                                                                                         'mod' => 'i',
39168                                                                                                         'ldelim' => '/'
39169                                                                                                       }, 'Parse::RecDescent::Token' )
39170                                                                                              ],
39171                                                                                   'line' => 371
39172                                                                                 }, 'Parse::RecDescent::Production' ),
39173                                                                          bless( {
39174                                                                                   'number' => '40',
39175                                                                                   'strcount' => 0,
39176                                                                                   'dircount' => 0,
39177                                                                                   'uncommit' => undef,
39178                                                                                   'error' => undef,
39179                                                                                   'patcount' => 0,
39180                                                                                   'actcount' => 0,
39181                                                                                   'items' => [
39182                                                                                                bless( {
39183                                                                                                         'subrule' => '_alternation_1_of_production_41_of_rule_sysibm_function',
39184                                                                                                         'matchrule' => 0,
39185                                                                                                         'implicit' => '/INTEGER/i, or /INT/',
39186                                                                                                         'argcode' => undef,
39187                                                                                                         'lookahead' => 0,
39188                                                                                                         'line' => 372
39189                                                                                                       }, 'Parse::RecDescent::Subrule' )
39190                                                                                              ],
39191                                                                                   'line' => 372
39192                                                                                 }, 'Parse::RecDescent::Production' ),
39193                                                                          bless( {
39194                                                                                   'number' => '41',
39195                                                                                   'strcount' => 0,
39196                                                                                   'dircount' => 0,
39197                                                                                   'uncommit' => undef,
39198                                                                                   'error' => undef,
39199                                                                                   'patcount' => 0,
39200                                                                                   'actcount' => 0,
39201                                                                                   'items' => [
39202                                                                                                bless( {
39203                                                                                                         'subrule' => '_alternation_1_of_production_42_of_rule_sysibm_function',
39204                                                                                                         'matchrule' => 0,
39205                                                                                                         'implicit' => '/LCASE/i, or /LOWER/',
39206                                                                                                         'argcode' => undef,
39207                                                                                                         'lookahead' => 0,
39208                                                                                                         'line' => 373
39209                                                                                                       }, 'Parse::RecDescent::Subrule' )
39210                                                                                              ],
39211                                                                                   'line' => 373
39212                                                                                 }, 'Parse::RecDescent::Production' ),
39213                                                                          bless( {
39214                                                                                   'number' => '42',
39215                                                                                   'strcount' => 0,
39216                                                                                   'dircount' => 0,
39217                                                                                   'uncommit' => undef,
39218                                                                                   'error' => undef,
39219                                                                                   'patcount' => 1,
39220                                                                                   'actcount' => 0,
39221                                                                                   'items' => [
39222                                                                                                bless( {
39223                                                                                                         'pattern' => 'LENGTH',
39224                                                                                                         'hashname' => '__PATTERN1__',
39225                                                                                                         'description' => '/LENGTH/i',
39226                                                                                                         'lookahead' => 0,
39227                                                                                                         'rdelim' => '/',
39228                                                                                                         'line' => 374,
39229                                                                                                         'mod' => 'i',
39230                                                                                                         'ldelim' => '/'
39231                                                                                                       }, 'Parse::RecDescent::Token' )
39232                                                                                              ],
39233                                                                                   'line' => 374
39234                                                                                 }, 'Parse::RecDescent::Production' ),
39235                                                                          bless( {
39236                                                                                   'number' => '43',
39237                                                                                   'strcount' => 0,
39238                                                                                   'dircount' => 0,
39239                                                                                   'uncommit' => undef,
39240                                                                                   'error' => undef,
39241                                                                                   'patcount' => 1,
39242                                                                                   'actcount' => 0,
39243                                                                                   'items' => [
39244                                                                                                bless( {
39245                                                                                                         'pattern' => 'LONG_VARCHAR',
39246                                                                                                         'hashname' => '__PATTERN1__',
39247                                                                                                         'description' => '/LONG_VARCHAR/i',
39248                                                                                                         'lookahead' => 0,
39249                                                                                                         'rdelim' => '/',
39250                                                                                                         'line' => 375,
39251                                                                                                         'mod' => 'i',
39252                                                                                                         'ldelim' => '/'
39253                                                                                                       }, 'Parse::RecDescent::Token' )
39254                                                                                              ],
39255                                                                                   'line' => 375
39256                                                                                 }, 'Parse::RecDescent::Production' ),
39257                                                                          bless( {
39258                                                                                   'number' => '44',
39259                                                                                   'strcount' => 0,
39260                                                                                   'dircount' => 0,
39261                                                                                   'uncommit' => undef,
39262                                                                                   'error' => undef,
39263                                                                                   'patcount' => 1,
39264                                                                                   'actcount' => 0,
39265                                                                                   'items' => [
39266                                                                                                bless( {
39267                                                                                                         'pattern' => 'LONG_VARGRAPHIC',
39268                                                                                                         'hashname' => '__PATTERN1__',
39269                                                                                                         'description' => '/LONG_VARGRAPHIC/i',
39270                                                                                                         'lookahead' => 0,
39271                                                                                                         'rdelim' => '/',
39272                                                                                                         'line' => 376,
39273                                                                                                         'mod' => 'i',
39274                                                                                                         'ldelim' => '/'
39275                                                                                                       }, 'Parse::RecDescent::Token' )
39276                                                                                              ],
39277                                                                                   'line' => 376
39278                                                                                 }, 'Parse::RecDescent::Production' ),
39279                                                                          bless( {
39280                                                                                   'number' => '45',
39281                                                                                   'strcount' => 0,
39282                                                                                   'dircount' => 0,
39283                                                                                   'uncommit' => undef,
39284                                                                                   'error' => undef,
39285                                                                                   'patcount' => 1,
39286                                                                                   'actcount' => 0,
39287                                                                                   'items' => [
39288                                                                                                bless( {
39289                                                                                                         'pattern' => 'LTRIM',
39290                                                                                                         'hashname' => '__PATTERN1__',
39291                                                                                                         'description' => '/LTRIM/i',
39292                                                                                                         'lookahead' => 0,
39293                                                                                                         'rdelim' => '/',
39294                                                                                                         'line' => 377,
39295                                                                                                         'mod' => 'i',
39296                                                                                                         'ldelim' => '/'
39297                                                                                                       }, 'Parse::RecDescent::Token' )
39298                                                                                              ],
39299                                                                                   'line' => 377
39300                                                                                 }, 'Parse::RecDescent::Production' ),
39301                                                                          bless( {
39302                                                                                   'number' => '46',
39303                                                                                   'strcount' => 0,
39304                                                                                   'dircount' => 0,
39305                                                                                   'uncommit' => undef,
39306                                                                                   'error' => undef,
39307                                                                                   'patcount' => 1,
39308                                                                                   'actcount' => 0,
39309                                                                                   'items' => [
39310                                                                                                bless( {
39311                                                                                                         'pattern' => 'MAX',
39312                                                                                                         'hashname' => '__PATTERN1__',
39313                                                                                                         'description' => '/MAX/i',
39314                                                                                                         'lookahead' => 0,
39315                                                                                                         'rdelim' => '/',
39316                                                                                                         'line' => 378,
39317                                                                                                         'mod' => 'i',
39318                                                                                                         'ldelim' => '/'
39319                                                                                                       }, 'Parse::RecDescent::Token' )
39320                                                                                              ],
39321                                                                                   'line' => 378
39322                                                                                 }, 'Parse::RecDescent::Production' ),
39323                                                                          bless( {
39324                                                                                   'number' => '47',
39325                                                                                   'strcount' => 0,
39326                                                                                   'dircount' => 0,
39327                                                                                   'uncommit' => undef,
39328                                                                                   'error' => undef,
39329                                                                                   'patcount' => 1,
39330                                                                                   'actcount' => 0,
39331                                                                                   'items' => [
39332                                                                                                bless( {
39333                                                                                                         'pattern' => 'MICROSECOND',
39334                                                                                                         'hashname' => '__PATTERN1__',
39335                                                                                                         'description' => '/MICROSECOND/i',
39336                                                                                                         'lookahead' => 0,
39337                                                                                                         'rdelim' => '/',
39338                                                                                                         'line' => 379,
39339                                                                                                         'mod' => 'i',
39340                                                                                                         'ldelim' => '/'
39341                                                                                                       }, 'Parse::RecDescent::Token' )
39342                                                                                              ],
39343                                                                                   'line' => 379
39344                                                                                 }, 'Parse::RecDescent::Production' ),
39345                                                                          bless( {
39346                                                                                   'number' => '48',
39347                                                                                   'strcount' => 0,
39348                                                                                   'dircount' => 0,
39349                                                                                   'uncommit' => undef,
39350                                                                                   'error' => undef,
39351                                                                                   'patcount' => 1,
39352                                                                                   'actcount' => 0,
39353                                                                                   'items' => [
39354                                                                                                bless( {
39355                                                                                                         'pattern' => 'MIN',
39356                                                                                                         'hashname' => '__PATTERN1__',
39357                                                                                                         'description' => '/MIN/i',
39358                                                                                                         'lookahead' => 0,
39359                                                                                                         'rdelim' => '/',
39360                                                                                                         'line' => 380,
39361                                                                                                         'mod' => 'i',
39362                                                                                                         'ldelim' => '/'
39363                                                                                                       }, 'Parse::RecDescent::Token' )
39364                                                                                              ],
39365                                                                                   'line' => 380
39366                                                                                 }, 'Parse::RecDescent::Production' ),
39367                                                                          bless( {
39368                                                                                   'number' => '49',
39369                                                                                   'strcount' => 0,
39370                                                                                   'dircount' => 0,
39371                                                                                   'uncommit' => undef,
39372                                                                                   'error' => undef,
39373                                                                                   'patcount' => 1,
39374                                                                                   'actcount' => 0,
39375                                                                                   'items' => [
39376                                                                                                bless( {
39377                                                                                                         'pattern' => 'MINUTE',
39378                                                                                                         'hashname' => '__PATTERN1__',
39379                                                                                                         'description' => '/MINUTE/i',
39380                                                                                                         'lookahead' => 0,
39381                                                                                                         'rdelim' => '/',
39382                                                                                                         'line' => 381,
39383                                                                                                         'mod' => 'i',
39384                                                                                                         'ldelim' => '/'
39385                                                                                                       }, 'Parse::RecDescent::Token' )
39386                                                                                              ],
39387                                                                                   'line' => 381
39388                                                                                 }, 'Parse::RecDescent::Production' ),
39389                                                                          bless( {
39390                                                                                   'number' => '50',
39391                                                                                   'strcount' => 0,
39392                                                                                   'dircount' => 0,
39393                                                                                   'uncommit' => undef,
39394                                                                                   'error' => undef,
39395                                                                                   'patcount' => 1,
39396                                                                                   'actcount' => 0,
39397                                                                                   'items' => [
39398                                                                                                bless( {
39399                                                                                                         'pattern' => 'MONTH',
39400                                                                                                         'hashname' => '__PATTERN1__',
39401                                                                                                         'description' => '/MONTH/i',
39402                                                                                                         'lookahead' => 0,
39403                                                                                                         'rdelim' => '/',
39404                                                                                                         'line' => 382,
39405                                                                                                         'mod' => 'i',
39406                                                                                                         'ldelim' => '/'
39407                                                                                                       }, 'Parse::RecDescent::Token' )
39408                                                                                              ],
39409                                                                                   'line' => 382
39410                                                                                 }, 'Parse::RecDescent::Production' ),
39411                                                                          bless( {
39412                                                                                   'number' => '51',
39413                                                                                   'strcount' => 0,
39414                                                                                   'dircount' => 0,
39415                                                                                   'uncommit' => undef,
39416                                                                                   'error' => undef,
39417                                                                                   'patcount' => 1,
39418                                                                                   'actcount' => 0,
39419                                                                                   'items' => [
39420                                                                                                bless( {
39421                                                                                                         'pattern' => 'MULTIPLY_ACT',
39422                                                                                                         'hashname' => '__PATTERN1__',
39423                                                                                                         'description' => '/MULTIPLY_ACT/i',
39424                                                                                                         'lookahead' => 0,
39425                                                                                                         'rdelim' => '/',
39426                                                                                                         'line' => 383,
39427                                                                                                         'mod' => 'i',
39428                                                                                                         'ldelim' => '/'
39429                                                                                                       }, 'Parse::RecDescent::Token' )
39430                                                                                              ],
39431                                                                                   'line' => 383
39432                                                                                 }, 'Parse::RecDescent::Production' ),
39433                                                                          bless( {
39434                                                                                   'number' => '52',
39435                                                                                   'strcount' => 0,
39436                                                                                   'dircount' => 0,
39437                                                                                   'uncommit' => undef,
39438                                                                                   'error' => undef,
39439                                                                                   'patcount' => 1,
39440                                                                                   'actcount' => 0,
39441                                                                                   'items' => [
39442                                                                                                bless( {
39443                                                                                                         'pattern' => 'NODENUMBER',
39444                                                                                                         'hashname' => '__PATTERN1__',
39445                                                                                                         'description' => '/NODENUMBER/i',
39446                                                                                                         'lookahead' => 0,
39447                                                                                                         'rdelim' => '/',
39448                                                                                                         'line' => 384,
39449                                                                                                         'mod' => 'i',
39450                                                                                                         'ldelim' => '/'
39451                                                                                                       }, 'Parse::RecDescent::Token' )
39452                                                                                              ],
39453                                                                                   'line' => 384
39454                                                                                 }, 'Parse::RecDescent::Production' ),
39455                                                                          bless( {
39456                                                                                   'number' => '53',
39457                                                                                   'strcount' => 0,
39458                                                                                   'dircount' => 0,
39459                                                                                   'uncommit' => undef,
39460                                                                                   'error' => undef,
39461                                                                                   'patcount' => 1,
39462                                                                                   'actcount' => 0,
39463                                                                                   'items' => [
39464                                                                                                bless( {
39465                                                                                                         'pattern' => 'NULLIF',
39466                                                                                                         'hashname' => '__PATTERN1__',
39467                                                                                                         'description' => '/NULLIF/i',
39468                                                                                                         'lookahead' => 0,
39469                                                                                                         'rdelim' => '/',
39470                                                                                                         'line' => 385,
39471                                                                                                         'mod' => 'i',
39472                                                                                                         'ldelim' => '/'
39473                                                                                                       }, 'Parse::RecDescent::Token' )
39474                                                                                              ],
39475                                                                                   'line' => 385
39476                                                                                 }, 'Parse::RecDescent::Production' ),
39477                                                                          bless( {
39478                                                                                   'number' => '54',
39479                                                                                   'strcount' => 0,
39480                                                                                   'dircount' => 0,
39481                                                                                   'uncommit' => undef,
39482                                                                                   'error' => undef,
39483                                                                                   'patcount' => 1,
39484                                                                                   'actcount' => 0,
39485                                                                                   'items' => [
39486                                                                                                bless( {
39487                                                                                                         'pattern' => 'PARTITON',
39488                                                                                                         'hashname' => '__PATTERN1__',
39489                                                                                                         'description' => '/PARTITON/i',
39490                                                                                                         'lookahead' => 0,
39491                                                                                                         'rdelim' => '/',
39492                                                                                                         'line' => 386,
39493                                                                                                         'mod' => 'i',
39494                                                                                                         'ldelim' => '/'
39495                                                                                                       }, 'Parse::RecDescent::Token' )
39496                                                                                              ],
39497                                                                                   'line' => 386
39498                                                                                 }, 'Parse::RecDescent::Production' ),
39499                                                                          bless( {
39500                                                                                   'number' => '55',
39501                                                                                   'strcount' => 0,
39502                                                                                   'dircount' => 0,
39503                                                                                   'uncommit' => undef,
39504                                                                                   'error' => undef,
39505                                                                                   'patcount' => 1,
39506                                                                                   'actcount' => 0,
39507                                                                                   'items' => [
39508                                                                                                bless( {
39509                                                                                                         'pattern' => 'POSSTR',
39510                                                                                                         'hashname' => '__PATTERN1__',
39511                                                                                                         'description' => '/POSSTR/i',
39512                                                                                                         'lookahead' => 0,
39513                                                                                                         'rdelim' => '/',
39514                                                                                                         'line' => 387,
39515                                                                                                         'mod' => 'i',
39516                                                                                                         'ldelim' => '/'
39517                                                                                                       }, 'Parse::RecDescent::Token' )
39518                                                                                              ],
39519                                                                                   'line' => 387
39520                                                                                 }, 'Parse::RecDescent::Production' ),
39521                                                                          bless( {
39522                                                                                   'number' => '56',
39523                                                                                   'strcount' => 0,
39524                                                                                   'dircount' => 0,
39525                                                                                   'uncommit' => undef,
39526                                                                                   'error' => undef,
39527                                                                                   'patcount' => 1,
39528                                                                                   'actcount' => 0,
39529                                                                                   'items' => [
39530                                                                                                bless( {
39531                                                                                                         'pattern' => 'RAISE_ERROR',
39532                                                                                                         'hashname' => '__PATTERN1__',
39533                                                                                                         'description' => '/RAISE_ERROR/i',
39534                                                                                                         'lookahead' => 0,
39535                                                                                                         'rdelim' => '/',
39536                                                                                                         'line' => 388,
39537                                                                                                         'mod' => 'i',
39538                                                                                                         'ldelim' => '/'
39539                                                                                                       }, 'Parse::RecDescent::Token' )
39540                                                                                              ],
39541                                                                                   'line' => 388
39542                                                                                 }, 'Parse::RecDescent::Production' ),
39543                                                                          bless( {
39544                                                                                   'number' => '57',
39545                                                                                   'strcount' => 0,
39546                                                                                   'dircount' => 0,
39547                                                                                   'uncommit' => undef,
39548                                                                                   'error' => undef,
39549                                                                                   'patcount' => 1,
39550                                                                                   'actcount' => 0,
39551                                                                                   'items' => [
39552                                                                                                bless( {
39553                                                                                                         'pattern' => 'REAL',
39554                                                                                                         'hashname' => '__PATTERN1__',
39555                                                                                                         'description' => '/REAL/i',
39556                                                                                                         'lookahead' => 0,
39557                                                                                                         'rdelim' => '/',
39558                                                                                                         'line' => 389,
39559                                                                                                         'mod' => 'i',
39560                                                                                                         'ldelim' => '/'
39561                                                                                                       }, 'Parse::RecDescent::Token' )
39562                                                                                              ],
39563                                                                                   'line' => 389
39564                                                                                 }, 'Parse::RecDescent::Production' ),
39565                                                                          bless( {
39566                                                                                   'number' => '58',
39567                                                                                   'strcount' => 0,
39568                                                                                   'dircount' => 0,
39569                                                                                   'uncommit' => undef,
39570                                                                                   'error' => undef,
39571                                                                                   'patcount' => 1,
39572                                                                                   'actcount' => 0,
39573                                                                                   'items' => [
39574                                                                                                bless( {
39575                                                                                                         'pattern' => 'REC2XML',
39576                                                                                                         'hashname' => '__PATTERN1__',
39577                                                                                                         'description' => '/REC2XML/i',
39578                                                                                                         'lookahead' => 0,
39579                                                                                                         'rdelim' => '/',
39580                                                                                                         'line' => 390,
39581                                                                                                         'mod' => 'i',
39582                                                                                                         'ldelim' => '/'
39583                                                                                                       }, 'Parse::RecDescent::Token' )
39584                                                                                              ],
39585                                                                                   'line' => 390
39586                                                                                 }, 'Parse::RecDescent::Production' ),
39587                                                                          bless( {
39588                                                                                   'number' => '59',
39589                                                                                   'strcount' => 0,
39590                                                                                   'dircount' => 0,
39591                                                                                   'uncommit' => undef,
39592                                                                                   'error' => undef,
39593                                                                                   'patcount' => 1,
39594                                                                                   'actcount' => 0,
39595                                                                                   'items' => [
39596                                                                                                bless( {
39597                                                                                                         'pattern' => 'REGR_AVGX',
39598                                                                                                         'hashname' => '__PATTERN1__',
39599                                                                                                         'description' => '/REGR_AVGX/i',
39600                                                                                                         'lookahead' => 0,
39601                                                                                                         'rdelim' => '/',
39602                                                                                                         'line' => 391,
39603                                                                                                         'mod' => 'i',
39604                                                                                                         'ldelim' => '/'
39605                                                                                                       }, 'Parse::RecDescent::Token' )
39606                                                                                              ],
39607                                                                                   'line' => 391
39608                                                                                 }, 'Parse::RecDescent::Production' ),
39609                                                                          bless( {
39610                                                                                   'number' => '60',
39611                                                                                   'strcount' => 0,
39612                                                                                   'dircount' => 0,
39613                                                                                   'uncommit' => undef,
39614                                                                                   'error' => undef,
39615                                                                                   'patcount' => 1,
39616                                                                                   'actcount' => 0,
39617                                                                                   'items' => [
39618                                                                                                bless( {
39619                                                                                                         'pattern' => 'REGR_AVGY',
39620                                                                                                         'hashname' => '__PATTERN1__',
39621                                                                                                         'description' => '/REGR_AVGY/i',
39622                                                                                                         'lookahead' => 0,
39623                                                                                                         'rdelim' => '/',
39624                                                                                                         'line' => 392,
39625                                                                                                         'mod' => 'i',
39626                                                                                                         'ldelim' => '/'
39627                                                                                                       }, 'Parse::RecDescent::Token' )
39628                                                                                              ],
39629                                                                                   'line' => 392
39630                                                                                 }, 'Parse::RecDescent::Production' ),
39631                                                                          bless( {
39632                                                                                   'number' => '61',
39633                                                                                   'strcount' => 0,
39634                                                                                   'dircount' => 0,
39635                                                                                   'uncommit' => undef,
39636                                                                                   'error' => undef,
39637                                                                                   'patcount' => 1,
39638                                                                                   'actcount' => 0,
39639                                                                                   'items' => [
39640                                                                                                bless( {
39641                                                                                                         'pattern' => 'REGR_COUNT',
39642                                                                                                         'hashname' => '__PATTERN1__',
39643                                                                                                         'description' => '/REGR_COUNT/i',
39644                                                                                                         'lookahead' => 0,
39645                                                                                                         'rdelim' => '/',
39646                                                                                                         'line' => 393,
39647                                                                                                         'mod' => 'i',
39648                                                                                                         'ldelim' => '/'
39649                                                                                                       }, 'Parse::RecDescent::Token' )
39650                                                                                              ],
39651                                                                                   'line' => 393
39652                                                                                 }, 'Parse::RecDescent::Production' ),
39653                                                                          bless( {
39654                                                                                   'number' => '62',
39655                                                                                   'strcount' => 0,
39656                                                                                   'dircount' => 0,
39657                                                                                   'uncommit' => undef,
39658                                                                                   'error' => undef,
39659                                                                                   'patcount' => 0,
39660                                                                                   'actcount' => 0,
39661                                                                                   'items' => [
39662                                                                                                bless( {
39663                                                                                                         'subrule' => '_alternation_1_of_production_63_of_rule_sysibm_function',
39664                                                                                                         'matchrule' => 0,
39665                                                                                                         'implicit' => '/REGR_INTERCEPT/i, or /REGR_ICPT/i',
39666                                                                                                         'argcode' => undef,
39667                                                                                                         'lookahead' => 0,
39668                                                                                                         'line' => 394
39669                                                                                                       }, 'Parse::RecDescent::Subrule' )
39670                                                                                              ],
39671                                                                                   'line' => 394
39672                                                                                 }, 'Parse::RecDescent::Production' ),
39673                                                                          bless( {
39674                                                                                   'number' => '63',
39675                                                                                   'strcount' => 0,
39676                                                                                   'dircount' => 0,
39677                                                                                   'uncommit' => undef,
39678                                                                                   'error' => undef,
39679                                                                                   'patcount' => 1,
39680                                                                                   'actcount' => 0,
39681                                                                                   'items' => [
39682                                                                                                bless( {
39683                                                                                                         'pattern' => 'REGR_R2',
39684                                                                                                         'hashname' => '__PATTERN1__',
39685                                                                                                         'description' => '/REGR_R2/i',
39686                                                                                                         'lookahead' => 0,
39687                                                                                                         'rdelim' => '/',
39688                                                                                                         'line' => 395,
39689                                                                                                         'mod' => 'i',
39690                                                                                                         'ldelim' => '/'
39691                                                                                                       }, 'Parse::RecDescent::Token' )
39692                                                                                              ],
39693                                                                                   'line' => 395
39694                                                                                 }, 'Parse::RecDescent::Production' ),
39695                                                                          bless( {
39696                                                                                   'number' => '64',
39697                                                                                   'strcount' => 0,
39698                                                                                   'dircount' => 0,
39699                                                                                   'uncommit' => undef,
39700                                                                                   'error' => undef,
39701                                                                                   'patcount' => 1,
39702                                                                                   'actcount' => 0,
39703                                                                                   'items' => [
39704                                                                                                bless( {
39705                                                                                                         'pattern' => 'REGR_SLOPE',
39706                                                                                                         'hashname' => '__PATTERN1__',
39707                                                                                                         'description' => '/REGR_SLOPE/i',
39708                                                                                                         'lookahead' => 0,
39709                                                                                                         'rdelim' => '/',
39710                                                                                                         'line' => 396,
39711                                                                                                         'mod' => 'i',
39712                                                                                                         'ldelim' => '/'
39713                                                                                                       }, 'Parse::RecDescent::Token' )
39714                                                                                              ],
39715                                                                                   'line' => 396
39716                                                                                 }, 'Parse::RecDescent::Production' ),
39717                                                                          bless( {
39718                                                                                   'number' => '65',
39719                                                                                   'strcount' => 0,
39720                                                                                   'dircount' => 0,
39721                                                                                   'uncommit' => undef,
39722                                                                                   'error' => undef,
39723                                                                                   'patcount' => 1,
39724                                                                                   'actcount' => 0,
39725                                                                                   'items' => [
39726                                                                                                bless( {
39727                                                                                                         'pattern' => 'REGR_SXX',
39728                                                                                                         'hashname' => '__PATTERN1__',
39729                                                                                                         'description' => '/REGR_SXX/i',
39730                                                                                                         'lookahead' => 0,
39731                                                                                                         'rdelim' => '/',
39732                                                                                                         'line' => 397,
39733                                                                                                         'mod' => 'i',
39734                                                                                                         'ldelim' => '/'
39735                                                                                                       }, 'Parse::RecDescent::Token' )
39736                                                                                              ],
39737                                                                                   'line' => 397
39738                                                                                 }, 'Parse::RecDescent::Production' ),
39739                                                                          bless( {
39740                                                                                   'number' => '66',
39741                                                                                   'strcount' => 0,
39742                                                                                   'dircount' => 0,
39743                                                                                   'uncommit' => undef,
39744                                                                                   'error' => undef,
39745                                                                                   'patcount' => 1,
39746                                                                                   'actcount' => 0,
39747                                                                                   'items' => [
39748                                                                                                bless( {
39749                                                                                                         'pattern' => 'REGR_SXY',
39750                                                                                                         'hashname' => '__PATTERN1__',
39751                                                                                                         'description' => '/REGR_SXY/i',
39752                                                                                                         'lookahead' => 0,
39753                                                                                                         'rdelim' => '/',
39754                                                                                                         'line' => 398,
39755                                                                                                         'mod' => 'i',
39756                                                                                                         'ldelim' => '/'
39757                                                                                                       }, 'Parse::RecDescent::Token' )
39758                                                                                              ],
39759                                                                                   'line' => 398
39760                                                                                 }, 'Parse::RecDescent::Production' ),
39761                                                                          bless( {
39762                                                                                   'number' => '67',
39763                                                                                   'strcount' => 0,
39764                                                                                   'dircount' => 0,
39765                                                                                   'uncommit' => undef,
39766                                                                                   'error' => undef,
39767                                                                                   'patcount' => 1,
39768                                                                                   'actcount' => 0,
39769                                                                                   'items' => [
39770                                                                                                bless( {
39771                                                                                                         'pattern' => 'REGR_SYY',
39772                                                                                                         'hashname' => '__PATTERN1__',
39773                                                                                                         'description' => '/REGR_SYY/i',
39774                                                                                                         'lookahead' => 0,
39775                                                                                                         'rdelim' => '/',
39776                                                                                                         'line' => 399,
39777                                                                                                         'mod' => 'i',
39778                                                                                                         'ldelim' => '/'
39779                                                                                                       }, 'Parse::RecDescent::Token' )
39780                                                                                              ],
39781                                                                                   'line' => 399
39782                                                                                 }, 'Parse::RecDescent::Production' ),
39783                                                                          bless( {
39784                                                                                   'number' => '68',
39785                                                                                   'strcount' => 0,
39786                                                                                   'dircount' => 0,
39787                                                                                   'uncommit' => undef,
39788                                                                                   'error' => undef,
39789                                                                                   'patcount' => 1,
39790                                                                                   'actcount' => 0,
39791                                                                                   'items' => [
39792                                                                                                bless( {
39793                                                                                                         'pattern' => 'RTRIM',
39794                                                                                                         'hashname' => '__PATTERN1__',
39795                                                                                                         'description' => '/RTRIM/i',
39796                                                                                                         'lookahead' => 0,
39797                                                                                                         'rdelim' => '/',
39798                                                                                                         'line' => 400,
39799                                                                                                         'mod' => 'i',
39800                                                                                                         'ldelim' => '/'
39801                                                                                                       }, 'Parse::RecDescent::Token' )
39802                                                                                              ],
39803                                                                                   'line' => 400
39804                                                                                 }, 'Parse::RecDescent::Production' ),
39805                                                                          bless( {
39806                                                                                   'number' => '69',
39807                                                                                   'strcount' => 0,
39808                                                                                   'dircount' => 0,
39809                                                                                   'uncommit' => undef,
39810                                                                                   'error' => undef,
39811                                                                                   'patcount' => 1,
39812                                                                                   'actcount' => 0,
39813                                                                                   'items' => [
39814                                                                                                bless( {
39815                                                                                                         'pattern' => 'SECOND',
39816                                                                                                         'hashname' => '__PATTERN1__',
39817                                                                                                         'description' => '/SECOND/i',
39818                                                                                                         'lookahead' => 0,
39819                                                                                                         'rdelim' => '/',
39820                                                                                                         'line' => 401,
39821                                                                                                         'mod' => 'i',
39822                                                                                                         'ldelim' => '/'
39823                                                                                                       }, 'Parse::RecDescent::Token' )
39824                                                                                              ],
39825                                                                                   'line' => 401
39826                                                                                 }, 'Parse::RecDescent::Production' ),
39827                                                                          bless( {
39828                                                                                   'number' => '70',
39829                                                                                   'strcount' => 0,
39830                                                                                   'dircount' => 0,
39831                                                                                   'uncommit' => undef,
39832                                                                                   'error' => undef,
39833                                                                                   'patcount' => 1,
39834                                                                                   'actcount' => 0,
39835                                                                                   'items' => [
39836                                                                                                bless( {
39837                                                                                                         'pattern' => 'SMALLINT',
39838                                                                                                         'hashname' => '__PATTERN1__',
39839                                                                                                         'description' => '/SMALLINT/i',
39840                                                                                                         'lookahead' => 0,
39841                                                                                                         'rdelim' => '/',
39842                                                                                                         'line' => 402,
39843                                                                                                         'mod' => 'i',
39844                                                                                                         'ldelim' => '/'
39845                                                                                                       }, 'Parse::RecDescent::Token' )
39846                                                                                              ],
39847                                                                                   'line' => 402
39848                                                                                 }, 'Parse::RecDescent::Production' ),
39849                                                                          bless( {
39850                                                                                   'number' => '71',
39851                                                                                   'strcount' => 0,
39852                                                                                   'dircount' => 0,
39853                                                                                   'uncommit' => undef,
39854                                                                                   'error' => undef,
39855                                                                                   'patcount' => 1,
39856                                                                                   'actcount' => 0,
39857                                                                                   'items' => [
39858                                                                                                bless( {
39859                                                                                                         'pattern' => 'STDDEV',
39860                                                                                                         'hashname' => '__PATTERN1__',
39861                                                                                                         'description' => '/STDDEV/i',
39862                                                                                                         'lookahead' => 0,
39863                                                                                                         'rdelim' => '/',
39864                                                                                                         'line' => 403,
39865                                                                                                         'mod' => 'i',
39866                                                                                                         'ldelim' => '/'
39867                                                                                                       }, 'Parse::RecDescent::Token' )
39868                                                                                              ],
39869                                                                                   'line' => 403
39870                                                                                 }, 'Parse::RecDescent::Production' ),
39871                                                                          bless( {
39872                                                                                   'number' => '72',
39873                                                                                   'strcount' => 0,
39874                                                                                   'dircount' => 0,
39875                                                                                   'uncommit' => undef,
39876                                                                                   'error' => undef,
39877                                                                                   'patcount' => 1,
39878                                                                                   'actcount' => 0,
39879                                                                                   'items' => [
39880                                                                                                bless( {
39881                                                                                                         'pattern' => 'SUBSTR',
39882                                                                                                         'hashname' => '__PATTERN1__',
39883                                                                                                         'description' => '/SUBSTR/i',
39884                                                                                                         'lookahead' => 0,
39885                                                                                                         'rdelim' => '/',
39886                                                                                                         'line' => 404,
39887                                                                                                         'mod' => 'i',
39888                                                                                                         'ldelim' => '/'
39889                                                                                                       }, 'Parse::RecDescent::Token' )
39890                                                                                              ],
39891                                                                                   'line' => 404
39892                                                                                 }, 'Parse::RecDescent::Production' ),
39893                                                                          bless( {
39894                                                                                   'number' => '73',
39895                                                                                   'strcount' => 0,
39896                                                                                   'dircount' => 0,
39897                                                                                   'uncommit' => undef,
39898                                                                                   'error' => undef,
39899                                                                                   'patcount' => 1,
39900                                                                                   'actcount' => 0,
39901                                                                                   'items' => [
39902                                                                                                bless( {
39903                                                                                                         'pattern' => 'SUM',
39904                                                                                                         'hashname' => '__PATTERN1__',
39905                                                                                                         'description' => '/SUM/i',
39906                                                                                                         'lookahead' => 0,
39907                                                                                                         'rdelim' => '/',
39908                                                                                                         'line' => 405,
39909                                                                                                         'mod' => 'i',
39910                                                                                                         'ldelim' => '/'
39911                                                                                                       }, 'Parse::RecDescent::Token' )
39912                                                                                              ],
39913                                                                                   'line' => 405
39914                                                                                 }, 'Parse::RecDescent::Production' ),
39915                                                                          bless( {
39916                                                                                   'number' => '74',
39917                                                                                   'strcount' => 0,
39918                                                                                   'dircount' => 0,
39919                                                                                   'uncommit' => undef,
39920                                                                                   'error' => undef,
39921                                                                                   'patcount' => 1,
39922                                                                                   'actcount' => 0,
39923                                                                                   'items' => [
39924                                                                                                bless( {
39925                                                                                                         'pattern' => 'TABLE_NAME',
39926                                                                                                         'hashname' => '__PATTERN1__',
39927                                                                                                         'description' => '/TABLE_NAME/i',
39928                                                                                                         'lookahead' => 0,
39929                                                                                                         'rdelim' => '/',
39930                                                                                                         'line' => 406,
39931                                                                                                         'mod' => 'i',
39932                                                                                                         'ldelim' => '/'
39933                                                                                                       }, 'Parse::RecDescent::Token' )
39934                                                                                              ],
39935                                                                                   'line' => 406
39936                                                                                 }, 'Parse::RecDescent::Production' ),
39937                                                                          bless( {
39938                                                                                   'number' => '75',
39939                                                                                   'strcount' => 0,
39940                                                                                   'dircount' => 0,
39941                                                                                   'uncommit' => undef,
39942                                                                                   'error' => undef,
39943                                                                                   'patcount' => 1,
39944                                                                                   'actcount' => 0,
39945                                                                                   'items' => [
39946                                                                                                bless( {
39947                                                                                                         'pattern' => 'TABLE_SCHEMA',
39948                                                                                                         'hashname' => '__PATTERN1__',
39949                                                                                                         'description' => '/TABLE_SCHEMA/i',
39950                                                                                                         'lookahead' => 0,
39951                                                                                                         'rdelim' => '/',
39952                                                                                                         'line' => 407,
39953                                                                                                         'mod' => 'i',
39954                                                                                                         'ldelim' => '/'
39955                                                                                                       }, 'Parse::RecDescent::Token' )
39956                                                                                              ],
39957                                                                                   'line' => 407
39958                                                                                 }, 'Parse::RecDescent::Production' ),
39959                                                                          bless( {
39960                                                                                   'number' => '76',
39961                                                                                   'strcount' => 0,
39962                                                                                   'dircount' => 0,
39963                                                                                   'uncommit' => undef,
39964                                                                                   'error' => undef,
39965                                                                                   'patcount' => 1,
39966                                                                                   'actcount' => 0,
39967                                                                                   'items' => [
39968                                                                                                bless( {
39969                                                                                                         'pattern' => 'TIME',
39970                                                                                                         'hashname' => '__PATTERN1__',
39971                                                                                                         'description' => '/TIME/i',
39972                                                                                                         'lookahead' => 0,
39973                                                                                                         'rdelim' => '/',
39974                                                                                                         'line' => 408,
39975                                                                                                         'mod' => 'i',
39976                                                                                                         'ldelim' => '/'
39977                                                                                                       }, 'Parse::RecDescent::Token' )
39978                                                                                              ],
39979                                                                                   'line' => 408
39980                                                                                 }, 'Parse::RecDescent::Production' ),
39981                                                                          bless( {
39982                                                                                   'number' => '77',
39983                                                                                   'strcount' => 0,
39984                                                                                   'dircount' => 0,
39985                                                                                   'uncommit' => undef,
39986                                                                                   'error' => undef,
39987                                                                                   'patcount' => 1,
39988                                                                                   'actcount' => 0,
39989                                                                                   'items' => [
39990                                                                                                bless( {
39991                                                                                                         'pattern' => 'TIMESTAMP',
39992                                                                                                         'hashname' => '__PATTERN1__',
39993                                                                                                         'description' => '/TIMESTAMP/i',
39994                                                                                                         'lookahead' => 0,
39995                                                                                                         'rdelim' => '/',
39996                                                                                                         'line' => 409,
39997                                                                                                         'mod' => 'i',
39998                                                                                                         'ldelim' => '/'
39999                                                                                                       }, 'Parse::RecDescent::Token' )
40000                                                                                              ],
40001                                                                                   'line' => 409
40002                                                                                 }, 'Parse::RecDescent::Production' ),
40003                                                                          bless( {
40004                                                                                   'number' => '78',
40005                                                                                   'strcount' => 0,
40006                                                                                   'dircount' => 0,
40007                                                                                   'uncommit' => undef,
40008                                                                                   'error' => undef,
40009                                                                                   'patcount' => 1,
40010                                                                                   'actcount' => 0,
40011                                                                                   'items' => [
40012                                                                                                bless( {
40013                                                                                                         'pattern' => 'TRANSLATE',
40014                                                                                                         'hashname' => '__PATTERN1__',
40015                                                                                                         'description' => '/TRANSLATE/i',
40016                                                                                                         'lookahead' => 0,
40017                                                                                                         'rdelim' => '/',
40018                                                                                                         'line' => 410,
40019                                                                                                         'mod' => 'i',
40020                                                                                                         'ldelim' => '/'
40021                                                                                                       }, 'Parse::RecDescent::Token' )
40022                                                                                              ],
40023                                                                                   'line' => 410
40024                                                                                 }, 'Parse::RecDescent::Production' ),
40025                                                                          bless( {
40026                                                                                   'number' => '79',
40027                                                                                   'strcount' => 0,
40028                                                                                   'dircount' => 0,
40029                                                                                   'uncommit' => undef,
40030                                                                                   'error' => undef,
40031                                                                                   'patcount' => 1,
40032                                                                                   'actcount' => 0,
40033                                                                                   'items' => [
40034                                                                                                bless( {
40035                                                                                                         'pattern' => 'TYPE_ID',
40036                                                                                                         'hashname' => '__PATTERN1__',
40037                                                                                                         'description' => '/TYPE_ID/i',
40038                                                                                                         'lookahead' => 0,
40039                                                                                                         'rdelim' => '/',
40040                                                                                                         'line' => 411,
40041                                                                                                         'mod' => 'i',
40042                                                                                                         'ldelim' => '/'
40043                                                                                                       }, 'Parse::RecDescent::Token' )
40044                                                                                              ],
40045                                                                                   'line' => 411
40046                                                                                 }, 'Parse::RecDescent::Production' ),
40047                                                                          bless( {
40048                                                                                   'number' => '80',
40049                                                                                   'strcount' => 0,
40050                                                                                   'dircount' => 0,
40051                                                                                   'uncommit' => undef,
40052                                                                                   'error' => undef,
40053                                                                                   'patcount' => 1,
40054                                                                                   'actcount' => 0,
40055                                                                                   'items' => [
40056                                                                                                bless( {
40057                                                                                                         'pattern' => 'TYPE_NAME',
40058                                                                                                         'hashname' => '__PATTERN1__',
40059                                                                                                         'description' => '/TYPE_NAME/i',
40060                                                                                                         'lookahead' => 0,
40061                                                                                                         'rdelim' => '/',
40062                                                                                                         'line' => 412,
40063                                                                                                         'mod' => 'i',
40064                                                                                                         'ldelim' => '/'
40065                                                                                                       }, 'Parse::RecDescent::Token' )
40066                                                                                              ],
40067                                                                                   'line' => 412
40068                                                                                 }, 'Parse::RecDescent::Production' ),
40069                                                                          bless( {
40070                                                                                   'number' => '81',
40071                                                                                   'strcount' => 0,
40072                                                                                   'dircount' => 0,
40073                                                                                   'uncommit' => undef,
40074                                                                                   'error' => undef,
40075                                                                                   'patcount' => 1,
40076                                                                                   'actcount' => 0,
40077                                                                                   'items' => [
40078                                                                                                bless( {
40079                                                                                                         'pattern' => 'TYPE_SCHEMA',
40080                                                                                                         'hashname' => '__PATTERN1__',
40081                                                                                                         'description' => '/TYPE_SCHEMA/i',
40082                                                                                                         'lookahead' => 0,
40083                                                                                                         'rdelim' => '/',
40084                                                                                                         'line' => 413,
40085                                                                                                         'mod' => 'i',
40086                                                                                                         'ldelim' => '/'
40087                                                                                                       }, 'Parse::RecDescent::Token' )
40088                                                                                              ],
40089                                                                                   'line' => 413
40090                                                                                 }, 'Parse::RecDescent::Production' ),
40091                                                                          bless( {
40092                                                                                   'number' => '82',
40093                                                                                   'strcount' => 0,
40094                                                                                   'dircount' => 0,
40095                                                                                   'uncommit' => undef,
40096                                                                                   'error' => undef,
40097                                                                                   'patcount' => 0,
40098                                                                                   'actcount' => 0,
40099                                                                                   'items' => [
40100                                                                                                bless( {
40101                                                                                                         'subrule' => '_alternation_1_of_production_83_of_rule_sysibm_function',
40102                                                                                                         'matchrule' => 0,
40103                                                                                                         'implicit' => '/UCASE/i, or /UPPER/i',
40104                                                                                                         'argcode' => undef,
40105                                                                                                         'lookahead' => 0,
40106                                                                                                         'line' => 414
40107                                                                                                       }, 'Parse::RecDescent::Subrule' )
40108                                                                                              ],
40109                                                                                   'line' => 414
40110                                                                                 }, 'Parse::RecDescent::Production' ),
40111                                                                          bless( {
40112                                                                                   'number' => '83',
40113                                                                                   'strcount' => 0,
40114                                                                                   'dircount' => 0,
40115                                                                                   'uncommit' => undef,
40116                                                                                   'error' => undef,
40117                                                                                   'patcount' => 1,
40118                                                                                   'actcount' => 0,
40119                                                                                   'items' => [
40120                                                                                                bless( {
40121                                                                                                         'pattern' => 'VALUE',
40122                                                                                                         'hashname' => '__PATTERN1__',
40123                                                                                                         'description' => '/VALUE/i',
40124                                                                                                         'lookahead' => 0,
40125                                                                                                         'rdelim' => '/',
40126                                                                                                         'line' => 415,
40127                                                                                                         'mod' => 'i',
40128                                                                                                         'ldelim' => '/'
40129                                                                                                       }, 'Parse::RecDescent::Token' )
40130                                                                                              ],
40131                                                                                   'line' => 415
40132                                                                                 }, 'Parse::RecDescent::Production' ),
40133                                                                          bless( {
40134                                                                                   'number' => '84',
40135                                                                                   'strcount' => 0,
40136                                                                                   'dircount' => 0,
40137                                                                                   'uncommit' => undef,
40138                                                                                   'error' => undef,
40139                                                                                   'patcount' => 1,
40140                                                                                   'actcount' => 0,
40141                                                                                   'items' => [
40142                                                                                                bless( {
40143                                                                                                         'pattern' => 'VARCHAR',
40144                                                                                                         'hashname' => '__PATTERN1__',
40145                                                                                                         'description' => '/VARCHAR/i',
40146                                                                                                         'lookahead' => 0,
40147                                                                                                         'rdelim' => '/',
40148                                                                                                         'line' => 416,
40149                                                                                                         'mod' => 'i',
40150                                                                                                         'ldelim' => '/'
40151                                                                                                       }, 'Parse::RecDescent::Token' )
40152                                                                                              ],
40153                                                                                   'line' => 416
40154                                                                                 }, 'Parse::RecDescent::Production' ),
40155                                                                          bless( {
40156                                                                                   'number' => '85',
40157                                                                                   'strcount' => 0,
40158                                                                                   'dircount' => 0,
40159                                                                                   'uncommit' => undef,
40160                                                                                   'error' => undef,
40161                                                                                   'patcount' => 1,
40162                                                                                   'actcount' => 0,
40163                                                                                   'items' => [
40164                                                                                                bless( {
40165                                                                                                         'pattern' => 'VARGRAPHIC',
40166                                                                                                         'hashname' => '__PATTERN1__',
40167                                                                                                         'description' => '/VARGRAPHIC/i',
40168                                                                                                         'lookahead' => 0,
40169                                                                                                         'rdelim' => '/',
40170                                                                                                         'line' => 417,
40171                                                                                                         'mod' => 'i',
40172                                                                                                         'ldelim' => '/'
40173                                                                                                       }, 'Parse::RecDescent::Token' )
40174                                                                                              ],
40175                                                                                   'line' => 417
40176                                                                                 }, 'Parse::RecDescent::Production' ),
40177                                                                          bless( {
40178                                                                                   'number' => '86',
40179                                                                                   'strcount' => 0,
40180                                                                                   'dircount' => 0,
40181                                                                                   'uncommit' => undef,
40182                                                                                   'error' => undef,
40183                                                                                   'patcount' => 0,
40184                                                                                   'actcount' => 0,
40185                                                                                   'items' => [
40186                                                                                                bless( {
40187                                                                                                         'subrule' => '_alternation_1_of_production_87_of_rule_sysibm_function',
40188                                                                                                         'matchrule' => 0,
40189                                                                                                         'implicit' => '/VARIANCE/i, or /VAR/i',
40190                                                                                                         'argcode' => undef,
40191                                                                                                         'lookahead' => 0,
40192                                                                                                         'line' => 418
40193                                                                                                       }, 'Parse::RecDescent::Subrule' )
40194                                                                                              ],
40195                                                                                   'line' => 418
40196                                                                                 }, 'Parse::RecDescent::Production' ),
40197                                                                          bless( {
40198                                                                                   'number' => '87',
40199                                                                                   'strcount' => 0,
40200                                                                                   'dircount' => 0,
40201                                                                                   'uncommit' => undef,
40202                                                                                   'error' => undef,
40203                                                                                   'patcount' => 1,
40204                                                                                   'actcount' => 0,
40205                                                                                   'items' => [
40206                                                                                                bless( {
40207                                                                                                         'pattern' => 'YEAR',
40208                                                                                                         'hashname' => '__PATTERN1__',
40209                                                                                                         'description' => '/YEAR/i',
40210                                                                                                         'lookahead' => 0,
40211                                                                                                         'rdelim' => '/',
40212                                                                                                         'line' => 419,
40213                                                                                                         'mod' => 'i',
40214                                                                                                         'ldelim' => '/'
40215                                                                                                       }, 'Parse::RecDescent::Token' )
40216                                                                                              ],
40217                                                                                   'line' => 419
40218                                                                                 }, 'Parse::RecDescent::Production' )
40219                                                                        ],
40220                                                             'name' => 'sysibm_function',
40221                                                             'vars' => '',
40222                                                             'line' => 332
40223                                                           }, 'Parse::RecDescent::Rule' ),
40224                               'window_partition_clause' => bless( {
40225                                                                     'impcount' => 0,
40226                                                                     'calls' => [
40227                                                                                  'partitioning_expression'
40228                                                                                ],
40229                                                                     'changed' => 0,
40230                                                                     'opcount' => 0,
40231                                                                     'prods' => [
40232                                                                                  bless( {
40233                                                                                           'number' => '0',
40234                                                                                           'strcount' => 0,
40235                                                                                           'dircount' => 1,
40236                                                                                           'uncommit' => undef,
40237                                                                                           'error' => undef,
40238                                                                                           'patcount' => 2,
40239                                                                                           'actcount' => 0,
40240                                                                                           'op' => [],
40241                                                                                           'items' => [
40242                                                                                                        bless( {
40243                                                                                                                 'pattern' => 'PARTITION\\s+BY',
40244                                                                                                                 'hashname' => '__PATTERN1__',
40245                                                                                                                 'description' => '/PARTITION\\\\s+BY/i',
40246                                                                                                                 'lookahead' => 0,
40247                                                                                                                 'rdelim' => '/',
40248                                                                                                                 'line' => 553,
40249                                                                                                                 'mod' => 'i',
40250                                                                                                                 'ldelim' => '/'
40251                                                                                                               }, 'Parse::RecDescent::Token' ),
40252                                                                                                        bless( {
40253                                                                                                                 'expected' => '<leftop: partitioning_expression /,/ partitioning_expression>',
40254                                                                                                                 'min' => 1,
40255                                                                                                                 'name' => '\'partitioning_expression(s)\'',
40256                                                                                                                 'max' => 100000000,
40257                                                                                                                 'leftarg' => bless( {
40258                                                                                                                                       'subrule' => 'partitioning_expression',
40259                                                                                                                                       'matchrule' => 0,
40260                                                                                                                                       'implicit' => undef,
40261                                                                                                                                       'argcode' => undef,
40262                                                                                                                                       'lookahead' => 0,
40263                                                                                                                                       'line' => 553
40264                                                                                                                                     }, 'Parse::RecDescent::Subrule' ),
40265                                                                                                                 'rightarg' => bless( {
40266                                                                                                                                        'subrule' => 'partitioning_expression',
40267                                                                                                                                        'matchrule' => 0,
40268                                                                                                                                        'implicit' => undef,
40269                                                                                                                                        'argcode' => undef,
40270                                                                                                                                        'lookahead' => 0,
40271                                                                                                                                        'line' => 553
40272                                                                                                                                      }, 'Parse::RecDescent::Subrule' ),
40273                                                                                                                 'hashname' => '__DIRECTIVE1__',
40274                                                                                                                 'type' => 'leftop',
40275                                                                                                                 'op' => bless( {
40276                                                                                                                                  'pattern' => ',',
40277                                                                                                                                  'hashname' => '__PATTERN2__',
40278                                                                                                                                  'description' => '/,/',
40279                                                                                                                                  'lookahead' => 0,
40280                                                                                                                                  'rdelim' => '/',
40281                                                                                                                                  'line' => 553,
40282                                                                                                                                  'mod' => '',
40283                                                                                                                                  'ldelim' => '/'
40284                                                                                                                                }, 'Parse::RecDescent::Token' )
40285                                                                                                               }, 'Parse::RecDescent::Operator' )
40286                                                                                                      ],
40287                                                                                           'line' => undef
40288                                                                                         }, 'Parse::RecDescent::Production' )
40289                                                                                ],
40290                                                                     'name' => 'window_partition_clause',
40291                                                                     'vars' => '',
40292                                                                     'line' => 553
40293                                                                   }, 'Parse::RecDescent::Rule' ),
40294                               'WHERE' => bless( {
40295                                                   'impcount' => 0,
40296                                                   'calls' => [],
40297                                                   'changed' => 0,
40298                                                   'opcount' => 0,
40299                                                   'prods' => [
40300                                                                bless( {
40301                                                                         'number' => '0',
40302                                                                         'strcount' => 0,
40303                                                                         'dircount' => 0,
40304                                                                         'uncommit' => undef,
40305                                                                         'error' => undef,
40306                                                                         'patcount' => 1,
40307                                                                         'actcount' => 0,
40308                                                                         'items' => [
40309                                                                                      bless( {
40310                                                                                               'pattern' => 'where',
40311                                                                                               'hashname' => '__PATTERN1__',
40312                                                                                               'description' => '/where/i',
40313                                                                                               'lookahead' => 0,
40314                                                                                               'rdelim' => '/',
40315                                                                                               'line' => 117,
40316                                                                                               'mod' => 'i',
40317                                                                                               'ldelim' => '/'
40318                                                                                             }, 'Parse::RecDescent::Token' )
40319                                                                                    ],
40320                                                                         'line' => undef
40321                                                                       }, 'Parse::RecDescent::Production' )
40322                                                              ],
40323                                                   'name' => 'WHERE',
40324                                                   'vars' => '',
40325                                                   'line' => 117
40326                                                 }, 'Parse::RecDescent::Rule' ),
40327                               'CREATE' => bless( {
40328                                                    'impcount' => 0,
40329                                                    'calls' => [],
40330                                                    'changed' => 0,
40331                                                    'opcount' => 0,
40332                                                    'prods' => [
40333                                                                 bless( {
40334                                                                          'number' => '0',
40335                                                                          'strcount' => 0,
40336                                                                          'dircount' => 0,
40337                                                                          'uncommit' => undef,
40338                                                                          'error' => undef,
40339                                                                          'patcount' => 1,
40340                                                                          'actcount' => 0,
40341                                                                          'items' => [
40342                                                                                       bless( {
40343                                                                                                'pattern' => 'create',
40344                                                                                                'hashname' => '__PATTERN1__',
40345                                                                                                'description' => '/create/i',
40346                                                                                                'lookahead' => 0,
40347                                                                                                'rdelim' => '/',
40348                                                                                                'line' => 101,
40349                                                                                                'mod' => 'i',
40350                                                                                                'ldelim' => '/'
40351                                                                                              }, 'Parse::RecDescent::Token' )
40352                                                                                     ],
40353                                                                          'line' => undef
40354                                                                        }, 'Parse::RecDescent::Production' )
40355                                                               ],
40356                                                    'name' => 'CREATE',
40357                                                    'vars' => '',
40358                                                    'line' => 101
40359                                                  }, 'Parse::RecDescent::Rule' ),
40360                               '_alternation_1_of_production_1_of_rule_sysfun' => bless( {
40361                                                                                           'impcount' => 0,
40362                                                                                           'calls' => [],
40363                                                                                           'changed' => 0,
40364                                                                                           'opcount' => 0,
40365                                                                                           'prods' => [
40366                                                                                                        bless( {
40367                                                                                                                 'number' => '0',
40368                                                                                                                 'strcount' => 0,
40369                                                                                                                 'dircount' => 0,
40370                                                                                                                 'uncommit' => undef,
40371                                                                                                                 'error' => undef,
40372                                                                                                                 'patcount' => 1,
40373                                                                                                                 'actcount' => 0,
40374                                                                                                                 'items' => [
40375                                                                                                                              bless( {
40376                                                                                                                                       'pattern' => 'ABS',
40377                                                                                                                                       'hashname' => '__PATTERN1__',
40378                                                                                                                                       'description' => '/ABS/i',
40379                                                                                                                                       'lookahead' => 0,
40380                                                                                                                                       'rdelim' => '/',
40381                                                                                                                                       'line' => 628,
40382                                                                                                                                       'mod' => 'i',
40383                                                                                                                                       'ldelim' => '/'
40384                                                                                                                                     }, 'Parse::RecDescent::Token' )
40385                                                                                                                            ],
40386                                                                                                                 'line' => undef
40387                                                                                                               }, 'Parse::RecDescent::Production' ),
40388                                                                                                        bless( {
40389                                                                                                                 'number' => '1',
40390                                                                                                                 'strcount' => 0,
40391                                                                                                                 'dircount' => 0,
40392                                                                                                                 'uncommit' => undef,
40393                                                                                                                 'error' => undef,
40394                                                                                                                 'patcount' => 1,
40395                                                                                                                 'actcount' => 0,
40396                                                                                                                 'items' => [
40397                                                                                                                              bless( {
40398                                                                                                                                       'pattern' => 'ABSVAL',
40399                                                                                                                                       'hashname' => '__PATTERN1__',
40400                                                                                                                                       'description' => '/ABSVAL/i',
40401                                                                                                                                       'lookahead' => 0,
40402                                                                                                                                       'rdelim' => '/',
40403                                                                                                                                       'line' => 628,
40404                                                                                                                                       'mod' => 'i',
40405                                                                                                                                       'ldelim' => '/'
40406                                                                                                                                     }, 'Parse::RecDescent::Token' )
40407                                                                                                                            ],
40408                                                                                                                 'line' => 628
40409                                                                                                               }, 'Parse::RecDescent::Production' )
40410                                                                                                      ],
40411                                                                                           'name' => '_alternation_1_of_production_1_of_rule_sysfun',
40412                                                                                           'vars' => '',
40413                                                                                           'line' => 628
40414                                                                                         }, 'Parse::RecDescent::Rule' ),
40415                               '_alternation_1_of_production_1_of_rule_function' => bless( {
40416                                                                                             'impcount' => 0,
40417                                                                                             'calls' => [
40418                                                                                                          'sysibm_function',
40419                                                                                                          'sysfun_function',
40420                                                                                                          'userdefined_function'
40421                                                                                                        ],
40422                                                                                             'changed' => 0,
40423                                                                                             'opcount' => 0,
40424                                                                                             'prods' => [
40425                                                                                                          bless( {
40426                                                                                                                   'number' => '0',
40427                                                                                                                   'strcount' => 0,
40428                                                                                                                   'dircount' => 0,
40429                                                                                                                   'uncommit' => undef,
40430                                                                                                                   'error' => undef,
40431                                                                                                                   'patcount' => 1,
40432                                                                                                                   'actcount' => 0,
40433                                                                                                                   'items' => [
40434                                                                                                                                bless( {
40435                                                                                                                                         'pattern' => 'SYSIBM\\.|',
40436                                                                                                                                         'hashname' => '__PATTERN1__',
40437                                                                                                                                         'description' => '/SYSIBM\\\\.|/i',
40438                                                                                                                                         'lookahead' => 0,
40439                                                                                                                                         'rdelim' => '/',
40440                                                                                                                                         'line' => 625,
40441                                                                                                                                         'mod' => 'i',
40442                                                                                                                                         'ldelim' => '/'
40443                                                                                                                                       }, 'Parse::RecDescent::Token' ),
40444                                                                                                                                bless( {
40445                                                                                                                                         'subrule' => 'sysibm_function',
40446                                                                                                                                         'matchrule' => 0,
40447                                                                                                                                         'implicit' => undef,
40448                                                                                                                                         'argcode' => undef,
40449                                                                                                                                         'lookahead' => 0,
40450                                                                                                                                         'line' => 625
40451                                                                                                                                       }, 'Parse::RecDescent::Subrule' )
40452                                                                                                                              ],
40453                                                                                                                   'line' => undef
40454                                                                                                                 }, 'Parse::RecDescent::Production' ),
40455                                                                                                          bless( {
40456                                                                                                                   'number' => '1',
40457                                                                                                                   'strcount' => 0,
40458                                                                                                                   'dircount' => 0,
40459                                                                                                                   'uncommit' => undef,
40460                                                                                                                   'error' => undef,
40461                                                                                                                   'patcount' => 1,
40462                                                                                                                   'actcount' => 0,
40463                                                                                                                   'items' => [
40464                                                                                                                                bless( {
40465                                                                                                                                         'pattern' => 'SYSFUN\\.|',
40466                                                                                                                                         'hashname' => '__PATTERN1__',
40467                                                                                                                                         'description' => '/SYSFUN\\\\.|/i',
40468                                                                                                                                         'lookahead' => 0,
40469                                                                                                                                         'rdelim' => '/',
40470                                                                                                                                         'line' => 626,
40471                                                                                                                                         'mod' => 'i',
40472                                                                                                                                         'ldelim' => '/'
40473                                                                                                                                       }, 'Parse::RecDescent::Token' ),
40474                                                                                                                                bless( {
40475                                                                                                                                         'subrule' => 'sysfun_function',
40476                                                                                                                                         'matchrule' => 0,
40477                                                                                                                                         'implicit' => undef,
40478                                                                                                                                         'argcode' => undef,
40479                                                                                                                                         'lookahead' => 0,
40480                                                                                                                                         'line' => 626
40481                                                                                                                                       }, 'Parse::RecDescent::Subrule' )
40482                                                                                                                              ],
40483                                                                                                                   'line' => 626
40484                                                                                                                 }, 'Parse::RecDescent::Production' ),
40485                                                                                                          bless( {
40486                                                                                                                   'number' => '2',
40487                                                                                                                   'strcount' => 0,
40488                                                                                                                   'dircount' => 0,
40489                                                                                                                   'uncommit' => undef,
40490                                                                                                                   'error' => undef,
40491                                                                                                                   'patcount' => 0,
40492                                                                                                                   'actcount' => 0,
40493                                                                                                                   'items' => [
40494                                                                                                                                bless( {
40495                                                                                                                                         'subrule' => 'userdefined_function',
40496                                                                                                                                         'matchrule' => 0,
40497                                                                                                                                         'implicit' => undef,
40498                                                                                                                                         'argcode' => undef,
40499                                                                                                                                         'lookahead' => 0,
40500                                                                                                                                         'line' => 627
40501                                                                                                                                       }, 'Parse::RecDescent::Subrule' )
40502                                                                                                                              ],
40503                                                                                                                   'line' => 627
40504                                                                                                                 }, 'Parse::RecDescent::Production' )
40505                                                                                                        ],
40506                                                                                             'name' => '_alternation_1_of_production_1_of_rule_function',
40507                                                                                             'vars' => '',
40508                                                                                             'line' => 625
40509                                                                                           }, 'Parse::RecDescent::Rule' ),
40510                               'identifier' => bless( {
40511                                                        'impcount' => 0,
40512                                                        'calls' => [
40513                                                                     'NAME'
40514                                                                   ],
40515                                                        'changed' => 0,
40516                                                        'opcount' => 0,
40517                                                        'prods' => [
40518                                                                     bless( {
40519                                                                              'number' => '0',
40520                                                                              'strcount' => 0,
40521                                                                              'dircount' => 0,
40522                                                                              'uncommit' => undef,
40523                                                                              'error' => undef,
40524                                                                              'patcount' => 0,
40525                                                                              'actcount' => 0,
40526                                                                              'items' => [
40527                                                                                           bless( {
40528                                                                                                    'subrule' => 'NAME',
40529                                                                                                    'matchrule' => 0,
40530                                                                                                    'implicit' => undef,
40531                                                                                                    'argcode' => undef,
40532                                                                                                    'lookahead' => 0,
40533                                                                                                    'line' => 136
40534                                                                                                  }, 'Parse::RecDescent::Subrule' )
40535                                                                                         ],
40536                                                                              'line' => undef
40537                                                                            }, 'Parse::RecDescent::Production' )
40538                                                                   ],
40539                                                        'name' => 'identifier',
40540                                                        'vars' => '',
40541                                                        'line' => 136
40542                                                      }, 'Parse::RecDescent::Rule' ),
40543                               '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause' => bless( {
40544                                                                                                                                               'impcount' => 0,
40545                                                                                                                                               'calls' => [
40546                                                                                                                                                            'asc_option',
40547                                                                                                                                                            'desc_option'
40548                                                                                                                                                          ],
40549                                                                                                                                               'changed' => 0,
40550                                                                                                                                               'opcount' => 0,
40551                                                                                                                                               'prods' => [
40552                                                                                                                                                            bless( {
40553                                                                                                                                                                     'number' => '0',
40554                                                                                                                                                                     'strcount' => 0,
40555                                                                                                                                                                     'dircount' => 0,
40556                                                                                                                                                                     'uncommit' => undef,
40557                                                                                                                                                                     'error' => undef,
40558                                                                                                                                                                     'patcount' => 0,
40559                                                                                                                                                                     'actcount' => 0,
40560                                                                                                                                                                     'items' => [
40561                                                                                                                                                                                  bless( {
40562                                                                                                                                                                                           'subrule' => 'asc_option',
40563                                                                                                                                                                                           'matchrule' => 0,
40564                                                                                                                                                                                           'implicit' => undef,
40565                                                                                                                                                                                           'argcode' => undef,
40566                                                                                                                                                                                           'lookahead' => 0,
40567                                                                                                                                                                                           'line' => 626
40568                                                                                                                                                                                         }, 'Parse::RecDescent::Subrule' )
40569                                                                                                                                                                                ],
40570                                                                                                                                                                     'line' => undef
40571                                                                                                                                                                   }, 'Parse::RecDescent::Production' ),
40572                                                                                                                                                            bless( {
40573                                                                                                                                                                     'number' => '1',
40574                                                                                                                                                                     'strcount' => 0,
40575                                                                                                                                                                     'dircount' => 0,
40576                                                                                                                                                                     'uncommit' => undef,
40577                                                                                                                                                                     'error' => undef,
40578                                                                                                                                                                     'patcount' => 0,
40579                                                                                                                                                                     'actcount' => 0,
40580                                                                                                                                                                     'items' => [
40581                                                                                                                                                                                  bless( {
40582                                                                                                                                                                                           'subrule' => 'desc_option',
40583                                                                                                                                                                                           'matchrule' => 0,
40584                                                                                                                                                                                           'implicit' => undef,
40585                                                                                                                                                                                           'argcode' => undef,
40586                                                                                                                                                                                           'lookahead' => 0,
40587                                                                                                                                                                                           'line' => 627
40588                                                                                                                                                                                         }, 'Parse::RecDescent::Subrule' )
40589                                                                                                                                                                                ],
40590                                                                                                                                                                     'line' => 627
40591                                                                                                                                                                   }, 'Parse::RecDescent::Production' )
40592                                                                                                                                                          ],
40593                                                                                                                                               'name' => '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause',
40594                                                                                                                                               'vars' => '',
40595                                                                                                                                               'line' => 626
40596                                                                                                                                             }, 'Parse::RecDescent::Rule' ),
40597                               'result_expression' => bless( {
40598                                                               'impcount' => 0,
40599                                                               'calls' => [
40600                                                                            'expression'
40601                                                                          ],
40602                                                               'changed' => 0,
40603                                                               'opcount' => 0,
40604                                                               'prods' => [
40605                                                                            bless( {
40606                                                                                     'number' => '0',
40607                                                                                     'strcount' => 0,
40608                                                                                     'dircount' => 0,
40609                                                                                     'uncommit' => undef,
40610                                                                                     'error' => undef,
40611                                                                                     'patcount' => 0,
40612                                                                                     'actcount' => 0,
40613                                                                                     'items' => [
40614                                                                                                  bless( {
40615                                                                                                           'subrule' => 'expression',
40616                                                                                                           'matchrule' => 0,
40617                                                                                                           'implicit' => undef,
40618                                                                                                           'argcode' => undef,
40619                                                                                                           'lookahead' => 0,
40620                                                                                                           'line' => 515
40621                                                                                                         }, 'Parse::RecDescent::Subrule' )
40622                                                                                                ],
40623                                                                                     'line' => undef
40624                                                                                   }, 'Parse::RecDescent::Production' )
40625                                                                          ],
40626                                                               'name' => 'result_expression',
40627                                                               'vars' => '',
40628                                                               'line' => 515
40629                                                             }, 'Parse::RecDescent::Rule' ),
40630                               'scoped_reference_expression' => bless( {
40631                                                                         'impcount' => 0,
40632                                                                         'calls' => [
40633                                                                                      'expression'
40634                                                                                    ],
40635                                                                         'changed' => 0,
40636                                                                         'opcount' => 0,
40637                                                                         'prods' => [
40638                                                                                      bless( {
40639                                                                                               'number' => '0',
40640                                                                                               'strcount' => 0,
40641                                                                                               'dircount' => 0,
40642                                                                                               'uncommit' => undef,
40643                                                                                               'error' => undef,
40644                                                                                               'patcount' => 0,
40645                                                                                               'actcount' => 1,
40646                                                                                               'items' => [
40647                                                                                                            bless( {
40648                                                                                                                     'subrule' => 'expression',
40649                                                                                                                     'matchrule' => 0,
40650                                                                                                                     'implicit' => undef,
40651                                                                                                                     'argcode' => undef,
40652                                                                                                                     'lookahead' => 0,
40653                                                                                                                     'line' => 532
40654                                                                                                                   }, 'Parse::RecDescent::Subrule' ),
40655                                                                                                            bless( {
40656                                                                                                                     'hashname' => '__ACTION1__',
40657                                                                                                                     'lookahead' => 0,
40658                                                                                                                     'line' => 533,
40659                                                                                                                     'code' => '{ # scoped, reference
40660 }'
40661                                                                                                                   }, 'Parse::RecDescent::Action' )
40662                                                                                                          ],
40663                                                                                               'line' => undef
40664                                                                                             }, 'Parse::RecDescent::Production' )
40665                                                                                    ],
40666                                                                         'name' => 'scoped_reference_expression',
40667                                                                         'vars' => '',
40668                                                                         'line' => 528
40669                                                                       }, 'Parse::RecDescent::Rule' ),
40670                               '_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification' => bless( {
40671                                                                                                                                              'impcount' => 0,
40672                                                                                                                                              'calls' => [
40673                                                                                                                                                           'typed_table_name',
40674                                                                                                                                                           'typed_view_name'
40675                                                                                                                                                         ],
40676                                                                                                                                              'changed' => 0,
40677                                                                                                                                              'opcount' => 0,
40678                                                                                                                                              'prods' => [
40679                                                                                                                                                           bless( {
40680                                                                                                                                                                    'number' => '0',
40681                                                                                                                                                                    'strcount' => 0,
40682                                                                                                                                                                    'dircount' => 0,
40683                                                                                                                                                                    'uncommit' => undef,
40684                                                                                                                                                                    'error' => undef,
40685                                                                                                                                                                    'patcount' => 0,
40686                                                                                                                                                                    'actcount' => 0,
40687                                                                                                                                                                    'items' => [
40688                                                                                                                                                                                 bless( {
40689                                                                                                                                                                                          'subrule' => 'typed_table_name',
40690                                                                                                                                                                                          'matchrule' => 0,
40691                                                                                                                                                                                          'implicit' => undef,
40692                                                                                                                                                                                          'argcode' => undef,
40693                                                                                                                                                                                          'lookahead' => 0,
40694                                                                                                                                                                                          'line' => 626
40695                                                                                                                                                                                        }, 'Parse::RecDescent::Subrule' )
40696                                                                                                                                                                               ],
40697                                                                                                                                                                    'line' => undef
40698                                                                                                                                                                  }, 'Parse::RecDescent::Production' ),
40699                                                                                                                                                           bless( {
40700                                                                                                                                                                    'number' => '1',
40701                                                                                                                                                                    'strcount' => 0,
40702                                                                                                                                                                    'dircount' => 0,
40703                                                                                                                                                                    'uncommit' => undef,
40704                                                                                                                                                                    'error' => undef,
40705                                                                                                                                                                    'patcount' => 0,
40706                                                                                                                                                                    'actcount' => 0,
40707                                                                                                                                                                    'items' => [
40708                                                                                                                                                                                 bless( {
40709                                                                                                                                                                                          'subrule' => 'typed_view_name',
40710                                                                                                                                                                                          'matchrule' => 0,
40711                                                                                                                                                                                          'implicit' => undef,
40712                                                                                                                                                                                          'argcode' => undef,
40713                                                                                                                                                                                          'lookahead' => 0,
40714                                                                                                                                                                                          'line' => 627
40715                                                                                                                                                                                        }, 'Parse::RecDescent::Subrule' )
40716                                                                                                                                                                               ],
40717                                                                                                                                                                    'line' => 627
40718                                                                                                                                                                  }, 'Parse::RecDescent::Production' )
40719                                                                                                                                                         ],
40720                                                                                                                                              'name' => '_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cast_specification',
40721                                                                                                                                              'vars' => '',
40722                                                                                                                                              'line' => 626
40723                                                                                                                                            }, 'Parse::RecDescent::Rule' ),
40724                               'when_clause' => bless( {
40725                                                         'impcount' => 0,
40726                                                         'calls' => [
40727                                                                      'search_condition'
40728                                                                    ],
40729                                                         'changed' => 0,
40730                                                         'opcount' => 0,
40731                                                         'prods' => [
40732                                                                      bless( {
40733                                                                               'number' => '0',
40734                                                                               'strcount' => 2,
40735                                                                               'dircount' => 0,
40736                                                                               'uncommit' => undef,
40737                                                                               'error' => undef,
40738                                                                               'patcount' => 1,
40739                                                                               'actcount' => 1,
40740                                                                               'items' => [
40741                                                                                            bless( {
40742                                                                                                     'pattern' => 'WHEN',
40743                                                                                                     'hashname' => '__PATTERN1__',
40744                                                                                                     'description' => '/WHEN/i',
40745                                                                                                     'lookahead' => 0,
40746                                                                                                     'rdelim' => '/',
40747                                                                                                     'line' => 261,
40748                                                                                                     'mod' => 'i',
40749                                                                                                     'ldelim' => '/'
40750                                                                                                   }, 'Parse::RecDescent::Token' ),
40751                                                                                            bless( {
40752                                                                                                     'pattern' => '(',
40753                                                                                                     'hashname' => '__STRING1__',
40754                                                                                                     'description' => '\'(\'',
40755                                                                                                     'lookahead' => 0,
40756                                                                                                     'line' => 261
40757                                                                                                   }, 'Parse::RecDescent::Literal' ),
40758                                                                                            bless( {
40759                                                                                                     'subrule' => 'search_condition',
40760                                                                                                     'matchrule' => 0,
40761                                                                                                     'implicit' => undef,
40762                                                                                                     'argcode' => undef,
40763                                                                                                     'lookahead' => 0,
40764                                                                                                     'line' => 261
40765                                                                                                   }, 'Parse::RecDescent::Subrule' ),
40766                                                                                            bless( {
40767                                                                                                     'pattern' => ')',
40768                                                                                                     'hashname' => '__STRING2__',
40769                                                                                                     'description' => '\')\'',
40770                                                                                                     'lookahead' => 0,
40771                                                                                                     'line' => 261
40772                                                                                                   }, 'Parse::RecDescent::Literal' ),
40773                                                                                            bless( {
40774                                                                                                     'hashname' => '__ACTION1__',
40775                                                                                                     'lookahead' => 0,
40776                                                                                                     'line' => 261,
40777                                                                                                     'code' => '{$return = $item[3]}'
40778                                                                                                   }, 'Parse::RecDescent::Action' )
40779                                                                                          ],
40780                                                                               'line' => undef
40781                                                                             }, 'Parse::RecDescent::Production' )
40782                                                                    ],
40783                                                         'name' => 'when_clause',
40784                                                         'vars' => '',
40785                                                         'line' => 259
40786                                                       }, 'Parse::RecDescent::Rule' ),
40787                               '_alternation_1_of_production_1_of_rule_asc_option' => bless( {
40788                                                                                               'impcount' => 0,
40789                                                                                               'calls' => [],
40790                                                                                               'changed' => 0,
40791                                                                                               'opcount' => 0,
40792                                                                                               'prods' => [
40793                                                                                                            bless( {
40794                                                                                                                     'number' => '0',
40795                                                                                                                     'strcount' => 0,
40796                                                                                                                     'dircount' => 0,
40797                                                                                                                     'uncommit' => undef,
40798                                                                                                                     'error' => undef,
40799                                                                                                                     'patcount' => 1,
40800                                                                                                                     'actcount' => 0,
40801                                                                                                                     'items' => [
40802                                                                                                                                  bless( {
40803                                                                                                                                           'pattern' => 'NULLS\\s+FIRST',
40804                                                                                                                                           'hashname' => '__PATTERN1__',
40805                                                                                                                                           'description' => '/NULLS\\\\s+FIRST/i',
40806                                                                                                                                           'lookahead' => 0,
40807                                                                                                                                           'rdelim' => '/',
40808                                                                                                                                           'line' => 628,
40809                                                                                                                                           'mod' => 'i',
40810                                                                                                                                           'ldelim' => '/'
40811                                                                                                                                         }, 'Parse::RecDescent::Token' )
40812                                                                                                                                ],
40813                                                                                                                     'line' => undef
40814                                                                                                                   }, 'Parse::RecDescent::Production' ),
40815                                                                                                            bless( {
40816                                                                                                                     'number' => '1',
40817                                                                                                                     'strcount' => 0,
40818                                                                                                                     'dircount' => 0,
40819                                                                                                                     'uncommit' => undef,
40820                                                                                                                     'error' => undef,
40821                                                                                                                     'patcount' => 1,
40822                                                                                                                     'actcount' => 0,
40823                                                                                                                     'items' => [
40824                                                                                                                                  bless( {
40825                                                                                                                                           'pattern' => 'NULLS\\s+LAST',
40826                                                                                                                                           'hashname' => '__PATTERN1__',
40827                                                                                                                                           'description' => '/NULLS\\\\s+LAST/i',
40828                                                                                                                                           'lookahead' => 0,
40829                                                                                                                                           'rdelim' => '/',
40830                                                                                                                                           'line' => 628,
40831                                                                                                                                           'mod' => 'i',
40832                                                                                                                                           'ldelim' => '/'
40833                                                                                                                                         }, 'Parse::RecDescent::Token' )
40834                                                                                                                                ],
40835                                                                                                                     'line' => 628
40836                                                                                                                   }, 'Parse::RecDescent::Production' )
40837                                                                                                          ],
40838                                                                                               'name' => '_alternation_1_of_production_1_of_rule_asc_option',
40839                                                                                               'vars' => '',
40840                                                                                               'line' => 628
40841                                                                                             }, 'Parse::RecDescent::Rule' ),
40842                               'sequence_name' => bless( {
40843                                                           'impcount' => 0,
40844                                                           'calls' => [
40845                                                                        'NAME'
40846                                                                      ],
40847                                                           'changed' => 0,
40848                                                           'opcount' => 0,
40849                                                           'prods' => [
40850                                                                        bless( {
40851                                                                                 'number' => '0',
40852                                                                                 'strcount' => 0,
40853                                                                                 'dircount' => 0,
40854                                                                                 'uncommit' => undef,
40855                                                                                 'error' => undef,
40856                                                                                 'patcount' => 0,
40857                                                                                 'actcount' => 0,
40858                                                                                 'items' => [
40859                                                                                              bless( {
40860                                                                                                       'subrule' => 'NAME',
40861                                                                                                       'matchrule' => 0,
40862                                                                                                       'implicit' => undef,
40863                                                                                                       'argcode' => undef,
40864                                                                                                       'lookahead' => 0,
40865                                                                                                       'line' => 615
40866                                                                                                     }, 'Parse::RecDescent::Subrule' )
40867                                                                                            ],
40868                                                                                 'line' => undef
40869                                                                               }, 'Parse::RecDescent::Production' )
40870                                                                      ],
40871                                                           'name' => 'sequence_name',
40872                                                           'vars' => '',
40873                                                           'line' => 615
40874                                                         }, 'Parse::RecDescent::Rule' ),
40875                               'ld_duration' => bless( {
40876                                                         'impcount' => 0,
40877                                                         'calls' => [],
40878                                                         'changed' => 0,
40879                                                         'opcount' => 0,
40880                                                         'prods' => [
40881                                                                      bless( {
40882                                                                               'number' => '0',
40883                                                                               'strcount' => 0,
40884                                                                               'dircount' => 0,
40885                                                                               'uncommit' => undef,
40886                                                                               'error' => undef,
40887                                                                               'patcount' => 1,
40888                                                                               'actcount' => 0,
40889                                                                               'items' => [
40890                                                                                            bless( {
40891                                                                                                     'pattern' => 'YEARS?',
40892                                                                                                     'hashname' => '__PATTERN1__',
40893                                                                                                     'description' => '/YEARS?/i',
40894                                                                                                     'lookahead' => 0,
40895                                                                                                     'rdelim' => '/',
40896                                                                                                     'line' => 488,
40897                                                                                                     'mod' => 'i',
40898                                                                                                     'ldelim' => '/'
40899                                                                                                   }, 'Parse::RecDescent::Token' )
40900                                                                                          ],
40901                                                                               'line' => undef
40902                                                                             }, 'Parse::RecDescent::Production' ),
40903                                                                      bless( {
40904                                                                               'number' => '1',
40905                                                                               'strcount' => 0,
40906                                                                               'dircount' => 0,
40907                                                                               'uncommit' => undef,
40908                                                                               'error' => undef,
40909                                                                               'patcount' => 1,
40910                                                                               'actcount' => 0,
40911                                                                               'items' => [
40912                                                                                            bless( {
40913                                                                                                     'pattern' => 'MONTHS?',
40914                                                                                                     'hashname' => '__PATTERN1__',
40915                                                                                                     'description' => '/MONTHS?/i',
40916                                                                                                     'lookahead' => 0,
40917                                                                                                     'rdelim' => '/',
40918                                                                                                     'line' => 489,
40919                                                                                                     'mod' => 'i',
40920                                                                                                     'ldelim' => '/'
40921                                                                                                   }, 'Parse::RecDescent::Token' )
40922                                                                                          ],
40923                                                                               'line' => 489
40924                                                                             }, 'Parse::RecDescent::Production' ),
40925                                                                      bless( {
40926                                                                               'number' => '2',
40927                                                                               'strcount' => 0,
40928                                                                               'dircount' => 0,
40929                                                                               'uncommit' => undef,
40930                                                                               'error' => undef,
40931                                                                               'patcount' => 1,
40932                                                                               'actcount' => 0,
40933                                                                               'items' => [
40934                                                                                            bless( {
40935                                                                                                     'pattern' => 'DAYS?',
40936                                                                                                     'hashname' => '__PATTERN1__',
40937                                                                                                     'description' => '/DAYS?/i',
40938                                                                                                     'lookahead' => 0,
40939                                                                                                     'rdelim' => '/',
40940                                                                                                     'line' => 490,
40941                                                                                                     'mod' => 'i',
40942                                                                                                     'ldelim' => '/'
40943                                                                                                   }, 'Parse::RecDescent::Token' )
40944                                                                                          ],
40945                                                                               'line' => 490
40946                                                                             }, 'Parse::RecDescent::Production' ),
40947                                                                      bless( {
40948                                                                               'number' => '3',
40949                                                                               'strcount' => 0,
40950                                                                               'dircount' => 0,
40951                                                                               'uncommit' => undef,
40952                                                                               'error' => undef,
40953                                                                               'patcount' => 1,
40954                                                                               'actcount' => 0,
40955                                                                               'items' => [
40956                                                                                            bless( {
40957                                                                                                     'pattern' => 'HOURS?',
40958                                                                                                     'hashname' => '__PATTERN1__',
40959                                                                                                     'description' => '/HOURS?/i',
40960                                                                                                     'lookahead' => 0,
40961                                                                                                     'rdelim' => '/',
40962                                                                                                     'line' => 491,
40963                                                                                                     'mod' => 'i',
40964                                                                                                     'ldelim' => '/'
40965                                                                                                   }, 'Parse::RecDescent::Token' )
40966                                                                                          ],
40967                                                                               'line' => 491
40968                                                                             }, 'Parse::RecDescent::Production' ),
40969                                                                      bless( {
40970                                                                               'number' => '4',
40971                                                                               'strcount' => 0,
40972                                                                               'dircount' => 0,
40973                                                                               'uncommit' => undef,
40974                                                                               'error' => undef,
40975                                                                               'patcount' => 1,
40976                                                                               'actcount' => 0,
40977                                                                               'items' => [
40978                                                                                            bless( {
40979                                                                                                     'pattern' => 'MINUTES?',
40980                                                                                                     'hashname' => '__PATTERN1__',
40981                                                                                                     'description' => '/MINUTES?/i',
40982                                                                                                     'lookahead' => 0,
40983                                                                                                     'rdelim' => '/',
40984                                                                                                     'line' => 492,
40985                                                                                                     'mod' => 'i',
40986                                                                                                     'ldelim' => '/'
40987                                                                                                   }, 'Parse::RecDescent::Token' )
40988                                                                                          ],
40989                                                                               'line' => 492
40990                                                                             }, 'Parse::RecDescent::Production' ),
40991                                                                      bless( {
40992                                                                               'number' => '5',
40993                                                                               'strcount' => 0,
40994                                                                               'dircount' => 0,
40995                                                                               'uncommit' => undef,
40996                                                                               'error' => undef,
40997                                                                               'patcount' => 1,
40998                                                                               'actcount' => 0,
40999                                                                               'items' => [
41000                                                                                            bless( {
41001                                                                                                     'pattern' => 'SECONDS?',
41002                                                                                                     'hashname' => '__PATTERN1__',
41003                                                                                                     'description' => '/SECONDS?/i',
41004                                                                                                     'lookahead' => 0,
41005                                                                                                     'rdelim' => '/',
41006                                                                                                     'line' => 493,
41007                                                                                                     'mod' => 'i',
41008                                                                                                     'ldelim' => '/'
41009                                                                                                   }, 'Parse::RecDescent::Token' )
41010                                                                                          ],
41011                                                                               'line' => 493
41012                                                                             }, 'Parse::RecDescent::Production' ),
41013                                                                      bless( {
41014                                                                               'number' => '6',
41015                                                                               'strcount' => 0,
41016                                                                               'dircount' => 0,
41017                                                                               'uncommit' => undef,
41018                                                                               'error' => undef,
41019                                                                               'patcount' => 1,
41020                                                                               'actcount' => 0,
41021                                                                               'items' => [
41022                                                                                            bless( {
41023                                                                                                     'pattern' => 'MICROSECONDS?',
41024                                                                                                     'hashname' => '__PATTERN1__',
41025                                                                                                     'description' => '/MICROSECONDS?/i',
41026                                                                                                     'lookahead' => 0,
41027                                                                                                     'rdelim' => '/',
41028                                                                                                     'line' => 494,
41029                                                                                                     'mod' => 'i',
41030                                                                                                     'ldelim' => '/'
41031                                                                                                   }, 'Parse::RecDescent::Token' )
41032                                                                                          ],
41033                                                                               'line' => 494
41034                                                                             }, 'Parse::RecDescent::Production' )
41035                                                                    ],
41036                                                         'name' => 'ld_duration',
41037                                                         'vars' => '',
41038                                                         'line' => 488
41039                                                       }, 'Parse::RecDescent::Rule' ),
41040                               'reference_a' => bless( {
41041                                                         'impcount' => 0,
41042                                                         'calls' => [
41043                                                                      'old_new_corr',
41044                                                                      'old_new_table'
41045                                                                    ],
41046                                                         'changed' => 0,
41047                                                         'opcount' => 0,
41048                                                         'prods' => [
41049                                                                      bless( {
41050                                                                               'number' => '0',
41051                                                                               'strcount' => 0,
41052                                                                               'dircount' => 0,
41053                                                                               'uncommit' => undef,
41054                                                                               'error' => undef,
41055                                                                               'patcount' => 1,
41056                                                                               'actcount' => 1,
41057                                                                               'items' => [
41058                                                                                            bless( {
41059                                                                                                     'pattern' => 'REFERENCING',
41060                                                                                                     'hashname' => '__PATTERN1__',
41061                                                                                                     'description' => '/REFERENCING/i',
41062                                                                                                     'lookahead' => 0,
41063                                                                                                     'rdelim' => '/',
41064                                                                                                     'line' => 283,
41065                                                                                                     'mod' => 'i',
41066                                                                                                     'ldelim' => '/'
41067                                                                                                   }, 'Parse::RecDescent::Token' ),
41068                                                                                            bless( {
41069                                                                                                     'subrule' => 'old_new_corr',
41070                                                                                                     'expected' => undef,
41071                                                                                                     'min' => 0,
41072                                                                                                     'argcode' => undef,
41073                                                                                                     'max' => 2,
41074                                                                                                     'matchrule' => 0,
41075                                                                                                     'repspec' => '0..2',
41076                                                                                                     'lookahead' => 0,
41077                                                                                                     'line' => 283
41078                                                                                                   }, 'Parse::RecDescent::Repetition' ),
41079                                                                                            bless( {
41080                                                                                                     'subrule' => 'old_new_table',
41081                                                                                                     'expected' => undef,
41082                                                                                                     'min' => 0,
41083                                                                                                     'argcode' => undef,
41084                                                                                                     'max' => 2,
41085                                                                                                     'matchrule' => 0,
41086                                                                                                     'repspec' => '0..2',
41087                                                                                                     'lookahead' => 0,
41088                                                                                                     'line' => 283
41089                                                                                                   }, 'Parse::RecDescent::Repetition' ),
41090                                                                                            bless( {
41091                                                                                                     'hashname' => '__ACTION1__',
41092                                                                                                     'lookahead' => 0,
41093                                                                                                     'line' => 284,
41094                                                                                                     'code' => '{ $return = join(\' \', $item[1], join(\' \', @{$item[2]}), join(\' \', @{$item[3]})  ) }'
41095                                                                                                   }, 'Parse::RecDescent::Action' )
41096                                                                                          ],
41097                                                                               'line' => undef
41098                                                                             }, 'Parse::RecDescent::Production' )
41099                                                                    ],
41100                                                         'name' => 'reference_a',
41101                                                         'vars' => '',
41102                                                         'line' => 283
41103                                                       }, 'Parse::RecDescent::Rule' ),
41104                               'cast_specification' => bless( {
41105                                                                'impcount' => 2,
41106                                                                'calls' => [
41107                                                                             '_alternation_1_of_production_1_of_rule_cast_specification',
41108                                                                             'data_type',
41109                                                                             '_alternation_2_of_production_1_of_rule_cast_specification'
41110                                                                           ],
41111                                                                'changed' => 0,
41112                                                                'opcount' => 0,
41113                                                                'prods' => [
41114                                                                             bless( {
41115                                                                                      'number' => '0',
41116                                                                                      'strcount' => 2,
41117                                                                                      'dircount' => 0,
41118                                                                                      'uncommit' => undef,
41119                                                                                      'error' => undef,
41120                                                                                      'patcount' => 2,
41121                                                                                      'actcount' => 0,
41122                                                                                      'items' => [
41123                                                                                                   bless( {
41124                                                                                                            'pattern' => 'CAST',
41125                                                                                                            'hashname' => '__PATTERN1__',
41126                                                                                                            'description' => '/CAST/i',
41127                                                                                                            'lookahead' => 0,
41128                                                                                                            'rdelim' => '/',
41129                                                                                                            'line' => 517,
41130                                                                                                            'mod' => 'i',
41131                                                                                                            'ldelim' => '/'
41132                                                                                                          }, 'Parse::RecDescent::Token' ),
41133                                                                                                   bless( {
41134                                                                                                            'pattern' => '(',
41135                                                                                                            'hashname' => '__STRING1__',
41136                                                                                                            'description' => '\'(\'',
41137                                                                                                            'lookahead' => 0,
41138                                                                                                            'line' => 517
41139                                                                                                          }, 'Parse::RecDescent::Literal' ),
41140                                                                                                   bless( {
41141                                                                                                            'subrule' => '_alternation_1_of_production_1_of_rule_cast_specification',
41142                                                                                                            'matchrule' => 0,
41143                                                                                                            'implicit' => 'expression, or /NULL/i, or parameter_marker',
41144                                                                                                            'argcode' => undef,
41145                                                                                                            'lookahead' => 0,
41146                                                                                                            'line' => 520
41147                                                                                                          }, 'Parse::RecDescent::Subrule' ),
41148                                                                                                   bless( {
41149                                                                                                            'pattern' => 'AS',
41150                                                                                                            'hashname' => '__PATTERN2__',
41151                                                                                                            'description' => '/AS/i',
41152                                                                                                            'lookahead' => 0,
41153                                                                                                            'rdelim' => '/',
41154                                                                                                            'line' => 520,
41155                                                                                                            'mod' => 'i',
41156                                                                                                            'ldelim' => '/'
41157                                                                                                          }, 'Parse::RecDescent::Token' ),
41158                                                                                                   bless( {
41159                                                                                                            'subrule' => 'data_type',
41160                                                                                                            'matchrule' => 0,
41161                                                                                                            'implicit' => undef,
41162                                                                                                            'argcode' => undef,
41163                                                                                                            'lookahead' => 0,
41164                                                                                                            'line' => 520
41165                                                                                                          }, 'Parse::RecDescent::Subrule' ),
41166                                                                                                   bless( {
41167                                                                                                            'subrule' => '_alternation_2_of_production_1_of_rule_cast_specification',
41168                                                                                                            'expected' => '/SCOPE/',
41169                                                                                                            'min' => 0,
41170                                                                                                            'argcode' => undef,
41171                                                                                                            'max' => 1,
41172                                                                                                            'matchrule' => 0,
41173                                                                                                            'repspec' => '?',
41174                                                                                                            'lookahead' => 0,
41175                                                                                                            'line' => 524
41176                                                                                                          }, 'Parse::RecDescent::Repetition' ),
41177                                                                                                   bless( {
41178                                                                                                            'pattern' => ')',
41179                                                                                                            'hashname' => '__STRING2__',
41180                                                                                                            'description' => '\')\'',
41181                                                                                                            'lookahead' => 0,
41182                                                                                                            'line' => 524
41183                                                                                                          }, 'Parse::RecDescent::Literal' )
41184                                                                                                 ],
41185                                                                                      'line' => undef
41186                                                                                    }, 'Parse::RecDescent::Production' )
41187                                                                           ],
41188                                                                'name' => 'cast_specification',
41189                                                                'vars' => '',
41190                                                                'line' => 517
41191                                                              }, 'Parse::RecDescent::Rule' ),
41192                               'type' => bless( {
41193                                                  'impcount' => 1,
41194                                                  'calls' => [
41195                                                               'column_name',
41196                                                               '_alternation_1_of_production_2_of_rule_type'
41197                                                             ],
41198                                                  'changed' => 0,
41199                                                  'opcount' => 0,
41200                                                  'prods' => [
41201                                                               bless( {
41202                                                                        'number' => '0',
41203                                                                        'strcount' => 0,
41204                                                                        'dircount' => 1,
41205                                                                        'uncommit' => undef,
41206                                                                        'error' => undef,
41207                                                                        'patcount' => 3,
41208                                                                        'actcount' => 1,
41209                                                                        'op' => [],
41210                                                                        'items' => [
41211                                                                                     bless( {
41212                                                                                              'pattern' => 'UPDATE',
41213                                                                                              'hashname' => '__PATTERN1__',
41214                                                                                              'description' => '/UPDATE/i',
41215                                                                                              'lookahead' => 0,
41216                                                                                              'rdelim' => '/',
41217                                                                                              'line' => 272,
41218                                                                                              'mod' => 'i',
41219                                                                                              'ldelim' => '/'
41220                                                                                            }, 'Parse::RecDescent::Token' ),
41221                                                                                     bless( {
41222                                                                                              'pattern' => 'OF',
41223                                                                                              'hashname' => '__PATTERN2__',
41224                                                                                              'description' => '/OF/i',
41225                                                                                              'lookahead' => 0,
41226                                                                                              'rdelim' => '/',
41227                                                                                              'line' => 272,
41228                                                                                              'mod' => 'i',
41229                                                                                              'ldelim' => '/'
41230                                                                                            }, 'Parse::RecDescent::Token' ),
41231                                                                                     bless( {
41232                                                                                              'expected' => '<leftop: column_name /,/ column_name>',
41233                                                                                              'min' => 1,
41234                                                                                              'name' => '\'column_name(s)\'',
41235                                                                                              'max' => 100000000,
41236                                                                                              'leftarg' => bless( {
41237                                                                                                                    'subrule' => 'column_name',
41238                                                                                                                    'matchrule' => 0,
41239                                                                                                                    'implicit' => undef,
41240                                                                                                                    'argcode' => undef,
41241                                                                                                                    'lookahead' => 0,
41242                                                                                                                    'line' => 272
41243                                                                                                                  }, 'Parse::RecDescent::Subrule' ),
41244                                                                                              'rightarg' => bless( {
41245                                                                                                                     'subrule' => 'column_name',
41246                                                                                                                     'matchrule' => 0,
41247                                                                                                                     'implicit' => undef,
41248                                                                                                                     'argcode' => undef,
41249                                                                                                                     'lookahead' => 0,
41250                                                                                                                     'line' => 272
41251                                                                                                                   }, 'Parse::RecDescent::Subrule' ),
41252                                                                                              'hashname' => '__DIRECTIVE1__',
41253                                                                                              'type' => 'leftop',
41254                                                                                              'op' => bless( {
41255                                                                                                               'pattern' => ',',
41256                                                                                                               'hashname' => '__PATTERN3__',
41257                                                                                                               'description' => '/,/',
41258                                                                                                               'lookahead' => 0,
41259                                                                                                               'rdelim' => '/',
41260                                                                                                               'line' => 272,
41261                                                                                                               'mod' => '',
41262                                                                                                               'ldelim' => '/'
41263                                                                                                             }, 'Parse::RecDescent::Token' )
41264                                                                                            }, 'Parse::RecDescent::Operator' ),
41265                                                                                     bless( {
41266                                                                                              'hashname' => '__ACTION1__',
41267                                                                                              'lookahead' => 0,
41268                                                                                              'line' => 273,
41269                                                                                              'code' => '{ $return = { event  => \'update_on\',
41270               fields => $item[3] }
41271 }'
41272                                                                                            }, 'Parse::RecDescent::Action' )
41273                                                                                   ],
41274                                                                        'line' => undef
41275                                                                      }, 'Parse::RecDescent::Production' ),
41276                                                               bless( {
41277                                                                        'number' => '1',
41278                                                                        'strcount' => 0,
41279                                                                        'dircount' => 0,
41280                                                                        'uncommit' => undef,
41281                                                                        'error' => undef,
41282                                                                        'patcount' => 0,
41283                                                                        'actcount' => 1,
41284                                                                        'items' => [
41285                                                                                     bless( {
41286                                                                                              'subrule' => '_alternation_1_of_production_2_of_rule_type',
41287                                                                                              'matchrule' => 0,
41288                                                                                              'implicit' => '/INSERT/i, or /DELETE/i, or /UPDATE/i',
41289                                                                                              'argcode' => undef,
41290                                                                                              'lookahead' => 0,
41291                                                                                              'line' => 277
41292                                                                                            }, 'Parse::RecDescent::Subrule' ),
41293                                                                                     bless( {
41294                                                                                              'hashname' => '__ACTION1__',
41295                                                                                              'lookahead' => 0,
41296                                                                                              'line' => 278,
41297                                                                                              'code' => '{ $return = { event => $item[1] } }'
41298                                                                                            }, 'Parse::RecDescent::Action' )
41299                                                                                   ],
41300                                                                        'line' => undef
41301                                                                      }, 'Parse::RecDescent::Production' )
41302                                                             ],
41303                                                  'name' => 'type',
41304                                                  'vars' => '',
41305                                                  'line' => 272
41306                                                }, 'Parse::RecDescent::Rule' ),
41307                               '_alternation_1_of_production_12_of_rule_sysibm_function' => bless( {
41308                                                                                                     'impcount' => 0,
41309                                                                                                     'calls' => [],
41310                                                                                                     'changed' => 0,
41311                                                                                                     'opcount' => 0,
41312                                                                                                     'prods' => [
41313                                                                                                                  bless( {
41314                                                                                                                           'number' => '0',
41315                                                                                                                           'strcount' => 0,
41316                                                                                                                           'dircount' => 0,
41317                                                                                                                           'uncommit' => undef,
41318                                                                                                                           'error' => undef,
41319                                                                                                                           'patcount' => 1,
41320                                                                                                                           'actcount' => 0,
41321                                                                                                                           'items' => [
41322                                                                                                                                        bless( {
41323                                                                                                                                                 'pattern' => 'COVARIANCE',
41324                                                                                                                                                 'hashname' => '__PATTERN1__',
41325                                                                                                                                                 'description' => '/COVARIANCE/i',
41326                                                                                                                                                 'lookahead' => 0,
41327                                                                                                                                                 'rdelim' => '/',
41328                                                                                                                                                 'line' => 628,
41329                                                                                                                                                 'mod' => 'i',
41330                                                                                                                                                 'ldelim' => '/'
41331                                                                                                                                               }, 'Parse::RecDescent::Token' )
41332                                                                                                                                      ],
41333                                                                                                                           'line' => undef
41334                                                                                                                         }, 'Parse::RecDescent::Production' ),
41335                                                                                                                  bless( {
41336                                                                                                                           'number' => '1',
41337                                                                                                                           'strcount' => 0,
41338                                                                                                                           'dircount' => 0,
41339                                                                                                                           'uncommit' => undef,
41340                                                                                                                           'error' => undef,
41341                                                                                                                           'patcount' => 1,
41342                                                                                                                           'actcount' => 0,
41343                                                                                                                           'items' => [
41344                                                                                                                                        bless( {
41345                                                                                                                                                 'pattern' => 'COVAR',
41346                                                                                                                                                 'hashname' => '__PATTERN1__',
41347                                                                                                                                                 'description' => '/COVAR/i',
41348                                                                                                                                                 'lookahead' => 0,
41349                                                                                                                                                 'rdelim' => '/',
41350                                                                                                                                                 'line' => 628,
41351                                                                                                                                                 'mod' => 'i',
41352                                                                                                                                                 'ldelim' => '/'
41353                                                                                                                                               }, 'Parse::RecDescent::Token' )
41354                                                                                                                                      ],
41355                                                                                                                           'line' => 628
41356                                                                                                                         }, 'Parse::RecDescent::Production' )
41357                                                                                                                ],
41358                                                                                                     'name' => '_alternation_1_of_production_12_of_rule_sysibm_function',
41359                                                                                                     'vars' => '',
41360                                                                                                     'line' => 628
41361                                                                                                   }, 'Parse::RecDescent::Rule' ),
41362                               'scalar_fullselect' => bless( {
41363                                                               'impcount' => 0,
41364                                                               'calls' => [
41365                                                                            'fullselect'
41366                                                                          ],
41367                                                               'changed' => 0,
41368                                                               'opcount' => 0,
41369                                                               'prods' => [
41370                                                                            bless( {
41371                                                                                     'number' => '0',
41372                                                                                     'strcount' => 2,
41373                                                                                     'dircount' => 0,
41374                                                                                     'uncommit' => undef,
41375                                                                                     'error' => undef,
41376                                                                                     'patcount' => 0,
41377                                                                                     'actcount' => 0,
41378                                                                                     'items' => [
41379                                                                                                  bless( {
41380                                                                                                           'pattern' => '(',
41381                                                                                                           'hashname' => '__STRING1__',
41382                                                                                                           'description' => '\'(\'',
41383                                                                                                           'lookahead' => 0,
41384                                                                                                           'line' => 478
41385                                                                                                         }, 'Parse::RecDescent::Literal' ),
41386                                                                                                  bless( {
41387                                                                                                           'subrule' => 'fullselect',
41388                                                                                                           'matchrule' => 0,
41389                                                                                                           'implicit' => undef,
41390                                                                                                           'argcode' => undef,
41391                                                                                                           'lookahead' => 0,
41392                                                                                                           'line' => 478
41393                                                                                                         }, 'Parse::RecDescent::Subrule' ),
41394                                                                                                  bless( {
41395                                                                                                           'pattern' => ')',
41396                                                                                                           'hashname' => '__STRING2__',
41397                                                                                                           'description' => '\')\'',
41398                                                                                                           'lookahead' => 0,
41399                                                                                                           'line' => 478
41400                                                                                                         }, 'Parse::RecDescent::Literal' )
41401                                                                                                ],
41402                                                                                     'line' => undef
41403                                                                                   }, 'Parse::RecDescent::Production' )
41404                                                                          ],
41405                                                               'name' => 'scalar_fullselect',
41406                                                               'vars' => '',
41407                                                               'line' => 478
41408                                                             }, 'Parse::RecDescent::Rule' ),
41409                               '_alternation_1_of_production_1_of_rule_options' => bless( {
41410                                                                                            'impcount' => 0,
41411                                                                                            'calls' => [],
41412                                                                                            'changed' => 0,
41413                                                                                            'opcount' => 0,
41414                                                                                            'prods' => [
41415                                                                                                         bless( {
41416                                                                                                                  'number' => '0',
41417                                                                                                                  'strcount' => 0,
41418                                                                                                                  'dircount' => 0,
41419                                                                                                                  'uncommit' => undef,
41420                                                                                                                  'error' => undef,
41421                                                                                                                  'patcount' => 1,
41422                                                                                                                  'actcount' => 0,
41423                                                                                                                  'items' => [
41424                                                                                                                               bless( {
41425                                                                                                                                        'pattern' => 'CASCADED',
41426                                                                                                                                        'hashname' => '__PATTERN1__',
41427                                                                                                                                        'description' => '/CASCADED/i',
41428                                                                                                                                        'lookahead' => 0,
41429                                                                                                                                        'rdelim' => '/',
41430                                                                                                                                        'line' => 628,
41431                                                                                                                                        'mod' => 'i',
41432                                                                                                                                        'ldelim' => '/'
41433                                                                                                                                      }, 'Parse::RecDescent::Token' )
41434                                                                                                                             ],
41435                                                                                                                  'line' => undef
41436                                                                                                                }, 'Parse::RecDescent::Production' ),
41437                                                                                                         bless( {
41438                                                                                                                  'number' => '1',
41439                                                                                                                  'strcount' => 0,
41440                                                                                                                  'dircount' => 0,
41441                                                                                                                  'uncommit' => undef,
41442                                                                                                                  'error' => undef,
41443                                                                                                                  'patcount' => 1,
41444                                                                                                                  'actcount' => 0,
41445                                                                                                                  'items' => [
41446                                                                                                                               bless( {
41447                                                                                                                                        'pattern' => 'LOCAL',
41448                                                                                                                                        'hashname' => '__PATTERN1__',
41449                                                                                                                                        'description' => '/LOCAL/i',
41450                                                                                                                                        'lookahead' => 0,
41451                                                                                                                                        'rdelim' => '/',
41452                                                                                                                                        'line' => 628,
41453                                                                                                                                        'mod' => 'i',
41454                                                                                                                                        'ldelim' => '/'
41455                                                                                                                                      }, 'Parse::RecDescent::Token' )
41456                                                                                                                             ],
41457                                                                                                                  'line' => 628
41458                                                                                                                }, 'Parse::RecDescent::Production' )
41459                                                                                                       ],
41460                                                                                            'name' => '_alternation_1_of_production_1_of_rule_options',
41461                                                                                            'vars' => '',
41462                                                                                            'line' => 628
41463                                                                                          }, 'Parse::RecDescent::Rule' ),
41464                               'func_args' => bless( {
41465                                                       'impcount' => 0,
41466                                                       'calls' => [
41467                                                                    'expression'
41468                                                                  ],
41469                                                       'changed' => 0,
41470                                                       'opcount' => 0,
41471                                                       'prods' => [
41472                                                                    bless( {
41473                                                                             'number' => '0',
41474                                                                             'strcount' => 0,
41475                                                                             'dircount' => 0,
41476                                                                             'uncommit' => undef,
41477                                                                             'error' => undef,
41478                                                                             'patcount' => 0,
41479                                                                             'actcount' => 0,
41480                                                                             'items' => [
41481                                                                                          bless( {
41482                                                                                                   'subrule' => 'expression',
41483                                                                                                   'matchrule' => 0,
41484                                                                                                   'implicit' => undef,
41485                                                                                                   'argcode' => undef,
41486                                                                                                   'lookahead' => 0,
41487                                                                                                   'line' => 330
41488                                                                                                 }, 'Parse::RecDescent::Subrule' )
41489                                                                                        ],
41490                                                                             'line' => undef
41491                                                                           }, 'Parse::RecDescent::Production' )
41492                                                                  ],
41493                                                       'name' => 'func_args',
41494                                                       'vars' => '',
41495                                                       'line' => 330
41496                                                     }, 'Parse::RecDescent::Rule' ),
41497                               'trigger_name' => bless( {
41498                                                          'impcount' => 0,
41499                                                          'calls' => [
41500                                                                       'SCHEMA',
41501                                                                       'NAME'
41502                                                                     ],
41503                                                          'changed' => 0,
41504                                                          'opcount' => 0,
41505                                                          'prods' => [
41506                                                                       bless( {
41507                                                                                'number' => '0',
41508                                                                                'strcount' => 1,
41509                                                                                'dircount' => 0,
41510                                                                                'uncommit' => undef,
41511                                                                                'error' => undef,
41512                                                                                'patcount' => 0,
41513                                                                                'actcount' => 1,
41514                                                                                'items' => [
41515                                                                                             bless( {
41516                                                                                                      'subrule' => 'SCHEMA',
41517                                                                                                      'matchrule' => 0,
41518                                                                                                      'implicit' => undef,
41519                                                                                                      'argcode' => undef,
41520                                                                                                      'lookahead' => 0,
41521                                                                                                      'line' => 119
41522                                                                                                    }, 'Parse::RecDescent::Subrule' ),
41523                                                                                             bless( {
41524                                                                                                      'pattern' => '.',
41525                                                                                                      'hashname' => '__STRING1__',
41526                                                                                                      'description' => '\'.\'',
41527                                                                                                      'lookahead' => 0,
41528                                                                                                      'line' => 119
41529                                                                                                    }, 'Parse::RecDescent::Literal' ),
41530                                                                                             bless( {
41531                                                                                                      'subrule' => 'NAME',
41532                                                                                                      'matchrule' => 0,
41533                                                                                                      'implicit' => undef,
41534                                                                                                      'argcode' => undef,
41535                                                                                                      'lookahead' => 0,
41536                                                                                                      'line' => 119
41537                                                                                                    }, 'Parse::RecDescent::Subrule' ),
41538                                                                                             bless( {
41539                                                                                                      'hashname' => '__ACTION1__',
41540                                                                                                      'lookahead' => 0,
41541                                                                                                      'line' => 120,
41542                                                                                                      'code' => '{ $return = { schema => $item[1], name => $item[3] } }'
41543                                                                                                    }, 'Parse::RecDescent::Action' )
41544                                                                                           ],
41545                                                                                'line' => undef
41546                                                                              }, 'Parse::RecDescent::Production' ),
41547                                                                       bless( {
41548                                                                                'number' => '1',
41549                                                                                'strcount' => 0,
41550                                                                                'dircount' => 0,
41551                                                                                'uncommit' => undef,
41552                                                                                'error' => undef,
41553                                                                                'patcount' => 0,
41554                                                                                'actcount' => 1,
41555                                                                                'items' => [
41556                                                                                             bless( {
41557                                                                                                      'subrule' => 'NAME',
41558                                                                                                      'matchrule' => 0,
41559                                                                                                      'implicit' => undef,
41560                                                                                                      'argcode' => undef,
41561                                                                                                      'lookahead' => 0,
41562                                                                                                      'line' => 121
41563                                                                                                    }, 'Parse::RecDescent::Subrule' ),
41564                                                                                             bless( {
41565                                                                                                      'hashname' => '__ACTION1__',
41566                                                                                                      'lookahead' => 0,
41567                                                                                                      'line' => 122,
41568                                                                                                      'code' => '{ $return = { name => $item[1] } }'
41569                                                                                                    }, 'Parse::RecDescent::Action' )
41570                                                                                           ],
41571                                                                                'line' => 121
41572                                                                              }, 'Parse::RecDescent::Production' )
41573                                                                     ],
41574                                                          'name' => 'trigger_name',
41575                                                          'vars' => '',
41576                                                          'line' => 119
41577                                                        }, 'Parse::RecDescent::Rule' ),
41578                               '_alternation_2_of_production_1_of_rule_numbering_function' => bless( {
41579                                                                                                       'impcount' => 0,
41580                                                                                                       'calls' => [
41581                                                                                                                    'window_aggregation_group_clause'
41582                                                                                                                  ],
41583                                                                                                       'changed' => 0,
41584                                                                                                       'opcount' => 0,
41585                                                                                                       'prods' => [
41586                                                                                                                    bless( {
41587                                                                                                                             'number' => '0',
41588                                                                                                                             'strcount' => 0,
41589                                                                                                                             'dircount' => 0,
41590                                                                                                                             'uncommit' => undef,
41591                                                                                                                             'error' => undef,
41592                                                                                                                             'patcount' => 1,
41593                                                                                                                             'actcount' => 0,
41594                                                                                                                             'items' => [
41595                                                                                                                                          bless( {
41596                                                                                                                                                   'pattern' => 'RANGE\\s+BETWEEN\\s+UNBOUNDED\\s+PRECEDING\\s+AND\\s+UNBBOUNDED\\s+FOLLOWING',
41597                                                                                                                                                   'hashname' => '__PATTERN1__',
41598                                                                                                                                                   'description' => '/RANGE\\\\s+BETWEEN\\\\s+UNBOUNDED\\\\s+PRECEDING\\\\s+AND\\\\s+UNBBOUNDED\\\\s+FOLLOWING/i',
41599                                                                                                                                                   'lookahead' => 0,
41600                                                                                                                                                   'rdelim' => '/',
41601                                                                                                                                                   'line' => 626,
41602                                                                                                                                                   'mod' => 'i',
41603                                                                                                                                                   'ldelim' => '/'
41604                                                                                                                                                 }, 'Parse::RecDescent::Token' )
41605                                                                                                                                        ],
41606                                                                                                                             'line' => undef
41607                                                                                                                           }, 'Parse::RecDescent::Production' ),
41608                                                                                                                    bless( {
41609                                                                                                                             'number' => '1',
41610                                                                                                                             'strcount' => 0,
41611                                                                                                                             'dircount' => 0,
41612                                                                                                                             'uncommit' => undef,
41613                                                                                                                             'error' => undef,
41614                                                                                                                             'patcount' => 0,
41615                                                                                                                             'actcount' => 0,
41616                                                                                                                             'items' => [
41617                                                                                                                                          bless( {
41618                                                                                                                                                   'subrule' => 'window_aggregation_group_clause',
41619                                                                                                                                                   'matchrule' => 0,
41620                                                                                                                                                   'implicit' => undef,
41621                                                                                                                                                   'argcode' => undef,
41622                                                                                                                                                   'lookahead' => 0,
41623                                                                                                                                                   'line' => 627
41624                                                                                                                                                 }, 'Parse::RecDescent::Subrule' )
41625                                                                                                                                        ],
41626                                                                                                                             'line' => 627
41627                                                                                                                           }, 'Parse::RecDescent::Production' )
41628                                                                                                                  ],
41629                                                                                                       'name' => '_alternation_2_of_production_1_of_rule_numbering_function',
41630                                                                                                       'vars' => '',
41631                                                                                                       'line' => 626
41632                                                                                                     }, 'Parse::RecDescent::Rule' ),
41633                               'method_name' => bless( {
41634                                                         'impcount' => 0,
41635                                                         'calls' => [
41636                                                                      'NAME'
41637                                                                    ],
41638                                                         'changed' => 0,
41639                                                         'opcount' => 0,
41640                                                         'prods' => [
41641                                                                      bless( {
41642                                                                               'number' => '0',
41643                                                                               'strcount' => 0,
41644                                                                               'dircount' => 0,
41645                                                                               'uncommit' => undef,
41646                                                                               'error' => undef,
41647                                                                               'patcount' => 0,
41648                                                                               'actcount' => 1,
41649                                                                               'items' => [
41650                                                                                            bless( {
41651                                                                                                     'subrule' => 'NAME',
41652                                                                                                     'matchrule' => 0,
41653                                                                                                     'implicit' => undef,
41654                                                                                                     'argcode' => undef,
41655                                                                                                     'lookahead' => 0,
41656                                                                                                     'line' => 602
41657                                                                                                   }, 'Parse::RecDescent::Subrule' ),
41658                                                                                            bless( {
41659                                                                                                     'hashname' => '__ACTION1__',
41660                                                                                                     'lookahead' => 0,
41661                                                                                                     'line' => 603,
41662                                                                                                     'code' => '{ # must be a method of subject_expression
41663 }'
41664                                                                                                   }, 'Parse::RecDescent::Action' )
41665                                                                                          ],
41666                                                                               'line' => undef
41667                                                                             }, 'Parse::RecDescent::Production' )
41668                                                                    ],
41669                                                         'name' => 'method_name',
41670                                                         'vars' => '',
41671                                                         'line' => 602
41672                                                       }, 'Parse::RecDescent::Rule' ),
41673                               'quantified_p' => bless( {
41674                                                          'impcount' => 0,
41675                                                          'calls' => [
41676                                                                       'expression1',
41677                                                                       'fullselect'
41678                                                                     ],
41679                                                          'changed' => 0,
41680                                                          'opcount' => 0,
41681                                                          'prods' => [
41682                                                                       bless( {
41683                                                                                'number' => '0',
41684                                                                                'strcount' => 2,
41685                                                                                'dircount' => 0,
41686                                                                                'uncommit' => undef,
41687                                                                                'error' => undef,
41688                                                                                'patcount' => 2,
41689                                                                                'actcount' => 0,
41690                                                                                'items' => [
41691                                                                                             bless( {
41692                                                                                                      'subrule' => 'expression1',
41693                                                                                                      'matchrule' => 0,
41694                                                                                                      'implicit' => undef,
41695                                                                                                      'argcode' => undef,
41696                                                                                                      'lookahead' => 0,
41697                                                                                                      'line' => 626
41698                                                                                                    }, 'Parse::RecDescent::Subrule' ),
41699                                                                                             bless( {
41700                                                                                                      'pattern' => '(=|<>|<|>|<=|=>|\\^=|\\^<|\\^>|\\!=)',
41701                                                                                                      'hashname' => '__PATTERN1__',
41702                                                                                                      'description' => '/(=|<>|<|>|<=|=>|\\\\^=|\\\\^<|\\\\^>|\\\\!=)/',
41703                                                                                                      'lookahead' => 0,
41704                                                                                                      'rdelim' => '/',
41705                                                                                                      'line' => 626,
41706                                                                                                      'mod' => '',
41707                                                                                                      'ldelim' => '/'
41708                                                                                                    }, 'Parse::RecDescent::Token' ),
41709                                                                                             bless( {
41710                                                                                                      'pattern' => 'SOME|ANY|ALL',
41711                                                                                                      'hashname' => '__PATTERN2__',
41712                                                                                                      'description' => '/SOME|ANY|ALL/i',
41713                                                                                                      'lookahead' => 0,
41714                                                                                                      'rdelim' => '/',
41715                                                                                                      'line' => 626,
41716                                                                                                      'mod' => 'i',
41717                                                                                                      'ldelim' => '/'
41718                                                                                                    }, 'Parse::RecDescent::Token' ),
41719                                                                                             bless( {
41720                                                                                                      'pattern' => '(',
41721                                                                                                      'hashname' => '__STRING1__',
41722                                                                                                      'description' => '\'(\'',
41723                                                                                                      'lookahead' => 0,
41724                                                                                                      'line' => 626
41725                                                                                                    }, 'Parse::RecDescent::Literal' ),
41726                                                                                             bless( {
41727                                                                                                      'subrule' => 'fullselect',
41728                                                                                                      'matchrule' => 0,
41729                                                                                                      'implicit' => undef,
41730                                                                                                      'argcode' => undef,
41731                                                                                                      'lookahead' => 0,
41732                                                                                                      'line' => 626
41733                                                                                                    }, 'Parse::RecDescent::Subrule' ),
41734                                                                                             bless( {
41735                                                                                                      'pattern' => ')',
41736                                                                                                      'hashname' => '__STRING2__',
41737                                                                                                      'description' => '\')\'',
41738                                                                                                      'lookahead' => 0,
41739                                                                                                      'line' => 626
41740                                                                                                    }, 'Parse::RecDescent::Literal' )
41741                                                                                           ],
41742                                                                                'line' => undef
41743                                                                              }, 'Parse::RecDescent::Production' )
41744                                                                     ],
41745                                                          'name' => 'quantified_p',
41746                                                          'vars' => '',
41747                                                          'line' => 626
41748                                                        }, 'Parse::RecDescent::Rule' ),
41749                               'common_table_expression' => bless( {
41750                                                                     'impcount' => 0,
41751                                                                     'calls' => [
41752                                                                                  'table_name',
41753                                                                                  'column_list',
41754                                                                                  'get_bracketed',
41755                                                                                  'fullselect'
41756                                                                                ],
41757                                                                     'changed' => 0,
41758                                                                     'opcount' => 0,
41759                                                                     'prods' => [
41760                                                                                  bless( {
41761                                                                                           'number' => '0',
41762                                                                                           'strcount' => 0,
41763                                                                                           'dircount' => 0,
41764                                                                                           'uncommit' => undef,
41765                                                                                           'error' => undef,
41766                                                                                           'patcount' => 1,
41767                                                                                           'actcount' => 1,
41768                                                                                           'items' => [
41769                                                                                                        bless( {
41770                                                                                                                 'subrule' => 'table_name',
41771                                                                                                                 'matchrule' => 0,
41772                                                                                                                 'implicit' => undef,
41773                                                                                                                 'argcode' => undef,
41774                                                                                                                 'lookahead' => 0,
41775                                                                                                                 'line' => 162
41776                                                                                                               }, 'Parse::RecDescent::Subrule' ),
41777                                                                                                        bless( {
41778                                                                                                                 'subrule' => 'column_list',
41779                                                                                                                 'matchrule' => 0,
41780                                                                                                                 'implicit' => undef,
41781                                                                                                                 'argcode' => undef,
41782                                                                                                                 'lookahead' => 0,
41783                                                                                                                 'line' => 162
41784                                                                                                               }, 'Parse::RecDescent::Subrule' ),
41785                                                                                                        bless( {
41786                                                                                                                 'pattern' => 'AS',
41787                                                                                                                 'hashname' => '__PATTERN1__',
41788                                                                                                                 'description' => '/AS/i',
41789                                                                                                                 'lookahead' => 0,
41790                                                                                                                 'rdelim' => '/',
41791                                                                                                                 'line' => 162,
41792                                                                                                                 'mod' => 'i',
41793                                                                                                                 'ldelim' => '/'
41794                                                                                                               }, 'Parse::RecDescent::Token' ),
41795                                                                                                        bless( {
41796                                                                                                                 'subrule' => 'get_bracketed',
41797                                                                                                                 'matchrule' => 0,
41798                                                                                                                 'implicit' => undef,
41799                                                                                                                 'argcode' => undef,
41800                                                                                                                 'lookahead' => 0,
41801                                                                                                                 'line' => 162
41802                                                                                                               }, 'Parse::RecDescent::Subrule' ),
41803                                                                                                        bless( {
41804                                                                                                                 'hashname' => '__ACTION1__',
41805                                                                                                                 'lookahead' => 0,
41806                                                                                                                 'line' => 163,
41807                                                                                                                 'code' => '{
41808     $return = { name  => $item{table_name}{name},
41809                 query => $item[4]
41810                 };
41811 }'
41812                                                                                                               }, 'Parse::RecDescent::Action' )
41813                                                                                                      ],
41814                                                                                           'line' => undef
41815                                                                                         }, 'Parse::RecDescent::Production' ),
41816                                                                                  bless( {
41817                                                                                           'number' => '1',
41818                                                                                           'strcount' => 2,
41819                                                                                           'dircount' => 0,
41820                                                                                           'uncommit' => undef,
41821                                                                                           'error' => undef,
41822                                                                                           'patcount' => 1,
41823                                                                                           'actcount' => 0,
41824                                                                                           'items' => [
41825                                                                                                        bless( {
41826                                                                                                                 'subrule' => 'table_name',
41827                                                                                                                 'matchrule' => 0,
41828                                                                                                                 'implicit' => undef,
41829                                                                                                                 'argcode' => undef,
41830                                                                                                                 'lookahead' => 0,
41831                                                                                                                 'line' => 174
41832                                                                                                               }, 'Parse::RecDescent::Subrule' ),
41833                                                                                                        bless( {
41834                                                                                                                 'subrule' => 'column_list',
41835                                                                                                                 'matchrule' => 0,
41836                                                                                                                 'implicit' => undef,
41837                                                                                                                 'argcode' => undef,
41838                                                                                                                 'lookahead' => 0,
41839                                                                                                                 'line' => 174
41840                                                                                                               }, 'Parse::RecDescent::Subrule' ),
41841                                                                                                        bless( {
41842                                                                                                                 'pattern' => 'AS',
41843                                                                                                                 'hashname' => '__PATTERN1__',
41844                                                                                                                 'description' => '/AS/i',
41845                                                                                                                 'lookahead' => 0,
41846                                                                                                                 'rdelim' => '/',
41847                                                                                                                 'line' => 174,
41848                                                                                                                 'mod' => 'i',
41849                                                                                                                 'ldelim' => '/'
41850                                                                                                               }, 'Parse::RecDescent::Token' ),
41851                                                                                                        bless( {
41852                                                                                                                 'pattern' => '(',
41853                                                                                                                 'hashname' => '__STRING1__',
41854                                                                                                                 'description' => '\'(\'',
41855                                                                                                                 'lookahead' => 0,
41856                                                                                                                 'line' => 174
41857                                                                                                               }, 'Parse::RecDescent::Literal' ),
41858                                                                                                        bless( {
41859                                                                                                                 'subrule' => 'fullselect',
41860                                                                                                                 'matchrule' => 0,
41861                                                                                                                 'implicit' => undef,
41862                                                                                                                 'argcode' => undef,
41863                                                                                                                 'lookahead' => 0,
41864                                                                                                                 'line' => 174
41865                                                                                                               }, 'Parse::RecDescent::Subrule' ),
41866                                                                                                        bless( {
41867                                                                                                                 'pattern' => ')',
41868                                                                                                                 'hashname' => '__STRING2__',
41869                                                                                                                 'description' => '\')\'',
41870                                                                                                                 'lookahead' => 0,
41871                                                                                                                 'line' => 174
41872                                                                                                               }, 'Parse::RecDescent::Literal' )
41873                                                                                                      ],
41874                                                                                           'line' => undef
41875                                                                                         }, 'Parse::RecDescent::Production' )
41876                                                                                ],
41877                                                                     'name' => 'common_table_expression',
41878                                                                     'vars' => '',
41879                                                                     'line' => 160
41880                                                                   }, 'Parse::RecDescent::Rule' ),
41881                               'after' => bless( {
41882                                                   'impcount' => 0,
41883                                                   'calls' => [],
41884                                                   'changed' => 0,
41885                                                   'opcount' => 0,
41886                                                   'prods' => [
41887                                                                bless( {
41888                                                                         'number' => '0',
41889                                                                         'strcount' => 0,
41890                                                                         'dircount' => 0,
41891                                                                         'uncommit' => undef,
41892                                                                         'error' => undef,
41893                                                                         'patcount' => 1,
41894                                                                         'actcount' => 0,
41895                                                                         'items' => [
41896                                                                                      bless( {
41897                                                                                               'pattern' => 'AFTER',
41898                                                                                               'hashname' => '__PATTERN1__',
41899                                                                                               'description' => '/AFTER/i',
41900                                                                                               'lookahead' => 0,
41901                                                                                               'rdelim' => '/',
41902                                                                                               'line' => 270,
41903                                                                                               'mod' => 'i',
41904                                                                                               'ldelim' => '/'
41905                                                                                             }, 'Parse::RecDescent::Token' )
41906                                                                                    ],
41907                                                                         'line' => undef
41908                                                                       }, 'Parse::RecDescent::Production' )
41909                                                              ],
41910                                                   'name' => 'after',
41911                                                   'vars' => '',
41912                                                   'line' => 270
41913                                                 }, 'Parse::RecDescent::Rule' ),
41914                               'predicate' => bless( {
41915                                                       'impcount' => 0,
41916                                                       'calls' => [
41917                                                                    'basic_p',
41918                                                                    'quantified_p',
41919                                                                    'between_p',
41920                                                                    'exists_p',
41921                                                                    'in_p',
41922                                                                    'like_p',
41923                                                                    'null_p',
41924                                                                    'type_p'
41925                                                                  ],
41926                                                       'changed' => 0,
41927                                                       'opcount' => 0,
41928                                                       'prods' => [
41929                                                                    bless( {
41930                                                                             'number' => '0',
41931                                                                             'strcount' => 0,
41932                                                                             'dircount' => 0,
41933                                                                             'uncommit' => undef,
41934                                                                             'error' => undef,
41935                                                                             'patcount' => 0,
41936                                                                             'actcount' => 0,
41937                                                                             'items' => [
41938                                                                                          bless( {
41939                                                                                                   'subrule' => 'basic_p',
41940                                                                                                   'matchrule' => 0,
41941                                                                                                   'implicit' => undef,
41942                                                                                                   'argcode' => undef,
41943                                                                                                   'lookahead' => 0,
41944                                                                                                   'line' => 622
41945                                                                                                 }, 'Parse::RecDescent::Subrule' )
41946                                                                                        ],
41947                                                                             'line' => undef
41948                                                                           }, 'Parse::RecDescent::Production' ),
41949                                                                    bless( {
41950                                                                             'number' => '1',
41951                                                                             'strcount' => 0,
41952                                                                             'dircount' => 0,
41953                                                                             'uncommit' => undef,
41954                                                                             'error' => undef,
41955                                                                             'patcount' => 0,
41956                                                                             'actcount' => 0,
41957                                                                             'items' => [
41958                                                                                          bless( {
41959                                                                                                   'subrule' => 'quantified_p',
41960                                                                                                   'matchrule' => 0,
41961                                                                                                   'implicit' => undef,
41962                                                                                                   'argcode' => undef,
41963                                                                                                   'lookahead' => 0,
41964                                                                                                   'line' => 622
41965                                                                                                 }, 'Parse::RecDescent::Subrule' )
41966                                                                                        ],
41967                                                                             'line' => 622
41968                                                                           }, 'Parse::RecDescent::Production' ),
41969                                                                    bless( {
41970                                                                             'number' => '2',
41971                                                                             'strcount' => 0,
41972                                                                             'dircount' => 0,
41973                                                                             'uncommit' => undef,
41974                                                                             'error' => undef,
41975                                                                             'patcount' => 0,
41976                                                                             'actcount' => 0,
41977                                                                             'items' => [
41978                                                                                          bless( {
41979                                                                                                   'subrule' => 'between_p',
41980                                                                                                   'matchrule' => 0,
41981                                                                                                   'implicit' => undef,
41982                                                                                                   'argcode' => undef,
41983                                                                                                   'lookahead' => 0,
41984                                                                                                   'line' => 622
41985                                                                                                 }, 'Parse::RecDescent::Subrule' )
41986                                                                                        ],
41987                                                                             'line' => 622
41988                                                                           }, 'Parse::RecDescent::Production' ),
41989                                                                    bless( {
41990                                                                             'number' => '3',
41991                                                                             'strcount' => 0,
41992                                                                             'dircount' => 0,
41993                                                                             'uncommit' => undef,
41994                                                                             'error' => undef,
41995                                                                             'patcount' => 0,
41996                                                                             'actcount' => 0,
41997                                                                             'items' => [
41998                                                                                          bless( {
41999                                                                                                   'subrule' => 'exists_p',
42000                                                                                                   'matchrule' => 0,
42001                                                                                                   'implicit' => undef,
42002                                                                                                   'argcode' => undef,
42003                                                                                                   'lookahead' => 0,
42004                                                                                                   'line' => 622
42005                                                                                                 }, 'Parse::RecDescent::Subrule' )
42006                                                                                        ],
42007                                                                             'line' => 622
42008                                                                           }, 'Parse::RecDescent::Production' ),
42009                                                                    bless( {
42010                                                                             'number' => '4',
42011                                                                             'strcount' => 0,
42012                                                                             'dircount' => 0,
42013                                                                             'uncommit' => undef,
42014                                                                             'error' => undef,
42015                                                                             'patcount' => 0,
42016                                                                             'actcount' => 0,
42017                                                                             'items' => [
42018                                                                                          bless( {
42019                                                                                                   'subrule' => 'in_p',
42020                                                                                                   'matchrule' => 0,
42021                                                                                                   'implicit' => undef,
42022                                                                                                   'argcode' => undef,
42023                                                                                                   'lookahead' => 0,
42024                                                                                                   'line' => 622
42025                                                                                                 }, 'Parse::RecDescent::Subrule' )
42026                                                                                        ],
42027                                                                             'line' => 622
42028                                                                           }, 'Parse::RecDescent::Production' ),
42029                                                                    bless( {
42030                                                                             'number' => '5',
42031                                                                             'strcount' => 0,
42032                                                                             'dircount' => 0,
42033                                                                             'uncommit' => undef,
42034                                                                             'error' => undef,
42035                                                                             'patcount' => 0,
42036                                                                             'actcount' => 0,
42037                                                                             'items' => [
42038                                                                                          bless( {
42039                                                                                                   'subrule' => 'like_p',
42040                                                                                                   'matchrule' => 0,
42041                                                                                                   'implicit' => undef,
42042                                                                                                   'argcode' => undef,
42043                                                                                                   'lookahead' => 0,
42044                                                                                                   'line' => 622
42045                                                                                                 }, 'Parse::RecDescent::Subrule' )
42046                                                                                        ],
42047                                                                             'line' => 622
42048                                                                           }, 'Parse::RecDescent::Production' ),
42049                                                                    bless( {
42050                                                                             'number' => '6',
42051                                                                             'strcount' => 0,
42052                                                                             'dircount' => 0,
42053                                                                             'uncommit' => undef,
42054                                                                             'error' => undef,
42055                                                                             'patcount' => 0,
42056                                                                             'actcount' => 0,
42057                                                                             'items' => [
42058                                                                                          bless( {
42059                                                                                                   'subrule' => 'null_p',
42060                                                                                                   'matchrule' => 0,
42061                                                                                                   'implicit' => undef,
42062                                                                                                   'argcode' => undef,
42063                                                                                                   'lookahead' => 0,
42064                                                                                                   'line' => 622
42065                                                                                                 }, 'Parse::RecDescent::Subrule' )
42066                                                                                        ],
42067                                                                             'line' => 622
42068                                                                           }, 'Parse::RecDescent::Production' ),
42069                                                                    bless( {
42070                                                                             'number' => '7',
42071                                                                             'strcount' => 0,
42072                                                                             'dircount' => 0,
42073                                                                             'uncommit' => undef,
42074                                                                             'error' => undef,
42075                                                                             'patcount' => 0,
42076                                                                             'actcount' => 0,
42077                                                                             'items' => [
42078                                                                                          bless( {
42079                                                                                                   'subrule' => 'type_p',
42080                                                                                                   'matchrule' => 0,
42081                                                                                                   'implicit' => undef,
42082                                                                                                   'argcode' => undef,
42083                                                                                                   'lookahead' => 0,
42084                                                                                                   'line' => 622
42085                                                                                                 }, 'Parse::RecDescent::Subrule' )
42086                                                                                        ],
42087                                                                             'line' => 622
42088                                                                           }, 'Parse::RecDescent::Production' )
42089                                                                  ],
42090                                                       'name' => 'predicate',
42091                                                       'vars' => '',
42092                                                       'line' => 622
42093                                                     }, 'Parse::RecDescent::Rule' ),
42094                               'column_name' => bless( {
42095                                                         'impcount' => 0,
42096                                                         'calls' => [
42097                                                                      'NAME'
42098                                                                    ],
42099                                                         'changed' => 0,
42100                                                         'opcount' => 0,
42101                                                         'prods' => [
42102                                                                      bless( {
42103                                                                               'number' => '0',
42104                                                                               'strcount' => 0,
42105                                                                               'dircount' => 0,
42106                                                                               'uncommit' => undef,
42107                                                                               'error' => undef,
42108                                                                               'patcount' => 0,
42109                                                                               'actcount' => 0,
42110                                                                               'items' => [
42111                                                                                            bless( {
42112                                                                                                     'subrule' => 'NAME',
42113                                                                                                     'matchrule' => 0,
42114                                                                                                     'implicit' => undef,
42115                                                                                                     'argcode' => undef,
42116                                                                                                     'lookahead' => 0,
42117                                                                                                     'line' => 134
42118                                                                                                   }, 'Parse::RecDescent::Subrule' )
42119                                                                                          ],
42120                                                                               'line' => undef
42121                                                                             }, 'Parse::RecDescent::Production' )
42122                                                                    ],
42123                                                         'name' => 'column_name',
42124                                                         'vars' => '',
42125                                                         'line' => 134
42126                                                       }, 'Parse::RecDescent::Rule' ),
42127                               'method_invocation' => bless( {
42128                                                               'impcount' => 1,
42129                                                               'calls' => [
42130                                                                            'subject_expression',
42131                                                                            'method_name',
42132                                                                            '_alternation_1_of_production_1_of_rule_method_invocation'
42133                                                                          ],
42134                                                               'changed' => 0,
42135                                                               'opcount' => 0,
42136                                                               'prods' => [
42137                                                                            bless( {
42138                                                                                     'number' => '0',
42139                                                                                     'strcount' => 1,
42140                                                                                     'dircount' => 0,
42141                                                                                     'uncommit' => undef,
42142                                                                                     'error' => undef,
42143                                                                                     'patcount' => 0,
42144                                                                                     'actcount' => 0,
42145                                                                                     'items' => [
42146                                                                                                  bless( {
42147                                                                                                           'subrule' => 'subject_expression',
42148                                                                                                           'matchrule' => 0,
42149                                                                                                           'implicit' => undef,
42150                                                                                                           'argcode' => undef,
42151                                                                                                           'lookahead' => 0,
42152                                                                                                           'line' => 593
42153                                                                                                         }, 'Parse::RecDescent::Subrule' ),
42154                                                                                                  bless( {
42155                                                                                                           'pattern' => '..',
42156                                                                                                           'hashname' => '__STRING1__',
42157                                                                                                           'description' => '\'..\'',
42158                                                                                                           'lookahead' => 0,
42159                                                                                                           'line' => 593
42160                                                                                                         }, 'Parse::RecDescent::Literal' ),
42161                                                                                                  bless( {
42162                                                                                                           'subrule' => 'method_name',
42163                                                                                                           'matchrule' => 0,
42164                                                                                                           'implicit' => undef,
42165                                                                                                           'argcode' => undef,
42166                                                                                                           'lookahead' => 0,
42167                                                                                                           'line' => 593
42168                                                                                                         }, 'Parse::RecDescent::Subrule' ),
42169                                                                                                  bless( {
42170                                                                                                           'subrule' => '_alternation_1_of_production_1_of_rule_method_invocation',
42171                                                                                                           'expected' => '\'(\'',
42172                                                                                                           'min' => 0,
42173                                                                                                           'argcode' => undef,
42174                                                                                                           'max' => 1,
42175                                                                                                           'matchrule' => 0,
42176                                                                                                           'repspec' => '?',
42177                                                                                                           'lookahead' => 0,
42178                                                                                                           'line' => 596
42179                                                                                                         }, 'Parse::RecDescent::Repetition' )
42180                                                                                                ],
42181                                                                                     'line' => undef
42182                                                                                   }, 'Parse::RecDescent::Production' )
42183                                                                          ],
42184                                                               'name' => 'method_invocation',
42185                                                               'vars' => '',
42186                                                               'line' => 593
42187                                                             }, 'Parse::RecDescent::Rule' ),
42188                               '_alternation_1_of_production_1_of_rule_dereference_operation' => bless( {
42189                                                                                                          'impcount' => 0,
42190                                                                                                          'calls' => [
42191                                                                                                                       'expression'
42192                                                                                                                     ],
42193                                                                                                          'changed' => 0,
42194                                                                                                          'opcount' => 0,
42195                                                                                                          'prods' => [
42196                                                                                                                       bless( {
42197                                                                                                                                'number' => '0',
42198                                                                                                                                'strcount' => 2,
42199                                                                                                                                'dircount' => 0,
42200                                                                                                                                'uncommit' => undef,
42201                                                                                                                                'error' => undef,
42202                                                                                                                                'patcount' => 0,
42203                                                                                                                                'actcount' => 0,
42204                                                                                                                                'items' => [
42205                                                                                                                                             bless( {
42206                                                                                                                                                      'pattern' => '(',
42207                                                                                                                                                      'hashname' => '__STRING1__',
42208                                                                                                                                                      'description' => '\'(\'',
42209                                                                                                                                                      'lookahead' => 0,
42210                                                                                                                                                      'line' => 628
42211                                                                                                                                                    }, 'Parse::RecDescent::Literal' ),
42212                                                                                                                                             bless( {
42213                                                                                                                                                      'subrule' => 'expression',
42214                                                                                                                                                      'expected' => undef,
42215                                                                                                                                                      'min' => 1,
42216                                                                                                                                                      'argcode' => undef,
42217                                                                                                                                                      'max' => 100000000,
42218                                                                                                                                                      'matchrule' => 0,
42219                                                                                                                                                      'repspec' => 's',
42220                                                                                                                                                      'lookahead' => 0,
42221                                                                                                                                                      'line' => 628
42222                                                                                                                                                    }, 'Parse::RecDescent::Repetition' ),
42223                                                                                                                                             bless( {
42224                                                                                                                                                      'pattern' => ')',
42225                                                                                                                                                      'hashname' => '__STRING2__',
42226                                                                                                                                                      'description' => '\')\'',
42227                                                                                                                                                      'lookahead' => 0,
42228                                                                                                                                                      'line' => 628
42229                                                                                                                                                    }, 'Parse::RecDescent::Literal' )
42230                                                                                                                                           ],
42231                                                                                                                                'line' => undef
42232                                                                                                                              }, 'Parse::RecDescent::Production' )
42233                                                                                                                     ],
42234                                                                                                          'name' => '_alternation_1_of_production_1_of_rule_dereference_operation',
42235                                                                                                          'vars' => '',
42236                                                                                                          'line' => 628
42237                                                                                                        }, 'Parse::RecDescent::Rule' ),
42238                               '_alternation_1_of_production_1_of_rule_searched_when_clause' => bless( {
42239                                                                                                         'impcount' => 1,
42240                                                                                                         'calls' => [
42241                                                                                                                      'search_condition',
42242                                                                                                                      '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause'
42243                                                                                                                    ],
42244                                                                                                         'changed' => 0,
42245                                                                                                         'opcount' => 0,
42246                                                                                                         'prods' => [
42247                                                                                                                      bless( {
42248                                                                                                                               'number' => '0',
42249                                                                                                                               'strcount' => 0,
42250                                                                                                                               'dircount' => 0,
42251                                                                                                                               'uncommit' => undef,
42252                                                                                                                               'error' => undef,
42253                                                                                                                               'patcount' => 2,
42254                                                                                                                               'actcount' => 0,
42255                                                                                                                               'items' => [
42256                                                                                                                                            bless( {
42257                                                                                                                                                     'pattern' => 'WHEN',
42258                                                                                                                                                     'hashname' => '__PATTERN1__',
42259                                                                                                                                                     'description' => '/WHEN/i',
42260                                                                                                                                                     'lookahead' => 0,
42261                                                                                                                                                     'rdelim' => '/',
42262                                                                                                                                                     'line' => 624,
42263                                                                                                                                                     'mod' => 'i',
42264                                                                                                                                                     'ldelim' => '/'
42265                                                                                                                                                   }, 'Parse::RecDescent::Token' ),
42266                                                                                                                                            bless( {
42267                                                                                                                                                     'subrule' => 'search_condition',
42268                                                                                                                                                     'matchrule' => 0,
42269                                                                                                                                                     'implicit' => undef,
42270                                                                                                                                                     'argcode' => undef,
42271                                                                                                                                                     'lookahead' => 0,
42272                                                                                                                                                     'line' => 624
42273                                                                                                                                                   }, 'Parse::RecDescent::Subrule' ),
42274                                                                                                                                            bless( {
42275                                                                                                                                                     'pattern' => 'THEN',
42276                                                                                                                                                     'hashname' => '__PATTERN2__',
42277                                                                                                                                                     'description' => '/THEN/i',
42278                                                                                                                                                     'lookahead' => 0,
42279                                                                                                                                                     'rdelim' => '/',
42280                                                                                                                                                     'line' => 624,
42281                                                                                                                                                     'mod' => 'i',
42282                                                                                                                                                     'ldelim' => '/'
42283                                                                                                                                                   }, 'Parse::RecDescent::Token' ),
42284                                                                                                                                            bless( {
42285                                                                                                                                                     'subrule' => '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause',
42286                                                                                                                                                     'matchrule' => 0,
42287                                                                                                                                                     'implicit' => 'result_expression, or /NULL/i',
42288                                                                                                                                                     'argcode' => undef,
42289                                                                                                                                                     'lookahead' => 0,
42290                                                                                                                                                     'line' => 627
42291                                                                                                                                                   }, 'Parse::RecDescent::Subrule' )
42292                                                                                                                                          ],
42293                                                                                                                               'line' => undef
42294                                                                                                                             }, 'Parse::RecDescent::Production' )
42295                                                                                                                    ],
42296                                                                                                         'name' => '_alternation_1_of_production_1_of_rule_searched_when_clause',
42297                                                                                                         'vars' => '',
42298                                                                                                         'line' => 624
42299                                                                                                       }, 'Parse::RecDescent::Rule' ),
42300                               'group_bound2' => bless( {
42301                                                          'impcount' => 0,
42302                                                          'calls' => [
42303                                                                       'unsigned_constant'
42304                                                                     ],
42305                                                          'changed' => 0,
42306                                                          'opcount' => 0,
42307                                                          'prods' => [
42308                                                                       bless( {
42309                                                                                'number' => '0',
42310                                                                                'strcount' => 0,
42311                                                                                'dircount' => 0,
42312                                                                                'uncommit' => undef,
42313                                                                                'error' => undef,
42314                                                                                'patcount' => 1,
42315                                                                                'actcount' => 0,
42316                                                                                'items' => [
42317                                                                                             bless( {
42318                                                                                                      'pattern' => 'UNBOUNDED\\s+PRECEDING',
42319                                                                                                      'hashname' => '__PATTERN1__',
42320                                                                                                      'description' => '/UNBOUNDED\\\\s+PRECEDING/i',
42321                                                                                                      'lookahead' => 0,
42322                                                                                                      'rdelim' => '/',
42323                                                                                                      'line' => 585,
42324                                                                                                      'mod' => 'i',
42325                                                                                                      'ldelim' => '/'
42326                                                                                                    }, 'Parse::RecDescent::Token' )
42327                                                                                           ],
42328                                                                                'line' => undef
42329                                                                              }, 'Parse::RecDescent::Production' ),
42330                                                                       bless( {
42331                                                                                'number' => '1',
42332                                                                                'strcount' => 0,
42333                                                                                'dircount' => 0,
42334                                                                                'uncommit' => undef,
42335                                                                                'error' => undef,
42336                                                                                'patcount' => 1,
42337                                                                                'actcount' => 0,
42338                                                                                'items' => [
42339                                                                                             bless( {
42340                                                                                                      'subrule' => 'unsigned_constant',
42341                                                                                                      'matchrule' => 0,
42342                                                                                                      'implicit' => undef,
42343                                                                                                      'argcode' => undef,
42344                                                                                                      'lookahead' => 0,
42345                                                                                                      'line' => 586
42346                                                                                                    }, 'Parse::RecDescent::Subrule' ),
42347                                                                                             bless( {
42348                                                                                                      'pattern' => 'PRECEDING',
42349                                                                                                      'hashname' => '__PATTERN1__',
42350                                                                                                      'description' => '/PRECEDING/i',
42351                                                                                                      'lookahead' => 0,
42352                                                                                                      'rdelim' => '/',
42353                                                                                                      'line' => 586,
42354                                                                                                      'mod' => 'i',
42355                                                                                                      'ldelim' => '/'
42356                                                                                                    }, 'Parse::RecDescent::Token' )
42357                                                                                           ],
42358                                                                                'line' => 586
42359                                                                              }, 'Parse::RecDescent::Production' ),
42360                                                                       bless( {
42361                                                                                'number' => '2',
42362                                                                                'strcount' => 0,
42363                                                                                'dircount' => 0,
42364                                                                                'uncommit' => undef,
42365                                                                                'error' => undef,
42366                                                                                'patcount' => 1,
42367                                                                                'actcount' => 0,
42368                                                                                'items' => [
42369                                                                                             bless( {
42370                                                                                                      'subrule' => 'unsigned_constant',
42371                                                                                                      'matchrule' => 0,
42372                                                                                                      'implicit' => undef,
42373                                                                                                      'argcode' => undef,
42374                                                                                                      'lookahead' => 0,
42375                                                                                                      'line' => 587
42376                                                                                                    }, 'Parse::RecDescent::Subrule' ),
42377                                                                                             bless( {
42378                                                                                                      'pattern' => 'FOLLOWING',
42379                                                                                                      'hashname' => '__PATTERN1__',
42380                                                                                                      'description' => '/FOLLOWING/i',
42381                                                                                                      'lookahead' => 0,
42382                                                                                                      'rdelim' => '/',
42383                                                                                                      'line' => 587,
42384                                                                                                      'mod' => 'i',
42385                                                                                                      'ldelim' => '/'
42386                                                                                                    }, 'Parse::RecDescent::Token' )
42387                                                                                           ],
42388                                                                                'line' => 587
42389                                                                              }, 'Parse::RecDescent::Production' ),
42390                                                                       bless( {
42391                                                                                'number' => '3',
42392                                                                                'strcount' => 0,
42393                                                                                'dircount' => 0,
42394                                                                                'uncommit' => undef,
42395                                                                                'error' => undef,
42396                                                                                'patcount' => 1,
42397                                                                                'actcount' => 0,
42398                                                                                'items' => [
42399                                                                                             bless( {
42400                                                                                                      'pattern' => 'CURRENT\\s+ROW',
42401                                                                                                      'hashname' => '__PATTERN1__',
42402                                                                                                      'description' => '/CURRENT\\\\s+ROW/i',
42403                                                                                                      'lookahead' => 0,
42404                                                                                                      'rdelim' => '/',
42405                                                                                                      'line' => 588,
42406                                                                                                      'mod' => 'i',
42407                                                                                                      'ldelim' => '/'
42408                                                                                                    }, 'Parse::RecDescent::Token' )
42409                                                                                           ],
42410                                                                                'line' => 588
42411                                                                              }, 'Parse::RecDescent::Production' )
42412                                                                     ],
42413                                                          'name' => 'group_bound2',
42414                                                          'vars' => '',
42415                                                          'line' => 585
42416                                                        }, 'Parse::RecDescent::Rule' ),
42417                               'searched_when_clause' => bless( {
42418                                                                  'impcount' => 1,
42419                                                                  'calls' => [
42420                                                                               '_alternation_1_of_production_1_of_rule_searched_when_clause'
42421                                                                             ],
42422                                                                  'changed' => 0,
42423                                                                  'opcount' => 0,
42424                                                                  'prods' => [
42425                                                                               bless( {
42426                                                                                        'number' => '0',
42427                                                                                        'strcount' => 0,
42428                                                                                        'dircount' => 0,
42429                                                                                        'uncommit' => undef,
42430                                                                                        'error' => undef,
42431                                                                                        'patcount' => 0,
42432                                                                                        'actcount' => 0,
42433                                                                                        'items' => [
42434                                                                                                     bless( {
42435                                                                                                              'subrule' => '_alternation_1_of_production_1_of_rule_searched_when_clause',
42436                                                                                                              'expected' => '/WHEN/i',
42437                                                                                                              'min' => 1,
42438                                                                                                              'argcode' => undef,
42439                                                                                                              'max' => 100000000,
42440                                                                                                              'matchrule' => 0,
42441                                                                                                              'repspec' => 's',
42442                                                                                                              'lookahead' => 0,
42443                                                                                                              'line' => 507
42444                                                                                                            }, 'Parse::RecDescent::Repetition' )
42445                                                                                                   ],
42446                                                                                        'line' => undef
42447                                                                                      }, 'Parse::RecDescent::Production' )
42448                                                                             ],
42449                                                                  'name' => 'searched_when_clause',
42450                                                                  'vars' => '',
42451                                                                  'line' => 503
42452                                                                }, 'Parse::RecDescent::Rule' ),
42453                               'basic_p' => bless( {
42454                                                     'impcount' => 0,
42455                                                     'calls' => [
42456                                                                  'expression'
42457                                                                ],
42458                                                     'changed' => 0,
42459                                                     'opcount' => 0,
42460                                                     'prods' => [
42461                                                                  bless( {
42462                                                                           'number' => '0',
42463                                                                           'strcount' => 0,
42464                                                                           'dircount' => 0,
42465                                                                           'uncommit' => undef,
42466                                                                           'error' => undef,
42467                                                                           'patcount' => 1,
42468                                                                           'actcount' => 0,
42469                                                                           'items' => [
42470                                                                                        bless( {
42471                                                                                                 'subrule' => 'expression',
42472                                                                                                 'matchrule' => 0,
42473                                                                                                 'implicit' => undef,
42474                                                                                                 'argcode' => undef,
42475                                                                                                 'lookahead' => 0,
42476                                                                                                 'line' => 624
42477                                                                                               }, 'Parse::RecDescent::Subrule' ),
42478                                                                                        bless( {
42479                                                                                                 'pattern' => '(=|<>|<|>|<=|=>|\\^=|\\^<|\\^>|\\!=)',
42480                                                                                                 'hashname' => '__PATTERN1__',
42481                                                                                                 'description' => '/(=|<>|<|>|<=|=>|\\\\^=|\\\\^<|\\\\^>|\\\\!=)/',
42482                                                                                                 'lookahead' => 0,
42483                                                                                                 'rdelim' => '/',
42484                                                                                                 'line' => 624,
42485                                                                                                 'mod' => '',
42486                                                                                                 'ldelim' => '/'
42487                                                                                               }, 'Parse::RecDescent::Token' ),
42488                                                                                        bless( {
42489                                                                                                 'subrule' => 'expression',
42490                                                                                                 'matchrule' => 0,
42491                                                                                                 'implicit' => undef,
42492                                                                                                 'argcode' => undef,
42493                                                                                                 'lookahead' => 0,
42494                                                                                                 'line' => 624
42495                                                                                               }, 'Parse::RecDescent::Subrule' )
42496                                                                                      ],
42497                                                                           'line' => undef
42498                                                                         }, 'Parse::RecDescent::Production' )
42499                                                                ],
42500                                                     'name' => 'basic_p',
42501                                                     'vars' => '',
42502                                                     'line' => 624
42503                                                   }, 'Parse::RecDescent::Rule' ),
42504                               'asc_option' => bless( {
42505                                                        'impcount' => 1,
42506                                                        'calls' => [
42507                                                                     '_alternation_1_of_production_1_of_rule_asc_option'
42508                                                                   ],
42509                                                        'changed' => 0,
42510                                                        'opcount' => 0,
42511                                                        'prods' => [
42512                                                                     bless( {
42513                                                                              'number' => '0',
42514                                                                              'strcount' => 0,
42515                                                                              'dircount' => 0,
42516                                                                              'uncommit' => undef,
42517                                                                              'error' => undef,
42518                                                                              'patcount' => 1,
42519                                                                              'actcount' => 0,
42520                                                                              'items' => [
42521                                                                                           bless( {
42522                                                                                                    'pattern' => 'ASC',
42523                                                                                                    'hashname' => '__PATTERN1__',
42524                                                                                                    'description' => '/ASC/i',
42525                                                                                                    'lookahead' => 0,
42526                                                                                                    'rdelim' => '/',
42527                                                                                                    'line' => 562,
42528                                                                                                    'mod' => 'i',
42529                                                                                                    'ldelim' => '/'
42530                                                                                                  }, 'Parse::RecDescent::Token' ),
42531                                                                                           bless( {
42532                                                                                                    'subrule' => '_alternation_1_of_production_1_of_rule_asc_option',
42533                                                                                                    'expected' => '/NULLS\\\\s+FIRST/i, or /NULLS\\\\s+LAST/i',
42534                                                                                                    'min' => 0,
42535                                                                                                    'argcode' => undef,
42536                                                                                                    'max' => 1,
42537                                                                                                    'matchrule' => 0,
42538                                                                                                    'repspec' => '?',
42539                                                                                                    'lookahead' => 0,
42540                                                                                                    'line' => 562
42541                                                                                                  }, 'Parse::RecDescent::Repetition' )
42542                                                                                         ],
42543                                                                              'line' => undef
42544                                                                            }, 'Parse::RecDescent::Production' )
42545                                                                   ],
42546                                                        'name' => 'asc_option',
42547                                                        'vars' => '',
42548                                                        'line' => 562
42549                                                      }, 'Parse::RecDescent::Rule' ),
42550                               'search_condition' => bless( {
42551                                                              'impcount' => 1,
42552                                                              'calls' => [
42553                                                                           '_alternation_1_of_production_2_of_rule_search_condition',
42554                                                                           'cond'
42555                                                                         ],
42556                                                              'changed' => 0,
42557                                                              'opcount' => 0,
42558                                                              'prods' => [
42559                                                                           bless( {
42560                                                                                    'number' => '0',
42561                                                                                    'strcount' => 0,
42562                                                                                    'dircount' => 0,
42563                                                                                    'uncommit' => undef,
42564                                                                                    'error' => undef,
42565                                                                                    'patcount' => 1,
42566                                                                                    'actcount' => 0,
42567                                                                                    'items' => [
42568                                                                                                 bless( {
42569                                                                                                          'pattern' => '[^)]+',
42570                                                                                                          'hashname' => '__PATTERN1__',
42571                                                                                                          'description' => '/[^)]+/',
42572                                                                                                          'lookahead' => 0,
42573                                                                                                          'rdelim' => '/',
42574                                                                                                          'line' => 297,
42575                                                                                                          'mod' => '',
42576                                                                                                          'ldelim' => '/'
42577                                                                                                        }, 'Parse::RecDescent::Token' )
42578                                                                                               ],
42579                                                                                    'line' => undef
42580                                                                                  }, 'Parse::RecDescent::Production' ),
42581                                                                           bless( {
42582                                                                                    'number' => '1',
42583                                                                                    'strcount' => 0,
42584                                                                                    'dircount' => 0,
42585                                                                                    'uncommit' => undef,
42586                                                                                    'error' => undef,
42587                                                                                    'patcount' => 1,
42588                                                                                    'actcount' => 0,
42589                                                                                    'items' => [
42590                                                                                                 bless( {
42591                                                                                                          'pattern' => 'NOT|',
42592                                                                                                          'hashname' => '__PATTERN1__',
42593                                                                                                          'description' => '/NOT|/i',
42594                                                                                                          'lookahead' => 0,
42595                                                                                                          'rdelim' => '/',
42596                                                                                                          'line' => 618,
42597                                                                                                          'mod' => 'i',
42598                                                                                                          'ldelim' => '/'
42599                                                                                                        }, 'Parse::RecDescent::Token' ),
42600                                                                                                 bless( {
42601                                                                                                          'subrule' => '_alternation_1_of_production_2_of_rule_search_condition',
42602                                                                                                          'matchrule' => 0,
42603                                                                                                          'implicit' => 'predicate, or \'(\'',
42604                                                                                                          'argcode' => undef,
42605                                                                                                          'lookahead' => 0,
42606                                                                                                          'line' => 618
42607                                                                                                        }, 'Parse::RecDescent::Subrule' ),
42608                                                                                                 bless( {
42609                                                                                                          'subrule' => 'cond',
42610                                                                                                          'expected' => undef,
42611                                                                                                          'min' => 0,
42612                                                                                                          'argcode' => undef,
42613                                                                                                          'max' => 100000000,
42614                                                                                                          'matchrule' => 0,
42615                                                                                                          'repspec' => 's?',
42616                                                                                                          'lookahead' => 0,
42617                                                                                                          'line' => 618
42618                                                                                                        }, 'Parse::RecDescent::Repetition' )
42619                                                                                               ],
42620                                                                                    'line' => undef
42621                                                                                  }, 'Parse::RecDescent::Production' )
42622                                                                         ],
42623                                                              'name' => 'search_condition',
42624                                                              'vars' => '',
42625                                                              'line' => 296
42626                                                            }, 'Parse::RecDescent::Rule' ),
42627                               '_alternation_1_of_production_1_of_rule_operator' => bless( {
42628                                                                                             'impcount' => 0,
42629                                                                                             'calls' => [],
42630                                                                                             'changed' => 0,
42631                                                                                             'opcount' => 0,
42632                                                                                             'prods' => [
42633                                                                                                          bless( {
42634                                                                                                                   'number' => '0',
42635                                                                                                                   'strcount' => 0,
42636                                                                                                                   'dircount' => 0,
42637                                                                                                                   'uncommit' => undef,
42638                                                                                                                   'error' => undef,
42639                                                                                                                   'patcount' => 1,
42640                                                                                                                   'actcount' => 0,
42641                                                                                                                   'items' => [
42642                                                                                                                                bless( {
42643                                                                                                                                         'pattern' => 'CONCAT',
42644                                                                                                                                         'hashname' => '__PATTERN1__',
42645                                                                                                                                         'description' => '/CONCAT/i',
42646                                                                                                                                         'lookahead' => 0,
42647                                                                                                                                         'rdelim' => '/',
42648                                                                                                                                         'line' => 628,
42649                                                                                                                                         'mod' => 'i',
42650                                                                                                                                         'ldelim' => '/'
42651                                                                                                                                       }, 'Parse::RecDescent::Token' )
42652                                                                                                                              ],
42653                                                                                                                   'line' => undef
42654                                                                                                                 }, 'Parse::RecDescent::Production' ),
42655                                                                                                          bless( {
42656                                                                                                                   'number' => '1',
42657                                                                                                                   'strcount' => 1,
42658                                                                                                                   'dircount' => 0,
42659                                                                                                                   'uncommit' => undef,
42660                                                                                                                   'error' => undef,
42661                                                                                                                   'patcount' => 0,
42662                                                                                                                   'actcount' => 0,
42663                                                                                                                   'items' => [
42664                                                                                                                                bless( {
42665                                                                                                                                         'pattern' => '||',
42666                                                                                                                                         'hashname' => '__STRING1__',
42667                                                                                                                                         'description' => '\'||\'',
42668                                                                                                                                         'lookahead' => 0,
42669                                                                                                                                         'line' => 628
42670                                                                                                                                       }, 'Parse::RecDescent::Literal' )
42671                                                                                                                              ],
42672                                                                                                                   'line' => 628
42673                                                                                                                 }, 'Parse::RecDescent::Production' )
42674                                                                                                        ],
42675                                                                                             'name' => '_alternation_1_of_production_1_of_rule_operator',
42676                                                                                             'vars' => '',
42677                                                                                             'line' => 628
42678                                                                                           }, 'Parse::RecDescent::Rule' ),
42679                               'simple_when_clause' => bless( {
42680                                                                'impcount' => 1,
42681                                                                'calls' => [
42682                                                                             'expression',
42683                                                                             '_alternation_1_of_production_1_of_rule_simple_when_clause'
42684                                                                           ],
42685                                                                'changed' => 0,
42686                                                                'opcount' => 0,
42687                                                                'prods' => [
42688                                                                             bless( {
42689                                                                                      'number' => '0',
42690                                                                                      'strcount' => 0,
42691                                                                                      'dircount' => 0,
42692                                                                                      'uncommit' => undef,
42693                                                                                      'error' => undef,
42694                                                                                      'patcount' => 0,
42695                                                                                      'actcount' => 0,
42696                                                                                      'items' => [
42697                                                                                                   bless( {
42698                                                                                                            'subrule' => 'expression',
42699                                                                                                            'matchrule' => 0,
42700                                                                                                            'implicit' => undef,
42701                                                                                                            'argcode' => undef,
42702                                                                                                            'lookahead' => 0,
42703                                                                                                            'line' => 509
42704                                                                                                          }, 'Parse::RecDescent::Subrule' ),
42705                                                                                                   bless( {
42706                                                                                                            'subrule' => '_alternation_1_of_production_1_of_rule_simple_when_clause',
42707                                                                                                            'expected' => '/WHEN/i',
42708                                                                                                            'min' => 1,
42709                                                                                                            'argcode' => undef,
42710                                                                                                            'max' => 100000000,
42711                                                                                                            'matchrule' => 0,
42712                                                                                                            'repspec' => 's',
42713                                                                                                            'lookahead' => 0,
42714                                                                                                            'line' => 513
42715                                                                                                          }, 'Parse::RecDescent::Repetition' )
42716                                                                                                 ],
42717                                                                                      'line' => undef
42718                                                                                    }, 'Parse::RecDescent::Production' )
42719                                                                           ],
42720                                                                'name' => 'simple_when_clause',
42721                                                                'vars' => '',
42722                                                                'line' => 509
42723                                                              }, 'Parse::RecDescent::Rule' ),
42724                               'INNER' => bless( {
42725                                                   'impcount' => 0,
42726                                                   'calls' => [],
42727                                                   'changed' => 0,
42728                                                   'opcount' => 0,
42729                                                   'prods' => [
42730                                                                bless( {
42731                                                                         'number' => '0',
42732                                                                         'strcount' => 0,
42733                                                                         'dircount' => 0,
42734                                                                         'uncommit' => undef,
42735                                                                         'error' => undef,
42736                                                                         'patcount' => 1,
42737                                                                         'actcount' => 0,
42738                                                                         'items' => [
42739                                                                                      bless( {
42740                                                                                               'pattern' => 'inner',
42741                                                                                               'hashname' => '__PATTERN1__',
42742                                                                                               'description' => '/inner/i',
42743                                                                                               'lookahead' => 0,
42744                                                                                               'rdelim' => '/',
42745                                                                                               'line' => 107,
42746                                                                                               'mod' => 'i',
42747                                                                                               'ldelim' => '/'
42748                                                                                             }, 'Parse::RecDescent::Token' )
42749                                                                                    ],
42750                                                                         'line' => undef
42751                                                                       }, 'Parse::RecDescent::Production' )
42752                                                              ],
42753                                                   'name' => 'INNER',
42754                                                   'vars' => '',
42755                                                   'line' => 107
42756                                                 }, 'Parse::RecDescent::Rule' ),
42757                               'eofile' => bless( {
42758                                                    'impcount' => 0,
42759                                                    'calls' => [],
42760                                                    'changed' => 0,
42761                                                    'opcount' => 0,
42762                                                    'prods' => [
42763                                                                 bless( {
42764                                                                          'number' => '0',
42765                                                                          'strcount' => 0,
42766                                                                          'dircount' => 0,
42767                                                                          'uncommit' => undef,
42768                                                                          'error' => undef,
42769                                                                          'patcount' => 1,
42770                                                                          'actcount' => 0,
42771                                                                          'items' => [
42772                                                                                       bless( {
42773                                                                                                'pattern' => '^\\Z',
42774                                                                                                'hashname' => '__PATTERN1__',
42775                                                                                                'description' => '/^\\\\Z/',
42776                                                                                                'lookahead' => 0,
42777                                                                                                'rdelim' => '/',
42778                                                                                                'line' => 20,
42779                                                                                                'mod' => '',
42780                                                                                                'ldelim' => '/'
42781                                                                                              }, 'Parse::RecDescent::Token' )
42782                                                                                     ],
42783                                                                          'line' => undef
42784                                                                        }, 'Parse::RecDescent::Production' )
42785                                                               ],
42786                                                    'name' => 'eofile',
42787                                                    'vars' => '',
42788                                                    'line' => 20
42789                                                  }, 'Parse::RecDescent::Rule' ),
42790                               'cond' => bless( {
42791                                                  'impcount' => 2,
42792                                                  'calls' => [
42793                                                               '_alternation_1_of_production_1_of_rule_cond',
42794                                                               '_alternation_2_of_production_1_of_rule_cond'
42795                                                             ],
42796                                                  'changed' => 0,
42797                                                  'opcount' => 0,
42798                                                  'prods' => [
42799                                                               bless( {
42800                                                                        'number' => '0',
42801                                                                        'strcount' => 0,
42802                                                                        'dircount' => 0,
42803                                                                        'uncommit' => undef,
42804                                                                        'error' => undef,
42805                                                                        'patcount' => 1,
42806                                                                        'actcount' => 0,
42807                                                                        'items' => [
42808                                                                                     bless( {
42809                                                                                              'subrule' => '_alternation_1_of_production_1_of_rule_cond',
42810                                                                                              'matchrule' => 0,
42811                                                                                              'implicit' => '/AND/i, or /OR/i',
42812                                                                                              'argcode' => undef,
42813                                                                                              'lookahead' => 0,
42814                                                                                              'line' => 620
42815                                                                                            }, 'Parse::RecDescent::Subrule' ),
42816                                                                                     bless( {
42817                                                                                              'pattern' => 'NOT|',
42818                                                                                              'hashname' => '__PATTERN1__',
42819                                                                                              'description' => '/NOT|/i',
42820                                                                                              'lookahead' => 0,
42821                                                                                              'rdelim' => '/',
42822                                                                                              'line' => 620,
42823                                                                                              'mod' => 'i',
42824                                                                                              'ldelim' => '/'
42825                                                                                            }, 'Parse::RecDescent::Token' ),
42826                                                                                     bless( {
42827                                                                                              'subrule' => '_alternation_2_of_production_1_of_rule_cond',
42828                                                                                              'matchrule' => 0,
42829                                                                                              'implicit' => 'predicate, or \'(\'',
42830                                                                                              'argcode' => undef,
42831                                                                                              'lookahead' => 0,
42832                                                                                              'line' => 620
42833                                                                                            }, 'Parse::RecDescent::Subrule' )
42834                                                                                   ],
42835                                                                        'line' => undef
42836                                                                      }, 'Parse::RecDescent::Production' )
42837                                                             ],
42838                                                  'name' => 'cond',
42839                                                  'vars' => '',
42840                                                  'line' => 620
42841                                                }, 'Parse::RecDescent::Rule' ),
42842                               'ld_type' => bless( {
42843                                                     'impcount' => 0,
42844                                                     'calls' => [
42845                                                                  'function',
42846                                                                  'expression',
42847                                                                  'constant',
42848                                                                  'column_name',
42849                                                                  'host_variable'
42850                                                                ],
42851                                                     'changed' => 0,
42852                                                     'opcount' => 0,
42853                                                     'prods' => [
42854                                                                  bless( {
42855                                                                           'number' => '0',
42856                                                                           'strcount' => 0,
42857                                                                           'dircount' => 0,
42858                                                                           'uncommit' => undef,
42859                                                                           'error' => undef,
42860                                                                           'patcount' => 0,
42861                                                                           'actcount' => 0,
42862                                                                           'items' => [
42863                                                                                        bless( {
42864                                                                                                 'subrule' => 'function',
42865                                                                                                 'matchrule' => 0,
42866                                                                                                 'implicit' => undef,
42867                                                                                                 'argcode' => undef,
42868                                                                                                 'lookahead' => 0,
42869                                                                                                 'line' => 482
42870                                                                                               }, 'Parse::RecDescent::Subrule' )
42871                                                                                      ],
42872                                                                           'line' => undef
42873                                                                         }, 'Parse::RecDescent::Production' ),
42874                                                                  bless( {
42875                                                                           'number' => '1',
42876                                                                           'strcount' => 2,
42877                                                                           'dircount' => 0,
42878                                                                           'uncommit' => undef,
42879                                                                           'error' => undef,
42880                                                                           'patcount' => 0,
42881                                                                           'actcount' => 0,
42882                                                                           'items' => [
42883                                                                                        bless( {
42884                                                                                                 'pattern' => '(',
42885                                                                                                 'hashname' => '__STRING1__',
42886                                                                                                 'description' => '\'(\'',
42887                                                                                                 'lookahead' => 0,
42888                                                                                                 'line' => 483
42889                                                                                               }, 'Parse::RecDescent::Literal' ),
42890                                                                                        bless( {
42891                                                                                                 'subrule' => 'expression',
42892                                                                                                 'matchrule' => 0,
42893                                                                                                 'implicit' => undef,
42894                                                                                                 'argcode' => undef,
42895                                                                                                 'lookahead' => 0,
42896                                                                                                 'line' => 483
42897                                                                                               }, 'Parse::RecDescent::Subrule' ),
42898                                                                                        bless( {
42899                                                                                                 'pattern' => ')',
42900                                                                                                 'hashname' => '__STRING2__',
42901                                                                                                 'description' => '\')\'',
42902                                                                                                 'lookahead' => 0,
42903                                                                                                 'line' => 483
42904                                                                                               }, 'Parse::RecDescent::Literal' )
42905                                                                                      ],
42906                                                                           'line' => 483
42907                                                                         }, 'Parse::RecDescent::Production' ),
42908                                                                  bless( {
42909                                                                           'number' => '2',
42910                                                                           'strcount' => 0,
42911                                                                           'dircount' => 0,
42912                                                                           'uncommit' => undef,
42913                                                                           'error' => undef,
42914                                                                           'patcount' => 0,
42915                                                                           'actcount' => 0,
42916                                                                           'items' => [
42917                                                                                        bless( {
42918                                                                                                 'subrule' => 'constant',
42919                                                                                                 'matchrule' => 0,
42920                                                                                                 'implicit' => undef,
42921                                                                                                 'argcode' => undef,
42922                                                                                                 'lookahead' => 0,
42923                                                                                                 'line' => 484
42924                                                                                               }, 'Parse::RecDescent::Subrule' )
42925                                                                                      ],
42926                                                                           'line' => 484
42927                                                                         }, 'Parse::RecDescent::Production' ),
42928                                                                  bless( {
42929                                                                           'number' => '3',
42930                                                                           'strcount' => 0,
42931                                                                           'dircount' => 0,
42932                                                                           'uncommit' => undef,
42933                                                                           'error' => undef,
42934                                                                           'patcount' => 0,
42935                                                                           'actcount' => 0,
42936                                                                           'items' => [
42937                                                                                        bless( {
42938                                                                                                 'subrule' => 'column_name',
42939                                                                                                 'matchrule' => 0,
42940                                                                                                 'implicit' => undef,
42941                                                                                                 'argcode' => undef,
42942                                                                                                 'lookahead' => 0,
42943                                                                                                 'line' => 485
42944                                                                                               }, 'Parse::RecDescent::Subrule' )
42945                                                                                      ],
42946                                                                           'line' => 485
42947                                                                         }, 'Parse::RecDescent::Production' ),
42948                                                                  bless( {
42949                                                                           'number' => '4',
42950                                                                           'strcount' => 0,
42951                                                                           'dircount' => 0,
42952                                                                           'uncommit' => undef,
42953                                                                           'error' => undef,
42954                                                                           'patcount' => 0,
42955                                                                           'actcount' => 0,
42956                                                                           'items' => [
42957                                                                                        bless( {
42958                                                                                                 'subrule' => 'host_variable',
42959                                                                                                 'matchrule' => 0,
42960                                                                                                 'implicit' => undef,
42961                                                                                                 'argcode' => undef,
42962                                                                                                 'lookahead' => 0,
42963                                                                                                 'line' => 486
42964                                                                                               }, 'Parse::RecDescent::Subrule' )
42965                                                                                      ],
42966                                                                           'line' => 486
42967                                                                         }, 'Parse::RecDescent::Production' )
42968                                                                ],
42969                                                     'name' => 'ld_type',
42970                                                     'vars' => '',
42971                                                     'line' => 482
42972                                                   }, 'Parse::RecDescent::Rule' ),
42973                               'RIGHT' => bless( {
42974                                                   'impcount' => 0,
42975                                                   'calls' => [],
42976                                                   'changed' => 0,
42977                                                   'opcount' => 0,
42978                                                   'prods' => [
42979                                                                bless( {
42980                                                                         'number' => '0',
42981                                                                         'strcount' => 0,
42982                                                                         'dircount' => 0,
42983                                                                         'uncommit' => undef,
42984                                                                         'error' => undef,
42985                                                                         'patcount' => 1,
42986                                                                         'actcount' => 0,
42987                                                                         'items' => [
42988                                                                                      bless( {
42989                                                                                               'pattern' => 'right',
42990                                                                                               'hashname' => '__PATTERN1__',
42991                                                                                               'description' => '/right/i',
42992                                                                                               'lookahead' => 0,
42993                                                                                               'rdelim' => '/',
42994                                                                                               'line' => 111,
42995                                                                                               'mod' => 'i',
42996                                                                                               'ldelim' => '/'
42997                                                                                             }, 'Parse::RecDescent::Token' )
42998                                                                                    ],
42999                                                                         'line' => undef
43000                                                                       }, 'Parse::RecDescent::Production' )
43001                                                              ],
43002                                                   'name' => 'RIGHT',
43003                                                   'vars' => '',
43004                                                   'line' => 111
43005                                                 }, 'Parse::RecDescent::Rule' ),
43006                               '_alternation_1_of_production_1_of_rule_method_invocation' => bless( {
43007                                                                                                      'impcount' => 0,
43008                                                                                                      'calls' => [
43009                                                                                                                   'expression'
43010                                                                                                                 ],
43011                                                                                                      'changed' => 0,
43012                                                                                                      'opcount' => 0,
43013                                                                                                      'prods' => [
43014                                                                                                                   bless( {
43015                                                                                                                            'number' => '0',
43016                                                                                                                            'strcount' => 2,
43017                                                                                                                            'dircount' => 0,
43018                                                                                                                            'uncommit' => undef,
43019                                                                                                                            'error' => undef,
43020                                                                                                                            'patcount' => 0,
43021                                                                                                                            'actcount' => 0,
43022                                                                                                                            'items' => [
43023                                                                                                                                         bless( {
43024                                                                                                                                                  'pattern' => '(',
43025                                                                                                                                                  'hashname' => '__STRING1__',
43026                                                                                                                                                  'description' => '\'(\'',
43027                                                                                                                                                  'lookahead' => 0,
43028                                                                                                                                                  'line' => 626
43029                                                                                                                                                }, 'Parse::RecDescent::Literal' ),
43030                                                                                                                                         bless( {
43031                                                                                                                                                  'subrule' => 'expression',
43032                                                                                                                                                  'expected' => undef,
43033                                                                                                                                                  'min' => 1,
43034                                                                                                                                                  'argcode' => undef,
43035                                                                                                                                                  'max' => 100000000,
43036                                                                                                                                                  'matchrule' => 0,
43037                                                                                                                                                  'repspec' => 's',
43038                                                                                                                                                  'lookahead' => 0,
43039                                                                                                                                                  'line' => 626
43040                                                                                                                                                }, 'Parse::RecDescent::Repetition' ),
43041                                                                                                                                         bless( {
43042                                                                                                                                                  'pattern' => ')',
43043                                                                                                                                                  'hashname' => '__STRING2__',
43044                                                                                                                                                  'description' => '\')\'',
43045                                                                                                                                                  'lookahead' => 0,
43046                                                                                                                                                  'line' => 626
43047                                                                                                                                                }, 'Parse::RecDescent::Literal' )
43048                                                                                                                                       ],
43049                                                                                                                            'line' => undef
43050                                                                                                                          }, 'Parse::RecDescent::Production' )
43051                                                                                                                 ],
43052                                                                                                      'name' => '_alternation_1_of_production_1_of_rule_method_invocation',
43053                                                                                                      'vars' => '',
43054                                                                                                      'line' => 626
43055                                                                                                    }, 'Parse::RecDescent::Rule' ),
43056                               'LEFT' => bless( {
43057                                                  'impcount' => 0,
43058                                                  'calls' => [],
43059                                                  'changed' => 0,
43060                                                  'opcount' => 0,
43061                                                  'prods' => [
43062                                                               bless( {
43063                                                                        'number' => '0',
43064                                                                        'strcount' => 0,
43065                                                                        'dircount' => 0,
43066                                                                        'uncommit' => undef,
43067                                                                        'error' => undef,
43068                                                                        'patcount' => 1,
43069                                                                        'actcount' => 0,
43070                                                                        'items' => [
43071                                                                                     bless( {
43072                                                                                              'pattern' => 'left',
43073                                                                                              'hashname' => '__PATTERN1__',
43074                                                                                              'description' => '/left/i',
43075                                                                                              'lookahead' => 0,
43076                                                                                              'rdelim' => '/',
43077                                                                                              'line' => 109,
43078                                                                                              'mod' => 'i',
43079                                                                                              'ldelim' => '/'
43080                                                                                            }, 'Parse::RecDescent::Token' )
43081                                                                                   ],
43082                                                                        'line' => undef
43083                                                                      }, 'Parse::RecDescent::Production' )
43084                                                             ],
43085                                                  'name' => 'LEFT',
43086                                                  'vars' => '',
43087                                                  'line' => 109
43088                                                }, 'Parse::RecDescent::Rule' ),
43089                               'table_name' => bless( {
43090                                                        'impcount' => 0,
43091                                                        'calls' => [
43092                                                                     'SCHEMA',
43093                                                                     'NAME'
43094                                                                   ],
43095                                                        'changed' => 0,
43096                                                        'opcount' => 0,
43097                                                        'prods' => [
43098                                                                     bless( {
43099                                                                              'number' => '0',
43100                                                                              'strcount' => 1,
43101                                                                              'dircount' => 0,
43102                                                                              'uncommit' => undef,
43103                                                                              'error' => undef,
43104                                                                              'patcount' => 0,
43105                                                                              'actcount' => 1,
43106                                                                              'items' => [
43107                                                                                           bless( {
43108                                                                                                    'subrule' => 'SCHEMA',
43109                                                                                                    'matchrule' => 0,
43110                                                                                                    'implicit' => undef,
43111                                                                                                    'argcode' => undef,
43112                                                                                                    'lookahead' => 0,
43113                                                                                                    'line' => 124
43114                                                                                                  }, 'Parse::RecDescent::Subrule' ),
43115                                                                                           bless( {
43116                                                                                                    'pattern' => '.',
43117                                                                                                    'hashname' => '__STRING1__',
43118                                                                                                    'description' => '\'.\'',
43119                                                                                                    'lookahead' => 0,
43120                                                                                                    'line' => 124
43121                                                                                                  }, 'Parse::RecDescent::Literal' ),
43122                                                                                           bless( {
43123                                                                                                    'subrule' => 'NAME',
43124                                                                                                    'matchrule' => 0,
43125                                                                                                    'implicit' => undef,
43126                                                                                                    'argcode' => undef,
43127                                                                                                    'lookahead' => 0,
43128                                                                                                    'line' => 124
43129                                                                                                  }, 'Parse::RecDescent::Subrule' ),
43130                                                                                           bless( {
43131                                                                                                    'hashname' => '__ACTION1__',
43132                                                                                                    'lookahead' => 0,
43133                                                                                                    'line' => 125,
43134                                                                                                    'code' => '{ $return = { schema => $item[1], name => $item[3] } }'
43135                                                                                                  }, 'Parse::RecDescent::Action' )
43136                                                                                         ],
43137                                                                              'line' => undef
43138                                                                            }, 'Parse::RecDescent::Production' ),
43139                                                                     bless( {
43140                                                                              'number' => '1',
43141                                                                              'strcount' => 0,
43142                                                                              'dircount' => 0,
43143                                                                              'uncommit' => undef,
43144                                                                              'error' => undef,
43145                                                                              'patcount' => 0,
43146                                                                              'actcount' => 1,
43147                                                                              'items' => [
43148                                                                                           bless( {
43149                                                                                                    'subrule' => 'NAME',
43150                                                                                                    'matchrule' => 0,
43151                                                                                                    'implicit' => undef,
43152                                                                                                    'argcode' => undef,
43153                                                                                                    'lookahead' => 0,
43154                                                                                                    'line' => 126
43155                                                                                                  }, 'Parse::RecDescent::Subrule' ),
43156                                                                                           bless( {
43157                                                                                                    'hashname' => '__ACTION1__',
43158                                                                                                    'lookahead' => 0,
43159                                                                                                    'line' => 127,
43160                                                                                                    'code' => '{ $return = { name => $item[1] } }'
43161                                                                                                  }, 'Parse::RecDescent::Action' )
43162                                                                                         ],
43163                                                                              'line' => 126
43164                                                                            }, 'Parse::RecDescent::Production' )
43165                                                                   ],
43166                                                        'name' => 'table_name',
43167                                                        'vars' => '',
43168                                                        'line' => 124
43169                                                      }, 'Parse::RecDescent::Rule' ),
43170                               '_alternation_1_of_production_53_of_rule_sysfun' => bless( {
43171                                                                                            'impcount' => 0,
43172                                                                                            'calls' => [],
43173                                                                                            'changed' => 0,
43174                                                                                            'opcount' => 0,
43175                                                                                            'prods' => [
43176                                                                                                         bless( {
43177                                                                                                                  'number' => '0',
43178                                                                                                                  'strcount' => 0,
43179                                                                                                                  'dircount' => 0,
43180                                                                                                                  'uncommit' => undef,
43181                                                                                                                  'error' => undef,
43182                                                                                                                  'patcount' => 1,
43183                                                                                                                  'actcount' => 0,
43184                                                                                                                  'items' => [
43185                                                                                                                               bless( {
43186                                                                                                                                        'pattern' => 'TRUNCATE',
43187                                                                                                                                        'hashname' => '__PATTERN1__',
43188                                                                                                                                        'description' => '/TRUNCATE/i',
43189                                                                                                                                        'lookahead' => 0,
43190                                                                                                                                        'rdelim' => '/',
43191                                                                                                                                        'line' => 628,
43192                                                                                                                                        'mod' => 'i',
43193                                                                                                                                        'ldelim' => '/'
43194                                                                                                                                      }, 'Parse::RecDescent::Token' )
43195                                                                                                                             ],
43196                                                                                                                  'line' => undef
43197                                                                                                                }, 'Parse::RecDescent::Production' ),
43198                                                                                                         bless( {
43199                                                                                                                  'number' => '1',
43200                                                                                                                  'strcount' => 0,
43201                                                                                                                  'dircount' => 0,
43202                                                                                                                  'uncommit' => undef,
43203                                                                                                                  'error' => undef,
43204                                                                                                                  'patcount' => 1,
43205                                                                                                                  'actcount' => 0,
43206                                                                                                                  'items' => [
43207                                                                                                                               bless( {
43208                                                                                                                                        'pattern' => 'TRUNC',
43209                                                                                                                                        'hashname' => '__PATTERN1__',
43210                                                                                                                                        'description' => '/TRUNC/i',
43211                                                                                                                                        'lookahead' => 0,
43212                                                                                                                                        'rdelim' => '/',
43213                                                                                                                                        'line' => 628,
43214                                                                                                                                        'mod' => 'i',
43215                                                                                                                                        'ldelim' => '/'
43216                                                                                                                                      }, 'Parse::RecDescent::Token' )
43217                                                                                                                             ],
43218                                                                                                                  'line' => 628
43219                                                                                                                }, 'Parse::RecDescent::Production' )
43220                                                                                                       ],
43221                                                                                            'name' => '_alternation_1_of_production_53_of_rule_sysfun',
43222                                                                                            'vars' => '',
43223                                                                                            'line' => 628
43224                                                                                          }, 'Parse::RecDescent::Rule' ),
43225                               'options' => bless( {
43226                                                     'impcount' => 1,
43227                                                     'calls' => [
43228                                                                  '_alternation_1_of_production_1_of_rule_options'
43229                                                                ],
43230                                                     'changed' => 0,
43231                                                     'opcount' => 0,
43232                                                     'prods' => [
43233                                                                  bless( {
43234                                                                           'number' => '0',
43235                                                                           'strcount' => 0,
43236                                                                           'dircount' => 0,
43237                                                                           'uncommit' => undef,
43238                                                                           'error' => undef,
43239                                                                           'patcount' => 2,
43240                                                                           'actcount' => 0,
43241                                                                           'items' => [
43242                                                                                        bless( {
43243                                                                                                 'pattern' => 'WITH',
43244                                                                                                 'hashname' => '__PATTERN1__',
43245                                                                                                 'description' => '/WITH/i',
43246                                                                                                 'lookahead' => 0,
43247                                                                                                 'rdelim' => '/',
43248                                                                                                 'line' => 150,
43249                                                                                                 'mod' => 'i',
43250                                                                                                 'ldelim' => '/'
43251                                                                                               }, 'Parse::RecDescent::Token' ),
43252                                                                                        bless( {
43253                                                                                                 'subrule' => '_alternation_1_of_production_1_of_rule_options',
43254                                                                                                 'matchrule' => 0,
43255                                                                                                 'implicit' => '/CASCADED/i, or /LOCAL/i',
43256                                                                                                 'argcode' => undef,
43257                                                                                                 'lookahead' => 0,
43258                                                                                                 'line' => 150
43259                                                                                               }, 'Parse::RecDescent::Subrule' ),
43260                                                                                        bless( {
43261                                                                                                 'pattern' => 'CHECK\\s+OPTION',
43262                                                                                                 'hashname' => '__PATTERN2__',
43263                                                                                                 'description' => '/CHECK\\\\s+OPTION/i',
43264                                                                                                 'lookahead' => 0,
43265                                                                                                 'rdelim' => '/',
43266                                                                                                 'line' => 150,
43267                                                                                                 'mod' => 'i',
43268                                                                                                 'ldelim' => '/'
43269                                                                                               }, 'Parse::RecDescent::Token' )
43270                                                                                      ],
43271                                                                           'line' => undef
43272                                                                         }, 'Parse::RecDescent::Production' )
43273                                                                ],
43274                                                     'name' => 'options',
43275                                                     'vars' => '',
43276                                                     'line' => 150
43277                                                   }, 'Parse::RecDescent::Rule' ),
43278                               'function' => bless( {
43279                                                      'impcount' => 1,
43280                                                      'calls' => [
43281                                                                   '_alternation_1_of_production_1_of_rule_function',
43282                                                                   'func_args'
43283                                                                 ],
43284                                                      'changed' => 0,
43285                                                      'opcount' => 0,
43286                                                      'prods' => [
43287                                                                   bless( {
43288                                                                            'number' => '0',
43289                                                                            'strcount' => 2,
43290                                                                            'dircount' => 1,
43291                                                                            'uncommit' => undef,
43292                                                                            'error' => undef,
43293                                                                            'patcount' => 1,
43294                                                                            'actcount' => 0,
43295                                                                            'op' => [],
43296                                                                            'items' => [
43297                                                                                         bless( {
43298                                                                                                  'subrule' => '_alternation_1_of_production_1_of_rule_function',
43299                                                                                                  'matchrule' => 0,
43300                                                                                                  'implicit' => '/SYSIBM\\\\.|/i, or /SYSFUN\\\\.|/i, or userdefined_function',
43301                                                                                                  'argcode' => undef,
43302                                                                                                  'lookahead' => 0,
43303                                                                                                  'line' => 326
43304                                                                                                }, 'Parse::RecDescent::Subrule' ),
43305                                                                                         bless( {
43306                                                                                                  'pattern' => '(',
43307                                                                                                  'hashname' => '__STRING1__',
43308                                                                                                  'description' => '\'(\'',
43309                                                                                                  'lookahead' => 0,
43310                                                                                                  'line' => 326
43311                                                                                                }, 'Parse::RecDescent::Literal' ),
43312                                                                                         bless( {
43313                                                                                                  'expected' => '<leftop: func_args /,/ func_args>',
43314                                                                                                  'min' => 1,
43315                                                                                                  'name' => '\'func_args(s)\'',
43316                                                                                                  'max' => 100000000,
43317                                                                                                  'leftarg' => bless( {
43318                                                                                                                        'subrule' => 'func_args',
43319                                                                                                                        'matchrule' => 0,
43320                                                                                                                        'implicit' => undef,
43321                                                                                                                        'argcode' => undef,
43322                                                                                                                        'lookahead' => 0,
43323                                                                                                                        'line' => 326
43324                                                                                                                      }, 'Parse::RecDescent::Subrule' ),
43325                                                                                                  'rightarg' => bless( {
43326                                                                                                                         'subrule' => 'func_args',
43327                                                                                                                         'matchrule' => 0,
43328                                                                                                                         'implicit' => undef,
43329                                                                                                                         'argcode' => undef,
43330                                                                                                                         'lookahead' => 0,
43331                                                                                                                         'line' => 326
43332                                                                                                                       }, 'Parse::RecDescent::Subrule' ),
43333                                                                                                  'hashname' => '__DIRECTIVE1__',
43334                                                                                                  'type' => 'leftop',
43335                                                                                                  'op' => bless( {
43336                                                                                                                   'pattern' => ',',
43337                                                                                                                   'hashname' => '__PATTERN1__',
43338                                                                                                                   'description' => '/,/',
43339                                                                                                                   'lookahead' => 0,
43340                                                                                                                   'rdelim' => '/',
43341                                                                                                                   'line' => 326,
43342                                                                                                                   'mod' => '',
43343                                                                                                                   'ldelim' => '/'
43344                                                                                                                 }, 'Parse::RecDescent::Token' )
43345                                                                                                }, 'Parse::RecDescent::Operator' ),
43346                                                                                         bless( {
43347                                                                                                  'pattern' => ')',
43348                                                                                                  'hashname' => '__STRING2__',
43349                                                                                                  'description' => '\')\'',
43350                                                                                                  'lookahead' => 0,
43351                                                                                                  'line' => 326
43352                                                                                                }, 'Parse::RecDescent::Literal' )
43353                                                                                       ],
43354                                                                            'line' => undef
43355                                                                          }, 'Parse::RecDescent::Production' )
43356                                                                 ],
43357                                                      'name' => 'function',
43358                                                      'vars' => '',
43359                                                      'line' => 323
43360                                                    }, 'Parse::RecDescent::Rule' ),
43361                               '_alternation_1_of_production_41_of_rule_sysibm_function' => bless( {
43362                                                                                                     'impcount' => 0,
43363                                                                                                     'calls' => [],
43364                                                                                                     'changed' => 0,
43365                                                                                                     'opcount' => 0,
43366                                                                                                     'prods' => [
43367                                                                                                                  bless( {
43368                                                                                                                           'number' => '0',
43369                                                                                                                           'strcount' => 0,
43370                                                                                                                           'dircount' => 0,
43371                                                                                                                           'uncommit' => undef,
43372                                                                                                                           'error' => undef,
43373                                                                                                                           'patcount' => 1,
43374                                                                                                                           'actcount' => 0,
43375                                                                                                                           'items' => [
43376                                                                                                                                        bless( {
43377                                                                                                                                                 'pattern' => 'INTEGER',
43378                                                                                                                                                 'hashname' => '__PATTERN1__',
43379                                                                                                                                                 'description' => '/INTEGER/i',
43380                                                                                                                                                 'lookahead' => 0,
43381                                                                                                                                                 'rdelim' => '/',
43382                                                                                                                                                 'line' => 628,
43383                                                                                                                                                 'mod' => 'i',
43384                                                                                                                                                 'ldelim' => '/'
43385                                                                                                                                               }, 'Parse::RecDescent::Token' )
43386                                                                                                                                      ],
43387                                                                                                                           'line' => undef
43388                                                                                                                         }, 'Parse::RecDescent::Production' ),
43389                                                                                                                  bless( {
43390                                                                                                                           'number' => '1',
43391                                                                                                                           'strcount' => 0,
43392                                                                                                                           'dircount' => 0,
43393                                                                                                                           'uncommit' => undef,
43394                                                                                                                           'error' => undef,
43395                                                                                                                           'patcount' => 1,
43396                                                                                                                           'actcount' => 0,
43397                                                                                                                           'items' => [
43398                                                                                                                                        bless( {
43399                                                                                                                                                 'pattern' => 'INT',
43400                                                                                                                                                 'hashname' => '__PATTERN1__',
43401                                                                                                                                                 'description' => '/INT/',
43402                                                                                                                                                 'lookahead' => 0,
43403                                                                                                                                                 'rdelim' => '/',
43404                                                                                                                                                 'line' => 628,
43405                                                                                                                                                 'mod' => '',
43406                                                                                                                                                 'ldelim' => '/'
43407                                                                                                                                               }, 'Parse::RecDescent::Token' )
43408                                                                                                                                      ],
43409                                                                                                                           'line' => 628
43410                                                                                                                         }, 'Parse::RecDescent::Production' )
43411                                                                                                                ],
43412                                                                                                     'name' => '_alternation_1_of_production_41_of_rule_sysibm_function',
43413                                                                                                     'vars' => '',
43414                                                                                                     'line' => 628
43415                                                                                                   }, 'Parse::RecDescent::Rule' ),
43416                               '_alternation_1_of_production_1_of_rule_case_expression' => bless( {
43417                                                                                                    'impcount' => 0,
43418                                                                                                    'calls' => [
43419                                                                                                                 'searched_when_clause',
43420                                                                                                                 'simple_when_clause'
43421                                                                                                               ],
43422                                                                                                    'changed' => 0,
43423                                                                                                    'opcount' => 0,
43424                                                                                                    'prods' => [
43425                                                                                                                 bless( {
43426                                                                                                                          'number' => '0',
43427                                                                                                                          'strcount' => 0,
43428                                                                                                                          'dircount' => 0,
43429                                                                                                                          'uncommit' => undef,
43430                                                                                                                          'error' => undef,
43431                                                                                                                          'patcount' => 0,
43432                                                                                                                          'actcount' => 0,
43433                                                                                                                          'items' => [
43434                                                                                                                                       bless( {
43435                                                                                                                                                'subrule' => 'searched_when_clause',
43436                                                                                                                                                'matchrule' => 0,
43437                                                                                                                                                'implicit' => undef,
43438                                                                                                                                                'argcode' => undef,
43439                                                                                                                                                'lookahead' => 0,
43440                                                                                                                                                'line' => 626
43441                                                                                                                                              }, 'Parse::RecDescent::Subrule' )
43442                                                                                                                                     ],
43443                                                                                                                          'line' => undef
43444                                                                                                                        }, 'Parse::RecDescent::Production' ),
43445                                                                                                                 bless( {
43446                                                                                                                          'number' => '1',
43447                                                                                                                          'strcount' => 0,
43448                                                                                                                          'dircount' => 0,
43449                                                                                                                          'uncommit' => undef,
43450                                                                                                                          'error' => undef,
43451                                                                                                                          'patcount' => 0,
43452                                                                                                                          'actcount' => 0,
43453                                                                                                                          'items' => [
43454                                                                                                                                       bless( {
43455                                                                                                                                                'subrule' => 'simple_when_clause',
43456                                                                                                                                                'matchrule' => 0,
43457                                                                                                                                                'implicit' => undef,
43458                                                                                                                                                'argcode' => undef,
43459                                                                                                                                                'lookahead' => 0,
43460                                                                                                                                                'line' => 627
43461                                                                                                                                              }, 'Parse::RecDescent::Subrule' )
43462                                                                                                                                     ],
43463                                                                                                                          'line' => 627
43464                                                                                                                        }, 'Parse::RecDescent::Production' )
43465                                                                                                               ],
43466                                                                                                    'name' => '_alternation_1_of_production_1_of_rule_case_expression',
43467                                                                                                    'vars' => '',
43468                                                                                                    'line' => 626
43469                                                                                                  }, 'Parse::RecDescent::Rule' ),
43470                               '_alternation_1_of_production_1_of_rule_window_order_clause' => bless( {
43471                                                                                                        'impcount' => 1,
43472                                                                                                        'calls' => [
43473                                                                                                                     'sort_key_expression',
43474                                                                                                                     '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause'
43475                                                                                                                   ],
43476                                                                                                        'changed' => 0,
43477                                                                                                        'opcount' => 0,
43478                                                                                                        'prods' => [
43479                                                                                                                     bless( {
43480                                                                                                                              'number' => '0',
43481                                                                                                                              'strcount' => 0,
43482                                                                                                                              'dircount' => 0,
43483                                                                                                                              'uncommit' => undef,
43484                                                                                                                              'error' => undef,
43485                                                                                                                              'patcount' => 0,
43486                                                                                                                              'actcount' => 0,
43487                                                                                                                              'items' => [
43488                                                                                                                                           bless( {
43489                                                                                                                                                    'subrule' => 'sort_key_expression',
43490                                                                                                                                                    'matchrule' => 0,
43491                                                                                                                                                    'implicit' => undef,
43492                                                                                                                                                    'argcode' => undef,
43493                                                                                                                                                    'lookahead' => 0,
43494                                                                                                                                                    'line' => 624
43495                                                                                                                                                  }, 'Parse::RecDescent::Subrule' ),
43496                                                                                                                                           bless( {
43497                                                                                                                                                    'subrule' => '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_window_order_clause',
43498                                                                                                                                                    'expected' => 'asc_option, or desc_option',
43499                                                                                                                                                    'min' => 0,
43500                                                                                                                                                    'argcode' => undef,
43501                                                                                                                                                    'max' => 1,
43502                                                                                                                                                    'matchrule' => 0,
43503                                                                                                                                                    'repspec' => '?',
43504                                                                                                                                                    'lookahead' => 0,
43505                                                                                                                                                    'line' => 627
43506                                                                                                                                                  }, 'Parse::RecDescent::Repetition' )
43507                                                                                                                                         ],
43508                                                                                                                              'line' => undef
43509                                                                                                                            }, 'Parse::RecDescent::Production' )
43510                                                                                                                   ],
43511                                                                                                        'name' => '_alternation_1_of_production_1_of_rule_window_order_clause',
43512                                                                                                        'vars' => '',
43513                                                                                                        'line' => 624
43514                                                                                                      }, 'Parse::RecDescent::Rule' ),
43515                               'create' => bless( {
43516                                                    'impcount' => 0,
43517                                                    'calls' => [
43518                                                                 'CREATE',
43519                                                                 'TRIGGER',
43520                                                                 'trigger_name',
43521                                                                 'before',
43522                                                                 'type',
43523                                                                 'table_name',
43524                                                                 'reference_b',
43525                                                                 'triggered_action',
43526                                                                 'after',
43527                                                                 'reference_a',
43528                                                                 'VIEW',
43529                                                                 'view_name',
43530                                                                 'column_list',
43531                                                                 'with_expression',
43532                                                                 'SQL_procedure_statement'
43533                                                               ],
43534                                                    'changed' => 0,
43535                                                    'opcount' => 0,
43536                                                    'prods' => [
43537                                                                 bless( {
43538                                                                          'number' => '0',
43539                                                                          'strcount' => 1,
43540                                                                          'dircount' => 0,
43541                                                                          'uncommit' => undef,
43542                                                                          'error' => undef,
43543                                                                          'patcount' => 2,
43544                                                                          'actcount' => 1,
43545                                                                          'items' => [
43546                                                                                       bless( {
43547                                                                                                'subrule' => 'CREATE',
43548                                                                                                'matchrule' => 0,
43549                                                                                                'implicit' => undef,
43550                                                                                                'argcode' => undef,
43551                                                                                                'lookahead' => 0,
43552                                                                                                'line' => 36
43553                                                                                              }, 'Parse::RecDescent::Subrule' ),
43554                                                                                       bless( {
43555                                                                                                'subrule' => 'TRIGGER',
43556                                                                                                'matchrule' => 0,
43557                                                                                                'implicit' => undef,
43558                                                                                                'argcode' => undef,
43559                                                                                                'lookahead' => 0,
43560                                                                                                'line' => 36
43561                                                                                              }, 'Parse::RecDescent::Subrule' ),
43562                                                                                       bless( {
43563                                                                                                'subrule' => 'trigger_name',
43564                                                                                                'matchrule' => 0,
43565                                                                                                'implicit' => undef,
43566                                                                                                'argcode' => undef,
43567                                                                                                'lookahead' => 0,
43568                                                                                                'line' => 36
43569                                                                                              }, 'Parse::RecDescent::Subrule' ),
43570                                                                                       bless( {
43571                                                                                                'subrule' => 'before',
43572                                                                                                'matchrule' => 0,
43573                                                                                                'implicit' => undef,
43574                                                                                                'argcode' => undef,
43575                                                                                                'lookahead' => 0,
43576                                                                                                'line' => 36
43577                                                                                              }, 'Parse::RecDescent::Subrule' ),
43578                                                                                       bless( {
43579                                                                                                'subrule' => 'type',
43580                                                                                                'matchrule' => 0,
43581                                                                                                'implicit' => undef,
43582                                                                                                'argcode' => undef,
43583                                                                                                'lookahead' => 0,
43584                                                                                                'line' => 36
43585                                                                                              }, 'Parse::RecDescent::Subrule' ),
43586                                                                                       bless( {
43587                                                                                                'pattern' => 'ON',
43588                                                                                                'hashname' => '__PATTERN1__',
43589                                                                                                'description' => '/ON/i',
43590                                                                                                'lookahead' => 0,
43591                                                                                                'rdelim' => '/',
43592                                                                                                'line' => 36,
43593                                                                                                'mod' => 'i',
43594                                                                                                'ldelim' => '/'
43595                                                                                              }, 'Parse::RecDescent::Token' ),
43596                                                                                       bless( {
43597                                                                                                'subrule' => 'table_name',
43598                                                                                                'matchrule' => 0,
43599                                                                                                'implicit' => undef,
43600                                                                                                'argcode' => undef,
43601                                                                                                'lookahead' => 0,
43602                                                                                                'line' => 36
43603                                                                                              }, 'Parse::RecDescent::Subrule' ),
43604                                                                                       bless( {
43605                                                                                                'subrule' => 'reference_b',
43606                                                                                                'expected' => undef,
43607                                                                                                'min' => 0,
43608                                                                                                'argcode' => undef,
43609                                                                                                'max' => 1,
43610                                                                                                'matchrule' => 0,
43611                                                                                                'repspec' => '?',
43612                                                                                                'lookahead' => 0,
43613                                                                                                'line' => 36
43614                                                                                              }, 'Parse::RecDescent::Repetition' ),
43615                                                                                       bless( {
43616                                                                                                'pattern' => 'FOR EACH ROW',
43617                                                                                                'hashname' => '__PATTERN2__',
43618                                                                                                'description' => '/FOR EACH ROW/i',
43619                                                                                                'lookahead' => 0,
43620                                                                                                'rdelim' => '/',
43621                                                                                                'line' => 36,
43622                                                                                                'mod' => 'i',
43623                                                                                                'ldelim' => '/'
43624                                                                                              }, 'Parse::RecDescent::Token' ),
43625                                                                                       bless( {
43626                                                                                                'pattern' => 'MODE DB2SQL',
43627                                                                                                'hashname' => '__STRING1__',
43628                                                                                                'description' => '\'MODE DB2SQL\'',
43629                                                                                                'lookahead' => 0,
43630                                                                                                'line' => 36
43631                                                                                              }, 'Parse::RecDescent::Literal' ),
43632                                                                                       bless( {
43633                                                                                                'subrule' => 'triggered_action',
43634                                                                                                'matchrule' => 0,
43635                                                                                                'implicit' => undef,
43636                                                                                                'argcode' => undef,
43637                                                                                                'lookahead' => 0,
43638                                                                                                'line' => 36
43639                                                                                              }, 'Parse::RecDescent::Subrule' ),
43640                                                                                       bless( {
43641                                                                                                'hashname' => '__ACTION1__',
43642                                                                                                'lookahead' => 0,
43643                                                                                                'line' => 37,
43644                                                                                                'code' => '{
43645     my $table_name = $item{\'table_name\'}{\'name\'};
43646     $return =  {
43647         table      => $table_name,
43648         schema     => $item{\'trigger_name\'}{\'schema\'},
43649         name       => $item{\'trigger_name\'}{\'name\'},
43650         when       => \'before\',
43651         db_event   => $item{\'type\'}->{\'event\'},
43652         fields     => $item{\'type\'}{\'fields\'},
43653         condition  => $item{\'triggered_action\'}{\'condition\'},
43654         reference  => $item{\'reference_b\'},
43655         granularity => $item[9],
43656         action     => $item{\'triggered_action\'}{\'statement\'}
43657     };
43658
43659     push @triggers, $return;
43660 }'
43661                                                                                              }, 'Parse::RecDescent::Action' )
43662                                                                                     ],
43663                                                                          'line' => undef
43664                                                                        }, 'Parse::RecDescent::Production' ),
43665                                                                 bless( {
43666                                                                          'number' => '1',
43667                                                                          'strcount' => 1,
43668                                                                          'dircount' => 0,
43669                                                                          'uncommit' => undef,
43670                                                                          'error' => undef,
43671                                                                          'patcount' => 2,
43672                                                                          'actcount' => 1,
43673                                                                          'items' => [
43674                                                                                       bless( {
43675                                                                                                'subrule' => 'CREATE',
43676                                                                                                'matchrule' => 0,
43677                                                                                                'implicit' => undef,
43678                                                                                                'argcode' => undef,
43679                                                                                                'lookahead' => 0,
43680                                                                                                'line' => 55
43681                                                                                              }, 'Parse::RecDescent::Subrule' ),
43682                                                                                       bless( {
43683                                                                                                'subrule' => 'TRIGGER',
43684                                                                                                'matchrule' => 0,
43685                                                                                                'implicit' => undef,
43686                                                                                                'argcode' => undef,
43687                                                                                                'lookahead' => 0,
43688                                                                                                'line' => 55
43689                                                                                              }, 'Parse::RecDescent::Subrule' ),
43690                                                                                       bless( {
43691                                                                                                'subrule' => 'trigger_name',
43692                                                                                                'matchrule' => 0,
43693                                                                                                'implicit' => undef,
43694                                                                                                'argcode' => undef,
43695                                                                                                'lookahead' => 0,
43696                                                                                                'line' => 55
43697                                                                                              }, 'Parse::RecDescent::Subrule' ),
43698                                                                                       bless( {
43699                                                                                                'subrule' => 'after',
43700                                                                                                'matchrule' => 0,
43701                                                                                                'implicit' => undef,
43702                                                                                                'argcode' => undef,
43703                                                                                                'lookahead' => 0,
43704                                                                                                'line' => 55
43705                                                                                              }, 'Parse::RecDescent::Subrule' ),
43706                                                                                       bless( {
43707                                                                                                'subrule' => 'type',
43708                                                                                                'matchrule' => 0,
43709                                                                                                'implicit' => undef,
43710                                                                                                'argcode' => undef,
43711                                                                                                'lookahead' => 0,
43712                                                                                                'line' => 55
43713                                                                                              }, 'Parse::RecDescent::Subrule' ),
43714                                                                                       bless( {
43715                                                                                                'pattern' => 'ON',
43716                                                                                                'hashname' => '__PATTERN1__',
43717                                                                                                'description' => '/ON/i',
43718                                                                                                'lookahead' => 0,
43719                                                                                                'rdelim' => '/',
43720                                                                                                'line' => 55,
43721                                                                                                'mod' => 'i',
43722                                                                                                'ldelim' => '/'
43723                                                                                              }, 'Parse::RecDescent::Token' ),
43724                                                                                       bless( {
43725                                                                                                'subrule' => 'table_name',
43726                                                                                                'matchrule' => 0,
43727                                                                                                'implicit' => undef,
43728                                                                                                'argcode' => undef,
43729                                                                                                'lookahead' => 0,
43730                                                                                                'line' => 55
43731                                                                                              }, 'Parse::RecDescent::Subrule' ),
43732                                                                                       bless( {
43733                                                                                                'subrule' => 'reference_a',
43734                                                                                                'expected' => undef,
43735                                                                                                'min' => 0,
43736                                                                                                'argcode' => undef,
43737                                                                                                'max' => 1,
43738                                                                                                'matchrule' => 0,
43739                                                                                                'repspec' => '?',
43740                                                                                                'lookahead' => 0,
43741                                                                                                'line' => 55
43742                                                                                              }, 'Parse::RecDescent::Repetition' ),
43743                                                                                       bless( {
43744                                                                                                'pattern' => 'FOR EACH ROW|FOR EACH STATEMENT',
43745                                                                                                'hashname' => '__PATTERN2__',
43746                                                                                                'description' => '/FOR EACH ROW|FOR EACH STATEMENT/i',
43747                                                                                                'lookahead' => 0,
43748                                                                                                'rdelim' => '/',
43749                                                                                                'line' => 55,
43750                                                                                                'mod' => 'i',
43751                                                                                                'ldelim' => '/'
43752                                                                                              }, 'Parse::RecDescent::Token' ),
43753                                                                                       bless( {
43754                                                                                                'pattern' => 'MODE DB2SQL',
43755                                                                                                'hashname' => '__STRING1__',
43756                                                                                                'description' => '\'MODE DB2SQL\'',
43757                                                                                                'lookahead' => 0,
43758                                                                                                'line' => 55
43759                                                                                              }, 'Parse::RecDescent::Literal' ),
43760                                                                                       bless( {
43761                                                                                                'subrule' => 'triggered_action',
43762                                                                                                'matchrule' => 0,
43763                                                                                                'implicit' => undef,
43764                                                                                                'argcode' => undef,
43765                                                                                                'lookahead' => 0,
43766                                                                                                'line' => 55
43767                                                                                              }, 'Parse::RecDescent::Subrule' ),
43768                                                                                       bless( {
43769                                                                                                'hashname' => '__ACTION1__',
43770                                                                                                'lookahead' => 0,
43771                                                                                                'line' => 56,
43772                                                                                                'code' => '{
43773     my $table_name = $item{\'table_name\'}{\'name\'};
43774     $return = {
43775         table      => $table_name,
43776         schema     => $item{\'trigger_name\'}{\'schema\'},
43777         name       => $item{\'trigger_name\'}{\'name\'},
43778         when       => \'after\',
43779         db_event   => $item{\'type\'}{\'event\'},
43780         fields     => $item{\'type\'}{\'fields\'},
43781         condition  => $item{\'triggered_action\'}{\'condition\'},
43782         reference  => $item{\'reference_a\'},
43783         granularity => $item[9],
43784         action     => $item{\'triggered_action\'}{\'statement\'}
43785     };
43786
43787     push @triggers, $return;
43788 }'
43789                                                                                              }, 'Parse::RecDescent::Action' )
43790                                                                                     ],
43791                                                                          'line' => undef
43792                                                                        }, 'Parse::RecDescent::Production' ),
43793                                                                 bless( {
43794                                                                          'number' => '2',
43795                                                                          'strcount' => 0,
43796                                                                          'dircount' => 0,
43797                                                                          'uncommit' => undef,
43798                                                                          'error' => undef,
43799                                                                          'patcount' => 2,
43800                                                                          'actcount' => 1,
43801                                                                          'items' => [
43802                                                                                       bless( {
43803                                                                                                'subrule' => 'CREATE',
43804                                                                                                'matchrule' => 0,
43805                                                                                                'implicit' => undef,
43806                                                                                                'argcode' => undef,
43807                                                                                                'lookahead' => 0,
43808                                                                                                'line' => 74
43809                                                                                              }, 'Parse::RecDescent::Subrule' ),
43810                                                                                       bless( {
43811                                                                                                'pattern' => 'FEDERATED|',
43812                                                                                                'hashname' => '__PATTERN1__',
43813                                                                                                'description' => '/FEDERATED|/i',
43814                                                                                                'lookahead' => 0,
43815                                                                                                'rdelim' => '/',
43816                                                                                                'line' => 74,
43817                                                                                                'mod' => 'i',
43818                                                                                                'ldelim' => '/'
43819                                                                                              }, 'Parse::RecDescent::Token' ),
43820                                                                                       bless( {
43821                                                                                                'subrule' => 'VIEW',
43822                                                                                                'matchrule' => 0,
43823                                                                                                'implicit' => undef,
43824                                                                                                'argcode' => undef,
43825                                                                                                'lookahead' => 0,
43826                                                                                                'line' => 74
43827                                                                                              }, 'Parse::RecDescent::Subrule' ),
43828                                                                                       bless( {
43829                                                                                                'subrule' => 'view_name',
43830                                                                                                'matchrule' => 0,
43831                                                                                                'implicit' => undef,
43832                                                                                                'argcode' => undef,
43833                                                                                                'lookahead' => 0,
43834                                                                                                'line' => 74
43835                                                                                              }, 'Parse::RecDescent::Subrule' ),
43836                                                                                       bless( {
43837                                                                                                'subrule' => 'column_list',
43838                                                                                                'expected' => undef,
43839                                                                                                'min' => 0,
43840                                                                                                'argcode' => undef,
43841                                                                                                'max' => 1,
43842                                                                                                'matchrule' => 0,
43843                                                                                                'repspec' => '?',
43844                                                                                                'lookahead' => 0,
43845                                                                                                'line' => 74
43846                                                                                              }, 'Parse::RecDescent::Repetition' ),
43847                                                                                       bless( {
43848                                                                                                'pattern' => 'AS',
43849                                                                                                'hashname' => '__PATTERN2__',
43850                                                                                                'description' => '/AS/i',
43851                                                                                                'lookahead' => 0,
43852                                                                                                'rdelim' => '/',
43853                                                                                                'line' => 74,
43854                                                                                                'mod' => 'i',
43855                                                                                                'ldelim' => '/'
43856                                                                                              }, 'Parse::RecDescent::Token' ),
43857                                                                                       bless( {
43858                                                                                                'subrule' => 'with_expression',
43859                                                                                                'expected' => undef,
43860                                                                                                'min' => 0,
43861                                                                                                'argcode' => undef,
43862                                                                                                'max' => 1,
43863                                                                                                'matchrule' => 0,
43864                                                                                                'repspec' => '?',
43865                                                                                                'lookahead' => 0,
43866                                                                                                'line' => 74
43867                                                                                              }, 'Parse::RecDescent::Repetition' ),
43868                                                                                       bless( {
43869                                                                                                'subrule' => 'SQL_procedure_statement',
43870                                                                                                'matchrule' => 0,
43871                                                                                                'implicit' => undef,
43872                                                                                                'argcode' => undef,
43873                                                                                                'lookahead' => 0,
43874                                                                                                'line' => 74
43875                                                                                              }, 'Parse::RecDescent::Subrule' ),
43876                                                                                       bless( {
43877                                                                                                'hashname' => '__ACTION1__',
43878                                                                                                'lookahead' => 0,
43879                                                                                                'line' => 75,
43880                                                                                                'code' => '{
43881     $return = {
43882         name   => $item{view_name}{name},
43883         sql    => $item{SQL_procedure_statement},
43884         with   => $item{\'with_expression(?)\'},
43885         fields => $item{\'column_list(?)\'}
43886     };
43887     push @views, $return;
43888 }'
43889                                                                                              }, 'Parse::RecDescent::Action' )
43890                                                                                     ],
43891                                                                          'line' => undef
43892                                                                        }, 'Parse::RecDescent::Production' )
43893                                                               ],
43894                                                    'name' => 'create',
43895                                                    'vars' => '',
43896                                                    'line' => 36
43897                                                  }, 'Parse::RecDescent::Rule' ),
43898                               'sysfun' => bless( {
43899                                                    'impcount' => 0,
43900                                                    'calls' => [
43901                                                                 '_alternation_1_of_production_1_of_rule_sysfun',
43902                                                                 '_alternation_1_of_production_7_of_rule_sysfun',
43903                                                                 'I',
43904                                                                 '_alternation_1_of_production_53_of_rule_sysfun'
43905                                                               ],
43906                                                    'changed' => 0,
43907                                                    'opcount' => 0,
43908                                                    'prods' => [
43909                                                                 bless( {
43910                                                                          'number' => '0',
43911                                                                          'strcount' => 0,
43912                                                                          'dircount' => 0,
43913                                                                          'uncommit' => undef,
43914                                                                          'error' => undef,
43915                                                                          'patcount' => 0,
43916                                                                          'actcount' => 0,
43917                                                                          'items' => [
43918                                                                                       bless( {
43919                                                                                                'subrule' => '_alternation_1_of_production_1_of_rule_sysfun',
43920                                                                                                'matchrule' => 0,
43921                                                                                                'implicit' => '/ABS/i, or /ABSVAL/i',
43922                                                                                                'argcode' => undef,
43923                                                                                                'lookahead' => 0,
43924                                                                                                'line' => 421
43925                                                                                              }, 'Parse::RecDescent::Subrule' )
43926                                                                                     ],
43927                                                                          'line' => undef
43928                                                                        }, 'Parse::RecDescent::Production' ),
43929                                                                 bless( {
43930                                                                          'number' => '1',
43931                                                                          'strcount' => 0,
43932                                                                          'dircount' => 0,
43933                                                                          'uncommit' => undef,
43934                                                                          'error' => undef,
43935                                                                          'patcount' => 1,
43936                                                                          'actcount' => 0,
43937                                                                          'items' => [
43938                                                                                       bless( {
43939                                                                                                'pattern' => 'ACOS',
43940                                                                                                'hashname' => '__PATTERN1__',
43941                                                                                                'description' => '/ACOS/i',
43942                                                                                                'lookahead' => 0,
43943                                                                                                'rdelim' => '/',
43944                                                                                                'line' => 422,
43945                                                                                                'mod' => 'i',
43946                                                                                                'ldelim' => '/'
43947                                                                                              }, 'Parse::RecDescent::Token' )
43948                                                                                     ],
43949                                                                          'line' => 422
43950                                                                        }, 'Parse::RecDescent::Production' ),
43951                                                                 bless( {
43952                                                                          'number' => '2',
43953                                                                          'strcount' => 0,
43954                                                                          'dircount' => 0,
43955                                                                          'uncommit' => undef,
43956                                                                          'error' => undef,
43957                                                                          'patcount' => 1,
43958                                                                          'actcount' => 0,
43959                                                                          'items' => [
43960                                                                                       bless( {
43961                                                                                                'pattern' => 'ASCII',
43962                                                                                                'hashname' => '__PATTERN1__',
43963                                                                                                'description' => '/ASCII/i',
43964                                                                                                'lookahead' => 0,
43965                                                                                                'rdelim' => '/',
43966                                                                                                'line' => 423,
43967                                                                                                'mod' => 'i',
43968                                                                                                'ldelim' => '/'
43969                                                                                              }, 'Parse::RecDescent::Token' )
43970                                                                                     ],
43971                                                                          'line' => 423
43972                                                                        }, 'Parse::RecDescent::Production' ),
43973                                                                 bless( {
43974                                                                          'number' => '3',
43975                                                                          'strcount' => 0,
43976                                                                          'dircount' => 0,
43977                                                                          'uncommit' => undef,
43978                                                                          'error' => undef,
43979                                                                          'patcount' => 1,
43980                                                                          'actcount' => 0,
43981                                                                          'items' => [
43982                                                                                       bless( {
43983                                                                                                'pattern' => 'ASIN',
43984                                                                                                'hashname' => '__PATTERN1__',
43985                                                                                                'description' => '/ASIN/i',
43986                                                                                                'lookahead' => 0,
43987                                                                                                'rdelim' => '/',
43988                                                                                                'line' => 424,
43989                                                                                                'mod' => 'i',
43990                                                                                                'ldelim' => '/'
43991                                                                                              }, 'Parse::RecDescent::Token' )
43992                                                                                     ],
43993                                                                          'line' => 424
43994                                                                        }, 'Parse::RecDescent::Production' ),
43995                                                                 bless( {
43996                                                                          'number' => '4',
43997                                                                          'strcount' => 0,
43998                                                                          'dircount' => 0,
43999                                                                          'uncommit' => undef,
44000                                                                          'error' => undef,
44001                                                                          'patcount' => 1,
44002                                                                          'actcount' => 0,
44003                                                                          'items' => [
44004                                                                                       bless( {
44005                                                                                                'pattern' => 'ATAN',
44006                                                                                                'hashname' => '__PATTERN1__',
44007                                                                                                'description' => '/ATAN/i',
44008                                                                                                'lookahead' => 0,
44009                                                                                                'rdelim' => '/',
44010                                                                                                'line' => 425,
44011                                                                                                'mod' => 'i',
44012                                                                                                'ldelim' => '/'
44013                                                                                              }, 'Parse::RecDescent::Token' )
44014                                                                                     ],
44015                                                                          'line' => 425
44016                                                                        }, 'Parse::RecDescent::Production' ),
44017                                                                 bless( {
44018                                                                          'number' => '5',
44019                                                                          'strcount' => 0,
44020                                                                          'dircount' => 0,
44021                                                                          'uncommit' => undef,
44022                                                                          'error' => undef,
44023                                                                          'patcount' => 1,
44024                                                                          'actcount' => 0,
44025                                                                          'items' => [
44026                                                                                       bless( {
44027                                                                                                'pattern' => 'ATAN2',
44028                                                                                                'hashname' => '__PATTERN1__',
44029                                                                                                'description' => '/ATAN2/i',
44030                                                                                                'lookahead' => 0,
44031                                                                                                'rdelim' => '/',
44032                                                                                                'line' => 426,
44033                                                                                                'mod' => 'i',
44034                                                                                                'ldelim' => '/'
44035                                                                                              }, 'Parse::RecDescent::Token' )
44036                                                                                     ],
44037                                                                          'line' => 426
44038                                                                        }, 'Parse::RecDescent::Production' ),
44039                                                                 bless( {
44040                                                                          'number' => '6',
44041                                                                          'strcount' => 0,
44042                                                                          'dircount' => 0,
44043                                                                          'uncommit' => undef,
44044                                                                          'error' => undef,
44045                                                                          'patcount' => 0,
44046                                                                          'actcount' => 0,
44047                                                                          'items' => [
44048                                                                                       bless( {
44049                                                                                                'subrule' => '_alternation_1_of_production_7_of_rule_sysfun',
44050                                                                                                'matchrule' => 0,
44051                                                                                                'implicit' => '/CEIL/i, or /CEILING/i',
44052                                                                                                'argcode' => undef,
44053                                                                                                'lookahead' => 0,
44054                                                                                                'line' => 427
44055                                                                                              }, 'Parse::RecDescent::Subrule' )
44056                                                                                     ],
44057                                                                          'line' => 427
44058                                                                        }, 'Parse::RecDescent::Production' ),
44059                                                                 bless( {
44060                                                                          'number' => '7',
44061                                                                          'strcount' => 0,
44062                                                                          'dircount' => 0,
44063                                                                          'uncommit' => undef,
44064                                                                          'error' => undef,
44065                                                                          'patcount' => 1,
44066                                                                          'actcount' => 0,
44067                                                                          'items' => [
44068                                                                                       bless( {
44069                                                                                                'pattern' => 'CHAR',
44070                                                                                                'hashname' => '__PATTERN1__',
44071                                                                                                'description' => '/CHAR/i',
44072                                                                                                'lookahead' => 0,
44073                                                                                                'rdelim' => '/',
44074                                                                                                'line' => 428,
44075                                                                                                'mod' => 'i',
44076                                                                                                'ldelim' => '/'
44077                                                                                              }, 'Parse::RecDescent::Token' )
44078                                                                                     ],
44079                                                                          'line' => 428
44080                                                                        }, 'Parse::RecDescent::Production' ),
44081                                                                 bless( {
44082                                                                          'number' => '8',
44083                                                                          'strcount' => 0,
44084                                                                          'dircount' => 0,
44085                                                                          'uncommit' => undef,
44086                                                                          'error' => undef,
44087                                                                          'patcount' => 1,
44088                                                                          'actcount' => 0,
44089                                                                          'items' => [
44090                                                                                       bless( {
44091                                                                                                'pattern' => 'CHR',
44092                                                                                                'hashname' => '__PATTERN1__',
44093                                                                                                'description' => '/CHR/i',
44094                                                                                                'lookahead' => 0,
44095                                                                                                'rdelim' => '/',
44096                                                                                                'line' => 429,
44097                                                                                                'mod' => 'i',
44098                                                                                                'ldelim' => '/'
44099                                                                                              }, 'Parse::RecDescent::Token' )
44100                                                                                     ],
44101                                                                          'line' => 429
44102                                                                        }, 'Parse::RecDescent::Production' ),
44103                                                                 bless( {
44104                                                                          'number' => '9',
44105                                                                          'strcount' => 0,
44106                                                                          'dircount' => 0,
44107                                                                          'uncommit' => undef,
44108                                                                          'error' => undef,
44109                                                                          'patcount' => 1,
44110                                                                          'actcount' => 0,
44111                                                                          'items' => [
44112                                                                                       bless( {
44113                                                                                                'pattern' => 'COS',
44114                                                                                                'hashname' => '__PATTERN1__',
44115                                                                                                'description' => '/COS/i',
44116                                                                                                'lookahead' => 0,
44117                                                                                                'rdelim' => '/',
44118                                                                                                'line' => 430,
44119                                                                                                'mod' => 'i',
44120                                                                                                'ldelim' => '/'
44121                                                                                              }, 'Parse::RecDescent::Token' )
44122                                                                                     ],
44123                                                                          'line' => 430
44124                                                                        }, 'Parse::RecDescent::Production' ),
44125                                                                 bless( {
44126                                                                          'number' => '10',
44127                                                                          'strcount' => 0,
44128                                                                          'dircount' => 0,
44129                                                                          'uncommit' => undef,
44130                                                                          'error' => undef,
44131                                                                          'patcount' => 1,
44132                                                                          'actcount' => 0,
44133                                                                          'items' => [
44134                                                                                       bless( {
44135                                                                                                'pattern' => 'COT',
44136                                                                                                'hashname' => '__PATTERN1__',
44137                                                                                                'description' => '/COT/i',
44138                                                                                                'lookahead' => 0,
44139                                                                                                'rdelim' => '/',
44140                                                                                                'line' => 431,
44141                                                                                                'mod' => 'i',
44142                                                                                                'ldelim' => '/'
44143                                                                                              }, 'Parse::RecDescent::Token' )
44144                                                                                     ],
44145                                                                          'line' => 431
44146                                                                        }, 'Parse::RecDescent::Production' ),
44147                                                                 bless( {
44148                                                                          'number' => '11',
44149                                                                          'strcount' => 0,
44150                                                                          'dircount' => 0,
44151                                                                          'uncommit' => undef,
44152                                                                          'error' => undef,
44153                                                                          'patcount' => 1,
44154                                                                          'actcount' => 0,
44155                                                                          'items' => [
44156                                                                                       bless( {
44157                                                                                                'pattern' => 'DAYNAME',
44158                                                                                                'hashname' => '__PATTERN1__',
44159                                                                                                'description' => '/DAYNAME/i',
44160                                                                                                'lookahead' => 0,
44161                                                                                                'rdelim' => '/',
44162                                                                                                'line' => 432,
44163                                                                                                'mod' => 'i',
44164                                                                                                'ldelim' => '/'
44165                                                                                              }, 'Parse::RecDescent::Token' )
44166                                                                                     ],
44167                                                                          'line' => 432
44168                                                                        }, 'Parse::RecDescent::Production' ),
44169                                                                 bless( {
44170                                                                          'number' => '12',
44171                                                                          'strcount' => 0,
44172                                                                          'dircount' => 0,
44173                                                                          'uncommit' => undef,
44174                                                                          'error' => undef,
44175                                                                          'patcount' => 1,
44176                                                                          'actcount' => 0,
44177                                                                          'items' => [
44178                                                                                       bless( {
44179                                                                                                'pattern' => 'DAYOFWEEK',
44180                                                                                                'hashname' => '__PATTERN1__',
44181                                                                                                'description' => '/DAYOFWEEK/i',
44182                                                                                                'lookahead' => 0,
44183                                                                                                'rdelim' => '/',
44184                                                                                                'line' => 433,
44185                                                                                                'mod' => 'i',
44186                                                                                                'ldelim' => '/'
44187                                                                                              }, 'Parse::RecDescent::Token' )
44188                                                                                     ],
44189                                                                          'line' => 433
44190                                                                        }, 'Parse::RecDescent::Production' ),
44191                                                                 bless( {
44192                                                                          'number' => '13',
44193                                                                          'strcount' => 0,
44194                                                                          'dircount' => 0,
44195                                                                          'uncommit' => undef,
44196                                                                          'error' => undef,
44197                                                                          'patcount' => 1,
44198                                                                          'actcount' => 0,
44199                                                                          'items' => [
44200                                                                                       bless( {
44201                                                                                                'pattern' => 'DAYOFWEEK_ISO',
44202                                                                                                'hashname' => '__PATTERN1__',
44203                                                                                                'description' => '/DAYOFWEEK_ISO/i',
44204                                                                                                'lookahead' => 0,
44205                                                                                                'rdelim' => '/',
44206                                                                                                'line' => 434,
44207                                                                                                'mod' => 'i',
44208                                                                                                'ldelim' => '/'
44209                                                                                              }, 'Parse::RecDescent::Token' )
44210                                                                                     ],
44211                                                                          'line' => 434
44212                                                                        }, 'Parse::RecDescent::Production' ),
44213                                                                 bless( {
44214                                                                          'number' => '14',
44215                                                                          'strcount' => 0,
44216                                                                          'dircount' => 0,
44217                                                                          'uncommit' => undef,
44218                                                                          'error' => undef,
44219                                                                          'patcount' => 1,
44220                                                                          'actcount' => 0,
44221                                                                          'items' => [
44222                                                                                       bless( {
44223                                                                                                'pattern' => 'DAYOFYEAR',
44224                                                                                                'hashname' => '__PATTERN1__',
44225                                                                                                'description' => '/DAYOFYEAR/i',
44226                                                                                                'lookahead' => 0,
44227                                                                                                'rdelim' => '/',
44228                                                                                                'line' => 435,
44229                                                                                                'mod' => 'i',
44230                                                                                                'ldelim' => '/'
44231                                                                                              }, 'Parse::RecDescent::Token' )
44232                                                                                     ],
44233                                                                          'line' => 435
44234                                                                        }, 'Parse::RecDescent::Production' ),
44235                                                                 bless( {
44236                                                                          'number' => '15',
44237                                                                          'strcount' => 0,
44238                                                                          'dircount' => 0,
44239                                                                          'uncommit' => undef,
44240                                                                          'error' => undef,
44241                                                                          'patcount' => 1,
44242                                                                          'actcount' => 0,
44243                                                                          'items' => [
44244                                                                                       bless( {
44245                                                                                                'pattern' => 'DEGREES',
44246                                                                                                'hashname' => '__PATTERN1__',
44247                                                                                                'description' => '/DEGREES/i',
44248                                                                                                'lookahead' => 0,
44249                                                                                                'rdelim' => '/',
44250                                                                                                'line' => 436,
44251                                                                                                'mod' => 'i',
44252                                                                                                'ldelim' => '/'
44253                                                                                              }, 'Parse::RecDescent::Token' )
44254                                                                                     ],
44255                                                                          'line' => 436
44256                                                                        }, 'Parse::RecDescent::Production' ),
44257                                                                 bless( {
44258                                                                          'number' => '16',
44259                                                                          'strcount' => 0,
44260                                                                          'dircount' => 0,
44261                                                                          'uncommit' => undef,
44262                                                                          'error' => undef,
44263                                                                          'patcount' => 1,
44264                                                                          'actcount' => 0,
44265                                                                          'items' => [
44266                                                                                       bless( {
44267                                                                                                'pattern' => 'DIFFERENCE',
44268                                                                                                'hashname' => '__PATTERN1__',
44269                                                                                                'description' => '/DIFFERENCE/i',
44270                                                                                                'lookahead' => 0,
44271                                                                                                'rdelim' => '/',
44272                                                                                                'line' => 437,
44273                                                                                                'mod' => 'i',
44274                                                                                                'ldelim' => '/'
44275                                                                                              }, 'Parse::RecDescent::Token' )
44276                                                                                     ],
44277                                                                          'line' => 437
44278                                                                        }, 'Parse::RecDescent::Production' ),
44279                                                                 bless( {
44280                                                                          'number' => '17',
44281                                                                          'strcount' => 0,
44282                                                                          'dircount' => 0,
44283                                                                          'uncommit' => undef,
44284                                                                          'error' => undef,
44285                                                                          'patcount' => 1,
44286                                                                          'actcount' => 0,
44287                                                                          'items' => [
44288                                                                                       bless( {
44289                                                                                                'pattern' => 'DOUBLE',
44290                                                                                                'hashname' => '__PATTERN1__',
44291                                                                                                'description' => '/DOUBLE/i',
44292                                                                                                'lookahead' => 0,
44293                                                                                                'rdelim' => '/',
44294                                                                                                'line' => 438,
44295                                                                                                'mod' => 'i',
44296                                                                                                'ldelim' => '/'
44297                                                                                              }, 'Parse::RecDescent::Token' )
44298                                                                                     ],
44299                                                                          'line' => 438
44300                                                                        }, 'Parse::RecDescent::Production' ),
44301                                                                 bless( {
44302                                                                          'number' => '18',
44303                                                                          'strcount' => 0,
44304                                                                          'dircount' => 0,
44305                                                                          'uncommit' => undef,
44306                                                                          'error' => undef,
44307                                                                          'patcount' => 1,
44308                                                                          'actcount' => 0,
44309                                                                          'items' => [
44310                                                                                       bless( {
44311                                                                                                'pattern' => 'EXP',
44312                                                                                                'hashname' => '__PATTERN1__',
44313                                                                                                'description' => '/EXP/i',
44314                                                                                                'lookahead' => 0,
44315                                                                                                'rdelim' => '/',
44316                                                                                                'line' => 439,
44317                                                                                                'mod' => 'i',
44318                                                                                                'ldelim' => '/'
44319                                                                                              }, 'Parse::RecDescent::Token' )
44320                                                                                     ],
44321                                                                          'line' => 439
44322                                                                        }, 'Parse::RecDescent::Production' ),
44323                                                                 bless( {
44324                                                                          'number' => '19',
44325                                                                          'strcount' => 0,
44326                                                                          'dircount' => 0,
44327                                                                          'uncommit' => undef,
44328                                                                          'error' => undef,
44329                                                                          'patcount' => 1,
44330                                                                          'actcount' => 0,
44331                                                                          'items' => [
44332                                                                                       bless( {
44333                                                                                                'pattern' => 'FLOOR',
44334                                                                                                'hashname' => '__PATTERN1__',
44335                                                                                                'description' => '/FLOOR/i',
44336                                                                                                'lookahead' => 0,
44337                                                                                                'rdelim' => '/',
44338                                                                                                'line' => 440,
44339                                                                                                'mod' => 'i',
44340                                                                                                'ldelim' => '/'
44341                                                                                              }, 'Parse::RecDescent::Token' )
44342                                                                                     ],
44343                                                                          'line' => 440
44344                                                                        }, 'Parse::RecDescent::Production' ),
44345                                                                 bless( {
44346                                                                          'number' => '20',
44347                                                                          'strcount' => 0,
44348                                                                          'dircount' => 0,
44349                                                                          'uncommit' => undef,
44350                                                                          'error' => undef,
44351                                                                          'patcount' => 1,
44352                                                                          'actcount' => 0,
44353                                                                          'items' => [
44354                                                                                       bless( {
44355                                                                                                'pattern' => 'GET_ROUTINE_SAR',
44356                                                                                                'hashname' => '__PATTERN1__',
44357                                                                                                'description' => '/GET_ROUTINE_SAR/i',
44358                                                                                                'lookahead' => 0,
44359                                                                                                'rdelim' => '/',
44360                                                                                                'line' => 441,
44361                                                                                                'mod' => 'i',
44362                                                                                                'ldelim' => '/'
44363                                                                                              }, 'Parse::RecDescent::Token' )
44364                                                                                     ],
44365                                                                          'line' => 441
44366                                                                        }, 'Parse::RecDescent::Production' ),
44367                                                                 bless( {
44368                                                                          'number' => '21',
44369                                                                          'strcount' => 0,
44370                                                                          'dircount' => 0,
44371                                                                          'uncommit' => undef,
44372                                                                          'error' => undef,
44373                                                                          'patcount' => 1,
44374                                                                          'actcount' => 0,
44375                                                                          'items' => [
44376                                                                                       bless( {
44377                                                                                                'pattern' => 'INSERT',
44378                                                                                                'hashname' => '__PATTERN1__',
44379                                                                                                'description' => '/INSERT/i',
44380                                                                                                'lookahead' => 0,
44381                                                                                                'rdelim' => '/',
44382                                                                                                'line' => 442,
44383                                                                                                'mod' => 'i',
44384                                                                                                'ldelim' => '/'
44385                                                                                              }, 'Parse::RecDescent::Token' )
44386                                                                                     ],
44387                                                                          'line' => 442
44388                                                                        }, 'Parse::RecDescent::Production' ),
44389                                                                 bless( {
44390                                                                          'number' => '22',
44391                                                                          'strcount' => 0,
44392                                                                          'dircount' => 0,
44393                                                                          'uncommit' => undef,
44394                                                                          'error' => undef,
44395                                                                          'patcount' => 1,
44396                                                                          'actcount' => 0,
44397                                                                          'items' => [
44398                                                                                       bless( {
44399                                                                                                'pattern' => 'JULIAN_DAY',
44400                                                                                                'hashname' => '__PATTERN1__',
44401                                                                                                'description' => '/JULIAN_DAY/i',
44402                                                                                                'lookahead' => 0,
44403                                                                                                'rdelim' => '/',
44404                                                                                                'line' => 443,
44405                                                                                                'mod' => 'i',
44406                                                                                                'ldelim' => '/'
44407                                                                                              }, 'Parse::RecDescent::Token' )
44408                                                                                     ],
44409                                                                          'line' => 443
44410                                                                        }, 'Parse::RecDescent::Production' ),
44411                                                                 bless( {
44412                                                                          'number' => '23',
44413                                                                          'strcount' => 0,
44414                                                                          'dircount' => 0,
44415                                                                          'uncommit' => undef,
44416                                                                          'error' => undef,
44417                                                                          'patcount' => 1,
44418                                                                          'actcount' => 0,
44419                                                                          'items' => [
44420                                                                                       bless( {
44421                                                                                                'pattern' => 'LCASE',
44422                                                                                                'hashname' => '__PATTERN1__',
44423                                                                                                'description' => '/LCASE/i',
44424                                                                                                'lookahead' => 0,
44425                                                                                                'rdelim' => '/',
44426                                                                                                'line' => 444,
44427                                                                                                'mod' => 'i',
44428                                                                                                'ldelim' => '/'
44429                                                                                              }, 'Parse::RecDescent::Token' )
44430                                                                                     ],
44431                                                                          'line' => 444
44432                                                                        }, 'Parse::RecDescent::Production' ),
44433                                                                 bless( {
44434                                                                          'number' => '24',
44435                                                                          'strcount' => 0,
44436                                                                          'dircount' => 0,
44437                                                                          'uncommit' => undef,
44438                                                                          'error' => undef,
44439                                                                          'patcount' => 1,
44440                                                                          'actcount' => 0,
44441                                                                          'items' => [
44442                                                                                       bless( {
44443                                                                                                'pattern' => 'LEFT',
44444                                                                                                'hashname' => '__PATTERN1__',
44445                                                                                                'description' => '/LEFT/i',
44446                                                                                                'lookahead' => 0,
44447                                                                                                'rdelim' => '/',
44448                                                                                                'line' => 445,
44449                                                                                                'mod' => 'i',
44450                                                                                                'ldelim' => '/'
44451                                                                                              }, 'Parse::RecDescent::Token' )
44452                                                                                     ],
44453                                                                          'line' => 445
44454                                                                        }, 'Parse::RecDescent::Production' ),
44455                                                                 bless( {
44456                                                                          'number' => '25',
44457                                                                          'strcount' => 0,
44458                                                                          'dircount' => 0,
44459                                                                          'uncommit' => undef,
44460                                                                          'error' => undef,
44461                                                                          'patcount' => 1,
44462                                                                          'actcount' => 0,
44463                                                                          'items' => [
44464                                                                                       bless( {
44465                                                                                                'pattern' => 'LN',
44466                                                                                                'hashname' => '__PATTERN1__',
44467                                                                                                'description' => '/LN/i',
44468                                                                                                'lookahead' => 0,
44469                                                                                                'rdelim' => '/',
44470                                                                                                'line' => 446,
44471                                                                                                'mod' => 'i',
44472                                                                                                'ldelim' => '/'
44473                                                                                              }, 'Parse::RecDescent::Token' )
44474                                                                                     ],
44475                                                                          'line' => 446
44476                                                                        }, 'Parse::RecDescent::Production' ),
44477                                                                 bless( {
44478                                                                          'number' => '26',
44479                                                                          'strcount' => 0,
44480                                                                          'dircount' => 0,
44481                                                                          'uncommit' => undef,
44482                                                                          'error' => undef,
44483                                                                          'patcount' => 1,
44484                                                                          'actcount' => 0,
44485                                                                          'items' => [
44486                                                                                       bless( {
44487                                                                                                'pattern' => 'LOCATE',
44488                                                                                                'hashname' => '__PATTERN1__',
44489                                                                                                'description' => '/LOCATE/i',
44490                                                                                                'lookahead' => 0,
44491                                                                                                'rdelim' => '/',
44492                                                                                                'line' => 447,
44493                                                                                                'mod' => 'i',
44494                                                                                                'ldelim' => '/'
44495                                                                                              }, 'Parse::RecDescent::Token' )
44496                                                                                     ],
44497                                                                          'line' => 447
44498                                                                        }, 'Parse::RecDescent::Production' ),
44499                                                                 bless( {
44500                                                                          'number' => '27',
44501                                                                          'strcount' => 0,
44502                                                                          'dircount' => 0,
44503                                                                          'uncommit' => undef,
44504                                                                          'error' => undef,
44505                                                                          'patcount' => 1,
44506                                                                          'actcount' => 0,
44507                                                                          'items' => [
44508                                                                                       bless( {
44509                                                                                                'pattern' => 'LOG',
44510                                                                                                'hashname' => '__PATTERN1__',
44511                                                                                                'description' => '/LOG/i',
44512                                                                                                'lookahead' => 0,
44513                                                                                                'rdelim' => '/',
44514                                                                                                'line' => 448,
44515                                                                                                'mod' => 'i',
44516                                                                                                'ldelim' => '/'
44517                                                                                              }, 'Parse::RecDescent::Token' )
44518                                                                                     ],
44519                                                                          'line' => 448
44520                                                                        }, 'Parse::RecDescent::Production' ),
44521                                                                 bless( {
44522                                                                          'number' => '28',
44523                                                                          'strcount' => 0,
44524                                                                          'dircount' => 0,
44525                                                                          'uncommit' => undef,
44526                                                                          'error' => undef,
44527                                                                          'patcount' => 1,
44528                                                                          'actcount' => 0,
44529                                                                          'items' => [
44530                                                                                       bless( {
44531                                                                                                'pattern' => 'LOG10',
44532                                                                                                'hashname' => '__PATTERN1__',
44533                                                                                                'description' => '/LOG10/i',
44534                                                                                                'lookahead' => 0,
44535                                                                                                'rdelim' => '/',
44536                                                                                                'line' => 449,
44537                                                                                                'mod' => 'i',
44538                                                                                                'ldelim' => '/'
44539                                                                                              }, 'Parse::RecDescent::Token' )
44540                                                                                     ],
44541                                                                          'line' => 449
44542                                                                        }, 'Parse::RecDescent::Production' ),
44543                                                                 bless( {
44544                                                                          'number' => '29',
44545                                                                          'strcount' => 0,
44546                                                                          'dircount' => 0,
44547                                                                          'uncommit' => undef,
44548                                                                          'error' => undef,
44549                                                                          'patcount' => 1,
44550                                                                          'actcount' => 0,
44551                                                                          'items' => [
44552                                                                                       bless( {
44553                                                                                                'pattern' => 'LTRIM',
44554                                                                                                'hashname' => '__PATTERN1__',
44555                                                                                                'description' => '/LTRIM/i',
44556                                                                                                'lookahead' => 0,
44557                                                                                                'rdelim' => '/',
44558                                                                                                'line' => 450,
44559                                                                                                'mod' => 'i',
44560                                                                                                'ldelim' => '/'
44561                                                                                              }, 'Parse::RecDescent::Token' )
44562                                                                                     ],
44563                                                                          'line' => 450
44564                                                                        }, 'Parse::RecDescent::Production' ),
44565                                                                 bless( {
44566                                                                          'number' => '30',
44567                                                                          'strcount' => 0,
44568                                                                          'dircount' => 0,
44569                                                                          'uncommit' => undef,
44570                                                                          'error' => undef,
44571                                                                          'patcount' => 1,
44572                                                                          'actcount' => 0,
44573                                                                          'items' => [
44574                                                                                       bless( {
44575                                                                                                'pattern' => 'MIDNIGHT_SECONDS',
44576                                                                                                'hashname' => '__PATTERN1__',
44577                                                                                                'description' => '/MIDNIGHT_SECONDS/i',
44578                                                                                                'lookahead' => 0,
44579                                                                                                'rdelim' => '/',
44580                                                                                                'line' => 451,
44581                                                                                                'mod' => 'i',
44582                                                                                                'ldelim' => '/'
44583                                                                                              }, 'Parse::RecDescent::Token' )
44584                                                                                     ],
44585                                                                          'line' => 451
44586                                                                        }, 'Parse::RecDescent::Production' ),
44587                                                                 bless( {
44588                                                                          'number' => '31',
44589                                                                          'strcount' => 0,
44590                                                                          'dircount' => 0,
44591                                                                          'uncommit' => undef,
44592                                                                          'error' => undef,
44593                                                                          'patcount' => 1,
44594                                                                          'actcount' => 0,
44595                                                                          'items' => [
44596                                                                                       bless( {
44597                                                                                                'pattern' => 'MOD',
44598                                                                                                'hashname' => '__PATTERN1__',
44599                                                                                                'description' => '/MOD/i',
44600                                                                                                'lookahead' => 0,
44601                                                                                                'rdelim' => '/',
44602                                                                                                'line' => 452,
44603                                                                                                'mod' => 'i',
44604                                                                                                'ldelim' => '/'
44605                                                                                              }, 'Parse::RecDescent::Token' )
44606                                                                                     ],
44607                                                                          'line' => 452
44608                                                                        }, 'Parse::RecDescent::Production' ),
44609                                                                 bless( {
44610                                                                          'number' => '32',
44611                                                                          'strcount' => 0,
44612                                                                          'dircount' => 0,
44613                                                                          'uncommit' => undef,
44614                                                                          'error' => undef,
44615                                                                          'patcount' => 1,
44616                                                                          'actcount' => 0,
44617                                                                          'items' => [
44618                                                                                       bless( {
44619                                                                                                'pattern' => 'MONTHNAME',
44620                                                                                                'hashname' => '__PATTERN1__',
44621                                                                                                'description' => '/MONTHNAME/i',
44622                                                                                                'lookahead' => 0,
44623                                                                                                'rdelim' => '/',
44624                                                                                                'line' => 453,
44625                                                                                                'mod' => 'i',
44626                                                                                                'ldelim' => '/'
44627                                                                                              }, 'Parse::RecDescent::Token' )
44628                                                                                     ],
44629                                                                          'line' => 453
44630                                                                        }, 'Parse::RecDescent::Production' ),
44631                                                                 bless( {
44632                                                                          'number' => '33',
44633                                                                          'strcount' => 0,
44634                                                                          'dircount' => 0,
44635                                                                          'uncommit' => undef,
44636                                                                          'error' => undef,
44637                                                                          'patcount' => 1,
44638                                                                          'actcount' => 0,
44639                                                                          'items' => [
44640                                                                                       bless( {
44641                                                                                                'pattern' => 'POWER',
44642                                                                                                'hashname' => '__PATTERN1__',
44643                                                                                                'description' => '/POWER/i',
44644                                                                                                'lookahead' => 0,
44645                                                                                                'rdelim' => '/',
44646                                                                                                'line' => 454,
44647                                                                                                'mod' => 'i',
44648                                                                                                'ldelim' => '/'
44649                                                                                              }, 'Parse::RecDescent::Token' )
44650                                                                                     ],
44651                                                                          'line' => 454
44652                                                                        }, 'Parse::RecDescent::Production' ),
44653                                                                 bless( {
44654                                                                          'number' => '34',
44655                                                                          'strcount' => 0,
44656                                                                          'dircount' => 0,
44657                                                                          'uncommit' => undef,
44658                                                                          'error' => undef,
44659                                                                          'patcount' => 1,
44660                                                                          'actcount' => 0,
44661                                                                          'items' => [
44662                                                                                       bless( {
44663                                                                                                'pattern' => 'PUT_ROUTINE_SAR',
44664                                                                                                'hashname' => '__PATTERN1__',
44665                                                                                                'description' => '/PUT_ROUTINE_SAR/i',
44666                                                                                                'lookahead' => 0,
44667                                                                                                'rdelim' => '/',
44668                                                                                                'line' => 455,
44669                                                                                                'mod' => 'i',
44670                                                                                                'ldelim' => '/'
44671                                                                                              }, 'Parse::RecDescent::Token' )
44672                                                                                     ],
44673                                                                          'line' => 455
44674                                                                        }, 'Parse::RecDescent::Production' ),
44675                                                                 bless( {
44676                                                                          'number' => '35',
44677                                                                          'strcount' => 0,
44678                                                                          'dircount' => 0,
44679                                                                          'uncommit' => undef,
44680                                                                          'error' => undef,
44681                                                                          'patcount' => 1,
44682                                                                          'actcount' => 0,
44683                                                                          'items' => [
44684                                                                                       bless( {
44685                                                                                                'pattern' => 'QUARTER',
44686                                                                                                'hashname' => '__PATTERN1__',
44687                                                                                                'description' => '/QUARTER/i',
44688                                                                                                'lookahead' => 0,
44689                                                                                                'rdelim' => '/',
44690                                                                                                'line' => 456,
44691                                                                                                'mod' => 'i',
44692                                                                                                'ldelim' => '/'
44693                                                                                              }, 'Parse::RecDescent::Token' )
44694                                                                                     ],
44695                                                                          'line' => 456
44696                                                                        }, 'Parse::RecDescent::Production' ),
44697                                                                 bless( {
44698                                                                          'number' => '36',
44699                                                                          'strcount' => 0,
44700                                                                          'dircount' => 0,
44701                                                                          'uncommit' => undef,
44702                                                                          'error' => undef,
44703                                                                          'patcount' => 1,
44704                                                                          'actcount' => 0,
44705                                                                          'items' => [
44706                                                                                       bless( {
44707                                                                                                'pattern' => 'RADIANS',
44708                                                                                                'hashname' => '__PATTERN1__',
44709                                                                                                'description' => '/RADIANS/i',
44710                                                                                                'lookahead' => 0,
44711                                                                                                'rdelim' => '/',
44712                                                                                                'line' => 457,
44713                                                                                                'mod' => 'i',
44714                                                                                                'ldelim' => '/'
44715                                                                                              }, 'Parse::RecDescent::Token' )
44716                                                                                     ],
44717                                                                          'line' => 457
44718                                                                        }, 'Parse::RecDescent::Production' ),
44719                                                                 bless( {
44720                                                                          'number' => '37',
44721                                                                          'strcount' => 0,
44722                                                                          'dircount' => 0,
44723                                                                          'uncommit' => undef,
44724                                                                          'error' => undef,
44725                                                                          'patcount' => 1,
44726                                                                          'actcount' => 0,
44727                                                                          'items' => [
44728                                                                                       bless( {
44729                                                                                                'pattern' => 'RAND',
44730                                                                                                'hashname' => '__PATTERN1__',
44731                                                                                                'description' => '/RAND/i',
44732                                                                                                'lookahead' => 0,
44733                                                                                                'rdelim' => '/',
44734                                                                                                'line' => 458,
44735                                                                                                'mod' => 'i',
44736                                                                                                'ldelim' => '/'
44737                                                                                              }, 'Parse::RecDescent::Token' )
44738                                                                                     ],
44739                                                                          'line' => 458
44740                                                                        }, 'Parse::RecDescent::Production' ),
44741                                                                 bless( {
44742                                                                          'number' => '38',
44743                                                                          'strcount' => 0,
44744                                                                          'dircount' => 0,
44745                                                                          'uncommit' => undef,
44746                                                                          'error' => undef,
44747                                                                          'patcount' => 1,
44748                                                                          'actcount' => 0,
44749                                                                          'items' => [
44750                                                                                       bless( {
44751                                                                                                'pattern' => 'REPEAT',
44752                                                                                                'hashname' => '__PATTERN1__',
44753                                                                                                'description' => '/REPEAT/i',
44754                                                                                                'lookahead' => 0,
44755                                                                                                'rdelim' => '/',
44756                                                                                                'line' => 459,
44757                                                                                                'mod' => 'i',
44758                                                                                                'ldelim' => '/'
44759                                                                                              }, 'Parse::RecDescent::Token' )
44760                                                                                     ],
44761                                                                          'line' => 459
44762                                                                        }, 'Parse::RecDescent::Production' ),
44763                                                                 bless( {
44764                                                                          'number' => '39',
44765                                                                          'strcount' => 0,
44766                                                                          'dircount' => 0,
44767                                                                          'uncommit' => undef,
44768                                                                          'error' => undef,
44769                                                                          'patcount' => 1,
44770                                                                          'actcount' => 0,
44771                                                                          'items' => [
44772                                                                                       bless( {
44773                                                                                                'pattern' => 'REPLACE',
44774                                                                                                'hashname' => '__PATTERN1__',
44775                                                                                                'description' => '/REPLACE/i',
44776                                                                                                'lookahead' => 0,
44777                                                                                                'rdelim' => '/',
44778                                                                                                'line' => 460,
44779                                                                                                'mod' => 'i',
44780                                                                                                'ldelim' => '/'
44781                                                                                              }, 'Parse::RecDescent::Token' )
44782                                                                                     ],
44783                                                                          'line' => 460
44784                                                                        }, 'Parse::RecDescent::Production' ),
44785                                                                 bless( {
44786                                                                          'number' => '40',
44787                                                                          'strcount' => 0,
44788                                                                          'dircount' => 0,
44789                                                                          'uncommit' => undef,
44790                                                                          'error' => undef,
44791                                                                          'patcount' => 1,
44792                                                                          'actcount' => 0,
44793                                                                          'items' => [
44794                                                                                       bless( {
44795                                                                                                'pattern' => 'RIGHT',
44796                                                                                                'hashname' => '__PATTERN1__',
44797                                                                                                'description' => '/RIGHT/i',
44798                                                                                                'lookahead' => 0,
44799                                                                                                'rdelim' => '/',
44800                                                                                                'line' => 461,
44801                                                                                                'mod' => 'i',
44802                                                                                                'ldelim' => '/'
44803                                                                                              }, 'Parse::RecDescent::Token' )
44804                                                                                     ],
44805                                                                          'line' => 461
44806                                                                        }, 'Parse::RecDescent::Production' ),
44807                                                                 bless( {
44808                                                                          'number' => '41',
44809                                                                          'strcount' => 0,
44810                                                                          'dircount' => 0,
44811                                                                          'uncommit' => undef,
44812                                                                          'error' => undef,
44813                                                                          'patcount' => 1,
44814                                                                          'actcount' => 0,
44815                                                                          'items' => [
44816                                                                                       bless( {
44817                                                                                                'pattern' => 'ROUND',
44818                                                                                                'hashname' => '__PATTERN1__',
44819                                                                                                'description' => '/ROUND/i',
44820                                                                                                'lookahead' => 0,
44821                                                                                                'rdelim' => '/',
44822                                                                                                'line' => 462,
44823                                                                                                'mod' => 'i',
44824                                                                                                'ldelim' => '/'
44825                                                                                              }, 'Parse::RecDescent::Token' )
44826                                                                                     ],
44827                                                                          'line' => 462
44828                                                                        }, 'Parse::RecDescent::Production' ),
44829                                                                 bless( {
44830                                                                          'number' => '42',
44831                                                                          'strcount' => 0,
44832                                                                          'dircount' => 0,
44833                                                                          'uncommit' => undef,
44834                                                                          'error' => undef,
44835                                                                          'patcount' => 1,
44836                                                                          'actcount' => 0,
44837                                                                          'items' => [
44838                                                                                       bless( {
44839                                                                                                'pattern' => 'RTRIM',
44840                                                                                                'hashname' => '__PATTERN1__',
44841                                                                                                'description' => '/RTRIM/',
44842                                                                                                'lookahead' => 0,
44843                                                                                                'rdelim' => '/',
44844                                                                                                'line' => 463,
44845                                                                                                'mod' => '',
44846                                                                                                'ldelim' => '/'
44847                                                                                              }, 'Parse::RecDescent::Token' ),
44848                                                                                       bless( {
44849                                                                                                'subrule' => 'I',
44850                                                                                                'matchrule' => 0,
44851                                                                                                'implicit' => undef,
44852                                                                                                'argcode' => undef,
44853                                                                                                'lookahead' => 0,
44854                                                                                                'line' => 463
44855                                                                                              }, 'Parse::RecDescent::Subrule' )
44856                                                                                     ],
44857                                                                          'line' => 463
44858                                                                        }, 'Parse::RecDescent::Production' ),
44859                                                                 bless( {
44860                                                                          'number' => '43',
44861                                                                          'strcount' => 0,
44862                                                                          'dircount' => 0,
44863                                                                          'uncommit' => undef,
44864                                                                          'error' => undef,
44865                                                                          'patcount' => 1,
44866                                                                          'actcount' => 0,
44867                                                                          'items' => [
44868                                                                                       bless( {
44869                                                                                                'pattern' => 'SIGN',
44870                                                                                                'hashname' => '__PATTERN1__',
44871                                                                                                'description' => '/SIGN/i',
44872                                                                                                'lookahead' => 0,
44873                                                                                                'rdelim' => '/',
44874                                                                                                'line' => 464,
44875                                                                                                'mod' => 'i',
44876                                                                                                'ldelim' => '/'
44877                                                                                              }, 'Parse::RecDescent::Token' )
44878                                                                                     ],
44879                                                                          'line' => 464
44880                                                                        }, 'Parse::RecDescent::Production' ),
44881                                                                 bless( {
44882                                                                          'number' => '44',
44883                                                                          'strcount' => 0,
44884                                                                          'dircount' => 0,
44885                                                                          'uncommit' => undef,
44886                                                                          'error' => undef,
44887                                                                          'patcount' => 1,
44888                                                                          'actcount' => 0,
44889                                                                          'items' => [
44890                                                                                       bless( {
44891                                                                                                'pattern' => 'SIN',
44892                                                                                                'hashname' => '__PATTERN1__',
44893                                                                                                'description' => '/SIN/i',
44894                                                                                                'lookahead' => 0,
44895                                                                                                'rdelim' => '/',
44896                                                                                                'line' => 465,
44897                                                                                                'mod' => 'i',
44898                                                                                                'ldelim' => '/'
44899                                                                                              }, 'Parse::RecDescent::Token' )
44900                                                                                     ],
44901                                                                          'line' => 465
44902                                                                        }, 'Parse::RecDescent::Production' ),
44903                                                                 bless( {
44904                                                                          'number' => '45',
44905                                                                          'strcount' => 0,
44906                                                                          'dircount' => 0,
44907                                                                          'uncommit' => undef,
44908                                                                          'error' => undef,
44909                                                                          'patcount' => 1,
44910                                                                          'actcount' => 0,
44911                                                                          'items' => [
44912                                                                                       bless( {
44913                                                                                                'pattern' => 'SOUNDEX',
44914                                                                                                'hashname' => '__PATTERN1__',
44915                                                                                                'description' => '/SOUNDEX/i',
44916                                                                                                'lookahead' => 0,
44917                                                                                                'rdelim' => '/',
44918                                                                                                'line' => 466,
44919                                                                                                'mod' => 'i',
44920                                                                                                'ldelim' => '/'
44921                                                                                              }, 'Parse::RecDescent::Token' )
44922                                                                                     ],
44923                                                                          'line' => 466
44924                                                                        }, 'Parse::RecDescent::Production' ),
44925                                                                 bless( {
44926                                                                          'number' => '46',
44927                                                                          'strcount' => 0,
44928                                                                          'dircount' => 0,
44929                                                                          'uncommit' => undef,
44930                                                                          'error' => undef,
44931                                                                          'patcount' => 1,
44932                                                                          'actcount' => 0,
44933                                                                          'items' => [
44934                                                                                       bless( {
44935                                                                                                'pattern' => 'SPACE',
44936                                                                                                'hashname' => '__PATTERN1__',
44937                                                                                                'description' => '/SPACE/i',
44938                                                                                                'lookahead' => 0,
44939                                                                                                'rdelim' => '/',
44940                                                                                                'line' => 467,
44941                                                                                                'mod' => 'i',
44942                                                                                                'ldelim' => '/'
44943                                                                                              }, 'Parse::RecDescent::Token' )
44944                                                                                     ],
44945                                                                          'line' => 467
44946                                                                        }, 'Parse::RecDescent::Production' ),
44947                                                                 bless( {
44948                                                                          'number' => '47',
44949                                                                          'strcount' => 0,
44950                                                                          'dircount' => 0,
44951                                                                          'uncommit' => undef,
44952                                                                          'error' => undef,
44953                                                                          'patcount' => 1,
44954                                                                          'actcount' => 0,
44955                                                                          'items' => [
44956                                                                                       bless( {
44957                                                                                                'pattern' => 'SQLCACHE_SNAPSHOT',
44958                                                                                                'hashname' => '__PATTERN1__',
44959                                                                                                'description' => '/SQLCACHE_SNAPSHOT/i',
44960                                                                                                'lookahead' => 0,
44961                                                                                                'rdelim' => '/',
44962                                                                                                'line' => 468,
44963                                                                                                'mod' => 'i',
44964                                                                                                'ldelim' => '/'
44965                                                                                              }, 'Parse::RecDescent::Token' )
44966                                                                                     ],
44967                                                                          'line' => 468
44968                                                                        }, 'Parse::RecDescent::Production' ),
44969                                                                 bless( {
44970                                                                          'number' => '48',
44971                                                                          'strcount' => 0,
44972                                                                          'dircount' => 0,
44973                                                                          'uncommit' => undef,
44974                                                                          'error' => undef,
44975                                                                          'patcount' => 1,
44976                                                                          'actcount' => 0,
44977                                                                          'items' => [
44978                                                                                       bless( {
44979                                                                                                'pattern' => 'SQRT',
44980                                                                                                'hashname' => '__PATTERN1__',
44981                                                                                                'description' => '/SQRT/i',
44982                                                                                                'lookahead' => 0,
44983                                                                                                'rdelim' => '/',
44984                                                                                                'line' => 469,
44985                                                                                                'mod' => 'i',
44986                                                                                                'ldelim' => '/'
44987                                                                                              }, 'Parse::RecDescent::Token' )
44988                                                                                     ],
44989                                                                          'line' => 469
44990                                                                        }, 'Parse::RecDescent::Production' ),
44991                                                                 bless( {
44992                                                                          'number' => '49',
44993                                                                          'strcount' => 0,
44994                                                                          'dircount' => 0,
44995                                                                          'uncommit' => undef,
44996                                                                          'error' => undef,
44997                                                                          'patcount' => 1,
44998                                                                          'actcount' => 0,
44999                                                                          'items' => [
45000                                                                                       bless( {
45001                                                                                                'pattern' => 'TAN',
45002                                                                                                'hashname' => '__PATTERN1__',
45003                                                                                                'description' => '/TAN/i',
45004                                                                                                'lookahead' => 0,
45005                                                                                                'rdelim' => '/',
45006                                                                                                'line' => 470,
45007                                                                                                'mod' => 'i',
45008                                                                                                'ldelim' => '/'
45009                                                                                              }, 'Parse::RecDescent::Token' )
45010                                                                                     ],
45011                                                                          'line' => 470
45012                                                                        }, 'Parse::RecDescent::Production' ),
45013                                                                 bless( {
45014                                                                          'number' => '50',
45015                                                                          'strcount' => 0,
45016                                                                          'dircount' => 0,
45017                                                                          'uncommit' => undef,
45018                                                                          'error' => undef,
45019                                                                          'patcount' => 1,
45020                                                                          'actcount' => 0,
45021                                                                          'items' => [
45022                                                                                       bless( {
45023                                                                                                'pattern' => 'TIMESTAMP_ISO',
45024                                                                                                'hashname' => '__PATTERN1__',
45025                                                                                                'description' => '/TIMESTAMP_ISO/i',
45026                                                                                                'lookahead' => 0,
45027                                                                                                'rdelim' => '/',
45028                                                                                                'line' => 471,
45029                                                                                                'mod' => 'i',
45030                                                                                                'ldelim' => '/'
45031                                                                                              }, 'Parse::RecDescent::Token' )
45032                                                                                     ],
45033                                                                          'line' => 471
45034                                                                        }, 'Parse::RecDescent::Production' ),
45035                                                                 bless( {
45036                                                                          'number' => '51',
45037                                                                          'strcount' => 0,
45038                                                                          'dircount' => 0,
45039                                                                          'uncommit' => undef,
45040                                                                          'error' => undef,
45041                                                                          'patcount' => 1,
45042                                                                          'actcount' => 0,
45043                                                                          'items' => [
45044                                                                                       bless( {
45045                                                                                                'pattern' => 'TIMESTAMPDIFF',
45046                                                                                                'hashname' => '__PATTERN1__',
45047                                                                                                'description' => '/TIMESTAMPDIFF/i',
45048                                                                                                'lookahead' => 0,
45049                                                                                                'rdelim' => '/',
45050                                                                                                'line' => 472,
45051                                                                                                'mod' => 'i',
45052                                                                                                'ldelim' => '/'
45053                                                                                              }, 'Parse::RecDescent::Token' )
45054                                                                                     ],
45055                                                                          'line' => 472
45056                                                                        }, 'Parse::RecDescent::Production' ),
45057                                                                 bless( {
45058                                                                          'number' => '52',
45059                                                                          'strcount' => 0,
45060                                                                          'dircount' => 0,
45061                                                                          'uncommit' => undef,
45062                                                                          'error' => undef,
45063                                                                          'patcount' => 0,
45064                                                                          'actcount' => 0,
45065                                                                          'items' => [
45066                                                                                       bless( {
45067                                                                                                'subrule' => '_alternation_1_of_production_53_of_rule_sysfun',
45068                                                                                                'matchrule' => 0,
45069                                                                                                'implicit' => '/TRUNCATE/i, or /TRUNC/i',
45070                                                                                                'argcode' => undef,
45071                                                                                                'lookahead' => 0,
45072                                                                                                'line' => 473
45073                                                                                              }, 'Parse::RecDescent::Subrule' )
45074                                                                                     ],
45075                                                                          'line' => 473
45076                                                                        }, 'Parse::RecDescent::Production' ),
45077                                                                 bless( {
45078                                                                          'number' => '53',
45079                                                                          'strcount' => 0,
45080                                                                          'dircount' => 0,
45081                                                                          'uncommit' => undef,
45082                                                                          'error' => undef,
45083                                                                          'patcount' => 1,
45084                                                                          'actcount' => 0,
45085                                                                          'items' => [
45086                                                                                       bless( {
45087                                                                                                'pattern' => 'UCASE',
45088                                                                                                'hashname' => '__PATTERN1__',
45089                                                                                                'description' => '/UCASE/i',
45090                                                                                                'lookahead' => 0,
45091                                                                                                'rdelim' => '/',
45092                                                                                                'line' => 474,
45093                                                                                                'mod' => 'i',
45094                                                                                                'ldelim' => '/'
45095                                                                                              }, 'Parse::RecDescent::Token' )
45096                                                                                     ],
45097                                                                          'line' => 474
45098                                                                        }, 'Parse::RecDescent::Production' ),
45099                                                                 bless( {
45100                                                                          'number' => '54',
45101                                                                          'strcount' => 0,
45102                                                                          'dircount' => 0,
45103                                                                          'uncommit' => undef,
45104                                                                          'error' => undef,
45105                                                                          'patcount' => 1,
45106                                                                          'actcount' => 0,
45107                                                                          'items' => [
45108                                                                                       bless( {
45109                                                                                                'pattern' => 'WEEK',
45110                                                                                                'hashname' => '__PATTERN1__',
45111                                                                                                'description' => '/WEEK/i',
45112                                                                                                'lookahead' => 0,
45113                                                                                                'rdelim' => '/',
45114                                                                                                'line' => 475,
45115                                                                                                'mod' => 'i',
45116                                                                                                'ldelim' => '/'
45117                                                                                              }, 'Parse::RecDescent::Token' )
45118                                                                                     ],
45119                                                                          'line' => 475
45120                                                                        }, 'Parse::RecDescent::Production' ),
45121                                                                 bless( {
45122                                                                          'number' => '55',
45123                                                                          'strcount' => 0,
45124                                                                          'dircount' => 0,
45125                                                                          'uncommit' => undef,
45126                                                                          'error' => undef,
45127                                                                          'patcount' => 1,
45128                                                                          'actcount' => 0,
45129                                                                          'items' => [
45130                                                                                       bless( {
45131                                                                                                'pattern' => 'WEEK_ISO',
45132                                                                                                'hashname' => '__PATTERN1__',
45133                                                                                                'description' => '/WEEK_ISO/i',
45134                                                                                                'lookahead' => 0,
45135                                                                                                'rdelim' => '/',
45136                                                                                                'line' => 476,
45137                                                                                                'mod' => 'i',
45138                                                                                                'ldelim' => '/'
45139                                                                                              }, 'Parse::RecDescent::Token' )
45140                                                                                     ],
45141                                                                          'line' => 476
45142                                                                        }, 'Parse::RecDescent::Production' )
45143                                                               ],
45144                                                    'name' => 'sysfun',
45145                                                    'vars' => '',
45146                                                    'line' => 421
45147                                                  }, 'Parse::RecDescent::Rule' ),
45148                               '_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond' => bless( {
45149                                                                                                                                'impcount' => 0,
45150                                                                                                                                'calls' => [
45151                                                                                                                                             'numeric_constant'
45152                                                                                                                                           ],
45153                                                                                                                                'changed' => 0,
45154                                                                                                                                'opcount' => 0,
45155                                                                                                                                'prods' => [
45156                                                                                                                                             bless( {
45157                                                                                                                                                      'number' => '0',
45158                                                                                                                                                      'strcount' => 0,
45159                                                                                                                                                      'dircount' => 0,
45160                                                                                                                                                      'uncommit' => undef,
45161                                                                                                                                                      'error' => undef,
45162                                                                                                                                                      'patcount' => 1,
45163                                                                                                                                                      'actcount' => 0,
45164                                                                                                                                                      'items' => [
45165                                                                                                                                                                   bless( {
45166                                                                                                                                                                            'pattern' => 'SELECTIVITY',
45167                                                                                                                                                                            'hashname' => '__PATTERN1__',
45168                                                                                                                                                                            'description' => '/SELECTIVITY/i',
45169                                                                                                                                                                            'lookahead' => 0,
45170                                                                                                                                                                            'rdelim' => '/',
45171                                                                                                                                                                            'line' => 628,
45172                                                                                                                                                                            'mod' => 'i',
45173                                                                                                                                                                            'ldelim' => '/'
45174                                                                                                                                                                          }, 'Parse::RecDescent::Token' ),
45175                                                                                                                                                                   bless( {
45176                                                                                                                                                                            'subrule' => 'numeric_constant',
45177                                                                                                                                                                            'matchrule' => 0,
45178                                                                                                                                                                            'implicit' => undef,
45179                                                                                                                                                                            'argcode' => undef,
45180                                                                                                                                                                            'lookahead' => 0,
45181                                                                                                                                                                            'line' => 628
45182                                                                                                                                                                          }, 'Parse::RecDescent::Subrule' )
45183                                                                                                                                                                 ],
45184                                                                                                                                                      'line' => undef
45185                                                                                                                                                    }, 'Parse::RecDescent::Production' )
45186                                                                                                                                           ],
45187                                                                                                                                'name' => '_alternation_1_of_production_1_of_rule__alternation_2_of_production_1_of_rule_cond',
45188                                                                                                                                'vars' => '',
45189                                                                                                                                'line' => 628
45190                                                                                                                              }, 'Parse::RecDescent::Rule' ),
45191                               'NAME' => bless( {
45192                                                  'impcount' => 0,
45193                                                  'calls' => [],
45194                                                  'changed' => 0,
45195                                                  'opcount' => 0,
45196                                                  'prods' => [
45197                                                               bless( {
45198                                                                        'number' => '0',
45199                                                                        'strcount' => 0,
45200                                                                        'dircount' => 0,
45201                                                                        'uncommit' => undef,
45202                                                                        'error' => undef,
45203                                                                        'patcount' => 1,
45204                                                                        'actcount' => 0,
45205                                                                        'items' => [
45206                                                                                     bless( {
45207                                                                                              'pattern' => '\\w+',
45208                                                                                              'hashname' => '__PATTERN1__',
45209                                                                                              'description' => '/\\\\w+/',
45210                                                                                              'lookahead' => 0,
45211                                                                                              'rdelim' => '/',
45212                                                                                              'line' => 146,
45213                                                                                              'mod' => '',
45214                                                                                              'ldelim' => '/'
45215                                                                                            }, 'Parse::RecDescent::Token' )
45216                                                                                   ],
45217                                                                        'line' => undef
45218                                                                      }, 'Parse::RecDescent::Production' ),
45219                                                               bless( {
45220                                                                        'number' => '1',
45221                                                                        'strcount' => 0,
45222                                                                        'dircount' => 0,
45223                                                                        'uncommit' => undef,
45224                                                                        'error' => undef,
45225                                                                        'patcount' => 1,
45226                                                                        'actcount' => 0,
45227                                                                        'items' => [
45228                                                                                     bless( {
45229                                                                                              'pattern' => '\\w{1,18}',
45230                                                                                              'hashname' => '__PATTERN1__',
45231                                                                                              'description' => '/\\\\w\\{1,18\\}/',
45232                                                                                              'lookahead' => 0,
45233                                                                                              'rdelim' => '/',
45234                                                                                              'line' => 148,
45235                                                                                              'mod' => '',
45236                                                                                              'ldelim' => '/'
45237                                                                                            }, 'Parse::RecDescent::Token' )
45238                                                                                   ],
45239                                                                        'line' => undef
45240                                                                      }, 'Parse::RecDescent::Production' )
45241                                                             ],
45242                                                  'name' => 'NAME',
45243                                                  'vars' => '',
45244                                                  'line' => 146
45245                                                }, 'Parse::RecDescent::Rule' ),
45246                               'constant' => bless( {
45247                                                      'impcount' => 0,
45248                                                      'calls' => [
45249                                                                   'int_const',
45250                                                                   'float_const',
45251                                                                   'dec_const',
45252                                                                   'char_const',
45253                                                                   'hex_const',
45254                                                                   'grastr_const'
45255                                                                 ],
45256                                                      'changed' => 0,
45257                                                      'opcount' => 0,
45258                                                      'prods' => [
45259                                                                   bless( {
45260                                                                            'number' => '0',
45261                                                                            'strcount' => 0,
45262                                                                            'dircount' => 0,
45263                                                                            'uncommit' => undef,
45264                                                                            'error' => undef,
45265                                                                            'patcount' => 0,
45266                                                                            'actcount' => 0,
45267                                                                            'items' => [
45268                                                                                         bless( {
45269                                                                                                  'subrule' => 'int_const',
45270                                                                                                  'matchrule' => 0,
45271                                                                                                  'implicit' => undef,
45272                                                                                                  'argcode' => undef,
45273                                                                                                  'lookahead' => 0,
45274                                                                                                  'line' => 328
45275                                                                                                }, 'Parse::RecDescent::Subrule' )
45276                                                                                       ],
45277                                                                            'line' => undef
45278                                                                          }, 'Parse::RecDescent::Production' ),
45279                                                                   bless( {
45280                                                                            'number' => '1',
45281                                                                            'strcount' => 0,
45282                                                                            'dircount' => 0,
45283                                                                            'uncommit' => undef,
45284                                                                            'error' => undef,
45285                                                                            'patcount' => 0,
45286                                                                            'actcount' => 0,
45287                                                                            'items' => [
45288                                                                                         bless( {
45289                                                                                                  'subrule' => 'float_const',
45290                                                                                                  'matchrule' => 0,
45291                                                                                                  'implicit' => undef,
45292                                                                                                  'argcode' => undef,
45293                                                                                                  'lookahead' => 0,
45294                                                                                                  'line' => 328
45295                                                                                                }, 'Parse::RecDescent::Subrule' )
45296                                                                                       ],
45297                                                                            'line' => 328
45298                                                                          }, 'Parse::RecDescent::Production' ),
45299                                                                   bless( {
45300                                                                            'number' => '2',
45301                                                                            'strcount' => 0,
45302                                                                            'dircount' => 0,
45303                                                                            'uncommit' => undef,
45304                                                                            'error' => undef,
45305                                                                            'patcount' => 0,
45306                                                                            'actcount' => 0,
45307                                                                            'items' => [
45308                                                                                         bless( {
45309                                                                                                  'subrule' => 'dec_const',
45310                                                                                                  'matchrule' => 0,
45311                                                                                                  'implicit' => undef,
45312                                                                                                  'argcode' => undef,
45313                                                                                                  'lookahead' => 0,
45314                                                                                                  'line' => 328
45315                                                                                                }, 'Parse::RecDescent::Subrule' )
45316                                                                                       ],
45317                                                                            'line' => 328
45318                                                                          }, 'Parse::RecDescent::Production' ),
45319                                                                   bless( {
45320                                                                            'number' => '3',
45321                                                                            'strcount' => 0,
45322                                                                            'dircount' => 0,
45323                                                                            'uncommit' => undef,
45324                                                                            'error' => undef,
45325                                                                            'patcount' => 0,
45326                                                                            'actcount' => 0,
45327                                                                            'items' => [
45328                                                                                         bless( {
45329                                                                                                  'subrule' => 'char_const',
45330                                                                                                  'matchrule' => 0,
45331                                                                                                  'implicit' => undef,
45332                                                                                                  'argcode' => undef,
45333                                                                                                  'lookahead' => 0,
45334                                                                                                  'line' => 328
45335                                                                                                }, 'Parse::RecDescent::Subrule' )
45336                                                                                       ],
45337                                                                            'line' => 328
45338                                                                          }, 'Parse::RecDescent::Production' ),
45339                                                                   bless( {
45340                                                                            'number' => '4',
45341                                                                            'strcount' => 0,
45342                                                                            'dircount' => 0,
45343                                                                            'uncommit' => undef,
45344                                                                            'error' => undef,
45345                                                                            'patcount' => 0,
45346                                                                            'actcount' => 0,
45347                                                                            'items' => [
45348                                                                                         bless( {
45349                                                                                                  'subrule' => 'hex_const',
45350                                                                                                  'matchrule' => 0,
45351                                                                                                  'implicit' => undef,
45352                                                                                                  'argcode' => undef,
45353                                                                                                  'lookahead' => 0,
45354                                                                                                  'line' => 328
45355                                                                                                }, 'Parse::RecDescent::Subrule' )
45356                                                                                       ],
45357                                                                            'line' => 328
45358                                                                          }, 'Parse::RecDescent::Production' ),
45359                                                                   bless( {
45360                                                                            'number' => '5',
45361                                                                            'strcount' => 0,
45362                                                                            'dircount' => 0,
45363                                                                            'uncommit' => undef,
45364                                                                            'error' => undef,
45365                                                                            'patcount' => 0,
45366                                                                            'actcount' => 0,
45367                                                                            'items' => [
45368                                                                                         bless( {
45369                                                                                                  'subrule' => 'grastr_const',
45370                                                                                                  'matchrule' => 0,
45371                                                                                                  'implicit' => undef,
45372                                                                                                  'argcode' => undef,
45373                                                                                                  'lookahead' => 0,
45374                                                                                                  'line' => 328
45375                                                                                                }, 'Parse::RecDescent::Subrule' )
45376                                                                                       ],
45377                                                                            'line' => 328
45378                                                                          }, 'Parse::RecDescent::Production' )
45379                                                                 ],
45380                                                      'name' => 'constant',
45381                                                      'vars' => '',
45382                                                      'line' => 328
45383                                                    }, 'Parse::RecDescent::Rule' ),
45384                               '_alternation_1_of_production_1_of_rule_ranking_function' => bless( {
45385                                                                                                     'impcount' => 0,
45386                                                                                                     'calls' => [],
45387                                                                                                     'changed' => 0,
45388                                                                                                     'opcount' => 0,
45389                                                                                                     'prods' => [
45390                                                                                                                  bless( {
45391                                                                                                                           'number' => '0',
45392                                                                                                                           'strcount' => 1,
45393                                                                                                                           'dircount' => 0,
45394                                                                                                                           'uncommit' => undef,
45395                                                                                                                           'error' => undef,
45396                                                                                                                           'patcount' => 1,
45397                                                                                                                           'actcount' => 0,
45398                                                                                                                           'items' => [
45399                                                                                                                                        bless( {
45400                                                                                                                                                 'pattern' => 'RANK',
45401                                                                                                                                                 'hashname' => '__PATTERN1__',
45402                                                                                                                                                 'description' => '/RANK/',
45403                                                                                                                                                 'lookahead' => 0,
45404                                                                                                                                                 'rdelim' => '/',
45405                                                                                                                                                 'line' => 626,
45406                                                                                                                                                 'mod' => '',
45407                                                                                                                                                 'ldelim' => '/'
45408                                                                                                                                               }, 'Parse::RecDescent::Token' ),
45409                                                                                                                                        bless( {
45410                                                                                                                                                 'pattern' => '()',
45411                                                                                                                                                 'hashname' => '__STRING1__',
45412                                                                                                                                                 'description' => '\'()\'',
45413                                                                                                                                                 'lookahead' => 0,
45414                                                                                                                                                 'line' => 626
45415                                                                                                                                               }, 'Parse::RecDescent::Literal' )
45416                                                                                                                                      ],
45417                                                                                                                           'line' => undef
45418                                                                                                                         }, 'Parse::RecDescent::Production' ),
45419                                                                                                                  bless( {
45420                                                                                                                           'number' => '1',
45421                                                                                                                           'strcount' => 1,
45422                                                                                                                           'dircount' => 0,
45423                                                                                                                           'uncommit' => undef,
45424                                                                                                                           'error' => undef,
45425                                                                                                                           'patcount' => 1,
45426                                                                                                                           'actcount' => 0,
45427                                                                                                                           'items' => [
45428                                                                                                                                        bless( {
45429                                                                                                                                                 'pattern' => 'DENSE_RANK|DENSERANK',
45430                                                                                                                                                 'hashname' => '__PATTERN1__',
45431                                                                                                                                                 'description' => '/DENSE_RANK|DENSERANK/i',
45432                                                                                                                                                 'lookahead' => 0,
45433                                                                                                                                                 'rdelim' => '/',
45434                                                                                                                                                 'line' => 627,
45435                                                                                                                                                 'mod' => 'i',
45436                                                                                                                                                 'ldelim' => '/'
45437                                                                                                                                               }, 'Parse::RecDescent::Token' ),
45438                                                                                                                                        bless( {
45439                                                                                                                                                 'pattern' => '()',
45440                                                                                                                                                 'hashname' => '__STRING1__',
45441                                                                                                                                                 'description' => '\'()\'',
45442                                                                                                                                                 'lookahead' => 0,
45443                                                                                                                                                 'line' => 627
45444                                                                                                                                               }, 'Parse::RecDescent::Literal' )
45445                                                                                                                                      ],
45446                                                                                                                           'line' => 627
45447                                                                                                                         }, 'Parse::RecDescent::Production' )
45448                                                                                                                ],
45449                                                                                                     'name' => '_alternation_1_of_production_1_of_rule_ranking_function',
45450                                                                                                     'vars' => '',
45451                                                                                                     'line' => 626
45452                                                                                                   }, 'Parse::RecDescent::Rule' ),
45453                               'window_aggregation_group_clause' => bless( {
45454                                                                             'impcount' => 2,
45455                                                                             'calls' => [
45456                                                                                          '_alternation_1_of_production_1_of_rule_window_aggregation_group_clause',
45457                                                                                          '_alternation_2_of_production_1_of_rule_window_aggregation_group_clause'
45458                                                                                        ],
45459                                                                             'changed' => 0,
45460                                                                             'opcount' => 0,
45461                                                                             'prods' => [
45462                                                                                          bless( {
45463                                                                                                   'number' => '0',
45464                                                                                                   'strcount' => 0,
45465                                                                                                   'dircount' => 0,
45466                                                                                                   'uncommit' => undef,
45467                                                                                                   'error' => undef,
45468                                                                                                   'patcount' => 0,
45469                                                                                                   'actcount' => 0,
45470                                                                                                   'items' => [
45471                                                                                                                bless( {
45472                                                                                                                         'subrule' => '_alternation_1_of_production_1_of_rule_window_aggregation_group_clause',
45473                                                                                                                         'matchrule' => 0,
45474                                                                                                                         'implicit' => '/ROWS/i, or /RANGE/i',
45475                                                                                                                         'argcode' => undef,
45476                                                                                                                         'lookahead' => 0,
45477                                                                                                                         'line' => 568
45478                                                                                                                       }, 'Parse::RecDescent::Subrule' ),
45479                                                                                                                bless( {
45480                                                                                                                         'subrule' => '_alternation_2_of_production_1_of_rule_window_aggregation_group_clause',
45481                                                                                                                         'matchrule' => 0,
45482                                                                                                                         'implicit' => 'group_start, or group_between, or group_end',
45483                                                                                                                         'argcode' => undef,
45484                                                                                                                         'lookahead' => 0,
45485                                                                                                                         'line' => 572
45486                                                                                                                       }, 'Parse::RecDescent::Subrule' )
45487                                                                                                              ],
45488                                                                                                   'line' => undef
45489                                                                                                 }, 'Parse::RecDescent::Production' )
45490                                                                                        ],
45491                                                                             'name' => 'window_aggregation_group_clause',
45492                                                                             'vars' => '',
45493                                                                             'line' => 566
45494                                                                           }, 'Parse::RecDescent::Rule' ),
45495                               '_alternation_2_of_production_1_of_rule_window_aggregation_group_clause' => bless( {
45496                                                                                                                    'impcount' => 0,
45497                                                                                                                    'calls' => [
45498                                                                                                                                 'group_start',
45499                                                                                                                                 'group_between',
45500                                                                                                                                 'group_end'
45501                                                                                                                               ],
45502                                                                                                                    'changed' => 0,
45503                                                                                                                    'opcount' => 0,
45504                                                                                                                    'prods' => [
45505                                                                                                                                 bless( {
45506                                                                                                                                          'number' => '0',
45507                                                                                                                                          'strcount' => 0,
45508                                                                                                                                          'dircount' => 0,
45509                                                                                                                                          'uncommit' => undef,
45510                                                                                                                                          'error' => undef,
45511                                                                                                                                          'patcount' => 0,
45512                                                                                                                                          'actcount' => 0,
45513                                                                                                                                          'items' => [
45514                                                                                                                                                       bless( {
45515                                                                                                                                                                'subrule' => 'group_start',
45516                                                                                                                                                                'matchrule' => 0,
45517                                                                                                                                                                'implicit' => undef,
45518                                                                                                                                                                'argcode' => undef,
45519                                                                                                                                                                'lookahead' => 0,
45520                                                                                                                                                                'line' => 625
45521                                                                                                                                                              }, 'Parse::RecDescent::Subrule' )
45522                                                                                                                                                     ],
45523                                                                                                                                          'line' => undef
45524                                                                                                                                        }, 'Parse::RecDescent::Production' ),
45525                                                                                                                                 bless( {
45526                                                                                                                                          'number' => '1',
45527                                                                                                                                          'strcount' => 0,
45528                                                                                                                                          'dircount' => 0,
45529                                                                                                                                          'uncommit' => undef,
45530                                                                                                                                          'error' => undef,
45531                                                                                                                                          'patcount' => 0,
45532                                                                                                                                          'actcount' => 0,
45533                                                                                                                                          'items' => [
45534                                                                                                                                                       bless( {
45535                                                                                                                                                                'subrule' => 'group_between',
45536                                                                                                                                                                'matchrule' => 0,
45537                                                                                                                                                                'implicit' => undef,
45538                                                                                                                                                                'argcode' => undef,
45539                                                                                                                                                                'lookahead' => 0,
45540                                                                                                                                                                'line' => 626
45541                                                                                                                                                              }, 'Parse::RecDescent::Subrule' )
45542                                                                                                                                                     ],
45543                                                                                                                                          'line' => 626
45544                                                                                                                                        }, 'Parse::RecDescent::Production' ),
45545                                                                                                                                 bless( {
45546                                                                                                                                          'number' => '2',
45547                                                                                                                                          'strcount' => 0,
45548                                                                                                                                          'dircount' => 0,
45549                                                                                                                                          'uncommit' => undef,
45550                                                                                                                                          'error' => undef,
45551                                                                                                                                          'patcount' => 0,
45552                                                                                                                                          'actcount' => 0,
45553                                                                                                                                          'items' => [
45554                                                                                                                                                       bless( {
45555                                                                                                                                                                'subrule' => 'group_end',
45556                                                                                                                                                                'matchrule' => 0,
45557                                                                                                                                                                'implicit' => undef,
45558                                                                                                                                                                'argcode' => undef,
45559                                                                                                                                                                'lookahead' => 0,
45560                                                                                                                                                                'line' => 627
45561                                                                                                                                                              }, 'Parse::RecDescent::Subrule' )
45562                                                                                                                                                     ],
45563                                                                                                                                          'line' => 627
45564                                                                                                                                        }, 'Parse::RecDescent::Production' )
45565                                                                                                                               ],
45566                                                                                                                    'name' => '_alternation_2_of_production_1_of_rule_window_aggregation_group_clause',
45567                                                                                                                    'vars' => '',
45568                                                                                                                    'line' => 625
45569                                                                                                                  }, 'Parse::RecDescent::Rule' ),
45570                               'VIEW' => bless( {
45571                                                  'impcount' => 0,
45572                                                  'calls' => [],
45573                                                  'changed' => 0,
45574                                                  'opcount' => 0,
45575                                                  'prods' => [
45576                                                               bless( {
45577                                                                        'number' => '0',
45578                                                                        'strcount' => 0,
45579                                                                        'dircount' => 0,
45580                                                                        'uncommit' => undef,
45581                                                                        'error' => undef,
45582                                                                        'patcount' => 1,
45583                                                                        'actcount' => 0,
45584                                                                        'items' => [
45585                                                                                     bless( {
45586                                                                                              'pattern' => 'view',
45587                                                                                              'hashname' => '__PATTERN1__',
45588                                                                                              'description' => '/view/i',
45589                                                                                              'lookahead' => 0,
45590                                                                                              'rdelim' => '/',
45591                                                                                              'line' => 105,
45592                                                                                              'mod' => 'i',
45593                                                                                              'ldelim' => '/'
45594                                                                                            }, 'Parse::RecDescent::Token' )
45595                                                                                   ],
45596                                                                        'line' => undef
45597                                                                      }, 'Parse::RecDescent::Production' )
45598                                                             ],
45599                                                  'name' => 'VIEW',
45600                                                  'vars' => '',
45601                                                  'line' => 105
45602                                                }, 'Parse::RecDescent::Rule' ),
45603                               'with_expression' => bless( {
45604                                                             'impcount' => 0,
45605                                                             'calls' => [
45606                                                                          'common_table_expression'
45607                                                                        ],
45608                                                             'changed' => 0,
45609                                                             'opcount' => 0,
45610                                                             'prods' => [
45611                                                                          bless( {
45612                                                                                   'number' => '0',
45613                                                                                   'strcount' => 0,
45614                                                                                   'dircount' => 1,
45615                                                                                   'uncommit' => undef,
45616                                                                                   'error' => undef,
45617                                                                                   'patcount' => 2,
45618                                                                                   'actcount' => 1,
45619                                                                                   'op' => [],
45620                                                                                   'items' => [
45621                                                                                                bless( {
45622                                                                                                         'pattern' => 'WITH',
45623                                                                                                         'hashname' => '__PATTERN1__',
45624                                                                                                         'description' => '/WITH/i',
45625                                                                                                         'lookahead' => 0,
45626                                                                                                         'rdelim' => '/',
45627                                                                                                         'line' => 89,
45628                                                                                                         'mod' => 'i',
45629                                                                                                         'ldelim' => '/'
45630                                                                                                       }, 'Parse::RecDescent::Token' ),
45631                                                                                                bless( {
45632                                                                                                         'expected' => '<leftop: common_table_expression /,/ common_table_expression>',
45633                                                                                                         'min' => 1,
45634                                                                                                         'name' => '\'common_table_expression(s)\'',
45635                                                                                                         'max' => 100000000,
45636                                                                                                         'leftarg' => bless( {
45637                                                                                                                               'subrule' => 'common_table_expression',
45638                                                                                                                               'matchrule' => 0,
45639                                                                                                                               'implicit' => undef,
45640                                                                                                                               'argcode' => undef,
45641                                                                                                                               'lookahead' => 0,
45642                                                                                                                               'line' => 89
45643                                                                                                                             }, 'Parse::RecDescent::Subrule' ),
45644                                                                                                         'rightarg' => bless( {
45645                                                                                                                                'subrule' => 'common_table_expression',
45646                                                                                                                                'matchrule' => 0,
45647                                                                                                                                'implicit' => undef,
45648                                                                                                                                'argcode' => undef,
45649                                                                                                                                'lookahead' => 0,
45650                                                                                                                                'line' => 89
45651                                                                                                                              }, 'Parse::RecDescent::Subrule' ),
45652                                                                                                         'hashname' => '__DIRECTIVE1__',
45653                                                                                                         'type' => 'leftop',
45654                                                                                                         'op' => bless( {
45655                                                                                                                          'pattern' => ',',
45656                                                                                                                          'hashname' => '__PATTERN2__',
45657                                                                                                                          'description' => '/,/',
45658                                                                                                                          'lookahead' => 0,
45659                                                                                                                          'rdelim' => '/',
45660                                                                                                                          'line' => 89,
45661                                                                                                                          'mod' => '',
45662                                                                                                                          'ldelim' => '/'
45663                                                                                                                        }, 'Parse::RecDescent::Token' )
45664                                                                                                       }, 'Parse::RecDescent::Operator' ),
45665                                                                                                bless( {
45666                                                                                                         'hashname' => '__ACTION1__',
45667                                                                                                         'lookahead' => 0,
45668                                                                                                         'line' => 90,
45669                                                                                                         'code' => '{
45670     $return = $item{\'common_table_expression\'};
45671 }'
45672                                                                                                       }, 'Parse::RecDescent::Action' )
45673                                                                                              ],
45674                                                                                   'line' => undef
45675                                                                                 }, 'Parse::RecDescent::Production' )
45676                                                                        ],
45677                                                             'name' => 'with_expression',
45678                                                             'vars' => '',
45679                                                             'line' => 87
45680                                                           }, 'Parse::RecDescent::Rule' ),
45681                               'numeric_constant' => bless( {
45682                                                              'impcount' => 0,
45683                                                              'calls' => [],
45684                                                              'changed' => 0,
45685                                                              'opcount' => 0,
45686                                                              'prods' => [
45687                                                                           bless( {
45688                                                                                    'number' => '0',
45689                                                                                    'strcount' => 0,
45690                                                                                    'dircount' => 0,
45691                                                                                    'uncommit' => undef,
45692                                                                                    'error' => undef,
45693                                                                                    'patcount' => 1,
45694                                                                                    'actcount' => 0,
45695                                                                                    'items' => [
45696                                                                                                 bless( {
45697                                                                                                          'pattern' => '\\d+',
45698                                                                                                          'hashname' => '__PATTERN1__',
45699                                                                                                          'description' => '/\\\\d+/',
45700                                                                                                          'lookahead' => 0,
45701                                                                                                          'rdelim' => '/',
45702                                                                                                          'line' => 140,
45703                                                                                                          'mod' => '',
45704                                                                                                          'ldelim' => '/'
45705                                                                                                        }, 'Parse::RecDescent::Token' )
45706                                                                                               ],
45707                                                                                    'line' => undef
45708                                                                                  }, 'Parse::RecDescent::Production' )
45709                                                                         ],
45710                                                              'name' => 'numeric_constant',
45711                                                              'vars' => '',
45712                                                              'line' => 140
45713                                                            }, 'Parse::RecDescent::Rule' ),
45714                               'old_new_table' => bless( {
45715                                                           'impcount' => 0,
45716                                                           'calls' => [
45717                                                                        'identifier'
45718                                                                      ],
45719                                                           'changed' => 0,
45720                                                           'opcount' => 0,
45721                                                           'prods' => [
45722                                                                        bless( {
45723                                                                                 'number' => '0',
45724                                                                                 'strcount' => 0,
45725                                                                                 'dircount' => 0,
45726                                                                                 'uncommit' => undef,
45727                                                                                 'error' => undef,
45728                                                                                 'patcount' => 2,
45729                                                                                 'actcount' => 1,
45730                                                                                 'items' => [
45731                                                                                              bless( {
45732                                                                                                       'pattern' => 'OLD_TABLE',
45733                                                                                                       'hashname' => '__PATTERN1__',
45734                                                                                                       'description' => '/OLD_TABLE/i',
45735                                                                                                       'lookahead' => 0,
45736                                                                                                       'rdelim' => '/',
45737                                                                                                       'line' => 291,
45738                                                                                                       'mod' => 'i',
45739                                                                                                       'ldelim' => '/'
45740                                                                                                     }, 'Parse::RecDescent::Token' ),
45741                                                                                              bless( {
45742                                                                                                       'pattern' => '(AS)?',
45743                                                                                                       'hashname' => '__PATTERN2__',
45744                                                                                                       'description' => '/(AS)?/i',
45745                                                                                                       'lookahead' => 0,
45746                                                                                                       'rdelim' => '/',
45747                                                                                                       'line' => 291,
45748                                                                                                       'mod' => 'i',
45749                                                                                                       'ldelim' => '/'
45750                                                                                                     }, 'Parse::RecDescent::Token' ),
45751                                                                                              bless( {
45752                                                                                                       'subrule' => 'identifier',
45753                                                                                                       'matchrule' => 0,
45754                                                                                                       'implicit' => undef,
45755                                                                                                       'argcode' => undef,
45756                                                                                                       'lookahead' => 0,
45757                                                                                                       'line' => 291
45758                                                                                                     }, 'Parse::RecDescent::Subrule' ),
45759                                                                                              bless( {
45760                                                                                                       'hashname' => '__ACTION1__',
45761                                                                                                       'lookahead' => 0,
45762                                                                                                       'line' => 292,
45763                                                                                                       'code' => '{ $return = join(\' \', @item[1..3] ) }'
45764                                                                                                     }, 'Parse::RecDescent::Action' )
45765                                                                                            ],
45766                                                                                 'line' => undef
45767                                                                               }, 'Parse::RecDescent::Production' ),
45768                                                                        bless( {
45769                                                                                 'number' => '1',
45770                                                                                 'strcount' => 0,
45771                                                                                 'dircount' => 0,
45772                                                                                 'uncommit' => undef,
45773                                                                                 'error' => undef,
45774                                                                                 'patcount' => 2,
45775                                                                                 'actcount' => 1,
45776                                                                                 'items' => [
45777                                                                                              bless( {
45778                                                                                                       'pattern' => 'NEW_TABLE',
45779                                                                                                       'hashname' => '__PATTERN1__',
45780                                                                                                       'description' => '/NEW_TABLE/i',
45781                                                                                                       'lookahead' => 0,
45782                                                                                                       'rdelim' => '/',
45783                                                                                                       'line' => 293,
45784                                                                                                       'mod' => 'i',
45785                                                                                                       'ldelim' => '/'
45786                                                                                                     }, 'Parse::RecDescent::Token' ),
45787                                                                                              bless( {
45788                                                                                                       'pattern' => '(AS)?',
45789                                                                                                       'hashname' => '__PATTERN2__',
45790                                                                                                       'description' => '/(AS)?/i',
45791                                                                                                       'lookahead' => 0,
45792                                                                                                       'rdelim' => '/',
45793                                                                                                       'line' => 293,
45794                                                                                                       'mod' => 'i',
45795                                                                                                       'ldelim' => '/'
45796                                                                                                     }, 'Parse::RecDescent::Token' ),
45797                                                                                              bless( {
45798                                                                                                       'subrule' => 'identifier',
45799                                                                                                       'matchrule' => 0,
45800                                                                                                       'implicit' => undef,
45801                                                                                                       'argcode' => undef,
45802                                                                                                       'lookahead' => 0,
45803                                                                                                       'line' => 293
45804                                                                                                     }, 'Parse::RecDescent::Subrule' ),
45805                                                                                              bless( {
45806                                                                                                       'hashname' => '__ACTION1__',
45807                                                                                                       'lookahead' => 0,
45808                                                                                                       'line' => 294,
45809                                                                                                       'code' => '{ $return = join(\' \', @item[1..3] ) }'
45810                                                                                                     }, 'Parse::RecDescent::Action' )
45811                                                                                            ],
45812                                                                                 'line' => 293
45813                                                                               }, 'Parse::RecDescent::Production' )
45814                                                                      ],
45815                                                           'name' => 'old_new_table',
45816                                                           'vars' => '',
45817                                                           'line' => 291
45818                                                         }, 'Parse::RecDescent::Rule' ),
45819                               '_alternation_1_of_production_1_of_rule_numbering_function' => bless( {
45820                                                                                                       'impcount' => 0,
45821                                                                                                       'calls' => [
45822                                                                                                                    'window_order_clause',
45823                                                                                                                    'window_aggregation_group_clause'
45824                                                                                                                  ],
45825                                                                                                       'changed' => 0,
45826                                                                                                       'opcount' => 0,
45827                                                                                                       'prods' => [
45828                                                                                                                    bless( {
45829                                                                                                                             'number' => '0',
45830                                                                                                                             'strcount' => 0,
45831                                                                                                                             'dircount' => 0,
45832                                                                                                                             'uncommit' => undef,
45833                                                                                                                             'error' => undef,
45834                                                                                                                             'patcount' => 0,
45835                                                                                                                             'actcount' => 0,
45836                                                                                                                             'items' => [
45837                                                                                                                                          bless( {
45838                                                                                                                                                   'subrule' => 'window_order_clause',
45839                                                                                                                                                   'matchrule' => 0,
45840                                                                                                                                                   'implicit' => undef,
45841                                                                                                                                                   'argcode' => undef,
45842                                                                                                                                                   'lookahead' => 0,
45843                                                                                                                                                   'line' => 627
45844                                                                                                                                                 }, 'Parse::RecDescent::Subrule' ),
45845                                                                                                                                          bless( {
45846                                                                                                                                                   'subrule' => 'window_aggregation_group_clause',
45847                                                                                                                                                   'expected' => undef,
45848                                                                                                                                                   'min' => 0,
45849                                                                                                                                                   'argcode' => undef,
45850                                                                                                                                                   'max' => 1,
45851                                                                                                                                                   'matchrule' => 0,
45852                                                                                                                                                   'repspec' => '?',
45853                                                                                                                                                   'lookahead' => 0,
45854                                                                                                                                                   'line' => 627
45855                                                                                                                                                 }, 'Parse::RecDescent::Repetition' )
45856                                                                                                                                        ],
45857                                                                                                                             'line' => undef
45858                                                                                                                           }, 'Parse::RecDescent::Production' )
45859                                                                                                                  ],
45860                                                                                                       'name' => '_alternation_1_of_production_1_of_rule_numbering_function',
45861                                                                                                       'vars' => '',
45862                                                                                                       'line' => 627
45863                                                                                                     }, 'Parse::RecDescent::Rule' ),
45864                               '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause' => bless( {
45865                                                                                                                                                'impcount' => 0,
45866                                                                                                                                                'calls' => [
45867                                                                                                                                                             'result_expression'
45868                                                                                                                                                           ],
45869                                                                                                                                                'changed' => 0,
45870                                                                                                                                                'opcount' => 0,
45871                                                                                                                                                'prods' => [
45872                                                                                                                                                             bless( {
45873                                                                                                                                                                      'number' => '0',
45874                                                                                                                                                                      'strcount' => 0,
45875                                                                                                                                                                      'dircount' => 0,
45876                                                                                                                                                                      'uncommit' => undef,
45877                                                                                                                                                                      'error' => undef,
45878                                                                                                                                                                      'patcount' => 0,
45879                                                                                                                                                                      'actcount' => 0,
45880                                                                                                                                                                      'items' => [
45881                                                                                                                                                                                   bless( {
45882                                                                                                                                                                                            'subrule' => 'result_expression',
45883                                                                                                                                                                                            'matchrule' => 0,
45884                                                                                                                                                                                            'implicit' => undef,
45885                                                                                                                                                                                            'argcode' => undef,
45886                                                                                                                                                                                            'lookahead' => 0,
45887                                                                                                                                                                                            'line' => 626
45888                                                                                                                                                                                          }, 'Parse::RecDescent::Subrule' )
45889                                                                                                                                                                                 ],
45890                                                                                                                                                                      'line' => undef
45891                                                                                                                                                                    }, 'Parse::RecDescent::Production' ),
45892                                                                                                                                                             bless( {
45893                                                                                                                                                                      'number' => '1',
45894                                                                                                                                                                      'strcount' => 0,
45895                                                                                                                                                                      'dircount' => 0,
45896                                                                                                                                                                      'uncommit' => undef,
45897                                                                                                                                                                      'error' => undef,
45898                                                                                                                                                                      'patcount' => 1,
45899                                                                                                                                                                      'actcount' => 0,
45900                                                                                                                                                                      'items' => [
45901                                                                                                                                                                                   bless( {
45902                                                                                                                                                                                            'pattern' => 'NULL',
45903                                                                                                                                                                                            'hashname' => '__PATTERN1__',
45904                                                                                                                                                                                            'description' => '/NULL/i',
45905                                                                                                                                                                                            'lookahead' => 0,
45906                                                                                                                                                                                            'rdelim' => '/',
45907                                                                                                                                                                                            'line' => 627,
45908                                                                                                                                                                                            'mod' => 'i',
45909                                                                                                                                                                                            'ldelim' => '/'
45910                                                                                                                                                                                          }, 'Parse::RecDescent::Token' )
45911                                                                                                                                                                                 ],
45912                                                                                                                                                                      'line' => 627
45913                                                                                                                                                                    }, 'Parse::RecDescent::Production' )
45914                                                                                                                                                           ],
45915                                                                                                                                                'name' => '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_searched_when_clause',
45916                                                                                                                                                'vars' => '',
45917                                                                                                                                                'line' => 626
45918                                                                                                                                              }, 'Parse::RecDescent::Rule' ),
45919                               'old_new_corr' => bless( {
45920                                                          'impcount' => 0,
45921                                                          'calls' => [
45922                                                                       'correlation_name'
45923                                                                     ],
45924                                                          'changed' => 0,
45925                                                          'opcount' => 0,
45926                                                          'prods' => [
45927                                                                       bless( {
45928                                                                                'number' => '0',
45929                                                                                'strcount' => 0,
45930                                                                                'dircount' => 0,
45931                                                                                'uncommit' => undef,
45932                                                                                'error' => undef,
45933                                                                                'patcount' => 2,
45934                                                                                'actcount' => 1,
45935                                                                                'items' => [
45936                                                                                             bless( {
45937                                                                                                      'pattern' => 'OLD',
45938                                                                                                      'hashname' => '__PATTERN1__',
45939                                                                                                      'description' => '/OLD/i',
45940                                                                                                      'lookahead' => 0,
45941                                                                                                      'rdelim' => '/',
45942                                                                                                      'line' => 286,
45943                                                                                                      'mod' => 'i',
45944                                                                                                      'ldelim' => '/'
45945                                                                                                    }, 'Parse::RecDescent::Token' ),
45946                                                                                             bless( {
45947                                                                                                      'pattern' => '(AS)?',
45948                                                                                                      'hashname' => '__PATTERN2__',
45949                                                                                                      'description' => '/(AS)?/i',
45950                                                                                                      'lookahead' => 0,
45951                                                                                                      'rdelim' => '/',
45952                                                                                                      'line' => 286,
45953                                                                                                      'mod' => 'i',
45954                                                                                                      'ldelim' => '/'
45955                                                                                                    }, 'Parse::RecDescent::Token' ),
45956                                                                                             bless( {
45957                                                                                                      'subrule' => 'correlation_name',
45958                                                                                                      'matchrule' => 0,
45959                                                                                                      'implicit' => undef,
45960                                                                                                      'argcode' => undef,
45961                                                                                                      'lookahead' => 0,
45962                                                                                                      'line' => 286
45963                                                                                                    }, 'Parse::RecDescent::Subrule' ),
45964                                                                                             bless( {
45965                                                                                                      'hashname' => '__ACTION1__',
45966                                                                                                      'lookahead' => 0,
45967                                                                                                      'line' => 287,
45968                                                                                                      'code' => '{ $return = join(\' \', @item[1..3] ) }'
45969                                                                                                    }, 'Parse::RecDescent::Action' )
45970                                                                                           ],
45971                                                                                'line' => undef
45972                                                                              }, 'Parse::RecDescent::Production' ),
45973                                                                       bless( {
45974                                                                                'number' => '1',
45975                                                                                'strcount' => 0,
45976                                                                                'dircount' => 0,
45977                                                                                'uncommit' => undef,
45978                                                                                'error' => undef,
45979                                                                                'patcount' => 2,
45980                                                                                'actcount' => 1,
45981                                                                                'items' => [
45982                                                                                             bless( {
45983                                                                                                      'pattern' => 'NEW',
45984                                                                                                      'hashname' => '__PATTERN1__',
45985                                                                                                      'description' => '/NEW/i',
45986                                                                                                      'lookahead' => 0,
45987                                                                                                      'rdelim' => '/',
45988                                                                                                      'line' => 288,
45989                                                                                                      'mod' => 'i',
45990                                                                                                      'ldelim' => '/'
45991                                                                                                    }, 'Parse::RecDescent::Token' ),
45992                                                                                             bless( {
45993                                                                                                      'pattern' => '(AS)?',
45994                                                                                                      'hashname' => '__PATTERN2__',
45995                                                                                                      'description' => '/(AS)?/i',
45996                                                                                                      'lookahead' => 0,
45997                                                                                                      'rdelim' => '/',
45998                                                                                                      'line' => 288,
45999                                                                                                      'mod' => 'i',
46000                                                                                                      'ldelim' => '/'
46001                                                                                                    }, 'Parse::RecDescent::Token' ),
46002                                                                                             bless( {
46003                                                                                                      'subrule' => 'correlation_name',
46004                                                                                                      'matchrule' => 0,
46005                                                                                                      'implicit' => undef,
46006                                                                                                      'argcode' => undef,
46007                                                                                                      'lookahead' => 0,
46008                                                                                                      'line' => 288
46009                                                                                                    }, 'Parse::RecDescent::Subrule' ),
46010                                                                                             bless( {
46011                                                                                                      'hashname' => '__ACTION1__',
46012                                                                                                      'lookahead' => 0,
46013                                                                                                      'line' => 289,
46014                                                                                                      'code' => '{ $return = join(\' \', @item[1..3] ) }'
46015                                                                                                    }, 'Parse::RecDescent::Action' )
46016                                                                                           ],
46017                                                                                'line' => 288
46018                                                                              }, 'Parse::RecDescent::Production' )
46019                                                                     ],
46020                                                          'name' => 'old_new_corr',
46021                                                          'vars' => '',
46022                                                          'line' => 286
46023                                                        }, 'Parse::RecDescent::Rule' ),
46024                               '_alternation_1_of_production_42_of_rule_sysibm_function' => bless( {
46025                                                                                                     'impcount' => 0,
46026                                                                                                     'calls' => [],
46027                                                                                                     'changed' => 0,
46028                                                                                                     'opcount' => 0,
46029                                                                                                     'prods' => [
46030                                                                                                                  bless( {
46031                                                                                                                           'number' => '0',
46032                                                                                                                           'strcount' => 0,
46033                                                                                                                           'dircount' => 0,
46034                                                                                                                           'uncommit' => undef,
46035                                                                                                                           'error' => undef,
46036                                                                                                                           'patcount' => 1,
46037                                                                                                                           'actcount' => 0,
46038                                                                                                                           'items' => [
46039                                                                                                                                        bless( {
46040                                                                                                                                                 'pattern' => 'LCASE',
46041                                                                                                                                                 'hashname' => '__PATTERN1__',
46042                                                                                                                                                 'description' => '/LCASE/i',
46043                                                                                                                                                 'lookahead' => 0,
46044                                                                                                                                                 'rdelim' => '/',
46045                                                                                                                                                 'line' => 628,
46046                                                                                                                                                 'mod' => 'i',
46047                                                                                                                                                 'ldelim' => '/'
46048                                                                                                                                               }, 'Parse::RecDescent::Token' )
46049                                                                                                                                      ],
46050                                                                                                                           'line' => undef
46051                                                                                                                         }, 'Parse::RecDescent::Production' ),
46052                                                                                                                  bless( {
46053                                                                                                                           'number' => '1',
46054                                                                                                                           'strcount' => 0,
46055                                                                                                                           'dircount' => 0,
46056                                                                                                                           'uncommit' => undef,
46057                                                                                                                           'error' => undef,
46058                                                                                                                           'patcount' => 1,
46059                                                                                                                           'actcount' => 0,
46060                                                                                                                           'items' => [
46061                                                                                                                                        bless( {
46062                                                                                                                                                 'pattern' => 'LOWER',
46063                                                                                                                                                 'hashname' => '__PATTERN1__',
46064                                                                                                                                                 'description' => '/LOWER/',
46065                                                                                                                                                 'lookahead' => 0,
46066                                                                                                                                                 'rdelim' => '/',
46067                                                                                                                                                 'line' => 628,
46068                                                                                                                                                 'mod' => '',
46069                                                                                                                                                 'ldelim' => '/'
46070                                                                                                                                               }, 'Parse::RecDescent::Token' )
46071                                                                                                                                      ],
46072                                                                                                                           'line' => 628
46073                                                                                                                         }, 'Parse::RecDescent::Production' )
46074                                                                                                                ],
46075                                                                                                     'name' => '_alternation_1_of_production_42_of_rule_sysibm_function',
46076                                                                                                     'vars' => '',
46077                                                                                                     'line' => 628
46078                                                                                                   }, 'Parse::RecDescent::Rule' ),
46079                               'subtype_treatment' => bless( {
46080                                                               'impcount' => 0,
46081                                                               'calls' => [
46082                                                                            'expression',
46083                                                                            'data_type'
46084                                                                          ],
46085                                                               'changed' => 0,
46086                                                               'opcount' => 0,
46087                                                               'prods' => [
46088                                                                            bless( {
46089                                                                                     'number' => '0',
46090                                                                                     'strcount' => 2,
46091                                                                                     'dircount' => 0,
46092                                                                                     'uncommit' => undef,
46093                                                                                     'error' => undef,
46094                                                                                     'patcount' => 2,
46095                                                                                     'actcount' => 0,
46096                                                                                     'items' => [
46097                                                                                                  bless( {
46098                                                                                                           'pattern' => 'TREAT',
46099                                                                                                           'hashname' => '__PATTERN1__',
46100                                                                                                           'description' => '/TREAT/i',
46101                                                                                                           'lookahead' => 0,
46102                                                                                                           'rdelim' => '/',
46103                                                                                                           'line' => 606,
46104                                                                                                           'mod' => 'i',
46105                                                                                                           'ldelim' => '/'
46106                                                                                                         }, 'Parse::RecDescent::Token' ),
46107                                                                                                  bless( {
46108                                                                                                           'pattern' => '(',
46109                                                                                                           'hashname' => '__STRING1__',
46110                                                                                                           'description' => '\'(\'',
46111                                                                                                           'lookahead' => 0,
46112                                                                                                           'line' => 606
46113                                                                                                         }, 'Parse::RecDescent::Literal' ),
46114                                                                                                  bless( {
46115                                                                                                           'subrule' => 'expression',
46116                                                                                                           'matchrule' => 0,
46117                                                                                                           'implicit' => undef,
46118                                                                                                           'argcode' => undef,
46119                                                                                                           'lookahead' => 0,
46120                                                                                                           'line' => 606
46121                                                                                                         }, 'Parse::RecDescent::Subrule' ),
46122                                                                                                  bless( {
46123                                                                                                           'pattern' => 'AS',
46124                                                                                                           'hashname' => '__PATTERN2__',
46125                                                                                                           'description' => '/AS/i',
46126                                                                                                           'lookahead' => 0,
46127                                                                                                           'rdelim' => '/',
46128                                                                                                           'line' => 606,
46129                                                                                                           'mod' => 'i',
46130                                                                                                           'ldelim' => '/'
46131                                                                                                         }, 'Parse::RecDescent::Token' ),
46132                                                                                                  bless( {
46133                                                                                                           'subrule' => 'data_type',
46134                                                                                                           'matchrule' => 0,
46135                                                                                                           'implicit' => undef,
46136                                                                                                           'argcode' => undef,
46137                                                                                                           'lookahead' => 0,
46138                                                                                                           'line' => 606
46139                                                                                                         }, 'Parse::RecDescent::Subrule' ),
46140                                                                                                  bless( {
46141                                                                                                           'pattern' => ')',
46142                                                                                                           'hashname' => '__STRING2__',
46143                                                                                                           'description' => '\')\'',
46144                                                                                                           'lookahead' => 0,
46145                                                                                                           'line' => 606
46146                                                                                                         }, 'Parse::RecDescent::Literal' )
46147                                                                                                ],
46148                                                                                     'line' => undef
46149                                                                                   }, 'Parse::RecDescent::Production' )
46150                                                                          ],
46151                                                               'name' => 'subtype_treatment',
46152                                                               'vars' => '',
46153                                                               'line' => 606
46154                                                             }, 'Parse::RecDescent::Rule' ),
46155                               'expression' => bless( {
46156                                                        'impcount' => 1,
46157                                                        'calls' => [
46158                                                                     '_alternation_1_of_production_1_of_rule_expression'
46159                                                                   ],
46160                                                        'changed' => 0,
46161                                                        'opcount' => 0,
46162                                                        'prods' => [
46163                                                                     bless( {
46164                                                                              'number' => '0',
46165                                                                              'strcount' => 0,
46166                                                                              'dircount' => 1,
46167                                                                              'uncommit' => undef,
46168                                                                              'error' => undef,
46169                                                                              'patcount' => 1,
46170                                                                              'actcount' => 0,
46171                                                                              'op' => [],
46172                                                                              'items' => [
46173                                                                                           bless( {
46174                                                                                                    'expected' => '<leftop: \'+\', or \'-\' /operator/ \'+\', or \'-\'>',
46175                                                                                                    'min' => 1,
46176                                                                                                    'name' => '\'_alternation_1_of_production_1_of_rule_expression(s)\'',
46177                                                                                                    'max' => 100000000,
46178                                                                                                    'leftarg' => bless( {
46179                                                                                                                          'subrule' => '_alternation_1_of_production_1_of_rule_expression',
46180                                                                                                                          'matchrule' => 0,
46181                                                                                                                          'implicit' => '\'+\', or \'-\'',
46182                                                                                                                          'argcode' => undef,
46183                                                                                                                          'lookahead' => 0,
46184                                                                                                                          'line' => 319
46185                                                                                                                        }, 'Parse::RecDescent::Subrule' ),
46186                                                                                                    'rightarg' => bless( {
46187                                                                                                                           'subrule' => '_alternation_1_of_production_1_of_rule_expression',
46188                                                                                                                           'matchrule' => 0,
46189                                                                                                                           'implicit' => '\'+\', or \'-\'',
46190                                                                                                                           'argcode' => undef,
46191                                                                                                                           'lookahead' => 0,
46192                                                                                                                           'line' => 319
46193                                                                                                                         }, 'Parse::RecDescent::Subrule' ),
46194                                                                                                    'hashname' => '__DIRECTIVE1__',
46195                                                                                                    'type' => 'leftop',
46196                                                                                                    'op' => bless( {
46197                                                                                                                     'pattern' => 'operator',
46198                                                                                                                     'hashname' => '__PATTERN1__',
46199                                                                                                                     'description' => '/operator/',
46200                                                                                                                     'lookahead' => 0,
46201                                                                                                                     'rdelim' => '/',
46202                                                                                                                     'line' => 319,
46203                                                                                                                     'mod' => '',
46204                                                                                                                     'ldelim' => '/'
46205                                                                                                                   }, 'Parse::RecDescent::Token' )
46206                                                                                                  }, 'Parse::RecDescent::Operator' )
46207                                                                                         ],
46208                                                                              'line' => undef
46209                                                                            }, 'Parse::RecDescent::Production' )
46210                                                                   ],
46211                                                        'name' => 'expression',
46212                                                        'vars' => '',
46213                                                        'line' => 299
46214                                                      }, 'Parse::RecDescent::Rule' ),
46215                               '_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression' => bless( {
46216                                                                                                                                      'impcount' => 0,
46217                                                                                                                                      'calls' => [
46218                                                                                                                                                   'function',
46219                                                                                                                                                   'expression',
46220                                                                                                                                                   'constant',
46221                                                                                                                                                   'column_name',
46222                                                                                                                                                   'host_variable',
46223                                                                                                                                                   'special_register',
46224                                                                                                                                                   'scalar_fullselect',
46225                                                                                                                                                   'labeled_duration',
46226                                                                                                                                                   'case_expression',
46227                                                                                                                                                   'cast_specification',
46228                                                                                                                                                   'OLAP_function',
46229                                                                                                                                                   'method_invocation',
46230                                                                                                                                                   'subtype_treatment',
46231                                                                                                                                                   'sequence_reference'
46232                                                                                                                                                 ],
46233                                                                                                                                      'changed' => 0,
46234                                                                                                                                      'opcount' => 0,
46235                                                                                                                                      'prods' => [
46236                                                                                                                                                   bless( {
46237                                                                                                                                                            'number' => '0',
46238                                                                                                                                                            'strcount' => 0,
46239                                                                                                                                                            'dircount' => 0,
46240                                                                                                                                                            'uncommit' => undef,
46241                                                                                                                                                            'error' => undef,
46242                                                                                                                                                            'patcount' => 0,
46243                                                                                                                                                            'actcount' => 0,
46244                                                                                                                                                            'items' => [
46245                                                                                                                                                                         bless( {
46246                                                                                                                                                                                  'subrule' => 'function',
46247                                                                                                                                                                                  'matchrule' => 0,
46248                                                                                                                                                                                  'implicit' => undef,
46249                                                                                                                                                                                  'argcode' => undef,
46250                                                                                                                                                                                  'lookahead' => 0,
46251                                                                                                                                                                                  'line' => 613
46252                                                                                                                                                                                }, 'Parse::RecDescent::Subrule' )
46253                                                                                                                                                                       ],
46254                                                                                                                                                            'line' => undef
46255                                                                                                                                                          }, 'Parse::RecDescent::Production' ),
46256                                                                                                                                                   bless( {
46257                                                                                                                                                            'number' => '1',
46258                                                                                                                                                            'strcount' => 2,
46259                                                                                                                                                            'dircount' => 0,
46260                                                                                                                                                            'uncommit' => undef,
46261                                                                                                                                                            'error' => undef,
46262                                                                                                                                                            'patcount' => 0,
46263                                                                                                                                                            'actcount' => 0,
46264                                                                                                                                                            'items' => [
46265                                                                                                                                                                         bless( {
46266                                                                                                                                                                                  'pattern' => '(',
46267                                                                                                                                                                                  'hashname' => '__STRING1__',
46268                                                                                                                                                                                  'description' => '\'(\'',
46269                                                                                                                                                                                  'lookahead' => 0,
46270                                                                                                                                                                                  'line' => 614
46271                                                                                                                                                                                }, 'Parse::RecDescent::Literal' ),
46272                                                                                                                                                                         bless( {
46273                                                                                                                                                                                  'subrule' => 'expression',
46274                                                                                                                                                                                  'matchrule' => 0,
46275                                                                                                                                                                                  'implicit' => undef,
46276                                                                                                                                                                                  'argcode' => undef,
46277                                                                                                                                                                                  'lookahead' => 0,
46278                                                                                                                                                                                  'line' => 614
46279                                                                                                                                                                                }, 'Parse::RecDescent::Subrule' ),
46280                                                                                                                                                                         bless( {
46281                                                                                                                                                                                  'pattern' => ')',
46282                                                                                                                                                                                  'hashname' => '__STRING2__',
46283                                                                                                                                                                                  'description' => '\')\'',
46284                                                                                                                                                                                  'lookahead' => 0,
46285                                                                                                                                                                                  'line' => 614
46286                                                                                                                                                                                }, 'Parse::RecDescent::Literal' )
46287                                                                                                                                                                       ],
46288                                                                                                                                                            'line' => 614
46289                                                                                                                                                          }, 'Parse::RecDescent::Production' ),
46290                                                                                                                                                   bless( {
46291                                                                                                                                                            'number' => '2',
46292                                                                                                                                                            'strcount' => 0,
46293                                                                                                                                                            'dircount' => 0,
46294                                                                                                                                                            'uncommit' => undef,
46295                                                                                                                                                            'error' => undef,
46296                                                                                                                                                            'patcount' => 0,
46297                                                                                                                                                            'actcount' => 0,
46298                                                                                                                                                            'items' => [
46299                                                                                                                                                                         bless( {
46300                                                                                                                                                                                  'subrule' => 'constant',
46301                                                                                                                                                                                  'matchrule' => 0,
46302                                                                                                                                                                                  'implicit' => undef,
46303                                                                                                                                                                                  'argcode' => undef,
46304                                                                                                                                                                                  'lookahead' => 0,
46305                                                                                                                                                                                  'line' => 615
46306                                                                                                                                                                                }, 'Parse::RecDescent::Subrule' )
46307                                                                                                                                                                       ],
46308                                                                                                                                                            'line' => 615
46309                                                                                                                                                          }, 'Parse::RecDescent::Production' ),
46310                                                                                                                                                   bless( {
46311                                                                                                                                                            'number' => '3',
46312                                                                                                                                                            'strcount' => 0,
46313                                                                                                                                                            'dircount' => 0,
46314                                                                                                                                                            'uncommit' => undef,
46315                                                                                                                                                            'error' => undef,
46316                                                                                                                                                            'patcount' => 0,
46317                                                                                                                                                            'actcount' => 0,
46318                                                                                                                                                            'items' => [
46319                                                                                                                                                                         bless( {
46320                                                                                                                                                                                  'subrule' => 'column_name',
46321                                                                                                                                                                                  'matchrule' => 0,
46322                                                                                                                                                                                  'implicit' => undef,
46323                                                                                                                                                                                  'argcode' => undef,
46324                                                                                                                                                                                  'lookahead' => 0,
46325                                                                                                                                                                                  'line' => 616
46326                                                                                                                                                                                }, 'Parse::RecDescent::Subrule' )
46327                                                                                                                                                                       ],
46328                                                                                                                                                            'line' => 616
46329                                                                                                                                                          }, 'Parse::RecDescent::Production' ),
46330                                                                                                                                                   bless( {
46331                                                                                                                                                            'number' => '4',
46332                                                                                                                                                            'strcount' => 0,
46333                                                                                                                                                            'dircount' => 0,
46334                                                                                                                                                            'uncommit' => undef,
46335                                                                                                                                                            'error' => undef,
46336                                                                                                                                                            'patcount' => 0,
46337                                                                                                                                                            'actcount' => 0,
46338                                                                                                                                                            'items' => [
46339                                                                                                                                                                         bless( {
46340                                                                                                                                                                                  'subrule' => 'host_variable',
46341                                                                                                                                                                                  'matchrule' => 0,
46342                                                                                                                                                                                  'implicit' => undef,
46343                                                                                                                                                                                  'argcode' => undef,
46344                                                                                                                                                                                  'lookahead' => 0,
46345                                                                                                                                                                                  'line' => 617
46346                                                                                                                                                                                }, 'Parse::RecDescent::Subrule' )
46347                                                                                                                                                                       ],
46348                                                                                                                                                            'line' => 617
46349                                                                                                                                                          }, 'Parse::RecDescent::Production' ),
46350                                                                                                                                                   bless( {
46351                                                                                                                                                            'number' => '5',
46352                                                                                                                                                            'strcount' => 0,
46353                                                                                                                                                            'dircount' => 0,
46354                                                                                                                                                            'uncommit' => undef,
46355                                                                                                                                                            'error' => undef,
46356                                                                                                                                                            'patcount' => 0,
46357                                                                                                                                                            'actcount' => 0,
46358                                                                                                                                                            'items' => [
46359                                                                                                                                                                         bless( {
46360                                                                                                                                                                                  'subrule' => 'special_register',
46361                                                                                                                                                                                  'matchrule' => 0,
46362                                                                                                                                                                                  'implicit' => undef,
46363                                                                                                                                                                                  'argcode' => undef,
46364                                                                                                                                                                                  'lookahead' => 0,
46365                                                                                                                                                                                  'line' => 618
46366                                                                                                                                                                                }, 'Parse::RecDescent::Subrule' )
46367                                                                                                                                                                       ],
46368                                                                                                                                                            'line' => 618
46369                                                                                                                                                          }, 'Parse::RecDescent::Production' ),
46370                                                                                                                                                   bless( {
46371                                                                                                                                                            'number' => '6',
46372                                                                                                                                                            'strcount' => 2,
46373                                                                                                                                                            'dircount' => 0,
46374                                                                                                                                                            'uncommit' => undef,
46375                                                                                                                                                            'error' => undef,
46376                                                                                                                                                            'patcount' => 0,
46377                                                                                                                                                            'actcount' => 0,
46378                                                                                                                                                            'items' => [
46379                                                                                                                                                                         bless( {
46380                                                                                                                                                                                  'pattern' => '(',
46381                                                                                                                                                                                  'hashname' => '__STRING1__',
46382                                                                                                                                                                                  'description' => '\'(\'',
46383                                                                                                                                                                                  'lookahead' => 0,
46384                                                                                                                                                                                  'line' => 619
46385                                                                                                                                                                                }, 'Parse::RecDescent::Literal' ),
46386                                                                                                                                                                         bless( {
46387                                                                                                                                                                                  'subrule' => 'scalar_fullselect',
46388                                                                                                                                                                                  'matchrule' => 0,
46389                                                                                                                                                                                  'implicit' => undef,
46390                                                                                                                                                                                  'argcode' => undef,
46391                                                                                                                                                                                  'lookahead' => 0,
46392                                                                                                                                                                                  'line' => 619
46393                                                                                                                                                                                }, 'Parse::RecDescent::Subrule' ),
46394                                                                                                                                                                         bless( {
46395                                                                                                                                                                                  'pattern' => ')',
46396                                                                                                                                                                                  'hashname' => '__STRING2__',
46397                                                                                                                                                                                  'description' => '\')\'',
46398                                                                                                                                                                                  'lookahead' => 0,
46399                                                                                                                                                                                  'line' => 619
46400                                                                                                                                                                                }, 'Parse::RecDescent::Literal' )
46401                                                                                                                                                                       ],
46402                                                                                                                                                            'line' => 619
46403                                                                                                                                                          }, 'Parse::RecDescent::Production' ),
46404                                                                                                                                                   bless( {
46405                                                                                                                                                            'number' => '7',
46406                                                                                                                                                            'strcount' => 0,
46407                                                                                                                                                            'dircount' => 0,
46408                                                                                                                                                            'uncommit' => undef,
46409                                                                                                                                                            'error' => undef,
46410                                                                                                                                                            'patcount' => 0,
46411                                                                                                                                                            'actcount' => 0,
46412                                                                                                                                                            'items' => [
46413                                                                                                                                                                         bless( {
46414                                                                                                                                                                                  'subrule' => 'labeled_duration',
46415                                                                                                                                                                                  'matchrule' => 0,
46416                                                                                                                                                                                  'implicit' => undef,
46417                                                                                                                                                                                  'argcode' => undef,
46418                                                                                                                                                                                  'lookahead' => 0,
46419                                                                                                                                                                                  'line' => 620
46420                                                                                                                                                                                }, 'Parse::RecDescent::Subrule' )
46421                                                                                                                                                                       ],
46422                                                                                                                                                            'line' => 620
46423                                                                                                                                                          }, 'Parse::RecDescent::Production' ),
46424                                                                                                                                                   bless( {
46425                                                                                                                                                            'number' => '8',
46426                                                                                                                                                            'strcount' => 0,
46427                                                                                                                                                            'dircount' => 0,
46428                                                                                                                                                            'uncommit' => undef,
46429                                                                                                                                                            'error' => undef,
46430                                                                                                                                                            'patcount' => 0,
46431                                                                                                                                                            'actcount' => 0,
46432                                                                                                                                                            'items' => [
46433                                                                                                                                                                         bless( {
46434                                                                                                                                                                                  'subrule' => 'case_expression',
46435                                                                                                                                                                                  'matchrule' => 0,
46436                                                                                                                                                                                  'implicit' => undef,
46437                                                                                                                                                                                  'argcode' => undef,
46438                                                                                                                                                                                  'lookahead' => 0,
46439                                                                                                                                                                                  'line' => 621
46440                                                                                                                                                                                }, 'Parse::RecDescent::Subrule' )
46441                                                                                                                                                                       ],
46442                                                                                                                                                            'line' => 621
46443                                                                                                                                                          }, 'Parse::RecDescent::Production' ),
46444                                                                                                                                                   bless( {
46445                                                                                                                                                            'number' => '9',
46446                                                                                                                                                            'strcount' => 0,
46447                                                                                                                                                            'dircount' => 0,
46448                                                                                                                                                            'uncommit' => undef,
46449                                                                                                                                                            'error' => undef,
46450                                                                                                                                                            'patcount' => 0,
46451                                                                                                                                                            'actcount' => 0,
46452                                                                                                                                                            'items' => [
46453                                                                                                                                                                         bless( {
46454                                                                                                                                                                                  'subrule' => 'cast_specification',
46455                                                                                                                                                                                  'matchrule' => 0,
46456                                                                                                                                                                                  'implicit' => undef,
46457                                                                                                                                                                                  'argcode' => undef,
46458                                                                                                                                                                                  'lookahead' => 0,
46459                                                                                                                                                                                  'line' => 622
46460                                                                                                                                                                                }, 'Parse::RecDescent::Subrule' )
46461                                                                                                                                                                       ],
46462                                                                                                                                                            'line' => 622
46463                                                                                                                                                          }, 'Parse::RecDescent::Production' ),
46464                                                                                                                                                   bless( {
46465                                                                                                                                                            'number' => '10',
46466                                                                                                                                                            'strcount' => 0,
46467                                                                                                                                                            'dircount' => 0,
46468                                                                                                                                                            'uncommit' => undef,
46469                                                                                                                                                            'error' => undef,
46470                                                                                                                                                            'patcount' => 0,
46471                                                                                                                                                            'actcount' => 0,
46472                                                                                                                                                            'items' => [
46473                                                                                                                                                                         bless( {
46474                                                                                                                                                                                  'subrule' => 'OLAP_function',
46475                                                                                                                                                                                  'matchrule' => 0,
46476                                                                                                                                                                                  'implicit' => undef,
46477                                                                                                                                                                                  'argcode' => undef,
46478                                                                                                                                                                                  'lookahead' => 0,
46479                                                                                                                                                                                  'line' => 624
46480                                                                                                                                                                                }, 'Parse::RecDescent::Subrule' )
46481                                                                                                                                                                       ],
46482                                                                                                                                                            'line' => 623
46483                                                                                                                                                          }, 'Parse::RecDescent::Production' ),
46484                                                                                                                                                   bless( {
46485                                                                                                                                                            'number' => '11',
46486                                                                                                                                                            'strcount' => 0,
46487                                                                                                                                                            'dircount' => 0,
46488                                                                                                                                                            'uncommit' => undef,
46489                                                                                                                                                            'error' => undef,
46490                                                                                                                                                            'patcount' => 0,
46491                                                                                                                                                            'actcount' => 0,
46492                                                                                                                                                            'items' => [
46493                                                                                                                                                                         bless( {
46494                                                                                                                                                                                  'subrule' => 'method_invocation',
46495                                                                                                                                                                                  'matchrule' => 0,
46496                                                                                                                                                                                  'implicit' => undef,
46497                                                                                                                                                                                  'argcode' => undef,
46498                                                                                                                                                                                  'lookahead' => 0,
46499                                                                                                                                                                                  'line' => 625
46500                                                                                                                                                                                }, 'Parse::RecDescent::Subrule' )
46501                                                                                                                                                                       ],
46502                                                                                                                                                            'line' => 625
46503                                                                                                                                                          }, 'Parse::RecDescent::Production' ),
46504                                                                                                                                                   bless( {
46505                                                                                                                                                            'number' => '12',
46506                                                                                                                                                            'strcount' => 0,
46507                                                                                                                                                            'dircount' => 0,
46508                                                                                                                                                            'uncommit' => undef,
46509                                                                                                                                                            'error' => undef,
46510                                                                                                                                                            'patcount' => 0,
46511                                                                                                                                                            'actcount' => 0,
46512                                                                                                                                                            'items' => [
46513                                                                                                                                                                         bless( {
46514                                                                                                                                                                                  'subrule' => 'subtype_treatment',
46515                                                                                                                                                                                  'matchrule' => 0,
46516                                                                                                                                                                                  'implicit' => undef,
46517                                                                                                                                                                                  'argcode' => undef,
46518                                                                                                                                                                                  'lookahead' => 0,
46519                                                                                                                                                                                  'line' => 626
46520                                                                                                                                                                                }, 'Parse::RecDescent::Subrule' )
46521                                                                                                                                                                       ],
46522                                                                                                                                                            'line' => 626
46523                                                                                                                                                          }, 'Parse::RecDescent::Production' ),
46524                                                                                                                                                   bless( {
46525                                                                                                                                                            'number' => '13',
46526                                                                                                                                                            'strcount' => 0,
46527                                                                                                                                                            'dircount' => 0,
46528                                                                                                                                                            'uncommit' => undef,
46529                                                                                                                                                            'error' => undef,
46530                                                                                                                                                            'patcount' => 0,
46531                                                                                                                                                            'actcount' => 0,
46532                                                                                                                                                            'items' => [
46533                                                                                                                                                                         bless( {
46534                                                                                                                                                                                  'subrule' => 'sequence_reference',
46535                                                                                                                                                                                  'matchrule' => 0,
46536                                                                                                                                                                                  'implicit' => undef,
46537                                                                                                                                                                                  'argcode' => undef,
46538                                                                                                                                                                                  'lookahead' => 0,
46539                                                                                                                                                                                  'line' => 627
46540                                                                                                                                                                                }, 'Parse::RecDescent::Subrule' )
46541                                                                                                                                                                       ],
46542                                                                                                                                                            'line' => 627
46543                                                                                                                                                          }, 'Parse::RecDescent::Production' )
46544                                                                                                                                                 ],
46545                                                                                                                                      'name' => '_alternation_2_of_production_1_of_rule__alternation_1_of_production_1_of_rule_expression',
46546                                                                                                                                      'vars' => '',
46547                                                                                                                                      'line' => 613
46548                                                                                                                                    }, 'Parse::RecDescent::Rule' ),
46549                               'startrule' => bless( {
46550                                                       'impcount' => 0,
46551                                                       'calls' => [
46552                                                                    'statement',
46553                                                                    'eofile'
46554                                                                  ],
46555                                                       'changed' => 0,
46556                                                       'opcount' => 0,
46557                                                       'prods' => [
46558                                                                    bless( {
46559                                                                             'number' => '0',
46560                                                                             'strcount' => 0,
46561                                                                             'dircount' => 0,
46562                                                                             'uncommit' => undef,
46563                                                                             'error' => undef,
46564                                                                             'patcount' => 0,
46565                                                                             'actcount' => 1,
46566                                                                             'items' => [
46567                                                                                          bless( {
46568                                                                                                   'subrule' => 'statement',
46569                                                                                                   'expected' => undef,
46570                                                                                                   'min' => 1,
46571                                                                                                   'argcode' => undef,
46572                                                                                                   'max' => 100000000,
46573                                                                                                   'matchrule' => 0,
46574                                                                                                   'repspec' => 's',
46575                                                                                                   'lookahead' => 0,
46576                                                                                                   'line' => 12
46577                                                                                                 }, 'Parse::RecDescent::Repetition' ),
46578                                                                                          bless( {
46579                                                                                                   'subrule' => 'eofile',
46580                                                                                                   'matchrule' => 0,
46581                                                                                                   'implicit' => undef,
46582                                                                                                   'argcode' => undef,
46583                                                                                                   'lookahead' => 0,
46584                                                                                                   'line' => 12
46585                                                                                                 }, 'Parse::RecDescent::Subrule' ),
46586                                                                                          bless( {
46587                                                                                                   'hashname' => '__ACTION1__',
46588                                                                                                   'lookahead' => 0,
46589                                                                                                   'line' => 12,
46590                                                                                                   'code' => '{
46591     $return      = {
46592         tables   => \\%tables,
46593         views    => \\@views,
46594         triggers => \\@triggers,
46595     }
46596 }'
46597                                                                                                 }, 'Parse::RecDescent::Action' )
46598                                                                                        ],
46599                                                                             'line' => undef
46600                                                                           }, 'Parse::RecDescent::Production' )
46601                                                                  ],
46602                                                       'name' => 'startrule',
46603                                                       'vars' => '',
46604                                                       'line' => 11
46605                                                     }, 'Parse::RecDescent::Rule' ),
46606                               '_alternation_1_of_production_1_of_rule_cast_specification' => bless( {
46607                                                                                                       'impcount' => 0,
46608                                                                                                       'calls' => [
46609                                                                                                                    'expression',
46610                                                                                                                    'parameter_marker'
46611                                                                                                                  ],
46612                                                                                                       'changed' => 0,
46613                                                                                                       'opcount' => 0,
46614                                                                                                       'prods' => [
46615                                                                                                                    bless( {
46616                                                                                                                             'number' => '0',
46617                                                                                                                             'strcount' => 0,
46618                                                                                                                             'dircount' => 0,
46619                                                                                                                             'uncommit' => undef,
46620                                                                                                                             'error' => undef,
46621                                                                                                                             'patcount' => 0,
46622                                                                                                                             'actcount' => 0,
46623                                                                                                                             'items' => [
46624                                                                                                                                          bless( {
46625                                                                                                                                                   'subrule' => 'expression',
46626                                                                                                                                                   'matchrule' => 0,
46627                                                                                                                                                   'implicit' => undef,
46628                                                                                                                                                   'argcode' => undef,
46629                                                                                                                                                   'lookahead' => 0,
46630                                                                                                                                                   'line' => 625
46631                                                                                                                                                 }, 'Parse::RecDescent::Subrule' )
46632                                                                                                                                        ],
46633                                                                                                                             'line' => undef
46634                                                                                                                           }, 'Parse::RecDescent::Production' ),
46635                                                                                                                    bless( {
46636                                                                                                                             'number' => '1',
46637                                                                                                                             'strcount' => 0,
46638                                                                                                                             'dircount' => 0,
46639                                                                                                                             'uncommit' => undef,
46640                                                                                                                             'error' => undef,
46641                                                                                                                             'patcount' => 1,
46642                                                                                                                             'actcount' => 0,
46643                                                                                                                             'items' => [
46644                                                                                                                                          bless( {
46645                                                                                                                                                   'pattern' => 'NULL',
46646                                                                                                                                                   'hashname' => '__PATTERN1__',
46647                                                                                                                                                   'description' => '/NULL/i',
46648                                                                                                                                                   'lookahead' => 0,
46649                                                                                                                                                   'rdelim' => '/',
46650                                                                                                                                                   'line' => 626,
46651                                                                                                                                                   'mod' => 'i',
46652                                                                                                                                                   'ldelim' => '/'
46653                                                                                                                                                 }, 'Parse::RecDescent::Token' )
46654                                                                                                                                        ],
46655                                                                                                                             'line' => 626
46656                                                                                                                           }, 'Parse::RecDescent::Production' ),
46657                                                                                                                    bless( {
46658                                                                                                                             'number' => '2',
46659                                                                                                                             'strcount' => 0,
46660                                                                                                                             'dircount' => 0,
46661                                                                                                                             'uncommit' => undef,
46662                                                                                                                             'error' => undef,
46663                                                                                                                             'patcount' => 0,
46664                                                                                                                             'actcount' => 0,
46665                                                                                                                             'items' => [
46666                                                                                                                                          bless( {
46667                                                                                                                                                   'subrule' => 'parameter_marker',
46668                                                                                                                                                   'matchrule' => 0,
46669                                                                                                                                                   'implicit' => undef,
46670                                                                                                                                                   'argcode' => undef,
46671                                                                                                                                                   'lookahead' => 0,
46672                                                                                                                                                   'line' => 627
46673                                                                                                                                                 }, 'Parse::RecDescent::Subrule' )
46674                                                                                                                                        ],
46675                                                                                                                             'line' => 627
46676                                                                                                                           }, 'Parse::RecDescent::Production' )
46677                                                                                                                  ],
46678                                                                                                       'name' => '_alternation_1_of_production_1_of_rule_cast_specification',
46679                                                                                                       'vars' => '',
46680                                                                                                       'line' => 625
46681                                                                                                     }, 'Parse::RecDescent::Rule' ),
46682                               'before' => bless( {
46683                                                    'impcount' => 0,
46684                                                    'calls' => [],
46685                                                    'changed' => 0,
46686                                                    'opcount' => 0,
46687                                                    'prods' => [
46688                                                                 bless( {
46689                                                                          'number' => '0',
46690                                                                          'strcount' => 0,
46691                                                                          'dircount' => 0,
46692                                                                          'uncommit' => undef,
46693                                                                          'error' => undef,
46694                                                                          'patcount' => 1,
46695                                                                          'actcount' => 0,
46696                                                                          'items' => [
46697                                                                                       bless( {
46698                                                                                                'pattern' => 'NO CASCADE BEFORE',
46699                                                                                                'hashname' => '__PATTERN1__',
46700                                                                                                'description' => '/NO CASCADE BEFORE/i',
46701                                                                                                'lookahead' => 0,
46702                                                                                                'rdelim' => '/',
46703                                                                                                'line' => 268,
46704                                                                                                'mod' => 'i',
46705                                                                                                'ldelim' => '/'
46706                                                                                              }, 'Parse::RecDescent::Token' )
46707                                                                                     ],
46708                                                                          'line' => undef
46709                                                                        }, 'Parse::RecDescent::Production' )
46710                                                               ],
46711                                                    'name' => 'before',
46712                                                    'vars' => '',
46713                                                    'line' => 268
46714                                                  }, 'Parse::RecDescent::Rule' ),
46715                               '_alternation_1_of_production_83_of_rule_sysibm_function' => bless( {
46716                                                                                                     'impcount' => 0,
46717                                                                                                     'calls' => [],
46718                                                                                                     'changed' => 0,
46719                                                                                                     'opcount' => 0,
46720                                                                                                     'prods' => [
46721                                                                                                                  bless( {
46722                                                                                                                           'number' => '0',
46723                                                                                                                           'strcount' => 0,
46724                                                                                                                           'dircount' => 0,
46725                                                                                                                           'uncommit' => undef,
46726                                                                                                                           'error' => undef,
46727                                                                                                                           'patcount' => 1,
46728                                                                                                                           'actcount' => 0,
46729                                                                                                                           'items' => [
46730                                                                                                                                        bless( {
46731                                                                                                                                                 'pattern' => 'UCASE',
46732                                                                                                                                                 'hashname' => '__PATTERN1__',
46733                                                                                                                                                 'description' => '/UCASE/i',
46734                                                                                                                                                 'lookahead' => 0,
46735                                                                                                                                                 'rdelim' => '/',
46736                                                                                                                                                 'line' => 628,
46737                                                                                                                                                 'mod' => 'i',
46738                                                                                                                                                 'ldelim' => '/'
46739                                                                                                                                               }, 'Parse::RecDescent::Token' )
46740                                                                                                                                      ],
46741                                                                                                                           'line' => undef
46742                                                                                                                         }, 'Parse::RecDescent::Production' ),
46743                                                                                                                  bless( {
46744                                                                                                                           'number' => '1',
46745                                                                                                                           'strcount' => 0,
46746                                                                                                                           'dircount' => 0,
46747                                                                                                                           'uncommit' => undef,
46748                                                                                                                           'error' => undef,
46749                                                                                                                           'patcount' => 1,
46750                                                                                                                           'actcount' => 0,
46751                                                                                                                           'items' => [
46752                                                                                                                                        bless( {
46753                                                                                                                                                 'pattern' => 'UPPER',
46754                                                                                                                                                 'hashname' => '__PATTERN1__',
46755                                                                                                                                                 'description' => '/UPPER/i',
46756                                                                                                                                                 'lookahead' => 0,
46757                                                                                                                                                 'rdelim' => '/',
46758                                                                                                                                                 'line' => 628,
46759                                                                                                                                                 'mod' => 'i',
46760                                                                                                                                                 'ldelim' => '/'
46761                                                                                                                                               }, 'Parse::RecDescent::Token' )
46762                                                                                                                                      ],
46763                                                                                                                           'line' => 628
46764                                                                                                                         }, 'Parse::RecDescent::Production' )
46765                                                                                                                ],
46766                                                                                                     'name' => '_alternation_1_of_production_83_of_rule_sysibm_function',
46767                                                                                                     'vars' => '',
46768                                                                                                     'line' => 628
46769                                                                                                   }, 'Parse::RecDescent::Rule' ),
46770                               'ranking_function' => bless( {
46771                                                              'impcount' => 1,
46772                                                              'calls' => [
46773                                                                           '_alternation_1_of_production_1_of_rule_ranking_function',
46774                                                                           'window_partition_clause',
46775                                                                           'window_order_clause'
46776                                                                         ],
46777                                                              'changed' => 0,
46778                                                              'opcount' => 0,
46779                                                              'prods' => [
46780                                                                           bless( {
46781                                                                                    'number' => '0',
46782                                                                                    'strcount' => 2,
46783                                                                                    'dircount' => 0,
46784                                                                                    'uncommit' => undef,
46785                                                                                    'error' => undef,
46786                                                                                    'patcount' => 1,
46787                                                                                    'actcount' => 0,
46788                                                                                    'items' => [
46789                                                                                                 bless( {
46790                                                                                                          'subrule' => '_alternation_1_of_production_1_of_rule_ranking_function',
46791                                                                                                          'matchrule' => 0,
46792                                                                                                          'implicit' => '/RANK/, or /DENSE_RANK|DENSERANK/i',
46793                                                                                                          'argcode' => undef,
46794                                                                                                          'lookahead' => 0,
46795                                                                                                          'line' => 544
46796                                                                                                        }, 'Parse::RecDescent::Subrule' ),
46797                                                                                                 bless( {
46798                                                                                                          'pattern' => 'OVER',
46799                                                                                                          'hashname' => '__PATTERN1__',
46800                                                                                                          'description' => '/OVER/i',
46801                                                                                                          'lookahead' => 0,
46802                                                                                                          'rdelim' => '/',
46803                                                                                                          'line' => 544,
46804                                                                                                          'mod' => 'i',
46805                                                                                                          'ldelim' => '/'
46806                                                                                                        }, 'Parse::RecDescent::Token' ),
46807                                                                                                 bless( {
46808                                                                                                          'pattern' => '(',
46809                                                                                                          'hashname' => '__STRING1__',
46810                                                                                                          'description' => '\'(\'',
46811                                                                                                          'lookahead' => 0,
46812                                                                                                          'line' => 544
46813                                                                                                        }, 'Parse::RecDescent::Literal' ),
46814                                                                                                 bless( {
46815                                                                                                          'subrule' => 'window_partition_clause',
46816                                                                                                          'expected' => undef,
46817                                                                                                          'min' => 0,
46818                                                                                                          'argcode' => undef,
46819                                                                                                          'max' => 1,
46820                                                                                                          'matchrule' => 0,
46821                                                                                                          'repspec' => '?',
46822                                                                                                          'lookahead' => 0,
46823                                                                                                          'line' => 544
46824                                                                                                        }, 'Parse::RecDescent::Repetition' ),
46825                                                                                                 bless( {
46826                                                                                                          'subrule' => 'window_order_clause',
46827                                                                                                          'matchrule' => 0,
46828                                                                                                          'implicit' => undef,
46829                                                                                                          'argcode' => undef,
46830                                                                                                          'lookahead' => 0,
46831                                                                                                          'line' => 544
46832                                                                                                        }, 'Parse::RecDescent::Subrule' ),
46833                                                                                                 bless( {
46834                                                                                                          'pattern' => ')',
46835                                                                                                          'hashname' => '__STRING2__',
46836                                                                                                          'description' => '\')\'',
46837                                                                                                          'lookahead' => 0,
46838                                                                                                          'line' => 544
46839                                                                                                        }, 'Parse::RecDescent::Literal' )
46840                                                                                               ],
46841                                                                                    'line' => undef
46842                                                                                  }, 'Parse::RecDescent::Production' )
46843                                                                         ],
46844                                                              'name' => 'ranking_function',
46845                                                              'vars' => '',
46846                                                              'line' => 542
46847                                                            }, 'Parse::RecDescent::Rule' ),
46848                               '_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition' => bless( {
46849                                                                                                                                            'impcount' => 0,
46850                                                                                                                                            'calls' => [
46851                                                                                                                                                         'numeric_constant'
46852                                                                                                                                                       ],
46853                                                                                                                                            'changed' => 0,
46854                                                                                                                                            'opcount' => 0,
46855                                                                                                                                            'prods' => [
46856                                                                                                                                                         bless( {
46857                                                                                                                                                                  'number' => '0',
46858                                                                                                                                                                  'strcount' => 0,
46859                                                                                                                                                                  'dircount' => 0,
46860                                                                                                                                                                  'uncommit' => undef,
46861                                                                                                                                                                  'error' => undef,
46862                                                                                                                                                                  'patcount' => 1,
46863                                                                                                                                                                  'actcount' => 0,
46864                                                                                                                                                                  'items' => [
46865                                                                                                                                                                               bless( {
46866                                                                                                                                                                                        'pattern' => 'SELECTIVITY',
46867                                                                                                                                                                                        'hashname' => '__PATTERN1__',
46868                                                                                                                                                                                        'description' => '/SELECTIVITY/i',
46869                                                                                                                                                                                        'lookahead' => 0,
46870                                                                                                                                                                                        'rdelim' => '/',
46871                                                                                                                                                                                        'line' => 628,
46872                                                                                                                                                                                        'mod' => 'i',
46873                                                                                                                                                                                        'ldelim' => '/'
46874                                                                                                                                                                                      }, 'Parse::RecDescent::Token' ),
46875                                                                                                                                                                               bless( {
46876                                                                                                                                                                                        'subrule' => 'numeric_constant',
46877                                                                                                                                                                                        'matchrule' => 0,
46878                                                                                                                                                                                        'implicit' => undef,
46879                                                                                                                                                                                        'argcode' => undef,
46880                                                                                                                                                                                        'lookahead' => 0,
46881                                                                                                                                                                                        'line' => 628
46882                                                                                                                                                                                      }, 'Parse::RecDescent::Subrule' )
46883                                                                                                                                                                             ],
46884                                                                                                                                                                  'line' => undef
46885                                                                                                                                                                }, 'Parse::RecDescent::Production' )
46886                                                                                                                                                       ],
46887                                                                                                                                            'name' => '_alternation_1_of_production_1_of_rule__alternation_1_of_production_2_of_rule_search_condition',
46888                                                                                                                                            'vars' => '',
46889                                                                                                                                            'line' => 628
46890                                                                                                                                          }, 'Parse::RecDescent::Rule' ),
46891                               '_alternation_1_of_production_1_of_rule_sysibm_function' => bless( {
46892                                                                                                    'impcount' => 0,
46893                                                                                                    'calls' => [],
46894                                                                                                    'changed' => 0,
46895                                                                                                    'opcount' => 0,
46896                                                                                                    'prods' => [
46897                                                                                                                 bless( {
46898                                                                                                                          'number' => '0',
46899                                                                                                                          'strcount' => 0,
46900                                                                                                                          'dircount' => 0,
46901                                                                                                                          'uncommit' => undef,
46902                                                                                                                          'error' => undef,
46903                                                                                                                          'patcount' => 1,
46904                                                                                                                          'actcount' => 0,
46905                                                                                                                          'items' => [
46906                                                                                                                                       bless( {
46907                                                                                                                                                'pattern' => 'ABS',
46908                                                                                                                                                'hashname' => '__PATTERN1__',
46909                                                                                                                                                'description' => '/ABS/i',
46910                                                                                                                                                'lookahead' => 0,
46911                                                                                                                                                'rdelim' => '/',
46912                                                                                                                                                'line' => 628,
46913                                                                                                                                                'mod' => 'i',
46914                                                                                                                                                'ldelim' => '/'
46915                                                                                                                                              }, 'Parse::RecDescent::Token' )
46916                                                                                                                                     ],
46917                                                                                                                          'line' => undef
46918                                                                                                                        }, 'Parse::RecDescent::Production' ),
46919                                                                                                                 bless( {
46920                                                                                                                          'number' => '1',
46921                                                                                                                          'strcount' => 0,
46922                                                                                                                          'dircount' => 0,
46923                                                                                                                          'uncommit' => undef,
46924                                                                                                                          'error' => undef,
46925                                                                                                                          'patcount' => 1,
46926                                                                                                                          'actcount' => 0,
46927                                                                                                                          'items' => [
46928                                                                                                                                       bless( {
46929                                                                                                                                                'pattern' => 'ABSVAL',
46930                                                                                                                                                'hashname' => '__PATTERN1__',
46931                                                                                                                                                'description' => '/ABSVAL/i',
46932                                                                                                                                                'lookahead' => 0,
46933                                                                                                                                                'rdelim' => '/',
46934                                                                                                                                                'line' => 628,
46935                                                                                                                                                'mod' => 'i',
46936                                                                                                                                                'ldelim' => '/'
46937                                                                                                                                              }, 'Parse::RecDescent::Token' )
46938                                                                                                                                     ],
46939                                                                                                                          'line' => 628
46940                                                                                                                        }, 'Parse::RecDescent::Production' )
46941                                                                                                               ],
46942                                                                                                    'name' => '_alternation_1_of_production_1_of_rule_sysibm_function',
46943                                                                                                    'vars' => '',
46944                                                                                                    'line' => 628
46945                                                                                                  }, 'Parse::RecDescent::Rule' ),
46946                               'reference_b' => bless( {
46947                                                         'impcount' => 0,
46948                                                         'calls' => [
46949                                                                      'old_new_corr'
46950                                                                    ],
46951                                                         'changed' => 0,
46952                                                         'opcount' => 0,
46953                                                         'prods' => [
46954                                                                      bless( {
46955                                                                               'number' => '0',
46956                                                                               'strcount' => 0,
46957                                                                               'dircount' => 0,
46958                                                                               'uncommit' => undef,
46959                                                                               'error' => undef,
46960                                                                               'patcount' => 1,
46961                                                                               'actcount' => 1,
46962                                                                               'items' => [
46963                                                                                            bless( {
46964                                                                                                     'pattern' => 'REFERENCING',
46965                                                                                                     'hashname' => '__PATTERN1__',
46966                                                                                                     'description' => '/REFERENCING/i',
46967                                                                                                     'lookahead' => 0,
46968                                                                                                     'rdelim' => '/',
46969                                                                                                     'line' => 280,
46970                                                                                                     'mod' => 'i',
46971                                                                                                     'ldelim' => '/'
46972                                                                                                   }, 'Parse::RecDescent::Token' ),
46973                                                                                            bless( {
46974                                                                                                     'subrule' => 'old_new_corr',
46975                                                                                                     'expected' => undef,
46976                                                                                                     'min' => 0,
46977                                                                                                     'argcode' => undef,
46978                                                                                                     'max' => 2,
46979                                                                                                     'matchrule' => 0,
46980                                                                                                     'repspec' => '0..2',
46981                                                                                                     'lookahead' => 0,
46982                                                                                                     'line' => 280
46983                                                                                                   }, 'Parse::RecDescent::Repetition' ),
46984                                                                                            bless( {
46985                                                                                                     'hashname' => '__ACTION1__',
46986                                                                                                     'lookahead' => 0,
46987                                                                                                     'line' => 281,
46988                                                                                                     'code' => '{ $return = join(\' \', $item[1], join(\' \', @{$item[2]}) ) }'
46989                                                                                                   }, 'Parse::RecDescent::Action' )
46990                                                                                          ],
46991                                                                               'line' => undef
46992                                                                             }, 'Parse::RecDescent::Production' )
46993                                                                    ],
46994                                                         'name' => 'reference_b',
46995                                                         'vars' => '',
46996                                                         'line' => 280
46997                                                       }, 'Parse::RecDescent::Rule' ),
46998                               '_alternation_1_of_production_1_of_rule_simple_when_clause' => bless( {
46999                                                                                                       'impcount' => 1,
47000                                                                                                       'calls' => [
47001                                                                                                                    'search_condition',
47002                                                                                                                    '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause'
47003                                                                                                                  ],
47004                                                                                                       'changed' => 0,
47005                                                                                                       'opcount' => 0,
47006                                                                                                       'prods' => [
47007                                                                                                                    bless( {
47008                                                                                                                             'number' => '0',
47009                                                                                                                             'strcount' => 0,
47010                                                                                                                             'dircount' => 0,
47011                                                                                                                             'uncommit' => undef,
47012                                                                                                                             'error' => undef,
47013                                                                                                                             'patcount' => 2,
47014                                                                                                                             'actcount' => 0,
47015                                                                                                                             'items' => [
47016                                                                                                                                          bless( {
47017                                                                                                                                                   'pattern' => 'WHEN',
47018                                                                                                                                                   'hashname' => '__PATTERN1__',
47019                                                                                                                                                   'description' => '/WHEN/i',
47020                                                                                                                                                   'lookahead' => 0,
47021                                                                                                                                                   'rdelim' => '/',
47022                                                                                                                                                   'line' => 624,
47023                                                                                                                                                   'mod' => 'i',
47024                                                                                                                                                   'ldelim' => '/'
47025                                                                                                                                                 }, 'Parse::RecDescent::Token' ),
47026                                                                                                                                          bless( {
47027                                                                                                                                                   'subrule' => 'search_condition',
47028                                                                                                                                                   'matchrule' => 0,
47029                                                                                                                                                   'implicit' => undef,
47030                                                                                                                                                   'argcode' => undef,
47031                                                                                                                                                   'lookahead' => 0,
47032                                                                                                                                                   'line' => 624
47033                                                                                                                                                 }, 'Parse::RecDescent::Subrule' ),
47034                                                                                                                                          bless( {
47035                                                                                                                                                   'pattern' => 'THEN',
47036                                                                                                                                                   'hashname' => '__PATTERN2__',
47037                                                                                                                                                   'description' => '/THEN/i',
47038                                                                                                                                                   'lookahead' => 0,
47039                                                                                                                                                   'rdelim' => '/',
47040                                                                                                                                                   'line' => 624,
47041                                                                                                                                                   'mod' => 'i',
47042                                                                                                                                                   'ldelim' => '/'
47043                                                                                                                                                 }, 'Parse::RecDescent::Token' ),
47044                                                                                                                                          bless( {
47045                                                                                                                                                   'subrule' => '_alternation_1_of_production_1_of_rule__alternation_1_of_production_1_of_rule_simple_when_clause',
47046                                                                                                                                                   'matchrule' => 0,
47047                                                                                                                                                   'implicit' => 'result_expression, or /NULL/i',
47048                                                                                                                                                   'argcode' => undef,
47049                                                                                                                                                   'lookahead' => 0,
47050                                                                                                                                                   'line' => 627
47051                                                                                                                                                 }, 'Parse::RecDescent::Subrule' )
47052                                                                                                                                        ],
47053                                                                                                                             'line' => undef
47054                                                                                                                           }, 'Parse::RecDescent::Production' )
47055                                                                                                                  ],
47056                                                                                                       'name' => '_alternation_1_of_production_1_of_rule_simple_when_clause',
47057                                                                                                       'vars' => '',
47058                                                                                                       'line' => 624
47059                                                                                                     }, 'Parse::RecDescent::Rule' ),
47060                               '_alternation_1_of_production_9_of_rule_sysibm_function' => bless( {
47061                                                                                                    'impcount' => 0,
47062                                                                                                    'calls' => [],
47063                                                                                                    'changed' => 0,
47064                                                                                                    'opcount' => 0,
47065                                                                                                    'prods' => [
47066                                                                                                                 bless( {
47067                                                                                                                          'number' => '0',
47068                                                                                                                          'strcount' => 0,
47069                                                                                                                          'dircount' => 0,
47070                                                                                                                          'uncommit' => undef,
47071                                                                                                                          'error' => undef,
47072                                                                                                                          'patcount' => 1,
47073                                                                                                                          'actcount' => 0,
47074                                                                                                                          'items' => [
47075                                                                                                                                       bless( {
47076                                                                                                                                                'pattern' => 'CORRELATION',
47077                                                                                                                                                'hashname' => '__PATTERN1__',
47078                                                                                                                                                'description' => '/CORRELATION/i',
47079                                                                                                                                                'lookahead' => 0,
47080                                                                                                                                                'rdelim' => '/',
47081                                                                                                                                                'line' => 628,
47082                                                                                                                                                'mod' => 'i',
47083                                                                                                                                                'ldelim' => '/'
47084                                                                                                                                              }, 'Parse::RecDescent::Token' )
47085                                                                                                                                     ],
47086                                                                                                                          'line' => undef
47087                                                                                                                        }, 'Parse::RecDescent::Production' ),
47088                                                                                                                 bless( {
47089                                                                                                                          'number' => '1',
47090                                                                                                                          'strcount' => 0,
47091                                                                                                                          'dircount' => 0,
47092                                                                                                                          'uncommit' => undef,
47093                                                                                                                          'error' => undef,
47094                                                                                                                          'patcount' => 1,
47095                                                                                                                          'actcount' => 0,
47096                                                                                                                          'items' => [
47097                                                                                                                                       bless( {
47098                                                                                                                                                'pattern' => 'CORR',
47099                                                                                                                                                'hashname' => '__PATTERN1__',
47100                                                                                                                                                'description' => '/CORR/',
47101                                                                                                                                                'lookahead' => 0,
47102                                                                                                                                                'rdelim' => '/',
47103                                                                                                                                                'line' => 628,
47104                                                                                                                                                'mod' => '',
47105                                                                                                                                                'ldelim' => '/'
47106                                                                                                                                              }, 'Parse::RecDescent::Token' )
47107                                                                                                                                     ],
47108                                                                                                                          'line' => 628
47109                                                                                                                        }, 'Parse::RecDescent::Production' )
47110                                                                                                               ],
47111                                                                                                    'name' => '_alternation_1_of_production_9_of_rule_sysibm_function',
47112                                                                                                    'vars' => '',
47113                                                                                                    'line' => 628
47114                                                                                                  }, 'Parse::RecDescent::Rule' ),
47115                               '_alternation_1_of_production_7_of_rule_sysfun' => bless( {
47116                                                                                           'impcount' => 0,
47117                                                                                           'calls' => [],
47118                                                                                           'changed' => 0,
47119                                                                                           'opcount' => 0,
47120                                                                                           'prods' => [
47121                                                                                                        bless( {
47122                                                                                                                 'number' => '0',
47123                                                                                                                 'strcount' => 0,
47124                                                                                                                 'dircount' => 0,
47125                                                                                                                 'uncommit' => undef,
47126                                                                                                                 'error' => undef,
47127                                                                                                                 'patcount' => 1,
47128                                                                                                                 'actcount' => 0,
47129                                                                                                                 'items' => [
47130                                                                                                                              bless( {
47131                                                                                                                                       'pattern' => 'CEIL',
47132                                                                                                                                       'hashname' => '__PATTERN1__',
47133                                                                                                                                       'description' => '/CEIL/i',
47134                                                                                                                                       'lookahead' => 0,
47135                                                                                                                                       'rdelim' => '/',
47136                                                                                                                                       'line' => 628,
47137                                                                                                                                       'mod' => 'i',
47138                                                                                                                                       'ldelim' => '/'
47139                                                                                                                                     }, 'Parse::RecDescent::Token' )
47140                                                                                                                            ],
47141                                                                                                                 'line' => undef
47142                                                                                                               }, 'Parse::RecDescent::Production' ),
47143                                                                                                        bless( {
47144                                                                                                                 'number' => '1',
47145                                                                                                                 'strcount' => 0,
47146                                                                                                                 'dircount' => 0,
47147                                                                                                                 'uncommit' => undef,
47148                                                                                                                 'error' => undef,
47149                                                                                                                 'patcount' => 1,
47150                                                                                                                 'actcount' => 0,
47151                                                                                                                 'items' => [
47152                                                                                                                              bless( {
47153                                                                                                                                       'pattern' => 'CEILING',
47154                                                                                                                                       'hashname' => '__PATTERN1__',
47155                                                                                                                                       'description' => '/CEILING/i',
47156                                                                                                                                       'lookahead' => 0,
47157                                                                                                                                       'rdelim' => '/',
47158                                                                                                                                       'line' => 628,
47159                                                                                                                                       'mod' => 'i',
47160                                                                                                                                       'ldelim' => '/'
47161                                                                                                                                     }, 'Parse::RecDescent::Token' )
47162                                                                                                                            ],
47163                                                                                                                 'line' => 628
47164                                                                                                               }, 'Parse::RecDescent::Production' )
47165                                                                                                      ],
47166                                                                                           'name' => '_alternation_1_of_production_7_of_rule_sysfun',
47167                                                                                           'vars' => '',
47168                                                                                           'line' => 628
47169                                                                                         }, 'Parse::RecDescent::Rule' ),
47170                               'prevval_expression' => bless( {
47171                                                                'impcount' => 0,
47172                                                                'calls' => [
47173                                                                             'sequence_name'
47174                                                                           ],
47175                                                                'changed' => 0,
47176                                                                'opcount' => 0,
47177                                                                'prods' => [
47178                                                                             bless( {
47179                                                                                      'number' => '0',
47180                                                                                      'strcount' => 0,
47181                                                                                      'dircount' => 0,
47182                                                                                      'uncommit' => undef,
47183                                                                                      'error' => undef,
47184                                                                                      'patcount' => 1,
47185                                                                                      'actcount' => 0,
47186                                                                                      'items' => [
47187                                                                                                   bless( {
47188                                                                                                            'pattern' => 'PREVVAL\\s+FOR',
47189                                                                                                            'hashname' => '__PATTERN1__',
47190                                                                                                            'description' => '/PREVVAL\\\\s+FOR/i',
47191                                                                                                            'lookahead' => 0,
47192                                                                                                            'rdelim' => '/',
47193                                                                                                            'line' => 613,
47194                                                                                                            'mod' => 'i',
47195                                                                                                            'ldelim' => '/'
47196                                                                                                          }, 'Parse::RecDescent::Token' ),
47197                                                                                                   bless( {
47198                                                                                                            'subrule' => 'sequence_name',
47199                                                                                                            'matchrule' => 0,
47200                                                                                                            'implicit' => undef,
47201                                                                                                            'argcode' => undef,
47202                                                                                                            'lookahead' => 0,
47203                                                                                                            'line' => 613
47204                                                                                                          }, 'Parse::RecDescent::Subrule' )
47205                                                                                                 ],
47206                                                                                      'line' => undef
47207                                                                                    }, 'Parse::RecDescent::Production' )
47208                                                                           ],
47209                                                                'name' => 'prevval_expression',
47210                                                                'vars' => '',
47211                                                                'line' => 613
47212                                                              }, 'Parse::RecDescent::Rule' ),
47213                               'where_clause' => bless( {
47214                                                          'impcount' => 0,
47215                                                          'calls' => [
47216                                                                       'WHERE',
47217                                                                       'search_condition'
47218                                                                     ],
47219                                                          'changed' => 0,
47220                                                          'opcount' => 0,
47221                                                          'prods' => [
47222                                                                       bless( {
47223                                                                                'number' => '0',
47224                                                                                'strcount' => 0,
47225                                                                                'dircount' => 0,
47226                                                                                'uncommit' => undef,
47227                                                                                'error' => undef,
47228                                                                                'patcount' => 0,
47229                                                                                'actcount' => 0,
47230                                                                                'items' => [
47231                                                                                             bless( {
47232                                                                                                      'subrule' => 'WHERE',
47233                                                                                                      'matchrule' => 0,
47234                                                                                                      'implicit' => undef,
47235                                                                                                      'argcode' => undef,
47236                                                                                                      'lookahead' => 0,
47237                                                                                                      'line' => 218
47238                                                                                                    }, 'Parse::RecDescent::Subrule' ),
47239                                                                                             bless( {
47240                                                                                                      'subrule' => 'search_condition',
47241                                                                                                      'matchrule' => 0,
47242                                                                                                      'implicit' => undef,
47243                                                                                                      'argcode' => undef,
47244                                                                                                      'lookahead' => 0,
47245                                                                                                      'line' => 218
47246                                                                                                    }, 'Parse::RecDescent::Subrule' )
47247                                                                                           ],
47248                                                                                'line' => undef
47249                                                                              }, 'Parse::RecDescent::Production' )
47250                                                                     ],
47251                                                          'name' => 'where_clause',
47252                                                          'vars' => '',
47253                                                          'line' => 216
47254                                                        }, 'Parse::RecDescent::Rule' ),
47255                               'group_start' => bless( {
47256                                                         'impcount' => 0,
47257                                                         'calls' => [
47258                                                                      'unsigned_constant'
47259                                                                    ],
47260                                                         'changed' => 0,
47261                                                         'opcount' => 0,
47262                                                         'prods' => [
47263                                                                      bless( {
47264                                                                               'number' => '0',
47265                                                                               'strcount' => 0,
47266                                                                               'dircount' => 0,
47267                                                                               'uncommit' => undef,
47268                                                                               'error' => undef,
47269                                                                               'patcount' => 1,
47270                                                                               'actcount' => 0,
47271                                                                               'items' => [
47272                                                                                            bless( {
47273                                                                                                     'pattern' => 'UNBOUNDED\\s+PRECEDING',
47274                                                                                                     'hashname' => '__PATTERN1__',
47275                                                                                                     'description' => '/UNBOUNDED\\\\s+PRECEDING/i',
47276                                                                                                     'lookahead' => 0,
47277                                                                                                     'rdelim' => '/',
47278                                                                                                     'line' => 574,
47279                                                                                                     'mod' => 'i',
47280                                                                                                     'ldelim' => '/'
47281                                                                                                   }, 'Parse::RecDescent::Token' )
47282                                                                                          ],
47283                                                                               'line' => undef
47284                                                                             }, 'Parse::RecDescent::Production' ),
47285                                                                      bless( {
47286                                                                               'number' => '1',
47287                                                                               'strcount' => 0,
47288                                                                               'dircount' => 0,
47289                                                                               'uncommit' => undef,
47290                                                                               'error' => undef,
47291                                                                               'patcount' => 1,
47292                                                                               'actcount' => 0,
47293                                                                               'items' => [
47294                                                                                            bless( {
47295                                                                                                     'subrule' => 'unsigned_constant',
47296                                                                                                     'matchrule' => 0,
47297                                                                                                     'implicit' => undef,
47298                                                                                                     'argcode' => undef,
47299                                                                                                     'lookahead' => 0,
47300                                                                                                     'line' => 575
47301                                                                                                   }, 'Parse::RecDescent::Subrule' ),
47302                                                                                            bless( {
47303                                                                                                     'pattern' => 'PRECEDING',
47304                                                                                                     'hashname' => '__PATTERN1__',
47305                                                                                                     'description' => '/PRECEDING/i',
47306                                                                                                     'lookahead' => 0,
47307                                                                                                     'rdelim' => '/',
47308                                                                                                     'line' => 575,
47309                                                                                                     'mod' => 'i',
47310                                                                                                     'ldelim' => '/'
47311                                                                                                   }, 'Parse::RecDescent::Token' )
47312                                                                                          ],
47313                                                                               'line' => 575
47314                                                                             }, 'Parse::RecDescent::Production' ),
47315                                                                      bless( {
47316                                                                               'number' => '2',
47317                                                                               'strcount' => 0,
47318                                                                               'dircount' => 0,
47319                                                                               'uncommit' => undef,
47320                                                                               'error' => undef,
47321                                                                               'patcount' => 1,
47322                                                                               'actcount' => 0,
47323                                                                               'items' => [
47324                                                                                            bless( {
47325                                                                                                     'pattern' => 'CURRENT\\s+ROW',
47326                                                                                                     'hashname' => '__PATTERN1__',
47327                                                                                                     'description' => '/CURRENT\\\\s+ROW/i',
47328                                                                                                     'lookahead' => 0,
47329                                                                                                     'rdelim' => '/',
47330                                                                                                     'line' => 576,
47331                                                                                                     'mod' => 'i',
47332                                                                                                     'ldelim' => '/'
47333                                                                                                   }, 'Parse::RecDescent::Token' )
47334                                                                                          ],
47335                                                                               'line' => 576
47336                                                                             }, 'Parse::RecDescent::Production' )
47337                                                                    ],
47338                                                         'name' => 'group_start',
47339                                                         'vars' => '',
47340                                                         'line' => 574
47341                                                       }, 'Parse::RecDescent::Rule' ),
47342                               'correlation_name' => bless( {
47343                                                              'impcount' => 0,
47344                                                              'calls' => [
47345                                                                           'NAME'
47346                                                                         ],
47347                                                              'changed' => 0,
47348                                                              'opcount' => 0,
47349                                                              'prods' => [
47350                                                                           bless( {
47351                                                                                    'number' => '0',
47352                                                                                    'strcount' => 0,
47353                                                                                    'dircount' => 0,
47354                                                                                    'uncommit' => undef,
47355                                                                                    'error' => undef,
47356                                                                                    'patcount' => 0,
47357                                                                                    'actcount' => 0,
47358                                                                                    'items' => [
47359                                                                                                 bless( {
47360                                                                                                          'subrule' => 'NAME',
47361                                                                                                          'matchrule' => 0,
47362                                                                                                          'implicit' => undef,
47363                                                                                                          'argcode' => undef,
47364                                                                                                          'lookahead' => 0,
47365                                                                                                          'line' => 138
47366                                                                                                        }, 'Parse::RecDescent::Subrule' )
47367                                                                                               ],
47368                                                                                    'line' => undef
47369                                                                                  }, 'Parse::RecDescent::Production' )
47370                                                                         ],
47371                                                              'name' => 'correlation_name',
47372                                                              'vars' => '',
47373                                                              'line' => 138
47374                                                            }, 'Parse::RecDescent::Rule' ),
47375                               'SQL_procedure_statement' => bless( {
47376                                                                     'impcount' => 0,
47377                                                                     'calls' => [],
47378                                                                     'changed' => 0,
47379                                                                     'opcount' => 0,
47380                                                                     'prods' => [
47381                                                                                  bless( {
47382                                                                                           'number' => '0',
47383                                                                                           'strcount' => 0,
47384                                                                                           'dircount' => 0,
47385                                                                                           'uncommit' => undef,
47386                                                                                           'error' => undef,
47387                                                                                           'patcount' => 2,
47388                                                                                           'actcount' => 1,
47389                                                                                           'items' => [
47390                                                                                                        bless( {
47391                                                                                                                 'pattern' => '[^;]*',
47392                                                                                                                 'hashname' => '__PATTERN1__',
47393                                                                                                                 'description' => '/[^;]*/',
47394                                                                                                                 'lookahead' => 0,
47395                                                                                                                 'rdelim' => '/',
47396                                                                                                                 'line' => 94,
47397                                                                                                                 'mod' => '',
47398                                                                                                                 'ldelim' => '/'
47399                                                                                                               }, 'Parse::RecDescent::Token' ),
47400                                                                                                        bless( {
47401                                                                                                                 'pattern' => '(;|\\z)',
47402                                                                                                                 'hashname' => '__PATTERN2__',
47403                                                                                                                 'description' => '/(;|\\\\z)/',
47404                                                                                                                 'lookahead' => 0,
47405                                                                                                                 'rdelim' => '/',
47406                                                                                                                 'line' => 94,
47407                                                                                                                 'mod' => '',
47408                                                                                                                 'ldelim' => '/'
47409                                                                                                               }, 'Parse::RecDescent::Token' ),
47410                                                                                                        bless( {
47411                                                                                                                 'hashname' => '__ACTION1__',
47412                                                                                                                 'lookahead' => 0,
47413                                                                                                                 'line' => 94,
47414                                                                                                                 'code' => '{ $return = $item[1] . $item[2] }'
47415                                                                                                               }, 'Parse::RecDescent::Action' )
47416                                                                                                      ],
47417                                                                                           'line' => undef
47418                                                                                         }, 'Parse::RecDescent::Production' )
47419                                                                                ],
47420                                                                     'name' => 'SQL_procedure_statement',
47421                                                                     'vars' => '',
47422                                                                     'line' => 94
47423                                                                   }, 'Parse::RecDescent::Rule' ),
47424                               'group_between' => bless( {
47425                                                           'impcount' => 0,
47426                                                           'calls' => [
47427                                                                        'group_bound1',
47428                                                                        'group_bound2'
47429                                                                      ],
47430                                                           'changed' => 0,
47431                                                           'opcount' => 0,
47432                                                           'prods' => [
47433                                                                        bless( {
47434                                                                                 'number' => '0',
47435                                                                                 'strcount' => 0,
47436                                                                                 'dircount' => 0,
47437                                                                                 'uncommit' => undef,
47438                                                                                 'error' => undef,
47439                                                                                 'patcount' => 2,
47440                                                                                 'actcount' => 0,
47441                                                                                 'items' => [
47442                                                                                              bless( {
47443                                                                                                       'pattern' => 'BETWEEN',
47444                                                                                                       'hashname' => '__PATTERN1__',
47445                                                                                                       'description' => '/BETWEEN/i',
47446                                                                                                       'lookahead' => 0,
47447                                                                                                       'rdelim' => '/',
47448                                                                                                       'line' => 578,
47449                                                                                                       'mod' => 'i',
47450                                                                                                       'ldelim' => '/'
47451                                                                                                     }, 'Parse::RecDescent::Token' ),
47452                                                                                              bless( {
47453                                                                                                       'subrule' => 'group_bound1',
47454                                                                                                       'matchrule' => 0,
47455                                                                                                       'implicit' => undef,
47456                                                                                                       'argcode' => undef,
47457                                                                                                       'lookahead' => 0,
47458                                                                                                       'line' => 578
47459                                                                                                     }, 'Parse::RecDescent::Subrule' ),
47460                                                                                              bless( {
47461                                                                                                       'pattern' => 'AND',
47462                                                                                                       'hashname' => '__PATTERN2__',
47463                                                                                                       'description' => '/AND/i',
47464                                                                                                       'lookahead' => 0,
47465                                                                                                       'rdelim' => '/',
47466                                                                                                       'line' => 578,
47467                                                                                                       'mod' => 'i',
47468                                                                                                       'ldelim' => '/'
47469                                                                                                     }, 'Parse::RecDescent::Token' ),
47470                                                                                              bless( {
47471                                                                                                       'subrule' => 'group_bound2',
47472                                                                                                       'matchrule' => 0,
47473                                                                                                       'implicit' => undef,
47474                                                                                                       'argcode' => undef,
47475                                                                                                       'lookahead' => 0,
47476                                                                                                       'line' => 578
47477                                                                                                     }, 'Parse::RecDescent::Subrule' )
47478                                                                                            ],
47479                                                                                 'line' => undef
47480                                                                               }, 'Parse::RecDescent::Production' )
47481                                                                      ],
47482                                                           'name' => 'group_between',
47483                                                           'vars' => '',
47484                                                           'line' => 578
47485                                                         }, 'Parse::RecDescent::Rule' ),
47486                               'nextval_expression' => bless( {
47487                                                                'impcount' => 0,
47488                                                                'calls' => [
47489                                                                             'sequence_name'
47490                                                                           ],
47491                                                                'changed' => 0,
47492                                                                'opcount' => 0,
47493                                                                'prods' => [
47494                                                                             bless( {
47495                                                                                      'number' => '0',
47496                                                                                      'strcount' => 0,
47497                                                                                      'dircount' => 0,
47498                                                                                      'uncommit' => undef,
47499                                                                                      'error' => undef,
47500                                                                                      'patcount' => 1,
47501                                                                                      'actcount' => 0,
47502                                                                                      'items' => [
47503                                                                                                   bless( {
47504                                                                                                            'pattern' => 'NEXTVAL\\s+FOR',
47505                                                                                                            'hashname' => '__PATTERN1__',
47506                                                                                                            'description' => '/NEXTVAL\\\\s+FOR/i',
47507                                                                                                            'lookahead' => 0,
47508                                                                                                            'rdelim' => '/',
47509                                                                                                            'line' => 611,
47510                                                                                                            'mod' => 'i',
47511                                                                                                            'ldelim' => '/'
47512                                                                                                          }, 'Parse::RecDescent::Token' ),
47513                                                                                                   bless( {
47514                                                                                                            'subrule' => 'sequence_name',
47515                                                                                                            'matchrule' => 0,
47516                                                                                                            'implicit' => undef,
47517                                                                                                            'argcode' => undef,
47518                                                                                                            'lookahead' => 0,
47519                                                                                                            'line' => 611
47520                                                                                                          }, 'Parse::RecDescent::Subrule' )
47521                                                                                                 ],
47522                                                                                      'line' => undef
47523                                                                                    }, 'Parse::RecDescent::Production' )
47524                                                                           ],
47525                                                                'name' => 'nextval_expression',
47526                                                                'vars' => '',
47527                                                                'line' => 611
47528                                                              }, 'Parse::RecDescent::Rule' ),
47529                               'desc_option' => bless( {
47530                                                         'impcount' => 1,
47531                                                         'calls' => [
47532                                                                      '_alternation_1_of_production_1_of_rule_desc_option'
47533                                                                    ],
47534                                                         'changed' => 0,
47535                                                         'opcount' => 0,
47536                                                         'prods' => [
47537                                                                      bless( {
47538                                                                               'number' => '0',
47539                                                                               'strcount' => 0,
47540                                                                               'dircount' => 0,
47541                                                                               'uncommit' => undef,
47542                                                                               'error' => undef,
47543                                                                               'patcount' => 1,
47544                                                                               'actcount' => 0,
47545                                                                               'items' => [
47546                                                                                            bless( {
47547                                                                                                     'pattern' => 'DESC',
47548                                                                                                     'hashname' => '__PATTERN1__',
47549                                                                                                     'description' => '/DESC/i',
47550                                                                                                     'lookahead' => 0,
47551                                                                                                     'rdelim' => '/',
47552                                                                                                     'line' => 564,
47553                                                                                                     'mod' => 'i',
47554                                                                                                     'ldelim' => '/'
47555                                                                                                   }, 'Parse::RecDescent::Token' ),
47556                                                                                            bless( {
47557                                                                                                     'subrule' => '_alternation_1_of_production_1_of_rule_desc_option',
47558                                                                                                     'expected' => '/NULLS\\\\s+FIRST/i, or /NULLS\\\\s+LAST/i',
47559                                                                                                     'min' => 0,
47560                                                                                                     'argcode' => undef,
47561                                                                                                     'max' => 1,
47562                                                                                                     'matchrule' => 0,
47563                                                                                                     'repspec' => '?',
47564                                                                                                     'lookahead' => 0,
47565                                                                                                     'line' => 564
47566                                                                                                   }, 'Parse::RecDescent::Repetition' )
47567                                                                                          ],
47568                                                                               'line' => undef
47569                                                                             }, 'Parse::RecDescent::Production' )
47570                                                                    ],
47571                                                         'name' => 'desc_option',
47572                                                         'vars' => '',
47573                                                         'line' => 564
47574                                                       }, 'Parse::RecDescent::Rule' ),
47575                               'column_list' => bless( {
47576                                                         'impcount' => 0,
47577                                                         'calls' => [
47578                                                                      'column_name'
47579                                                                    ],
47580                                                         'changed' => 0,
47581                                                         'opcount' => 0,
47582                                                         'prods' => [
47583                                                                      bless( {
47584                                                                               'number' => '0',
47585                                                                               'strcount' => 2,
47586                                                                               'dircount' => 1,
47587                                                                               'uncommit' => undef,
47588                                                                               'error' => undef,
47589                                                                               'patcount' => 1,
47590                                                                               'actcount' => 1,
47591                                                                               'op' => [],
47592                                                                               'items' => [
47593                                                                                            bless( {
47594                                                                                                     'pattern' => '(',
47595                                                                                                     'hashname' => '__STRING1__',
47596                                                                                                     'description' => '\'(\'',
47597                                                                                                     'lookahead' => 0,
47598                                                                                                     'line' => 96
47599                                                                                                   }, 'Parse::RecDescent::Literal' ),
47600                                                                                            bless( {
47601                                                                                                     'expected' => '<leftop: column_name /,/ column_name>',
47602                                                                                                     'min' => 1,
47603                                                                                                     'name' => '\'column_name(s)\'',
47604                                                                                                     'max' => 100000000,
47605                                                                                                     'leftarg' => bless( {
47606                                                                                                                           'subrule' => 'column_name',
47607                                                                                                                           'matchrule' => 0,
47608                                                                                                                           'implicit' => undef,
47609                                                                                                                           'argcode' => undef,
47610                                                                                                                           'lookahead' => 0,
47611                                                                                                                           'line' => 96
47612                                                                                                                         }, 'Parse::RecDescent::Subrule' ),
47613                                                                                                     'rightarg' => bless( {
47614                                                                                                                            'subrule' => 'column_name',
47615                                                                                                                            'matchrule' => 0,
47616                                                                                                                            'implicit' => undef,
47617                                                                                                                            'argcode' => undef,
47618                                                                                                                            'lookahead' => 0,
47619                                                                                                                            'line' => 96
47620                                                                                                                          }, 'Parse::RecDescent::Subrule' ),
47621                                                                                                     'hashname' => '__DIRECTIVE1__',
47622                                                                                                     'type' => 'leftop',
47623                                                                                                     'op' => bless( {
47624                                                                                                                      'pattern' => ',',
47625                                                                                                                      'hashname' => '__PATTERN1__',
47626                                                                                                                      'description' => '/,/',
47627                                                                                                                      'lookahead' => 0,
47628                                                                                                                      'rdelim' => '/',
47629                                                                                                                      'line' => 96,
47630                                                                                                                      'mod' => '',
47631                                                                                                                      'ldelim' => '/'
47632                                                                                                                    }, 'Parse::RecDescent::Token' )
47633                                                                                                   }, 'Parse::RecDescent::Operator' ),
47634                                                                                            bless( {
47635                                                                                                     'pattern' => ')',
47636                                                                                                     'hashname' => '__STRING2__',
47637                                                                                                     'description' => '\')\'',
47638                                                                                                     'lookahead' => 0,
47639                                                                                                     'line' => 96
47640                                                                                                   }, 'Parse::RecDescent::Literal' ),
47641                                                                                            bless( {
47642                                                                                                     'hashname' => '__ACTION1__',
47643                                                                                                     'lookahead' => 0,
47644                                                                                                     'line' => 97,
47645                                                                                                     'code' => '{
47646     $return = join(\' \', \'(\', @{$item[2]}, \')\');
47647 }'
47648                                                                                                   }, 'Parse::RecDescent::Action' )
47649                                                                                          ],
47650                                                                               'line' => undef
47651                                                                             }, 'Parse::RecDescent::Production' )
47652                                                                    ],
47653                                                         'name' => 'column_list',
47654                                                         'vars' => '',
47655                                                         'line' => 96
47656                                                       }, 'Parse::RecDescent::Rule' ),
47657                               '_alternation_1_of_production_63_of_rule_sysibm_function' => bless( {
47658                                                                                                     'impcount' => 0,
47659                                                                                                     'calls' => [],
47660                                                                                                     'changed' => 0,
47661                                                                                                     'opcount' => 0,
47662                                                                                                     'prods' => [
47663                                                                                                                  bless( {
47664                                                                                                                           'number' => '0',
47665                                                                                                                           'strcount' => 0,
47666                                                                                                                           'dircount' => 0,
47667                                                                                                                           'uncommit' => undef,
47668                                                                                                                           'error' => undef,
47669                                                                                                                           'patcount' => 1,
47670                                                                                                                           'actcount' => 0,
47671                                                                                                                           'items' => [
47672                                                                                                                                        bless( {
47673                                                                                                                                                 'pattern' => 'REGR_INTERCEPT',
47674                                                                                                                                                 'hashname' => '__PATTERN1__',
47675                                                                                                                                                 'description' => '/REGR_INTERCEPT/i',
47676                                                                                                                                                 'lookahead' => 0,
47677                                                                                                                                                 'rdelim' => '/',
47678                                                                                                                                                 'line' => 628,
47679                                                                                                                                                 'mod' => 'i',
47680                                                                                                                                                 'ldelim' => '/'
47681                                                                                                                                               }, 'Parse::RecDescent::Token' )
47682                                                                                                                                      ],
47683                                                                                                                           'line' => undef
47684                                                                                                                         }, 'Parse::RecDescent::Production' ),
47685                                                                                                                  bless( {
47686                                                                                                                           'number' => '1',
47687                                                                                                                           'strcount' => 0,
47688                                                                                                                           'dircount' => 0,
47689                                                                                                                           'uncommit' => undef,
47690                                                                                                                           'error' => undef,
47691                                                                                                                           'patcount' => 1,
47692                                                                                                                           'actcount' => 0,
47693                                                                                                                           'items' => [
47694                                                                                                                                        bless( {
47695                                                                                                                                                 'pattern' => 'REGR_ICPT',
47696                                                                                                                                                 'hashname' => '__PATTERN1__',
47697                                                                                                                                                 'description' => '/REGR_ICPT/i',
47698                                                                                                                                                 'lookahead' => 0,
47699                                                                                                                                                 'rdelim' => '/',
47700                                                                                                                                                 'line' => 628,
47701                                                                                                                                                 'mod' => 'i',
47702                                                                                                                                                 'ldelim' => '/'
47703                                                                                                                                               }, 'Parse::RecDescent::Token' )
47704                                                                                                                                      ],
47705                                                                                                                           'line' => 628
47706                                                                                                                         }, 'Parse::RecDescent::Production' )
47707                                                                                                                ],
47708                                                                                                     'name' => '_alternation_1_of_production_63_of_rule_sysibm_function',
47709                                                                                                     'vars' => '',
47710                                                                                                     'line' => 628
47711                                                                                                   }, 'Parse::RecDescent::Rule' ),
47712                               'dereference_operation' => bless( {
47713                                                                   'impcount' => 1,
47714                                                                   'calls' => [
47715                                                                                'scoped_reference_expression',
47716                                                                                'name1',
47717                                                                                '_alternation_1_of_production_1_of_rule_dereference_operation'
47718                                                                              ],
47719                                                                   'changed' => 0,
47720                                                                   'opcount' => 0,
47721                                                                   'prods' => [
47722                                                                                bless( {
47723                                                                                         'number' => '0',
47724                                                                                         'strcount' => 1,
47725                                                                                         'dircount' => 0,
47726                                                                                         'uncommit' => undef,
47727                                                                                         'error' => undef,
47728                                                                                         'patcount' => 0,
47729                                                                                         'actcount' => 0,
47730                                                                                         'items' => [
47731                                                                                                      bless( {
47732                                                                                                               'subrule' => 'scoped_reference_expression',
47733                                                                                                               'matchrule' => 0,
47734                                                                                                               'implicit' => undef,
47735                                                                                                               'argcode' => undef,
47736                                                                                                               'lookahead' => 0,
47737                                                                                                               'line' => 526
47738                                                                                                             }, 'Parse::RecDescent::Subrule' ),
47739                                                                                                      bless( {
47740                                                                                                               'pattern' => '->',
47741                                                                                                               'hashname' => '__STRING1__',
47742                                                                                                               'description' => '\'->\'',
47743                                                                                                               'lookahead' => 0,
47744                                                                                                               'line' => 526
47745                                                                                                             }, 'Parse::RecDescent::Literal' ),
47746                                                                                                      bless( {
47747                                                                                                               'subrule' => 'name1',
47748                                                                                                               'matchrule' => 0,
47749                                                                                                               'implicit' => undef,
47750                                                                                                               'argcode' => undef,
47751                                                                                                               'lookahead' => 0,
47752                                                                                                               'line' => 526
47753                                                                                                             }, 'Parse::RecDescent::Subrule' ),
47754                                                                                                      bless( {
47755                                                                                                               'subrule' => '_alternation_1_of_production_1_of_rule_dereference_operation',
47756                                                                                                               'expected' => '\'(\'',
47757                                                                                                               'min' => 0,
47758                                                                                                               'argcode' => undef,
47759                                                                                                               'max' => 1,
47760                                                                                                               'matchrule' => 0,
47761                                                                                                               'repspec' => '?',
47762                                                                                                               'lookahead' => 0,
47763                                                                                                               'line' => 527
47764                                                                                                             }, 'Parse::RecDescent::Repetition' )
47765                                                                                                    ],
47766                                                                                         'line' => undef
47767                                                                                       }, 'Parse::RecDescent::Production' )
47768                                                                              ],
47769                                                                   'name' => 'dereference_operation',
47770                                                                   'vars' => '',
47771                                                                   'line' => 526
47772                                                                 }, 'Parse::RecDescent::Rule' ),
47773                               'OUTER' => bless( {
47774                                                   'impcount' => 0,
47775                                                   'calls' => [],
47776                                                   'changed' => 0,
47777                                                   'opcount' => 0,
47778                                                   'prods' => [
47779                                                                bless( {
47780                                                                         'number' => '0',
47781                                                                         'strcount' => 0,
47782                                                                         'dircount' => 0,
47783                                                                         'uncommit' => undef,
47784                                                                         'error' => undef,
47785                                                                         'patcount' => 1,
47786                                                                         'actcount' => 0,
47787                                                                         'items' => [
47788                                                                                      bless( {
47789                                                                                               'pattern' => 'outer',
47790                                                                                               'hashname' => '__PATTERN1__',
47791                                                                                               'description' => '/outer/i',
47792                                                                                               'lookahead' => 0,
47793                                                                                               'rdelim' => '/',
47794                                                                                               'line' => 115,
47795                                                                                               'mod' => 'i',
47796                                                                                               'ldelim' => '/'
47797                                                                                             }, 'Parse::RecDescent::Token' )
47798                                                                                    ],
47799                                                                         'line' => undef
47800                                                                       }, 'Parse::RecDescent::Production' )
47801                                                              ],
47802                                                   'name' => 'OUTER',
47803                                                   'vars' => '',
47804                                                   'line' => 115
47805                                                 }, 'Parse::RecDescent::Rule' ),
47806                               'window_order_clause' => bless( {
47807                                                                 'impcount' => 1,
47808                                                                 'calls' => [
47809                                                                              '_alternation_1_of_production_1_of_rule_window_order_clause'
47810                                                                            ],
47811                                                                 'changed' => 0,
47812                                                                 'opcount' => 0,
47813                                                                 'prods' => [
47814                                                                              bless( {
47815                                                                                       'number' => '0',
47816                                                                                       'strcount' => 0,
47817                                                                                       'dircount' => 1,
47818                                                                                       'uncommit' => undef,
47819                                                                                       'error' => undef,
47820                                                                                       'patcount' => 2,
47821                                                                                       'actcount' => 0,
47822                                                                                       'op' => [],
47823                                                                                       'items' => [
47824                                                                                                    bless( {
47825                                                                                                             'pattern' => 'ORDER\\s+BY',
47826                                                                                                             'hashname' => '__PATTERN1__',
47827                                                                                                             'description' => '/ORDER\\\\s+BY/i',
47828                                                                                                             'lookahead' => 0,
47829                                                                                                             'rdelim' => '/',
47830                                                                                                             'line' => 555,
47831                                                                                                             'mod' => 'i',
47832                                                                                                             'ldelim' => '/'
47833                                                                                                           }, 'Parse::RecDescent::Token' ),
47834                                                                                                    bless( {
47835                                                                                                             'expected' => '<leftop: sort_key_expression /,/ sort_key_expression>',
47836                                                                                                             'min' => 1,
47837                                                                                                             'name' => '\'_alternation_1_of_production_1_of_rule_window_order_clause(s)\'',
47838                                                                                                             'max' => 100000000,
47839                                                                                                             'leftarg' => bless( {
47840                                                                                                                                   'subrule' => '_alternation_1_of_production_1_of_rule_window_order_clause',
47841                                                                                                                                   'matchrule' => 0,
47842                                                                                                                                   'implicit' => 'sort_key_expression',
47843                                                                                                                                   'argcode' => undef,
47844                                                                                                                                   'lookahead' => 0,
47845                                                                                                                                   'line' => 560
47846                                                                                                                                 }, 'Parse::RecDescent::Subrule' ),
47847                                                                                                             'rightarg' => bless( {
47848                                                                                                                                    'subrule' => '_alternation_1_of_production_1_of_rule_window_order_clause',
47849                                                                                                                                    'matchrule' => 0,
47850                                                                                                                                    'implicit' => 'sort_key_expression',
47851                                                                                                                                    'argcode' => undef,
47852                                                                                                                                    'lookahead' => 0,
47853                                                                                                                                    'line' => 560
47854                                                                                                                                  }, 'Parse::RecDescent::Subrule' ),
47855                                                                                                             'hashname' => '__DIRECTIVE1__',
47856                                                                                                             'type' => 'leftop',
47857                                                                                                             'op' => bless( {
47858                                                                                                                              'pattern' => ',',
47859                                                                                                                              'hashname' => '__PATTERN2__',
47860                                                                                                                              'description' => '/,/',
47861                                                                                                                              'lookahead' => 0,
47862                                                                                                                              'rdelim' => '/',
47863                                                                                                                              'line' => 560,
47864                                                                                                                              'mod' => '',
47865                                                                                                                              'ldelim' => '/'
47866                                                                                                                            }, 'Parse::RecDescent::Token' )
47867                                                                                                           }, 'Parse::RecDescent::Operator' )
47868                                                                                                  ],
47869                                                                                       'line' => undef
47870                                                                                     }, 'Parse::RecDescent::Production' )
47871                                                                            ],
47872                                                                 'name' => 'window_order_clause',
47873                                                                 'vars' => '',
47874                                                                 'line' => 555
47875                                                               }, 'Parse::RecDescent::Rule' ),
47876                               'TRIGGER' => bless( {
47877                                                     'impcount' => 0,
47878                                                     'calls' => [],
47879                                                     'changed' => 0,
47880                                                     'opcount' => 0,
47881                                                     'prods' => [
47882                                                                  bless( {
47883                                                                           'number' => '0',
47884                                                                           'strcount' => 0,
47885                                                                           'dircount' => 0,
47886                                                                           'uncommit' => undef,
47887                                                                           'error' => undef,
47888                                                                           'patcount' => 1,
47889                                                                           'actcount' => 0,
47890                                                                           'items' => [
47891                                                                                        bless( {
47892                                                                                                 'pattern' => 'trigger',
47893                                                                                                 'hashname' => '__PATTERN1__',
47894                                                                                                 'description' => '/trigger/i',
47895                                                                                                 'lookahead' => 0,
47896                                                                                                 'rdelim' => '/',
47897                                                                                                 'line' => 103,
47898                                                                                                 'mod' => 'i',
47899                                                                                                 'ldelim' => '/'
47900                                                                                               }, 'Parse::RecDescent::Token' )
47901                                                                                      ],
47902                                                                           'line' => undef
47903                                                                         }, 'Parse::RecDescent::Production' )
47904                                                                ],
47905                                                     'name' => 'TRIGGER',
47906                                                     'vars' => '',
47907                                                     'line' => 103
47908                                                   }, 'Parse::RecDescent::Rule' ),
47909                               'comment' => bless( {
47910                                                     'impcount' => 0,
47911                                                     'calls' => [],
47912                                                     'changed' => 0,
47913                                                     'opcount' => 0,
47914                                                     'prods' => [
47915                                                                  bless( {
47916                                                                           'number' => '0',
47917                                                                           'strcount' => 0,
47918                                                                           'dircount' => 0,
47919                                                                           'uncommit' => undef,
47920                                                                           'error' => undef,
47921                                                                           'patcount' => 1,
47922                                                                           'actcount' => 1,
47923                                                                           'items' => [
47924                                                                                        bless( {
47925                                                                                                 'pattern' => '^\\s*-{2}.*\\n',
47926                                                                                                 'hashname' => '__PATTERN1__',
47927                                                                                                 'description' => '/^\\\\s*-\\{2\\}.*\\\\n/',
47928                                                                                                 'lookahead' => 0,
47929                                                                                                 'rdelim' => '/',
47930                                                                                                 'line' => 27,
47931                                                                                                 'mod' => '',
47932                                                                                                 'ldelim' => '/'
47933                                                                                               }, 'Parse::RecDescent::Token' ),
47934                                                                                        bless( {
47935                                                                                                 'hashname' => '__ACTION1__',
47936                                                                                                 'lookahead' => 0,
47937                                                                                                 'line' => 28,
47938                                                                                                 'code' => '{
47939         my $comment =  $item[1];
47940         $comment    =~ s/^\\s*(-{2})\\s*//;
47941         $comment    =~ s/\\s*$//;
47942         $return     = $comment;
47943     }'
47944                                                                                               }, 'Parse::RecDescent::Action' )
47945                                                                                      ],
47946                                                                           'line' => undef
47947                                                                         }, 'Parse::RecDescent::Production' )
47948                                                                ],
47949                                                     'name' => 'comment',
47950                                                     'vars' => '',
47951                                                     'line' => 27
47952                                                   }, 'Parse::RecDescent::Rule' )
47953                             }
47954                }, 'Parse::RecDescent' );
47955 }