Re: 1st day of any year

David,

I didn't know you were thinking about a (possible) SQL solution...

Have you checked Alain Campin's iDate UDF? I think it covers a lot of
options for converting dates. Another option would be to write your own,
more tailored to your problem UDF.

Also, Would it not better to monitor your date conversion? I can think of a
lot of scenarios where the number is right but the date is wrong (eg.
13152010).

Regards,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries


On Mon, Mar 15, 2010 at 3:53 AM, David FOXWELL <David.FOXWELL@xxxxxxxxx>wrote:

Thanks, I was hoping there was something I hadn't thought of, or even a
nifty SQL solution.

In fact, as I receive the date as 4 characters, I will convert it to
integer and monitor for that. I will then compose my date field but not
monitor the conversion of my date field.

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de James Perkins
Envoyé : vendredi 12 mars 2010 17:46
À : RPG programming on the IBM i / System i
Objet : Re: 1st day of any year

>

I have a data structure I use for timestamps for purposes like this.
The year validation should be pretty easy. It just has to be
greater than 0.

There is no easier way really. I prefer this data structure
way only because to me it feels less messy. To others, it
may seem overkill.
It's a little more verbose, but it's just my preference.

* Time format DS
D timeStruct_t DS qualified
* based(template)
D timestamp 26a
D year 4s 0 overlay(timestamp)
inz(1940)
D yearSep 1a overlay(timestamp
: *next) inz('-')
D month 2s 0 overlay(timestamp
: *next) inz(01)
D monthSep 1a overlay(timestamp
: *next) inz('-')
D day 2s 0 overlay(timestamp
: *next) inz(01)
D daySep 1a overlay(timestamp
: *next) inz('-')
D hours 2s 0 overlay(timestamp
: *next) inz(0)
D hourSep 1a overlay(timestamp
: *next) inz('.')
D minutes 2s 0 overlay(timestamp
: *next) inz(0)
D minuteSep 1a overlay(timestamp
: *next) inz('.')
D seconds 2s 0 overlay(timestamp
: *next) inz(0)
D secondSep 1a overlay(timestamp
: *next) inz('.')
D milliseconds 6s 0 overlay(timestamp
: *next) inz(0)

With the data structure above you could do something like
this assuming the DS name is timeStruct.

if (yearPassed > 0);
reset timeStruct;
timeStruct.year = yearPassed;
myDate = %date(%timestamp(timeStruct)); else;
// Handle the exception
endif;
--
James R. Perkins



On Fri, Mar 12, 2010 at 05:22, David FOXWELL
<David.FOXWELL@xxxxxxxxx> wrote:

Hi,

I need the first day of the year which will be passed a

string of length 4.

I think this will work :

MyDate = %DATE ( '01.01.' + yearPassed : *EUR );

But I will still need to test in case yearPassed isn't right.

Is there an easier way or less messy one?

Thanks
--
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.

--
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.