my $prf = "\'";
	my $suf = "\'";

	$temp=getParameterName($xline);
         $elt_sektion = $prf.$1.$suf;
	switch ($temp)
	{
	  case "C_ID" {$elt_cid = getParameterValueNOLF($xline)}
	  case "klasse" {$elt_klasse = getParameterValueNOLF($xline)}
	  case "id" {$elt_id= getParameterValueNOLF($xline)}
	  case "Name" {$elt_name= $prf.getParameterValueNOLF($xline).$suf}
	  case "kommandos" {$elt_kdos= $prf.getParameterValueNOLF($xline).$suf}
	  case "KommandoSortierung" {$elt_kdossort= $prf.getParameterValueNOLF($xline).$suf}
	  case "attribute" {$elt_attr= $prf.getParameterValueNOLF($xline).$suf}
	  case "dialogId" {$elt_dlgid= getParameterValueNOLF($xline)}
	}
...
push @elt_list,[$elt_sektion,$elt_cid,$elt_klasse,
	         $elt_id,$elt_name,$elt_kdos,$elt_kdossort,
		$elt_attr,$elt_dlgid];