|
midrange.com
* -- From QC2LE....
d @atoll pr 20i 0 extproc('atoll')
d string * value options(*string)
/free
cymdDate = @atoll( %char( %date(mdyDate: *mdy): *iso0 ) );
/end-free
x
David L. Mosley, Jr.
Systems Analyst
2000 CentreGreen Way
Suite 250
Cary, NC 27513
www.dancik.com
"Malchow, Grizzly"
<GMalchow@xxxxxxxxxxx To:
<rpg400-l@xxxxxxxxxxxx>
oducts.com> cc:
Sent by: Subject: %Date BIF
rpg400-l-bounces@xxxx
ange.com
07/08/2003 02:45 PM
Please respond to RPG
programming on the
AS400 / iSeries
I'm trying to convert a date in *CYMD to *MDY. Both fields are numeric.
I'm trying to use the %Date BIF and I can't seem to get anything to
work. I noticed that %Date doesn't accept numeric values. Is there a way
to do that with 2 numeric values, or should I just use MOVE opcode?
_______________________________________________
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.
