Third sunday in the month - VMS

This is a discussion on Third sunday in the month - VMS ; On Wed, 29 Aug 2007 12:57:44 -0700, apogeusistemas@gmail.com wrote: >Hi: >Iīm looking for a command procedure to send a operatorīs message >if the day is the third sunday in the month. >Can you help me ? >Thank you. if you ...

+ Reply to Thread
Page 2 of 2 FirstFirst 1 2
Results 21 to 26 of 26

Thread: Third sunday in the month

  1. Re: Third sunday in the month

    On Wed, 29 Aug 2007 12:57:44 -0700, apogeusistemas@gmail.com wrote:

    >Hi:
    >Iīm looking for a command procedure to send a operatorīs message
    >if the day is the third sunday in the month.
    >Can you help me ?
    >Thank you.


    if you are able to use perl, consider using installing
    the Date::Calc modules
    eg

    http://search.cpan.org/~tchatzi/Date-Calc/Calc.pod
    http://search.cpan.org/~stbey/Date-Calc-5.4/Calc.pod


    here's an example to figure the 3rd Friday.

    use Date::Calc qw( Today Add_Delta_Days Nth_Weekday_of_Month_Year );

    ($year,$month,$day) = Today();

    # P3: 5 = Friday
    # P4: 3 = 3rd occurance of that day of week

    ($year0,$month0,$day0) = Nth_Weekday_of_Month_Year($year,$month,5,3);

    # Saturday following

    ($year1,$month1,$day1) = Add_Delta_Days($year0,$month0,$day0,1 );

    # Sunday following

    ($year2,$month2,$day2) = Add_Delta_Days($year0,$month0,$day0,2 );

    $today = sprintf( "%04u/%02u/%02u",$year, $month, $day );
    $ThirdFri_plus_0 = sprintf( "%04u/%02u/%02u",$year0,$month0,$day0);
    $ThirdFri_plus_1 = sprintf( "%04u/%02u/%02u",$year1,$month1,$day1);
    $ThirdFri_plus_2 = sprintf( "%04u/%02u/%02u",$year2,$month2,$day2);

    printf( "Today: %s\n",$today );

    printf( "3rd Fri+0: %s\n",$ThirdFri_plus_0 );
    printf( "3rd Fri+1: %s\n",$ThirdFri_plus_1 );
    printf( "3rd Fri+2: %s\n",$ThirdFri_plus_2 );

  2. Re: Third sunday in the month

    apogeusistemas@gmail.com wrote in news:1188427622.398539.57180@
    22g2000hsm.googlegroups.com:

    [snip..]

    > $ set nover
    > $ hour="''F$EXTRACT(12,2, F$TIME())'"
    > $ day=F$CVTIME(,,"day")
    > $ week=F$CVTIME(,,"weekday")
    > $ if ((week .eqs. "Sunday") .and. (day .gt. "14") .and. (day .lt.
    > "23") .and. (hour .eq. "12")) then goto dispara
    > $exit
    > $dispara:
    > $ mail/subj=" >>> Restarte o Server <<< " sys
    > $login:restart_server.txt "smtp%""schwarzt@aaaaaaa.com.br"""
    > $exit
    >
    > Thanks a lot for your examples !
    >
    >


    Forgetting the calculation of the third Sunday of the month, is this a
    reminder to restart a VMS system? If the answer is yes, you certainly must
    have some other question that needs to be answered.

  3. Re: Third sunday in the month

    On 31 ago, 22:45, Tad Winters
    wrote:
    > apogeusiste...@gmail.com wrote in news:1188427622.398539.57180@
    > 22g2000hsm.googlegroups.com:
    >
    > [snip..]
    >
    > > $ set nover
    > > $ hour="''F$EXTRACT(12,2, F$TIME())'"
    > > $ day=F$CVTIME(,,"day")
    > > $ week=F$CVTIME(,,"weekday")
    > > $ if ((week .eqs. "Sunday") .and. (day .gt. "14") .and. (day .lt.
    > > "23") .and. (hour .eq. "12")) then goto dispara
    > > $exit
    > > $dispara:
    > > $ mail/subj=" >>> Restarte o Server <<< " sys
    > > $login:restart_server.txt "smtp%""schwa...@aaaaaaa.com.br"""
    > > $exit

    >
    > > Thanks a lot for your examples !

    >
    > Forgetting the calculation of the third Sunday of the month, is this a
    > reminder to restart a VMS system? If the answer is yes, you certainly must
    > have some other question that needs to be answered.


    I need restart a W2K3 sql server every 3rd Sunday.
    Task passed by a Windows administrator...


  4. Re: Third sunday in the month

    On Aug 30, 8:38 am, VAXman- @SendSpamHere.ORG wrote:
    > In article <1188437058.314136.41...@57g2000hsv.googlegroups.co m>, apogeusiste...@gmail.com writes:
    >

    [...]
    > >I made this change:

    >
    > >$ hour=3D"''F$EXTRACT(12,4, F$TIME())'"
    > >$ day=3DF$CVTIME(,,"day")
    > >$ week=3DF$CVTIME(,,"weekday")
    > >$ if ((week .eqs. "Sunday") .and. (day .gt. 14) .and. (day .lt.
    > >22) .and. (hour .eq. "12:0")) then goto dispara

    >
    > >and I=B4ll receive only 2 alerts (maybe only 1)

    >
    > You can avoid the two date compares with this BTW:
    >
    > ((day .gt. 14) .and. (day .lt.22)) == ((day-1)/7 .eq. 2)


    What's the advantage of this?

    This is DCL, no? Why the double equals sign?

    >
    > --
    > VAXman- A Bored Certified VMS Kernel Mode Hacker VAXman(at)TMESIS(dot)COM
    >

    [...]

    AEF


  5. Re: Third sunday in the month

    apogeusistemas@gmail.com wrote:
    > [...snip...]
    >
    > I need restart a W2K3 sql server every 3rd Sunday.
    > Task passed by a Windows administrator...


    Every *3rd* *Sunday* ? I thought you had to restart them
    every day ;-)

  6. Re: Third sunday in the month

    In article <1188653375.860361.214550@k79g2000hse.googlegroups. com>, AEF writes:
    >
    >
    >On Aug 30, 8:38 am, VAXman- @SendSpamHere.ORG wrote:
    >> In article <1188437058.314136.41...@57g2000hsv.googlegroups.co m>, apogeusiste...@gmail.com writes:
    >>

    >[...]
    >> >I made this change:

    >>
    >> >$ hour=3D"''F$EXTRACT(12,4, F$TIME())'"
    >> >$ day=3DF$CVTIME(,,"day")
    >> >$ week=3DF$CVTIME(,,"weekday")
    >> >$ if ((week .eqs. "Sunday") .and. (day .gt. 14) .and. (day .lt.
    >> >22) .and. (hour .eq. "12:0")) then goto dispara

    >>
    >> >and I=B4ll receive only 2 alerts (maybe only 1)

    >>
    >> You can avoid the two date compares with this BTW:
    >>
    >> ((day .gt. 14) .and. (day .lt.22)) == ((day-1)/7 .eq. 2)

    >
    >What's the advantage of this?
    >
    >This is DCL, no? Why the double equals sign?


    Doh! The expression: ((day .gt. 14) .and. (day .lt.22)) can be expressed as
    or is equivalent to: ((day-1)/7 .eq. 2) It has nothing to do with DCL per
    se.

    Normalizing the day to 0 (day-1) allow one to check for the week using
    0,1,2,3... for 1st, 2nd, 3rd, 4th week.

    --
    VAXman- A Bored Certified VMS Kernel Mode Hacker VAXman(at)TMESIS(dot)COM

    "Well my son, life is like a beanstalk, isn't it?"

    http://tmesis.com/drat.html

+ Reply to Thread
Page 2 of 2 FirstFirst 1 2