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



By retrieving the system value via an API call to QWCRSVAL


Terry

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of John McKee
Sent: Wednesday, November 05, 2008 7:48 PM
To: midrange-l@xxxxxxxxxxxx
Subject: RE: SNDEMAIL time incorrect

How is the variable QUTCOFFSET initialized?

Quoting Winchester Terry <terry.winchester@xxxxxxxxxxxxxxx>:

My version of SNDEMAILR uses the following code to
construct the time:

Eval MDateTime =
'Date: ' + %Trimr(DateOut) + ' ' +
%Trimr(%EditW(Utime:' : : ')) +
' ' + QUTCOFFSET

where Utime is the current time and DateOut is the current
date based
on a call to CEEDATE. At one time we had the same problem. Setting
QUCTOFFSET to its correct value for our time zone solved
our problem...

The Utime was built using the TIME statement:

C*** Current time
C Time Utime 6 0

and DateOut was calcuated as follows:

CSR RtvFmtDate Begsr
C*** CONVERT CURRENT DATE TO LILIAN
C Move *Date Ldate
C Move Ldate InDate
C CALLB(D) 'CEEDAYS'
C PARM InDate 10
C PARM 'YYYY-MM-DD' InPicture 10
C PARM LilianDate
C PARM FC1
C*** CONVERT LILIAN DATE TO CHARACTER DATE
C Eval DateFmt = 'Www, DD Mmm YYYY'
C CALLB(D) 'CEEDATE'
C PARM LilianDate
C PARM DateFmt
C PARM DateOut
C PARM Fc1
C***

Terry

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of John McKee
Sent: Wednesday, November 05, 2008 1:58 PM
To: midrange-l@xxxxxxxxxxxx
Subject: RE: SNDEMAIL time incorrect

Offset . . . . . . . . : -06:00

John McKee

Quoting Winchester Terry <terry.winchester@xxxxxxxxxxxxxxx>:

We also use SNDEMAIL and it works fine. What is the value
of QUTCOFFSET?



Terry

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of John McKee
Sent: Wednesday, November 05, 2008 11: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.



Confidentiality Notice:

The preceding e-mail message (including any attachments) contains
information that may be confidential, protected by
applicable legal
privileges, or constitute non-public information. It is
intended to
be conveyed only to the designated recipient(s). If you
are not an
intended recipient of this message, please notify the sender by
replying to this message and then delete it from your
system. Use,
dissemination, distribution or reproduction of this message by
unintended recipients is
not authorized and may be unlawful.



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





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



Confidentiality Notice:

The preceding e-mail message (including any attachments) contains
information that may be confidential, protected by applicable legal
privileges, or constitute non-public information. It is intended to
be conveyed only to the designated recipient(s). If you are not an
intended recipient of this message, please notify the sender by
replying to this message and then delete it from your system. Use,
dissemination, distribution or reproduction of this message by
unintended recipients is
not authorized and may be unlawful.



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





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



Confidentiality Notice:

The preceding e-mail message (including any attachments) contains information that may be confidential, protected by applicable legal privileges, or constitute non-public information. It is intended to be conveyed only to the designated recipient(s). If you are not an intended recipient of this message, please notify the sender by replying to this message and then delete it from your system. Use, dissemination, distribution or reproduction of this message by unintended recipients is
not authorized and may be unlawful.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

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.