RE: ISO Date in RPGLE

["Jansen, Larry" <ljansen@xxxxxxxxxxxxx>]

We also use PRMS.  For version 9.1 and earlier, the native code RPGLE code
needs to be compiled with CVTOPT(*DATETIME), in which case the date fields
are interpreted as character fields with a length of 10, and you can't use
any of the ILE date operations with those fields.  In this case you can just
test the date field as you would test any character field.  If you are
writing a custom program, you can compile without that restriction, and use
the ILE date operations.  To test for a date of 0001-01-01, you could set up
a D spec as follows:
d no_date         s               d   datfmt(*iso) inz(d'0001-01-01').
This works for us.  Good luck.
Larry Jansen



-----Original Message-----
From: rthompson@xxxxxxxxxxxxxxx [mailto:rthompson@xxxxxxxxxxxxxxx]
Sent: Monday, July 28, 2003 10:45 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: ISO Date in RPGLE


We use a canned package software – SSA’s PRMS.  They use ISO Dates in
all files.  If a date is not required at the time they put 0001-01-01 in
for the default date.  In ILE I tried to compare the date field with
0001-01-01 and could not make it work.  First how can I see if the date
is equal to 0001-01-01 and second how can I fill the date with
0001-01-01.

Thanks
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.493 / Virus Database: 292 - Release Date: 6/25/03

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

---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.502 / Virus Database: 300 - Release Date: 7/18/03
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.502 / Virus Database: 300 - Release Date: 7/18/03