Re: Set TimeStamp To Beginning of day

IBM has done a great job with *loval & *hival.

This code:
D ds
D Timestamp z
D Date d overlay(Timestamp)
D Time t overlay(Timestamp: *next)
* ..................................................
/free
Date = *loval;
Time = *hival;
dsply '*loval/*hival';
dsply Timestamp;
dsply Date;
dsply Time;
Date = *hival;
Time = *loval;
dsply '*hival/*loval';
dsply Timestamp;
dsply Date;
dsply Time;
Gave me this output:
DSPLY *loval/*hival
DSPLY 0001-01-0124.00.00
DSPLY 0001-01-01
DSPLY 24.00.00
DSPLY *hival/*loval
DSPLY 9999-12-3100.00.00
DSPLY 9999-12-31
DSPLY 00.00.00
On 4/24/2014 12:00 PM, (WalzCraft) Jerry Forss wrote:

Hi All,

The user enters the date they want to select like 20140424.
The items I am selecting from are PDF's on the IFS.

I want to use the WHERE to select on the Modify_Time selecting on the timestamp of the day the user entered.

What I need is a timestamp set to the start of the day 2014.04.24 00.00.00 and another 2014.04.24 24.00.00 for the end of the day.

How do I set those timestamp variables like that? Drawing a blank.

Exec SQL Declare C1 Cursor For
Select FileName, Size, Type, Create_Time,
Access_Time, Modify_Time, Change_Time
From Table(IFSDir(:Path)) as T
Where Modify_Time >= StartStamp And Modify_Time <= EndStamp

Thanks!!