Re: %timestamp and %time

[bmorris@xxxxxxxxxx]

>From: "Phil" <sublime78ska@yahoo.com>
>Date: Sat, 5 Jan 2002 18:24:08 -0500
>
>I am moving a date and a time to a timestamp field.
>
>Why can't I use the timestamp BIF with the time BIF?:
>
>          expTS = %timestamp(%time(expTime:*iso));
>RNF0538E The first parameter for %TIMESTAMP is not valid.
>
>Is this the best way to do it?:
>
>           expTS = %timestamp(%date(expdat:*cymd));
>           test(te) *iso expTime;
>            if not %error;
>      /end-free
>     C     *iso          move      expTime       ISOTime
>     C                   move      ISOTime       expTS
>      /free
>            endif;

Phil, try this:
   expTs = %date(expdate:*cymd) + %time(expTime:*iso);

If you think the date or time might not be valid, do this:
   monitor;
     expTs = %date(expdate:*cymd) + %time(expTime:*iso);
   on-error;
     expTs = *loval;
     (whatever)
   endif;

Barbara Morris