Well, personally I hope it becomes a problem because the HP3000 is still
around....


Wyell Grunwald wrote:
> Today (10/19/2004) should come out as:
>
> 104 years after 1900 = 104d = 1101000b
> 293 days into year = 293d = 100100101b
>
> combined as = 1101000 100100101b = 53541d
>
> Incidently, on 12/31/2027 is the maximum date that can be stored this
> way !
>
>
>>>>Peter Smithson <[log in to unmask]> Monday, October 18,
>
> 2004 5:33:56 PM >>>
> Thanks for all the responses - I don't have MPEX so I can't try out one
> of
> the suggestions.  The post below just confirms that I'm getting the
> wrong
> result back from CALENDAR and FLABELINFO.
>
> I am getting 1996 returned which is
>
> binary : 0000011 111001100
> Decimal: 3            460
>
>
> So YYYYY is 3 and DDDDDDD is 460.  Obviously it's not 1903!  I used a
> LISTF
> on the file to check our clock wasn't set wrong.  It displayed todays
> date.
> Perhaps there's a problem with my COBOL program.
>
> I'll try that DEBUG thing out tomorrow when I'm back in the office -
> I've
> not seen that before.  I see you are getting 53540 back.  It'll be
> interesting to see what I get as then I'll know if it's my poor COBOL
> skills
> or some environment setting perhaps.
>
> Cheers
>
> Peter
>
>
>
>>From: Mike Hornsby <[log in to unmask]>
>>To: Peter Smithson <[log in to unmask]>
>>CC: [log in to unmask]
>>Subject: Re: [HP3000-L] FLABELINFO item 6 problem.
>>Date: Mon, 18 Oct 2004 15:10:33 -0400
>>
>>Peter Smithson wrote:
>>
>>
>>>The documentation for item 6 (file creation date) is that it uses
>
> the
>
>>>CALENDAR intrinsic format which says -
>>>
>>>Bits   Value/Meaning
>>>7:9   Day of year
>>>0:7   Year since 1900
>>>
>>>I get a bit confused with this notation.  Is that saying that the low
>
> 9
>
>>>bits are the year and the high 7 is the year?
>>>
>>>
>>>
>>>
>>
>>7:9   Day of year 'D'
>>0:7   Year since 1900 'Y'
>>
>>0000000 000111111
>>0123456 789012345
>>YYYYY DDDDDDD
>>1234567 123456789
>>
>>:DEBUG
>>HPDEBUG Intrinsic at: a.00faffc0 hxdebug+$e8
>>$3a ($80) nmdebug > VAR CAL:U16= nmcall("nl.pub.sys/CALENDAR")
>>$3b ($80) nmdebug > WL CAL:"#"
>>#53540
>>$3c ($80) nmdebug > WL "DOY=" BITX(!CAL,7,9):"#"
>>DOY=#292
>>$3d ($80) nmdebug > WL "YOC=" BITX(!CAL,0,7):"#"
>>YOC=#104
>>$3e ($80) nmdebug > EXIT
>
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
>
> IMPORTANT WARNING: The information in this message (and the documents attached to it, if any) is confidential and may be legally privileged. It is intended solely for the addressee. Access to this message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken, or omitted to be taken, in reliance on it is prohibited and may be unlawful. If you have received this message in error, please delete all electronic copies of this message (and the documents attached to it, if any), destroy any hard copies you may have created and notify me immediately by replying to this email. Thank you.
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>

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