;***********************************************************************
;*   Created 06JUN05 by Bill Hillman                                   *
;***********************************************************************

#define DEBUG 0
string fname            ;first part of file name
string datefilename        ;this is the date part of file name

proc main

dial data "NAME OF CONNECTION IN DIRECTORY"

while 1
   clear          ;clear screen
   fname = "NAME OF SWITCH "  ;put the first part of name here leave a space at the end
   datefilename = ""    ;to ensure string datefilename is empty
   call file_date       ;calls file_date proc
   strcat fname datefilename  ;this combines the two string (in this case M1_Log YYYYMMDD)
   set capture path "C:\Program Files\Symantec\Procomm Plus\Capture\LOG FOLDER NAME"
   set capture file fname     ;sets caputure file to the file named in file_date proc
   capture on        ;turns on capture
   waituntil "23:59:57"    ;keeps capturing until this time
        capture off        ;turns capture off
   pause 5           ;waits 5 seconds

endwhile
endproc

proc file_date
   integer iDay, iMonth, iYear, iHour, iMin, iSec
   ltimeints $LTIME iYear iMonth iDay iHour iMin iSec
   strfmt dateFileName "%d%02d%02d" iYear iMonth iDay
   strcat dateFileName ".TXT"
endproc