Re: How do I edit timestamp = 0

[Henrik Rützou <hr@xxxxxxxxxxxx>]

Try ...

 if cdsstadt = *loval;


On Mon, Aug 26, 2013 at 5:23 PM, Gary Thompson <gthompson@xxxxxxxxxxx>wrote:

> Maybe cdsstadt is not character ?
>
> Strange you use the name both for the compare and
> to store the value returned from %timestamp() ?
>
> The following is a working example from strsql on my system i
>
> select *
> from basloc53/lc098
> where donets = '0001-01-01-12.00.00.000000'
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Pam Gutowski
> Sent: Monday, August 26, 2013 7:56 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: How do I edit timestamp = 0
>
> 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.
>
>
>
> --
> 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.