Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use POSIX qw(strftime);
...
        close(TF);
        sleep $wait;
}

Select or download this

$cmd = "dbisqlc -c ".'"uid=****;pwd=****;eng=****;dbn=**** "'." -q cal
+l ****.Fun_LoadAllFiles( '"."$out_dir/$ifn.$kpva', '$ifn.$kpva')";