foreach my $line (@jobDef) {
   			chomp($line);
   			$line =~ s/\s+$//g;
			switch ($line) {
				case (/DOCOMMAND/) {
					$line =~ s/\s+$//g;
					#This key word is used for bianry commands; It is mutually exclusive with SCRIPTNAME
					$command = substr($line, 11);
					$stmnt{ $command } = "UPDATE twsJobs SET command = ? WHERE jobId = ?"; 
				}
				case (/SCRIPTNAME/) {
					#This key word is for scripts; It's mutually exclusive with DOCOMMAND
					$command = substr($line, 11);
					$stmnt{ $command } = "UPDATE twsJobs SET command = ? WHERE jobId = ?";
				}
...


##</code><code>##

   			foreach my $jobId (@joid) {
   				#print __LINE__ . " UPDATE twsJobs SET $update WHERE jobId = $jobId\n";
   				
   				#Unpack our hash and send the key,value over to updateTableSingle
   				while (my ($k,$v) = each (%stmnt)) {
   					$dbh = updateTableSingle($dbh,$k,$v,$jobId);
   				}
   			}
...