|
midrange.com
>> 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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
