× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.