🚀 go-pugleaf

Packed decimal means 2 decimal digits in each byte, except for the
last byte, where the last 4 bits are a sign, based on the following
rule --
F - +
E - +
D - -
C - +
B - -
A - +

So, the 4 bytes are 0cyydddF, where F is the sign (a plus).  This is
really reg 1 after an old fashioned TIM macro.  January 1, 1999 will be
0099001F.  December 31, 1999 will be 099365F.  January 1, 2000 will be
0100001F.  The last 4 bits will be an F by the way, even though the
hardware prefers C for a plus sign after packed decimal arithmetic.

 <33e67399.691214@news.primenet.com>, mikeq@primenet.com (Michael Quinlan) writes:
>edjaffe@netcom.com (Edward E. Jaffe) wrote:
>
>>
>>In OS/390 V1R3.0 ISPF Dialog Developer's Guide and Reference, topic
>>"C.2.4", I see:=20
>>
>>[------------------------- Begin IBM Documentation =
>----------------------]
>> C.2.4  ISPF Statistics Entry in a PDS Directory
>>
>> [...snipped...]
>>
>>   9-12     Date last modified:
>>
>>            Byte 9     Reserved for future IBM use
>>            Byte 10-12 Julian date, in packed decimal format
>
>Does this mean that ISPF is not Y2K compliant? 3 packed bytes only allows
>for 5 digits (i.e. the old YY.DDD format). Or does byte 9 have the =
>century
>indicator?
>
>--
>Michael Quinlan
>mikeq@primenet.com
>http://www.primenet.com/~mikeq


-- Steve Myers

The E-mail addresses in this message are private property.  Any use of them
to  send  unsolicited  E-mail  messages  of  a  commerical  nature  will be
considered trespassing,  and the originator of the message will be  sued in
small claims court in Camden County,  New Jersey,  for the  maximum penalty
allowed by law.