🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.asm370
Article #1009

Re: DSECT for MVS PDS vol def block?

#1009
From: Michael Quinlan
Date: Tue, 05 Aug 1997 00:00
61 lines
2522 bytes
smyers@popmail.voicenet.com wrote:

>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 - +

I am fully aware of the packed decimal format.

>So, the 4 bytes are 0cyydddF, where F is the sign (a plus).  This is

Where do you find four bytes? Bytes 10-12. Byte 10, byte 11, and byte 12.
When I count, that comes to three bytes, not four bytes.

> <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:=3D20
>>>
>>>[------------------------- Begin IBM Documentation =3D
>>----------------------]
>>> 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 =3D
>>century
>>indicator?
>
>-- 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.

--
Michael Quinlan
mikeq@primenet.com
http://www.primenet.com/~mikeq
Technical Details
Message-ID: <33e70e1f.8546224@news.primenet.com>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <33d8d29b.1815802@news.swbell.net> <33DCF2FC.E7F@gsg.eds.com> <edjaffeEEECJF.3Lo@netcom.com> <33e67399.691214@news.primenet.com> <5s61nv$8r3$1@news2.voicenet.com>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fd4af,16ba322aed1a7359
X-Google-Attributes: gidfd4af,public
X-Google-Thread: fcdcb,16ba322aed1a7359
X-Google-Attributes: gidfcdcb,public
X-Google-Thread: f8131,16ba322aed1a7359
X-Google-Attributes: gidf8131,public
From: mikeq@primenet.com (Michael Quinlan)
Subject: Re: DSECT for MVS PDS vol def block?
Date: 1997/08/05
Message-ID: <33e70e1f.8546224@news.primenet.com>
X-Deja-AN: 262733585
References: <33d8d29b.1815802@news.swbell.net> <33DCF2FC.E7F@gsg.eds.com> <edjaffeEEECJF.3Lo@netcom.com> <33e67399.691214@news.primenet.com> <5s61nv$8r3$1@news2.voicenet.com>
Organization: Primenet Services for the Internet
X-Posted-By: @206.165.34.26 (mikeq)
Reply-To: mikeq@primenet.com
Newsgroups: comp.lang.asm370,bit.listserv.asm370,bit.listserv.ibm-main