| line |
true |
false |
branch |
|
1474
|
0 |
0 |
unless ($jobname) |
|
1483
|
0 |
0 |
if $jobname eq 'JCL' |
|
1491
|
0 |
0 |
unless GetOptions 'r', \$opt_run, 'rb', \$opt_run_background, 'rs=s', \$opt_run_scheduled, 'rr=s', \$opt_run_restart, 'rde=s', \$opt_run_de, 'x=s', \$opt_commandline_ext, 'c=s', \$opt_connection, 'v', \$opt_verbose, 'vv', \$opt_very_verbose, 'ng', \$opt_no_greeting, 'tc=s', \$opt_test_dbcon, 'lf=s', \$opt_log_file, 'lg=i', \$opt_log_gdg, 'lp=s', \$opt_log_prefix, 'lr=i', \$opt_log_radix, 'll=s', \$opt_logging_levels, 'cl=s', \$opt_console_levels, 'ne', \$opt_notify_email_oncomp, 'np', \$opt_notify_pager_oncomp, 'et=s', \$opt_notify_email_tolist, 'el=s', \$opt_notify_email_levels, 'pt=s', \$opt_notify_pager_tolist, 'pl=s', \$opt_notify_pager_levels, 'dp', \$opt_disp_params, 'dq', \$opt_disp_sql, 'dd', \$opt_disp_doc, 'dl', \$opt_disp_logprev, 'da', \$opt_disp_logarch, 'dj', \$opt_disp_jobs, 'dja', \$opt_disp_active_jobs, 'se=s', \$opt_send_email, 'sp=s', \$opt_send_pager, 'um', \$opt_util_move, 'h', \$opt_help, 'ha', \$opt_help_args |
|
1528
|
0 |
0 |
if ($opt_connection) |
|
1531
|
0 |
0 |
unless _check_array_val($db, \@databases) |
|
1533
|
0 |
0 |
unless _check_array_val($inst, [split(/,/, $dbinst{$db}, 0)]) |
|
1541
|
0 |
0 |
unless (-e $dbitrace_filefull) |
|
1547
|
0 |
0 |
if ($opt_help) |
|
1549
|
0 |
0 |
if ($opt_help_args) |
|
1551
|
0 |
0 |
if ($opt_run_background) |
|
1553
|
0 |
0 |
if ($opt_run_scheduled) |
|
1555
|
0 |
0 |
if ($opt_run_de) |
|
1557
|
0 |
0 |
if ($opt_run_restart) |
|
1559
|
0 |
0 |
if ($opt_test_dbcon) |
|
1561
|
0 |
0 |
if ($opt_commandline_ext) |
|
1563
|
0 |
0 |
if ($opt_logging_levels) |
|
1565
|
0 |
0 |
if ($opt_console_levels) |
|
1567
|
0 |
0 |
if ($opt_log_gdg) |
|
1569
|
0 |
0 |
if ($opt_log_prefix) |
|
1571
|
0 |
0 |
if ($opt_log_radix) |
|
1573
|
0 |
0 |
if ($opt_notify_email_tolist) |
|
1575
|
0 |
0 |
if ($opt_notify_pager_tolist) |
|
1577
|
0 |
0 |
if ($opt_notify_email_levels) |
|
1579
|
0 |
0 |
if ($opt_notify_pager_levels) |
|
1581
|
0 |
0 |
if ($opt_disp_logprev) |
|
1583
|
0 |
0 |
if ($opt_disp_logarch) |
|
1585
|
0 |
0 |
if ($opt_disp_exec) |
|
1587
|
0 |
0 |
if ($opt_disp_sql) |
|
1589
|
0 |
0 |
if ($opt_disp_params) |
|
1591
|
0 |
0 |
if ($opt_disp_doc) |
|
1593
|
0 |
0 |
if ($opt_disp_jobs) |
|
1595
|
0 |
0 |
if ($opt_disp_active_jobs) |
|
1597
|
0 |
0 |
if ($opt_send_email) |
|
1599
|
0 |
0 |
if ($opt_send_pager) |
|
1601
|
0 |
0 |
if ($opt_util_move) |
|
1605
|
0 |
0 |
unless ($opt_run) |
|
1611
|
0 |
0 |
if ($osuser) |
|
1616
|
0 |
0 |
if ($opt_log_file) |
|
1625
|
0 |
0 |
if ($base =~ /^([a-z]+_)/x) |
|
1628
|
0 |
0 |
unless _check_array_val($base, \@job_acros) |
|
1634
|
0 |
0 |
unless $opt_no_greeting |
|
1636
|
0 |
0 |
if ($opt_very_verbose) |
|
1637
|
0 |
0 |
if ($opt_verbose) |
|
1643
|
0 |
0 |
if ($sys_jobconf_override) |
|
1680
|
0 |
0 |
if ($opt_no_greeting) |
|
1686
|
0 |
0 |
unless $opt_no_greeting |
|
1705
|
0 |
0 |
unless tie %conf_query, 'Config::IniFiles', (-'file', $path_conf_dir . '/' . $conf_filename) |
|
1744
|
0 |
0 |
unless (-f $plugin_filefull) |
|
1825
|
0 |
0 |
unless defined $notify |
|
1830
|
0 |
0 |
if ($sys_log_open) |
|
1835
|
0 |
0 |
if ($notify) |
|
1855
|
0 |
0 |
unless defined $notify |
|
1862
|
0 |
0 |
if ($sys_log_open) |
|
1867
|
0 |
0 |
if ($notify) |
|
1881
|
0 |
0 |
unless defined $notify |
|
1882
|
0 |
0 |
unless defined $nolog |
|
1890
|
0 |
0 |
if $notify |
|
1937
|
0 |
0 |
if ($childrc > $job_maxrc) |
|
1941
|
0 |
0 |
if ($job_maxrc > $maxrc) |
|
1959
|
0 |
0 |
unless $maxrc |
|
1982
|
0 |
0 |
if $pidcnt < 1 |
|
1988
|
0 |
0 |
if ($childrc > $pidlib{$pid}{'maxrc'}) { } |
|
1994
|
0 |
0 |
if $pidcnt < 1 |
|
2015
|
0 |
0 |
if ($pidlib{$pid}{'retcd'} > $tmprc) |
|
2018
|
0 |
0 |
$tmprc >= $maxrc ? : |
|
2371
|
0 |
0 |
if ($acro eq $dbacro) |
|
2394
|
0 |
0 |
if ($acro eq $dbacro) |
|
2437
|
0 |
0 |
unless ($conf_job{$section}{$sqlname}) |
|
2439
|
0 |
0 |
unless ($conf_job{$section}{$sqlname}) |
|
2463
|
0 |
0 |
unless (defined $value) |
|
2467
|
0 |
0 |
if ($value eq '0') |
|
2487
|
0 |
0 |
unless $delim |
|
2491
|
0 |
0 |
if ($conf_job{$section}{$entry}) { } |
|
2519
|
0 |
0 |
unless $delim |
|
2523
|
0 |
0 |
if ($conf_job{$section}{$entry}) { } |
|
2552
|
0 |
0 |
unless ($conf_query{$section}{$sqlname}) |
|
2554
|
0 |
0 |
unless ($conf_query{$section}{$sqlname}) |
|
2576
|
0 |
0 |
unless ($conf_rcontrols{$section}{$jobname}) |
|
2675
|
0 |
0 |
if ($opt =~ /^$target_opt$/xi) |
|
2703
|
0 |
0 |
if ($opt =~ /^$target_opt$/xi) |
|
2788
|
0 |
0 |
unless ($restart_option =~ /^\d+/x) |
|
2795
|
0 |
0 |
unless (defined $conf) |
|
2832
|
0 |
0 |
unless ($errlvl =~ /^\d+$/) |
|
3001
|
0 |
0 |
if ($jobconf) { } |
|
3062
|
0 |
0 |
if ($maxval{$key}) |
|
3063
|
0 |
0 |
if ($val > $maxval{$key}) |
|
3091
|
0 |
0 |
if (ref $data_envrs eq 'ARRAY') { } |
|
3098
|
0 |
0 |
if (grep {$_ eq $dataenvr;} @check_envrs) |
|
3133
|
0 |
0 |
unless $timer_name |
|
3135
|
0 |
0 |
if ($opt =~ /start/xi) |
|
3139
|
0 |
0 |
if ($opt =~ /stop/xi) |
|
3143
|
0 |
0 |
if ($opt =~ /elapsed/xi) |
|
3152
|
0 |
0 |
if ($opt =~ /elapsed_seconds/i) |
|
3186
|
0 |
0 |
if ($action =~ /^init$/i) |
|
3189
|
0 |
0 |
unless $minutes =~ /^\d+$/ |
|
3193
|
0 |
0 |
if ($action =~ /^wait$/i) |
|
3198
|
0 |
0 |
if ($currtime - $wt_start < $wt_seconds) { } |
|
3287
|
0 |
0 |
unless $nolog |
|
3288
|
0 |
0 |
if $nolog |
|
3390
|
0 |
0 |
unless (defined $db_func_params{$id}) |
|
3394
|
0 |
0 |
unless (defined $db_func_params{$id}{$key}) |
|
3437
|
0 |
0 |
if ($vdn =~ /:/x) |
|
3439
|
0 |
0 |
unless _check_array_val($db, \@databases) |
|
3441
|
0 |
0 |
unless _check_array_val($inst, [split(/,/, $dbinst{$db}, 0)]) |
|
3455
|
0 |
0 |
unless $opt_very_verbose |
|
3504
|
0 |
0 |
if ($dbh) |
|
3506
|
0 |
0 |
if ('DBI'->errstr) |
|
3531
|
0 |
0 |
if ($sth) |
|
3533
|
0 |
0 |
if ('DBI'->errstr) |
|
3557
|
0 |
0 |
unless $longrlen |
|
3559
|
0 |
0 |
if ($vdn =~ /\./x) |
|
3561
|
0 |
0 |
if ($sth_name eq 'sth_default') |
|
3568
|
0 |
0 |
if ($longrlen > 0) |
|
3570
|
0 |
0 |
unless $sth = $dbh->prepare($sql) |
|
3596
|
0 |
0 |
unless $dbh->do($sql) |
|
3620
|
0 |
0 |
unless $sth->execute(@params) |
|
3640
|
0 |
0 |
if ($vdn =~ /\./x) |
|
3660
|
0 |
0 |
if ($dbdefenvr{$vdn}) |
|
3697
|
0 |
0 |
if (ref $vdn) { } |
|
3701
|
0 |
0 |
if ($vdn =~ /\./x) |
|
3707
|
0 |
0 |
unless (ref $colref) |
|
3797
|
0 |
0 |
if (ref $vdn) { } |
|
3801
|
0 |
0 |
if ($vdn =~ /\./x) |
|
3826
|
0 |
0 |
if ('DBI'->errstr) |
|
3849
|
0 |
0 |
if ('DBI'->errstr) |
|
3893
|
0 |
0 |
if (@params) { } |
|
3894
|
0 |
0 |
unless my $tmp_sth = $dbh->prepare($sql) |
|
3896
|
0 |
0 |
unless $tmp_sth->execute(@params) |
|
3962
|
0 |
0 |
unless $notify |
|
3973
|
0 |
0 |
if ($conf_job{'threshold'}{$conf_entry}) { } |
|
4001
|
0 |
0 |
if ($exp == 0) |
|
4006
|
0 |
0 |
if ($range == 0) |
|
4007
|
0 |
0 |
if ($act > 0) |
|
4016
|
0 |
0 |
if ($act < $exp) |
|
4017
|
0 |
0 |
if ($act < $exp - $dev) |
|
4024
|
0 |
0 |
if ($act > $exp) |
|
4025
|
0 |
0 |
if ($act > $exp + $dev) |
|
4036
|
0 |
0 |
if ($warnings and $notify) |
|
4061
|
0 |
0 |
unless my $tmp_sth = $dbh->prepare("drop index $index_name") |
|
4066
|
0 |
0 |
if ('DBI'->err and 'DBI'->err != 1418) |
|
4091
|
0 |
0 |
unless my $tmp_sth = $dbh->prepare("drop table $table_name") |
|
4095
|
0 |
0 |
if ('DBI'->err and 'DBI'->err != 942) |
|
4120
|
0 |
0 |
unless my $tmp_sth = $dbh->prepare("drop procedure $procedure_name") |
|
4124
|
0 |
0 |
if ('DBI'->err and 'DBI'->err != 4043) |
|
4149
|
0 |
0 |
unless my $tmp_sth = $dbh->prepare("drop function $function_name") |
|
4153
|
0 |
0 |
if ('DBI'->err and 'DBI'->err != 4043) |
|
4178
|
0 |
0 |
unless my $tmp_sth = $dbh->prepare("drop package $package_name") |
|
4182
|
0 |
0 |
if ('DBI'->err and 'DBI'->err != 4043) |
|
4204
|
0 |
0 |
unless my $tmp_sth = $dbh->prepare("alter index $oldname rename to $newname") |
|
4208
|
0 |
0 |
if ('DBI'->err) |
|
4230
|
0 |
0 |
unless my $tmp_sth = $dbh->prepare("alter table $oldname rename to $newname") |
|
4234
|
0 |
0 |
if ('DBI'->err) |
|
4256
|
0 |
0 |
unless my $tmp_sth = $dbh->prepare("purge table $table_name") |
|
4260
|
0 |
0 |
if ('DBI'->err and 'DBI'->err != 38307) |
|
4282
|
0 |
0 |
unless my $tmp_sth = $dbh->prepare("purge index $table_name") |
|
4286
|
0 |
0 |
if ('DBI'->err and 'DBI'->err != 38307) |
|
4308
|
0 |
0 |
unless ($priv =~ /^r$|^u$/x) |
|
4313
|
0 |
0 |
if ($priv eq 'r') |
|
4316
|
0 |
0 |
if ($priv eq 'u') |
|
4320
|
0 |
0 |
unless my $tmp_sth = $dbh->prepare($sql) |
|
4322
|
0 |
0 |
unless $tmp_sth->execute |
|
4343
|
0 |
0 |
unless (_db_is_oracle($vdn)) |
|
4352
|
0 |
0 |
if ('DBI'->errstr) |
|
4354
|
0 |
0 |
if ('DBI'->errstr) |
|
4402
|
0 |
0 |
unless open my $fh, '<', $file_name |
|
4405
|
0 |
0 |
if ($UseRegex) |
|
4412
|
0 |
0 |
if ($TrimLead) |
|
4415
|
0 |
0 |
if ($SkipComments) |
|
4416
|
0 |
0 |
if (substr($line, 0, 1) eq $CommentChar) |
|
4421
|
0 |
0 |
if ($SkipLastField) |
|
4424
|
0 |
0 |
if ($TrimFieldLead) |
|
4429
|
0 |
0 |
if ($TrimFieldTrail) |
|
4436
|
0 |
0 |
if ('DBI'->errstr) |
|
4447
|
0 |
0 |
unless close $fh |
|
4469
|
0 |
0 |
unless $plugin |
|
4473
|
0 |
0 |
if (ref $plugin eq 'ARRAY') { } |
|
4488
|
0 |
0 |
if $plugin |
|
4489
|
0 |
0 |
if ($result > 1000) |
|
4491
|
0 |
0 |
if $plugin_result |
|
4494
|
0 |
0 |
if ('DBI'->errstr) |
|
4527
|
0 |
0 |
unless $delim |
|
4528
|
0 |
0 |
unless $append |
|
4529
|
0 |
0 |
unless $plugin |
|
4530
|
0 |
0 |
unless $protect |
|
4534
|
0 |
0 |
if (ref $plugin eq 'ARRAY') { } |
|
4543
|
0 |
0 |
if ($append) { } |
|
4550
|
0 |
0 |
unless open my $fh, $mode, $file_name |
|
4556
|
0 |
0 |
if $plugin |
|
4557
|
0 |
0 |
if ($result > 1000) |
|
4559
|
0 |
0 |
if $plugin_result |
|
4561
|
0 |
0 |
if $protect |
|
4566
|
0 |
0 |
unless close $fh |
|
4616
|
0 |
0 |
unless defined $max_rows |
|
4624
|
0 |
0 |
unless $tmp_sth = $dbh->prepare($col_sql) |
|
4626
|
0 |
0 |
unless $tmp_sth->execute |
|
4636
|
0 |
0 |
unless $tmp_sth = $dbh->prepare($tab_sql) |
|
4638
|
0 |
0 |
unless $tmp_sth->execute |
|
4647
|
0 |
0 |
if ++$row_count >= $max_rows |
|
4699
|
0 |
0 |
if ($dbenvr =~ /$netservice/) { } |
|
4710
|
0 |
0 |
if ($sqlldr_retcd == $SQLLDR_SUCC) |
|
4713
|
0 |
0 |
if ($sqlldr_retcd == $SQLLDR_WARN) |
|
4716
|
0 |
0 |
if ($sqlldr_retcd == $SQLLDR_FTL or $sqlldr_retcd == $SQLLDR_FAIL) |
|
4722
|
0 |
0 |
if ($rej_count > 0) |
|
4726
|
0 |
0 |
if ($rej_count > $maxerrors) |
|
4750
|
0 |
0 |
unless (-e $datfile) |
|
4755
|
0 |
0 |
unless ($conf_job{$section}{$key}) |
|
4757
|
0 |
0 |
unless ($conf_job{$section}{$key}) |
|
4792
|
0 |
0 |
if ($DBIx::JCL::OSNAME eq 'MSWin32') |
|
4793
|
0 |
0 |
if ($sqlldr_retcd == 3) |
|
4794
|
0 |
0 |
if ($sqlldr_retcd == 4) |
|
4835
|
0 |
0 |
if (defined $sqlloader_results{'skipped'}) { } |
|
4854
|
0 |
0 |
if (defined $sqlloader_results{'read'}) { } |
|
4873
|
0 |
0 |
if (defined $sqlloader_results{'rejected'}) { } |
|
4892
|
0 |
0 |
if (defined $sqlloader_results{'discarded'}) { } |
|
4911
|
0 |
0 |
if (defined $sqlloader_results{'elapsed_time'}) { } |
|
4930
|
0 |
0 |
if (defined $sqlloader_results{'cpu_time'}) { } |
|
4956
|
0 |
0 |
unless (_db_is_oracle($vdn)) |
|
4960
|
0 |
0 |
if ($package) |
|
4965
|
0 |
0 |
if ('DBI'->errstr) |
|
4969
|
0 |
0 |
if ('DBI'->errstr) |
|
4994
|
0 |
0 |
unless (_db_is_oracle($vdn)) |
|
4998
|
0 |
0 |
if ($package) |
|
5002
|
0 |
0 |
if ('DBI'->errstr) |
|
5004
|
0 |
0 |
if ('DBI'->errstr) |
|
5027
|
0 |
0 |
unless (ref $params eq 'ARRAY') |
|
5032
|
0 |
0 |
unless (_db_is_oracle($vdn)) |
|
5038
|
0 |
0 |
if ('DBI'->errstr) |
|
5042
|
0 |
0 |
if ('DBI'->errstr) |
|
5065
|
0 |
0 |
unless (ref $params eq 'ARRAY') |
|
5070
|
0 |
0 |
unless (_db_is_oracle($vdn)) |
|
5076
|
0 |
0 |
if ('DBI'->errstr) |
|
5080
|
0 |
0 |
if ('DBI'->errstr) |
|
5103
|
0 |
0 |
unless (ref $params eq 'ARRAY') |
|
5108
|
0 |
0 |
unless (_db_is_oracle($vdn)) |
|
5114
|
0 |
0 |
if ('DBI'->errstr) |
|
5118
|
0 |
0 |
if ('DBI'->errstr) |
|
5143
|
0 |
0 |
unless (_db_is_oracle($vdn)) |
|
5148
|
0 |
0 |
unless $bufsize |
|
5150
|
0 |
0 |
if ('DBI'->errstr) |
|
5172
|
0 |
0 |
unless (_db_is_oracle($vdn)) |
|
5198
|
0 |
0 |
unless (_db_is_oracle($vdn)) |
|
5203
|
0 |
0 |
unless ($sys_dbms_output) |
|
5209
|
0 |
0 |
if ('DBI'->errstr) |
|
5229
|
0 |
0 |
unless (_db_is_oracle($vdn)) |
|
5236
|
0 |
0 |
if ('DBI'->errstr) |
|
5239
|
0 |
0 |
if ('DBI'->errstr) |
|
5260
|
0 |
0 |
unless (_db_is_oracle($vdn)) |
|
5275
|
0 |
0 |
if ('DBI'->errstr) |
|
5278
|
0 |
0 |
if ('DBI'->errstr) |
|
5306
|
0 |
0 |
if ($osuser) |
|
5326
|
0 |
0 |
if ($osuser) |
|
5361
|
0 |
0 |
unless my $fh = 'File::Bidirectional'->new($filename, {'origin', 1}) |
|
5381
|
0 |
0 |
unless my $fh = 'File::Bidirectional'->new($filename, {'origin', -1}) |
|
5400
|
0 |
0 |
unless open my $fh, $file |
|
5418
|
0 |
0 |
unless $header |
|
5420
|
0 |
0 |
unless $append |
|
5421
|
0 |
0 |
unless open my $fh, $mode, $filename |
|
5423
|
0 |
0 |
unless close $fh |
|
5440
|
0 |
0 |
unless $footer |
|
5441
|
0 |
0 |
unless open my $fh, '>>', $filename |
|
5443
|
0 |
0 |
unless close $fh |
|
5467
|
0 |
0 |
unless $util_move |
|
5537
|
0 |
0 |
if ($actual eq $expected) { } |
|
5562
|
0 |
0 |
if ($t_notok == 0) { } |
|
5604
|
0 |
0 |
if ($retcd > 0) |
|
5635
|
0 |
0 |
unless ($log) |
|
5651
|
0 |
0 |
if ($ts_result eq 'PASS') |
|
5654
|
0 |
0 |
if ($ts_result eq 'FAIL') |
|
5686
|
0 |
0 |
unless ($log) |
|
5753
|
0 |
0 |
unless (defined $dataenvr) |
|
5777
|
0 |
0 |
if ($osuser) |
|
5827
|
0 |
0 |
unless open my $cfile, '>', $rtconf |
|
5831
|
0 |
0 |
unless (defined $conf) |
|
5854
|
0 |
1 |
if (-e $rtconf) |
|
5873
|
0 |
0 |
unless $dependent_jobname |
|
5876
|
0 |
0 |
unless (defined $conf) |
|
5878
|
0 |
0 |
if ($params =~ /$dependent_jobname/x) |
|
5903
|
0 |
0 |
if ($conf =~ /^sys_data/x) |
|
5904
|
0 |
0 |
unless tie %conf_data, 'Config::IniFiles', (-'file', $conf_filefull) |
|
5907
|
0 |
0 |
if ($conf =~ /^sys_log/x) |
|
5908
|
0 |
0 |
unless tie %conf_log, 'Config::IniFiles', (-'file', $conf_filefull) |
|
5911
|
0 |
0 |
if ($conf =~ /^sys_mail/x) |
|
5912
|
0 |
0 |
unless tie %conf_mail, 'Config::IniFiles', (-'file', $conf_filefull) |
|
5915
|
0 |
0 |
if ($conf =~ /^sys_common/x) |
|
5916
|
0 |
0 |
unless tie %conf_query, 'Config::IniFiles', (-'file', $conf_filefull) |
|
5919
|
0 |
0 |
if ($conf =~ /^sys_util/x) |
|
5920
|
0 |
0 |
unless tie %conf_util, 'Config::IniFiles', (-'file', $conf_filefull) |
|
5923
|
0 |
0 |
if ($conf =~ /^sys_environment/x) |
|
5924
|
0 |
0 |
unless tie %conf_system, 'Config::IniFiles', (-'file', $conf_filefull) |
|
5927
|
0 |
0 |
if ($conf =~ /^sys_test/x) |
|
5928
|
0 |
0 |
unless tie %conf_job, 'Config::IniFiles', (-'file', $conf_filefull) |
|
5931
|
0 |
0 |
if ($conf =~ /^sys_de/x) |
|
5932
|
0 |
0 |
unless tie %conf_de, 'Config::IniFiles', (-'file', $conf_filefull) |
|
5935
|
0 |
0 |
if ($conf =~ /^sys_run_controls/x) |
|
5936
|
0 |
0 |
unless tie %conf_rcontrols, 'Config::IniFiles', (-'file', $conf_filefull) |
|
5940
|
0 |
0 |
unless ($conf =~ /^sys_/x) |
|
5941
|
0 |
0 |
unless tie %conf_job, 'Config::IniFiles', (-'file', $conf_filefull) |
|
5959
|
0 |
0 |
if ($conf_job{'job'}{'logfile'}) |
|
5962
|
0 |
0 |
if ($conf_job{'job'}{'logging_levels'}) |
|
5965
|
0 |
0 |
if ($conf_job{'job'}{'console_levels'}) |
|
5968
|
0 |
0 |
if ($conf_job{'job'}{'log_gdg'}) |
|
5971
|
0 |
0 |
if ($conf_job{'job'}{'log_prefix'}) |
|
5974
|
0 |
0 |
if ($conf_job{'job'}{'emailto'}) |
|
5977
|
0 |
0 |
if ($conf_job{'job'}{'pagerto'}) |
|
5980
|
0 |
0 |
if ($conf_job{'job'}{'email_levels'}) |
|
5983
|
0 |
0 |
if ($conf_job{'job'}{'pager_levels'}) |
|
6013
|
0 |
0 |
unless $source =~ /^\#\#\@\@.*/m |
|
6017
|
0 |
0 |
unless $source =~ /^\#\#\$\$.*/m |
|
6021
|
0 |
0 |
unless $source =~ /^!1 $checkfor\n\n[A-Za-z]/m |
|
6025
|
0 |
0 |
unless $source =~ /^!1 $checkfor\n\n[A-Za-z]/m |
|
6029
|
0 |
0 |
unless $source =~ /^!1 $checkfor\n\n[A-Za-z]/m |
|
6033
|
0 |
0 |
unless $source =~ /^!1 $checkfor\n\n[A-Za-z]/m |
|
6037
|
0 |
0 |
unless $source =~ /^!1 $checkfor\n\n[A-Za-z]/m |
|
6041
|
0 |
0 |
unless $source =~ /^!1 $checkfor\n\n[A-Za-z0-9\*]/m |
|
6059
|
0 |
0 |
if ($DBIx::JCL::OSNAME eq 'MSWin32') |
|
6133
|
0 |
0 |
if ($pid = fork) { } |
|
|
0 |
0 |
elsif (defined $pid) { } |
|
6162
|
0 |
0 |
if (($pid = waitpid(-1, 0)) > 0) |
|
6185
|
0 |
0 |
unless _check_array_val($db, \@databases) |
|
6187
|
0 |
0 |
unless _check_array_val($inst, [split(/,/, $dbinst{$db}, 0)]) |
|
6193
|
0 |
0 |
unless my $dbh = 'DBI'->connect($database, $username, $password, {'RaiseError', 0, 'AutoCommit', 0}) |
|
6217
|
0 |
0 |
if ($lvls_str =~ /,/) { } |
|
6221
|
0 |
0 |
unless ($level =~ /FATAL|ERROR|WARN|INFO|DEBUG|NONE/) |
|
6228
|
0 |
0 |
if ($lvls_str =~ /^FATAL$/i) |
|
6232
|
0 |
0 |
if ($lvls_str =~ /^ERROR$/i) |
|
6236
|
0 |
0 |
if ($lvls_str =~ /^WARN$/i) |
|
6240
|
0 |
0 |
if ($lvls_str =~ /^INFO$/i) |
|
6244
|
0 |
0 |
if ($lvls_str =~ /^DEBUG$/i) |
|
6248
|
0 |
0 |
if ($lvls_str =~ /^NONE$/i) |
|
6269
|
0 |
0 |
if ($opt_log_gdg =~ /[0-9]{1,3}/) |
|
6287
|
0 |
0 |
if ($opt_log_radix < 1 or $opt_log_radix > 4) |
|
6308
|
0 |
0 |
if ($delist) |
|
6310
|
0 |
0 |
if ($delist =~ /(\d\d\d\d\d)\s?$/) |
|
6314
|
0 |
0 |
if ($overenvs =~ /$dataenvr/i) |
|
6335
|
0 |
0 |
if ($opt_log_file) |
|
6337
|
0 |
0 |
if (-e $log_filefull) |
|
6359
|
0 |
0 |
if ($opt_log_file) |
|
6362
|
0 |
0 |
if (@logs) |
|
6387
|
0 |
0 |
if (@jobs) |
|
6390
|
0 |
0 |
unless open my $fh, '<', $job |
|
6393
|
0 |
0 |
if (/^\#\#\$\$/) |
|
6425
|
0 |
0 |
if (@actjobs) |
|
6428
|
0 |
0 |
unless (defined $conf) |
|
6458
|
0 |
0 |
if (-e $script_filefull) { } |
|
6483
|
0 |
0 |
if (@query_names) { } |
|
6510
|
0 |
0 |
if (length $dbname{$db} > $dblen) |
|
6595
|
0 |
0 |
unless $verbose |
|
6598
|
0 |
0 |
if ($verbose == 0) |
|
6606
|
0 |
0 |
if ($verbose == 1) |
|
6607
|
0 |
0 |
if ($verbose == 2) |
|
6632
|
0 |
0 |
if (-e $log_filefull and $log_gdg > 0) |
|
6638
|
0 |
0 |
unless my $fh = 'IO::LockedFile'->new(">$log_filefull") |
|
6663
|
0 |
0 |
if (ref $exmsg eq 'ARRAY') { } |
|
6675
|
0 |
0 |
if ($log_logging_levels =~ /$level/ or $force) |
|
6699
|
0 |
0 |
if (ref $exmsg eq 'ARRAY') { } |
|
6712
|
0 |
0 |
if ($opt_verbose) { } |
|
6715
|
0 |
0 |
if ($log_console_levels =~ /$level/ or $force) |
|
6738
|
0 |
0 |
if ($level eq 'FATAL') |
|
6739
|
0 |
0 |
if ($level eq 'ERROR') |
|
6740
|
0 |
0 |
if ($level eq 'WARN') |
|
6744
|
0 |
0 |
unless my $fh = 'IO::LockedFile'->new(">>$log_filefull") |
|
6773
|
0 |
0 |
if ($msg =~ /\n/ms) { } |
|
6810
|
0 |
0 |
if ($mail_email_levels =~ /$level/ or $force) |
|
6813
|
0 |
0 |
if ($mail_pager_levels =~ /$level/ or $force) |
|
6832
|
0 |
0 |
unless $mail_emailto |
|
6833
|
0 |
0 |
if $mail_emailto =~ /NONE/i |
|
6837
|
0 |
0 |
if ($severity eq 'MESSAGE') { } |
|
6845
|
0 |
0 |
if (!$severity eq 'MESSAGE') |
|
6846
|
0 |
0 |
if (-e $log_filefull) |
|
6881
|
0 |
0 |
unless $mail_pagerto |
|
6882
|
0 |
0 |
if $mail_pagerto =~ /NONE/i |
|
6886
|
0 |
0 |
if ($severity eq 'MESSAGE') { } |
|
6928
|
0 |
0 |
if (-r $prev and -f $prev) |
|
6929
|
0 |
0 |
unless move($prev, $next) |
|
6940
|
0 |
0 |
unless chmod $stat[2], $next |
|
6941
|
0 |
0 |
unless utime $stat[8], $stat[9], $next |
|
6942
|
0 |
0 |
unless chown $stat[4], $stat[5], $next |
|
6945
|
0 |
0 |
unless truncate $curr, 0 |
|
6965
|
0 |
0 |
if (_sys_job_dependent($dependent_jobname)) { } |
|
6968
|
0 |
0 |
if ($curtime - $starttime > $wait_max_secs) |
|
6969
|
0 |
0 |
if ($wait_action =~ /^run$/xi) { } |
|
7001
|
0 |
0 |
if ('DBI'->errstr) { } |
|
7002
|
0 |
0 |
if ($retry_max_secs < 1) |
|
7006
|
0 |
0 |
if ('DBI'->err == 1017) |
|
7014
|
0 |
0 |
if ($curtime - $starttime > $retry_max_secs) |
|
7047
|
0 |
0 |
if ($vdn =~ /\./) |
|
7053
|
0 |
0 |
if ($vdn =~ /:/x) { } |
|
7060
|
0 |
0 |
unless ($dbname{$this_db}) |
|
7065
|
0 |
0 |
if ($caller eq 'connect') |
|
7104
|
0 |
0 |
if ($vdni =~ /:/x) |
|
7106
|
0 |
0 |
unless _check_array_val($db, \@databases) |
|
7108
|
0 |
0 |
unless _check_array_val($inst, [split(/,/, $dbinst{$db}, 0)]) |
|
7137
|
0 |
0 |
if ($package) |
|
7142
|
0 |
0 |
if ($i < $numparams - 1) |
|
7172
|
0 |
0 |
unless (defined $log) |
|
7180
|
0 |
0 |
unless ($line =~ /^SQL\*Loader/) |
|
7187
|
0 |
0 |
if (/^Total logical records skipped:\s+(\d+)/) |
|
7191
|
0 |
0 |
if (/^Total logical records read:\s+(\d+)/) |
|
7195
|
0 |
0 |
if (/^Total logical records rejected:\s+(\d+)/) |
|
7199
|
0 |
0 |
if (/^Total logical records discarded:\s+(\d+)/) |
|
7203
|
0 |
0 |
if (/^Elapsed time was:\s+(.+)/) |
|
7207
|
0 |
0 |
if (/^CPU time was:\s+(.+)/) |
|
7300
|
0 |
0 |
if (ref @{$params;}[$i] eq 'SCALAR') { } |
|
7324
|
0 |
0 |
if ($database =~ /^dbi:Oracle:/) |
|
7343
|
0 |
0 |
unless defined $val |
|
7361
|
0 |
0 |
if scalar @{$protect;} < 1 |
|
7385
|
0 |
0 |
if (grep {$_ eq $val;} @{$arr;}) |
|
7466
|
0 |
0 |
if ($str =~ /^y$|^yes$/i) |
|
7485
|
0 |
0 |
if ($str =~ /^n$|^no$/i) |
|
7511
|
0 |
0 |
if (defined $sth and $sth) |
|
7512
|
0 |
0 |
if (defined $dbh and $dbh) |
|
7522
|
0 |
1 |
unless (defined $jobname) |
|
7524
|
0 |
1 |
if ($opt_notify_email_oncomp) |
|
7527
|
0 |
1 |
if ($opt_notify_pager_oncomp) |