|
-- [ Picked text/plain from multipart/alternative ] By the time it reaches the second IF, it is already 01/1/02 :-) Barbara Morris wrote: >Richard B Baird wrote: > > >>c if %subst(CBDATE:2:1) = '/' >>c eval CBDATE = '0' + %trim(CBDATE) >>c end >> >>c if %subst(CBDATE:5:1) = '/' >>c eval CBDATE = %subst(CBDATE:1:3) + '0' + >>c %subst(CBDATE:4:4) >>c end >> >>c *mdy/ move CBDATE $CDate >> >>only 4 extra lines of code lines of code (not counting end statements :) >> >> > >Rick, I don't think you've covered the case of 1/1/02. > > >_______________________________________________ >This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list >To post a message email: RPG400-L@midrange.com >To subscribe, unsubscribe, or change list options, >visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l >or email: RPG400-L-request@midrange.com >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.