|
Bill, I have some procedures that format strings from date variables passed in, one for *ISO and one for *USA. They include variables for zero suppress, dashes, slashes, etc. It would be simple enough to follow the examples and make as many different outputs as you want. If you work with actual date fields instead your calling program could simply send the adjusted date like so: dateString = #dateUSA( myDate + %days( numDiff ) ); Since you want to handle varying date types, you simply adjust myDate before the call... why not, since you already have all the required pieces in your PLIST? I mean you already have to know the format and everything to be able to send it, so why bother? if dateFormat = *MDY ; myDate = %date( myString : *MDY ); elseif ; ...etc endif ; // now call the desired date format routine... I have some other date routines as well, like one that lets you change a Date fields attributes (like set day to 15, etc) and one that retrieves the last day of the month for the passed Date). I've been thinking of putting together a service program for download on my website. If anyone is interested or has additional ideas for the SRVPGM please let me know. Joel >I've got a program that calculates a new date >based upon a number of days offset. Here is a >snippet of the code: > >. . . >C *entry Plist > >C Parm indate > >C Parm >dateformat 5 >C Parm >diffdays 4 0 >C Parm >outdate >C* > >C Select > >C* > >C dateformat WhenEq '*MDY' > >C dateformat OrEq '*mdy' > >C *mdy Move inmdy @date > >C AddDur diffdays:*days@xxxx > >C *mdy Move @date outmdy > >. . . > >I'm enhancing the logic to handle all valid date >formats, to allow the option specification of an >output date format, and will be prototyping the >parameters. > >Does anyone have a sample of a program like this >already written? I'm going to end up overhauling >this thing and would like to save a lot of time if >it's already been done. BTW, I'm at V5R2 and am >not against free form code. > >Bill >_______________________________________________ >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.