Re: Can I get the Day of the week? (BUCK!!)

[Marco Facchinetti <facchinetti@xxxxxxxxx>]

Well Buck it's a great idea to add it to the FAQ and I
think David L. Mosley, Jr. example it's a VERY STANDARD one
beside the fact that I prefer to use *ISO dates...
Marco

--- dmosley@dancik.com wrote:
> 
> Well, I can't beat that one.  I haven't see one shorter
> than that.  But
> here's the source for one using 'CEE*' apis...
> 
> h dftactgrp(*no)
> d date            s              8a   inz('050501')
> d format          s              8a   inz('MMDDYY')
> d lillian         s              8b 0 inz
> d dow             s              8b 0 inz
> d days            s             10a   dim(7) perrcd(7)
> ctdata
> d dayoftheweek    s             10a   inz
>  * ---- Edit API Error Data Structure...
> d api@err@ds      ds                  inz
> d  bytes@rsvd                    9b 0
> inz(%size(api@errmsg))
> d  bytes@aval                    9b 0 inz
> d  api@msgid#                    7a   inz
> d  api@rsvrd                     1a   inz
> d  api@errmsg                  100a   inz
> c                   callb(d)  'CEEDAYS'
> Call API to retreive lilian date.
> c                   parm                    date
> c                   parm                    format
> c                   parm                    lillian
> c                   parm                    api@err@ds
> 
> c                   callb(d)  'CEEDYWK'
> Returns day of the week using Lillian
> c                   parm                    lillian
> c                   parm                    dow
> c                   parm                    api@err@ds
> c                   eval      dayoftheweek = days(dow)
> c                   eval      *inlr = *on
> 
> **
> Sunday    Monday    Tuesday   Wednesday Thursday  Friday 
>   Saturday
> 
> 
> 
> David L. Mosley, Jr.
> Systems Analyst
> 2000 CentreGreen Way
> Suite 250
> Cary, NC 27513
> 
> 
> 


__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---