Hi waz

Based on this code i'm trying to find out Second Friday of the Month

i'm getting Second Friday of the Month corretly for all the months a expect "June" month not correct

Could you please give me solution for this

DEFINE FUNCTION SCNDSAT/A8YYMD (SEEDDATE/A8YYMD)
SEEDYYMD/YYMD = SEEDDATE ;
CALC1/YYMD = DATEMOV(SEEDYYMD, 'BOM') ;
DOW/W = CALC1 ;
FIX/I1 = IF DOW EQ 7 THEN 7 ELSE 0 ;
CALC2/YYMD = CALC1 + (6 - DOW) + 7 + FIX ;
SCNDSAT/A8YYMD = CALC2;
END

-RUN

-SET &TESTDATE = '20130601' ;
-SET &RES = SCNDSAT(&TESTDATE) ;

-TYPE &TESTDATE - &RES



Thanks
kumar

This message has been edited. Last edited by: Kerry,

try using EOW instead of the calculation you have. It should simplify things.

DEFINE FUNCTION SCNDSAT/A8YYMD (SEEDDATE/A8YYMD)
SEEDYYMD/YYMD = SEEDDATE ;
CALC1/YYMD = DATEMOV(SEEDYYMD, 'BOM') ;
YYMDEOW/YYMD=DATEMOV(CALC1, 'EOW')  ;
CALC2/YYMD=YYMDEOW + 7;
SCNDSAT/A8YYMD = CALC2;
END

  

For me EOW gives me Friday.

If you wanted to, you could also condense the calculation into one line

CALC1/YYMD = DATEMOV(DATEMOV(SEEDYYMD, 'BOM') ,'EOW') +7

Thanks

Changing the FIX line should do it.

FIX/I1 = IF DOW EQ 7 THEN 7 ELSE IF SEEDYYMD EQ CALC1 THEN 6 ELSE 0 ;

But I do like Eric's suggestion. even if the EOW moves to Saturday or Sunday, the calc is quite easy.

Thanks waz for providing solution

Elegant function which might be even better if you add 2 extra variables so you can also get the 3th Wednesday or the 4th Monday .
Or what about the last business day of the month.
(We have reports that need to be executed via reportcaster at the 4th business day of the month, something that would be a great improvement of the reportcaster schedule function)

Hi

with this code how to find 2nd sunday of the every Month

i'm new to webfocus

could you plese help me

quote:

Originally posted by eric.woerle:
try using EOW instead of the calculation you have. It should simplify things.

DEFINE FUNCTION SCNDSAT/A8YYMD (SEEDDATE/A8YYMD)
SEEDYYMD/YYMD = SEEDDATE ;
CALC1/YYMD = DATEMOV(SEEDYYMD, 'BOM') ;
YYMDEOW/YYMD=DATEMOV(CALC1, 'EOW')  ;
CALC2/YYMD=YYMDEOW + 7;
SCNDSAT/A8YYMD = CALC2;
END

  

For me EOW gives me Friday.

If you wanted to, you could also condense the calculation into one line

CALC1/YYMD = DATEMOV(DATEMOV(SEEDYYMD, 'BOM') ,'EOW') +7

Thanks

Kumar,

In example 1, you want to adjust Calc2 to add or subtract the number of days between the day you are trying to find and the first friday of the month. In this case you are looking for the second sunday so that would 9 (sunday is 2 days after friday, and you want one week later)

quote:

Originally posted by kumar27:

DEFINE FUNCTION SCNDSAT/A8YYMD (SEEDDATE/A8YYMD)
SEEDYYMD/YYMD = SEEDDATE ;
CALC1/YYMD = DATEMOV(SEEDYYMD, 'BOM') ;
YYMDEOW/YYMD=DATEMOV(CALC1, 'EOW')  ;
CALC2/YYMD=YYMDEOW + 7;
SCNDSAT/A8YYMD = CALC2;
END

  

In example 2 you would do the same thing, only you adjust calc 1 by 9.

quote:

CALC1/YYMD = DATEMOV(DATEMOV(SEEDYYMD, 'BOM') ,'EOW') +7

Thanks

If this still doesn't make sense, try stepping through the logic. I find that breaking things apart helps me understand things better

Eric

Frank, what you need can be accomplished with a preprocessing condition, a fex that decides if today is the 4th bd, and sets KILl_RPC to Y if its not. then schedule the job for the 4,5,6,7th of every month. not so elegant, but works. i do it that way.

Yes susannah, that is how I do it..but the kill of rc gives me an error message and i want to avoid that.
The same issue comes in datamigrator .

I have a small proces that runs on the first day of the month five minutes after midnight.
It makes a list of the working day numbers skipping weekend and holidays. Now I can easy pick the 4th or 11th workday of the month, but still need to run that process several days a month.