RE: SNDEMAIL time incorrect

["Winchester Terry" <terry.winchester@xxxxxxxxxxxxxxx>]

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.