Re: Identify the 1st Friday of the Month

["Michael Ryan" <michaelrtr@xxxxxxxxx>]

Hi Birgitta -

I just gave this a try, and I'm getting a compile error saying the
operands can't be compared. What type are FirstFriday and MyDate?
Also, are Next_day and Last_Day stored procedures or functions or
what?

Thanks...

On Tue, Dec 23, 2008 at 6:59 AM, Birgitta Hauser <Hauser@xxxxxxxxxxxxxxx> wrote:
> Hi,
>
> I'd use embedded SQL:
>
> Exec SQL
>   Set :FirstFriday = Case When :MyDate = Next_Day(Last_Day(:MyDate - 1
> Month), 'Friday')
>                           Then '1' Else '0' End;
>
> Mit freundlichen Grüßen / Best regards
>
> Birgitta Hauser
>
> "Shoot for the moon, even if you miss, you'll land among the stars." (Les
> Brown)
> "If you think education is expensive, try ignorance." (Derek Bok)
> "What is worse than training your staff and losing them? Not training them
> and keeping them!"
>
> -----Ursprüngliche Nachricht-----
> Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
> Auftrag von ewart.desouza@xxxxxxxxxxx
> Gesendet: Tuesday, 23. December 2008 11:58
> An: RPG programming on the AS400 / iSeries
> Betreff: Identify the 1st Friday of the Month
>
> Hello All,
>
> Anyone have a code snippet to identify if a date is the 1st Friday of the
> month ?
>
> Thanks & best regards
> Ewart
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.