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



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.





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.