
pkill %exe%._xe
pkill %exe%.exe
pkill %exe%.ex
pkill %exe%._x
pkill g23_smi_gprs_wa

@if errorlevel == 2 goto access_error 

@DELAY 2

PREP /M %outdir%%exe%


echo errorlevel is: %errorlevel%
if errorlevel == 1 goto done 

PLIST %outdir%%exe% > %outdir%%exe%-%method%3.lst
PLIST %arg2% %outdir%%exe% > %outdir%%exe%-%method%.lst
PLIST /F /T %outdir%%exe% > %outdir%%exe%-%method%2.lst


@rem perl -e"while(<>){if(/^    0 .*\((.*):(\d*)\)/){print qq(\\gpf\\util\\teststack\\msdev\\teststack_profile_files\\$1($2) : Line not reached\n)}}" \gpf\util\teststack\msdev\teststack_profile_files\teststack-LV.lst >\gpf\util\teststack\msdev\teststack_profile_files\teststack-LV.out
@rem perl -e"while(<>){if(/^    0 .*\((.*):(\d*)\)/){print qq(\\gpf\\util\\teststack\\msdev\\teststack_profile_files\\$1($2) : Line not reached\n)}}" \teststack-LV.lst > \teststack2-LV.out


perl -e"while(<>){if(/^(\d)	(.*)	(.*)	(\d*)	0/){print qq($3($4) : Line not reached\n)}}" %outdir%%exe%-%method%2.lst > %outdir%%exe%-%method%.out
rem type %outdir%%exe%-%method%.out

@INPUT /c /x Do you want to delete the intermediate files (y/n). %%answer

@if %answer% == y (
@echo ^n
@echo Cleaning up by deleting intermediate files...
@if exist %outdir%%exe%.pbi del %outdir%%exe%.pbi
@if exist %outdir%%exe%.pbo del %outdir%%exe%.pbo
@if exist %outdir%%exe%.pbt del %outdir%%exe%.pbt
@if exist %outdir%%exe%.exe del %outdir%%exe%.exe
@if exist %outdir%%exe%.map del %outdir%%exe%.map
@if exist %outdir%%exe%._xe del %outdir%%exe%._xe
@echo Done.
@)
@echo ^n

@goto done

:access_error
@echo /////////////////////////////////////////////////////////////////////////////////////////////
@echo ERROR: An error occured. Perhaps you do not have the permissions to execute /gpf/bin/pkill. 
@echo Please check Clearcase properties of this element  and try again.
@echo /////////////////////////////////////////////////////////////////////////////////////////////

:done