HP3000-L Archives

December 1999, Week 5

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Lee Gunter <[log in to unmask]>
Reply To:
Lee Gunter <[log in to unmask]>
Date:
Thu, 30 Dec 1999 11:37:18 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (65 lines)
(Aside:  you must be running with %SET DATE,YMD -- the normal date input format
default is MDY.)

MPEX handles two-digit dates after 12/31/99 in a windowing fashion -- you need
to set a JCW, VESOFTYEARBASE to, say, 1950 (the default is 1900) -- to have MPEX
treat years 51-99 as 1950-1999, and years 00-49 as 2000-2049.

:setjcw vesoftyearbase 1950
:MPEX
%set date,YMD       ** my addition to your script **
%setvar date today + 7
%showvar date
DATE = 00/01/06
%setvar date2 strwrite(!date:'%4Y%0M%0D')
%SHOWVAR DATE2
DATE2 = 20000106

----
Lee Gunter                    The Regence Group
Supervisor, TRG HP/MPE Systems     503.375.4498
----
Opinions expressed are solely mine.





From: Scott Lindholm <[log in to unmask]> on 12/30/99 10:31 AM

Please respond to [log in to unmask]


To:   [log in to unmask]
cc:    (bcc: Lee Gunter/BCBSO/TBG)
Subject:  [HP3000-L] MPEX DATE FORMATTING:  Y2K ISSUE?




Distinguished listers,

I was running over a Y2K test script when I noticed something funny.  I have
looked it over several times and I think that I am doing everything
correctly.  There is either a Y2K issue with MPEX's date formatting or I am
missing something.

959_sys_%setvar date today + 7
959_sys_%showvar date
DATE = 00/01/06            **this is the date that I expected to see**
959_sys_%setvar date2 strwrite(!date:'%4Y%0M%0D')  **format the date to
YYYYMMDD**
959_sys_%SHOWVAR DATE2
DATE2 = 19000106  **oops!  Why are we all of the sudden in the 1900's??**
959_sys_%

Anybody have an idea??


Scott Lindholm
Sr. Systems Administrator
1 Environmental Way
Broomfield, Colorado 80021-3416
(303) 664-3264
[log in to unmask]

ATOM RSS1 RSS2