diff --git a/src/epics/util/lib/Dac.pm b/src/epics/util/lib/Dac.pm index 839391ffc577670bd6f450f4c845ed7473403d4d..1b1a92cc286f692aef1ce7a46ec834bcf5c4a970 100644 --- a/src/epics/util/lib/Dac.pm +++ b/src/epics/util/lib/Dac.pm @@ -182,9 +182,10 @@ sub createDac16Medm my $ii=0; - my $fname = "$mdlName\_DAC_MONITOR_$::dacCardNum[$dacNum].adl"; + #my $fname = "$mdlName\_DAC_MONITOR_$::dacCardNum[$dacNum].adl"; + my $fname = "$mdlName\_DAC_MONITOR_$dacNum.adl"; # Create MEDM File - print "creating file $medmDir\/$fname \n"; + print "creating file $medmDir\/$fname DAC 16bit\n"; open(OUTMEDM, ">$medmDir/$fname") || die "cannot open $medmDir/$fname for writing "; my $xpos = 0; my $ypos = 0; my $width = 171; my $height = 430; diff --git a/src/epics/util/lib/Dac18.pm b/src/epics/util/lib/Dac18.pm index 54d517c4fba9df21e193f4228a64cf89befd197b..74ca273b186bef10eb737a650de66c34eb12aec0 100644 --- a/src/epics/util/lib/Dac18.pm +++ b/src/epics/util/lib/Dac18.pm @@ -180,7 +180,7 @@ sub createDac18Medm my $ii=0; - my $fname = "$mdlName\_DAC_MONITOR_$::dacCardNum[$dacNum].adl"; + my $fname = "$mdlName\_DAC_MONITOR_$dacNum.adl"; # Create MEDM File print "creating file $medmDir\/$fname \n"; open(OUTMEDM, ">$medmDir/$fname") || die "cannot open $medmDir/$fname for writing "; diff --git a/src/epics/util/lib/medmGenGdsTp.pm b/src/epics/util/lib/medmGenGdsTp.pm index 9d692093e748a2230687e23d0eb4f54945ef1601..17f36d7377481453cf7e99174b03110cbb0b03a7 100644 --- a/src/epics/util/lib/medmGenGdsTp.pm +++ b/src/epics/util/lib/medmGenGdsTp.pm @@ -326,7 +326,7 @@ sub createGdsMedm $b1width = 14; for($ii=0;$ii<$dacCnt;$ii++) { - $relDisp = "$medmTarget\/$mdlNamelc\/$mdlName\_DAC_MONITOR_$::dacCardNum[$ii].adl"; + $relDisp = "$medmTarget\/$mdlNamelc\/$mdlName\_DAC_MONITOR_$ii.adl"; if($dactype[$ii] eq "GSC_18AO8" ) { $medmdata .= ("CDS::medmGen::medmGenRelDisp") -> ($xpos,$ypos,$width,$height,$relDisp,$ecolors{white},$ecolors{dacblue},"D$::dacCardNum[$ii]"); if($adcMaster == 1)