Re: Set TimeStamp To Beginning of day

[Booth Martin <booth@xxxxxxxxxxxx>]

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!!