AW: Change the day of a date

I would agree, but I've recently been pulled up a manager for having too

many sub procedures with few lines of code in them. I think it's because the
monolithers like to read everything, and as they prefer SEU to LPEX they
find it very difficult to read the whole program

That's also may daily discussion with my manager and colleagues.
It may take more time to write one or multiple procedure and test them,
especially when exported procedures are needed. Spaghetti coding (or copying
and pasting from other programs) is faster.
What they do not see, and what IMHO in my opinion is not measurable either
is, how many time will be saved if a modification is needed.
Only a single modification has to be done and tested. All programs and other
procedures that call the (modified) procedure work with the new version.
No need to search for the same code in multiple sources (normally you won't
find them all!).

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Dave
Gesendet: Wednesday, 13.6 2012 20:04
An: RPG programming on the IBM i / System i
Betreff: Re: Change the day of a date

.

2012/6/13 Jon Paris <jon.paris@xxxxxxxxxxxxxx>

On 2012-06-13, at 8:50 AM, Barbara Morris wrote:

I'm a fan of using work variables and extra statements to simplify code.

This is one of those occasions where I'd be tempted to do a variation
of the "old" approach and probably bury it in a subproc. I love the
date functions but speed wise this is going to win every time.

D DS
D MyNewDateField...
D d DatFmt(*USA)
D Month 2s 0 Overlay(MyNewDateField)
D 1a Overlay(MyNewDateField: *next)
D Day 2s 0 Overlay(MyNewDateField: *next)

/Free
If Day >= 16;
Day = 16;
Else;
Day = 1;
EndIf;

Jon Paris

www.partner400.com
www.SystemiDeveloper.com
--
This is the RPG programming on the IBM i / System i (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 IBM i / System i (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.