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 --- firstname.lastname@example.org 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: email@example.com +---
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.