RE: How do I edit timestamp = 0

min timestamp values on my system appear to be midnight: '0001-01-01-12.00.00.000000'



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of mgarrison@xxxxxxxxxx
Sent: Monday, August 26, 2013 9:34 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: How do I edit timestamp = 0

Pam,

The following should work:

if cdsstadt = %timestamp('0001-01-01-00.00.00.000000') ;


rpg400-l-bounces@xxxxxxxxxxxx wrote on 08/26/2013 08:55:59 AM:

From: Pam Gutowski <pgutowski@xxxxxxxxxxxxx>
To: rpg400-l@xxxxxxxxxxxx,
Date: 08/26/2013 10:14 AM
Subject: How do I edit timestamp = 0
Sent by: rpg400-l-bounces@xxxxxxxxxxxx

I have a DDL table that has a field for start date.time. Its defined
as

a

TIMESTAMP. I want to check if that date is zero, then submit the job

and

update the table with cuurent
timestamp. I keep getting a compile error that the Operands are not
compatible.

if cdsstadt = '0001-01-01-00.00.00.000000' ;
cdsstadt = %timestamp();
update certdelf; //update the start date/time into

control file

Exec sql
CALL SPCERTDELT(:CDSLOWDT, :CDSHIGHDT, :CDSDELID);
//Execute delete program

Endif;



Pam Gutowski | Senior Programmer Analyst | Grand Circle Corporation,
Boston Phone (617) 346-6538 | *: pgutowski@xxxxxxxxxxxxx
--
This is the RPG programming on the IBM i (AS/400 and 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.