midrange.com -- rpg400-l mailing listMailing list archive for rpg400-l at midrange.comRe: Using Subdur- July 1, 2008 I'll show you again. assuming that program is running on sunday. Eval Monday = %Dec(%Date(UDATE:MDY)-%Days(6):YMD); setll (monday) file; read file; dow not %eof(); Enddo; Michael Schutte Admin Professional Bob Evans Bob-B-Q: You haven't had barbeque u...http://feeds.midrange.com/~r/rpg400-l/~3/324333252/msg00023.html RE: Using Subdur- July 1, 2008 Privileged and Confidential. This e-mail, and any attachments there to, is intended only for use by the addressee(s) named herein and may contain privileged or confidential information. If you have received this e-mail in error, please notify me immediate...http://feeds.midrange.com/~r/rpg400-l/~3/324333253/msg00022.html Re: Using Subdur- July 1, 2008 From: Alan Shore <AlanShorexxxxxxxx> Subject: Re: Using Subdur To: "RPG programming on the AS400 iSeries" <rpg400-lxxxxxxxxxxxx> Date: Tuesday, July 1, 2008, 7:13 PM Actually SUBDUR can also give you a date by adding or subtracting DAYS,WEEKS,MONTH...http://feeds.midrange.com/~r/rpg400-l/~3/324333254/msg00021.html Re: Having a date conversion issue- July 1, 2008 You are right Scott, and I found that just before you responded.....but I certainly like the last line better ...... Thanks Scott, I appreciate the response.... From: Scott Klement <rpg400-lxxxxxxxxxxxxxxxx> To: RPG programming on the AS400 iSeries <rpg...http://feeds.midrange.com/~r/rpg400-l/~3/324305297/msg00020.html Re: Using Subdur- July 1, 2008 You could convert your date to a date data type and substract 6 days from it...... IE: this past sunday was 06292007 - 6 days would yield a start date of 06232007. Opt code is %days(x); From: Adam West <adamsterxxxxxxxxx> To: rpg400-lxxxxxxxxxxxx Dat...http://feeds.midrange.com/~r/rpg400-l/~3/324285244/msg00018.html RE: Using Subdur- July 1, 2008 HI, The only way I use dates is to first turn them into ISO types. It makes them easier to compare. Then just add or subtract the number of days required. Don't know if this helps I happen to do a lot of programming the old way. -----Original Message----- ...http://feeds.midrange.com/~r/rpg400-l/~3/324275002/msg00017.html Re: Having a date conversion issue- July 1, 2008 Just at quick look, 0101.05 TestDateN = %Dec(%Date(Tsw3:Cymd):Iso); 0101.06 TestDateN = %dec(%Date(TestDateN:cymd)+ %days(1)); TestDateN is not in cymd format, it is in iso0. Thanks, Jeff Davis Dental Network of America The information cont...http://feeds.midrange.com/~r/rpg400-l/~3/324275003/msg00016.html Re: Having a date conversion issue- July 1, 2008 Hi Doug, Shouldn't that second line have iso instead of cymd You've already converted the date to ISO at that point... I think the "receiver too small" error is coming from the fact that you're trying to tell the system that an 8,0 date is actually a ...http://feeds.midrange.com/~r/rpg400-l/~3/324275012/msg00015.html Re: Having a date conversion issue- July 1, 2008 you could just make one line of code. 119 TestDateN = %Dec(%Date(Tsw3:Cymd)+%days(1):Iso); Michael Schutte Admin Professional Bob Evans Bob-B-Q: You haven't had barbeque until you've had Bob Evans Bob-B-Q. Try our six Bob-B-Q dishes, starting at $5.99. F...http://feeds.midrange.com/~r/rpg400-l/~3/324275016/msg00014.html |