HP3000-L Archives

July 2011, Week 2

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:
"James B. Byrne" <[log in to unmask]>
Reply To:
James B. Byrne
Date:
Wed, 13 Jul 2011 10:08:15 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (44 lines)
On Tue, July 12, 2011 16:56, Ralph Bagen wrote:
> James:
>
> I doubt that 2011-07-12 is being interpreted as 1970-02-06.  It
> sounds more like the hardware and software clocks are not both
> set.  Powerhouse uses the hardware clock.
>
> Run the SHOWCLKS utility inside TELESUP to see if they are
> inconsistent...
>


There is nothing untoward with respect to the system clocks on the
HP3000.  The issue is specific to PH729C8's SYSDATE function.
Sometime after 2001 in the first decade of this century it stopped
working as expected.

I have programmed a work around which seems to deal with the issue
in Quick, Quiz and QTP, even though it required locating and
changing every occurrence of SYSDATE.  Fortunately, I have all that
source loaded into a git repository and can do the mass changes
using sed on my unix box and then ftp the results back onto the
HP3000.

The code I used was this:

DEFINE QZD-SYSDATE DATE FORMAT YYYYMMMDD SEPARATOR " " =  &
    NCONVERT( GETSYSTEMVAL( "HPYYYYMMDD" ) )

Since HPYYYYMMDD is set by the OS at session initialization and we
do not have any long running jobs or sessions that directly employ
PowerHouse components this appears to work for us.

--
***          E-Mail is NOT a SECURE channel          ***
James B. Byrne                mailto:[log in to unmask]
Harte & Lyne Limited          http://www.harte-lyne.ca
9 Brockley Drive              vox: +1 905 561 1241
Hamilton, Ontario             fax: +1 905 561 0757
Canada  L8E 3C3

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2