Select Code to Download

vchtyp=I jrnltyp=D lexwhere="'in('DIS', 'DIM', 'DIR')'" title="'this i
+s a title'"

$hash{vchtyp} = 'I'
$hash{jrnltyp = 'D';
$hash{lexwhere} = "'in('DIS', 'DIM', 'DIR')'";
$hash{title} = "'this is a test'";

sub parseArgs {
   my (@args) = @_;
...
   }
   return %params;
}