Select Code to Download

$AstPDSlackHash{$aststartendwclks} = join (" ",$aststartendwclks,$astp
+dslack);
$PTPDSlackHash{$ptstartendwclks} = join (" ",$ptstartendwclks,$ptpdsla
+ck);<br>
...
foreach (keys %AstPDSlackHash) {
    print XLOUT ("$AstPDSlackHash{$_} $PTPDSlackHash{$_}\n") if exists
+ $PTPDSlackHash{$_};
}

for ($i = 7; $i <= $astlast; $i++) {$astmasterlist = join (" ",$astmat
+erlist,$in2sal&#91$i&#93);
}

for ($i = 7; $i <= $ptlast; $i++) {$ptmasterlist = join (" ",$ptmaster
+list,$in2sal&#91$i&#93);}

$AstPDSlackHash{$aststartendwclks,$astmasterlist} = join (" ",$aststar
+tendwclks,$astpdslack,$astmasterlist);

...
foreach ($astmasterlist %AstPDSlackHash) {
    print XLOUT2 ("$AstPDSlackHash{$_} $PTPDSlackHash{$_}\n") if $ptma
+sterlist !exists $PTPDSlackHash{$_};
}