RE: SNDEMAIL time incorrect

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of John McKee
Sent: Wednesday, November 05, 2008 10:39 AM
To: Midrange Systems Technical Discussion
Subject: SNDEMAIL time incorrect


We still use the ancient SNDEMAIL command. Just for simple error
messages.

My issue is that when an email is received, the time in the email
header lags by
six hours. I tried to fix it some time back, but the time is still wrong.

Here is how I am generating the date:

H BndDir( 'QC2LE' )
.
.
.
D time_t s 10i 0
D CurrentTime Pr 10i 0 ExtProc( 'time' )
D TimeToString Pr * ExtProc( 'ctime' )
D ElapTime 10i 0 value.
.
.
c* get time in seconds since Jan 1, 1970
c eval time_t = CurrentTime

C eval mdatetime =
C 'Date: ' + %str(TimeToString(time_t) )

When I look at the option on a received email (using Outlook), the time is
showing as this in the header: Wed, 5 Nov 2008 00:44:39 -0600

The Date entry in the header looks like this, as far as I can copy:

Wed Nov 5 00:44:37 2008?


But, Outlook shows the time as:

Tue 11/04/2008 18:45



Any ideas why the time is off by 6 hours? Am I not formatting the time
correctly?

John McKee

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L)
mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.