|
I was going to reply, if you see /free examples you can bet your a$$, since that's when free came to life. But then I decided that the point could be made to pay attention to that /free example. Because indiscriminate use of multiplication, and intermediate results can cause surprising results in /free. Probably even in the semi free environment also. Rob Berendt -- "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin ttufankj@xxxxxxxxx Sent by: rpg400-l-bounces@xxxxxxxxxxxx 08/27/2003 01:39 PM Please respond to RPG programming on the AS400 / iSeries To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> cc: Fax to: Subject: RE: dates in /free Will this work in 5.1? "Jon Paris" <Jon.Paris@xxxxxxxxxxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx 08/27/2003 02:04 PM Please respond to RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> To <rpg400-l@xxxxxxxxxxxx> cc Subject RE: dates in /free >> What is the best way in rpgle/free to convert a date in a 6 digit numeric field from ymd to mdy? I'm not sure the word "best" applies but at V5R2 you can do this: mdy = %Int(%Char (%Date (ymd: *YMD): *MDY0) ); >> Also, how can I use the TEST opcode in rpgle/free to test a date in a 6 digit numeric field? You can't. Your best bet is to use MONITOR like so: D mdy s 6 0 D ymd s 6 0 /Free monitor; mdy = %Int(%Char (%Date (ymd: *YMD): *MDY0) ); on-error; // catch bad date // do whatever you do with a bad date endmon; Jon Paris Partner400 www.Partner400.com _______________________________________________ This is the RPG programming on the AS400 / iSeries (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 AS400 / iSeries (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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.