Testing assumes of course that there is an intelligent recovery option. Sometimes it just makes sense to blow up. :-} (sorry but I needed to use the words "blow up" after all, it's the 4th!)
-Walden
--
Sent from my wireless device.
-----Original Message-----
From: Pete Hall <pbhall@xxxxxxxxxxxxx>
Sent: 04 July, 2008 12:26
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Subject: Re: AW: Dynamically Assigning A Value To A Date Filed
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
For a constant value, you could also use TestDate = D'2008-07-04',
assuming of course that the default date format in the program header is
*ISO. For variables, it's a good idea to also verify that the date is
valid before attempting to assign it to a variable with the date datatype:
~ Test (DE) *ISO strDate;
~ If Error;
~ TestDate = *LOVAL; // or another appropriate constant value
~ Else;
~ TestDate = %Date(strDate : *ISO);
~ EndIf;
Pete Hall
pbhall@xxxxxxxxxxxxx
Schmidt, Mihael wrote:
| Use the %date bif like
|
| TestDate = %date('2008-07-04' : *ISO);
|
| -----Ursprüngliche Nachricht-----
| Von: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] Im Auftrag von
IWilson@xxxxxxxxxxxxxxxxxx
| Gesendet: Freitag, 4. Juli 2008 12:18
| An: MIDRANGE-L@xxxxxxxxxxxx
| Betreff: Dynamically Assigning A Value To A Date Filed
|
| Hi All
|
| Wonder if anyone can help.
|
| I have the following defined in a PRGILE program.
|
| D TestDate S D DatFmt(*iso) INZ(D'2008-07-04')
|
| However what I want to do is assign a value to TestDate at runtime.
|
| ie Something like
|
| Eval TestDate = '2008-07-04'
|
|
| Can't find anything about how to do this and when I try it
| I get a compile time message that the left and right type are not the
| same.
|
| Any assistance would be greatly appreciated
|
| Thanks in advance
|
|
| Best Regards
|
| Iain Wilson
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
Comment: Using GnuPG with Mozilla -
http://enigmail.mozdev.org
iEYEARECAAYFAkhuTZQACgkQpcZsDl8OX6nFZQCfTETWjs5dodLWLUOCML3jJQev
KCoAn2bEsuuMU7sjNlxf6kcGnl1olIZa
=CnqX
-----END PGP SIGNATURE-----
midrange.com
