Help for this page

Select Code to Download


  1. or download this
    "Main program"
#!/usr/bin/perl -w
...
use ErrorCodes qw(:EXIT_CODES :SWDL);
use FamilyCommon;
....
  2. or download this
    use Octopus;
use Capability;
  3. or download this
    package Octopus;

...
use ToolCommon qw(:CONSTANTS);
require ReduceSWP;
...
  4. or download this
    package Capability;

...
                   'MIG_EXCLUDED_TO' => {$ISAM => "330 340 400"} },
....
);
  5. or download this
    defined($ntCapabilities{$type}{'SW_PAR'}).