Posted by Marc on March 12, 2007 at 10:39:09:
In Reply to: Re: date issue posted by Grant Foraker on March 12, 2007 at 09:58:29:
I had assumed that qmonitor dealt with the resetting of the date$ variable, however, after looking at the source of the qmonitor.ibs, I see the date and time issue are not addressed until after the gosub security happens. What is also interesting if that qmonitor, like my z program, deals with the date$ variable and then does a dstat("CL1"). Anyhow, have changed my program. Thanks for your help.
From Qmonitor.ibs:
Start:
ErrorTo 9300
GoSub LoadPartitionDabs
DTE$ = Sub(DATE$,1,2) + '/' + Sub(DATE$,3,2) + '/' + Sub(DATE$,5,2)
1000
EventSub EventHandler EVENT$ NULL$
FILE$ = DStat('CL1') ! UPDATE TIME
PROFILEMSG$ = "Profile name is " + Sub(DStat("X00"),33,8) ! 99.03
PM = (80-Len(Strip(PROFILEMSG$))) / 2 ! 99.03