!EASI ! Rev1. 11.8.2004 (docu and the initial statements) ! ! EASI Routine by SH 82004 ! ! using: ! ! start of online help documentation here DOC @title{BATCHDELETE}{Delete Channels or Segments in Batchmode} DOC DOC BATCHDEL (S.Hese) DOC DOC BATCHDEL Deletes channels or segments of all Pix-Files in DOC a specified directory. User specific variables are specified DOC interactively in the XPACE Status window and not via Variable in DOC XPACE. DOC DOC DOC 2 DIR DOC DIR DOC DOC Enter the directory where channels or segments should be deleted DOC DOC 1 Details DOC Details DOC DOC This Routine deletes Channels or Segments in Batchmode DOC using DAS or PCIMOD - all files in a directory are treated! DOC Interaction is done via INPUT and not by xpace variables. DOC The DIR Variable must be set in advance. Make sure that you know DOC what you are doing. This routine deletes channels or segments in DOC ALL !!! PCIDSK files that exist in a directory. DOC_END local string chanseg local string fn, ext, bn local mstring dirlist local integer number, i local $Z let $Z = "\ status_title "Delete Channels or Segments" status_show dir 64,1 status_end print "" print "Delete Channels or Segments from all PCIDSK files in Directory" print "" INPUT "Delete Channels (CHAN) or Segments (SEG) (chan/seg): "chanseg !INPUT "Enter the directory which contains the files to be changed: " dire INPUT "ENTER Channel or Segment number: " number dirlist = getdirectory(dir) ! ---------------------this is the create section ------------------------------------------ if (chanseg = "chan") then for i = 1 to f$len(dirlist) fn = dir + $Z + dirlist[i] ext = getfileextension(fn) bn = getfilebasename(fn) if (ext ~= "pix") then MONITOR = "OFF" file=dir + $Z + dirlist[i] !starting with PCIMOD routine pciop="DEL" PCIVAL=number print file RUN PCIMOD endif endfor endif if (chanseg = "seg") then for i = 1 to f$len(dirlist) fn = dir + $Z + dirlist[i] ext = getfileextension(fn) bn = getfilebasename(fn) if (ext ~= "pix") then MONITOR = "OFF" file=dir + $Z + dirlist[i] !starting with DAS routine dbsl=number print file RUN DAS endif endfor endif print "Finished all"