Major Maximum Mea Culpa ! I didn't do proper diligence. : ( No access to Joe's programs... and believed his output. I've spent the weekend getting IBM's example DEVTYPE MACRO to work. After the successful run - My result matches Bill's... AREA = 0000FFF0 0000000F F0000000 01000800
Gold star to Bill Godfrey. Joe's got a code problem. Sincere apology to John Eells. ( Didn't mean to falsely contribute to the issue ) Have been restricting myself on postings for a while. ( Keep mouth shut - fool... Open mouth - remove all doubt ) Think I'll restrict my postings even further. Even on in-house issues. Sorry All... and Thanks ! Jay Campbell IBM OS Support Section -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Bill Godfrey Sent: Friday, July 22, 2016 10:34 AM To: [email protected] Subject: Re: DEVTYPE INFO=DASD The result I get from the same DEVTYPE macro is: 0000FFF0 0000000F F0000000 01000800 which differs from the OP in that there are 2 more bytes at the beginning in my case. My results have a fullword for the number of cylinders and a fullword for tracks per cylinder, which agrees with all of these manuals: z/OS 1.10 http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2S350/7.2.1.5 z/OS 1.13 http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2S380/7.2.1.5 z/OS 2.1 (page 272) http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/download/DGT3S300.pdf I think the OP is just looking at the wrong address, 2 bytes beyond the correct address. Bill On Fri, 22 Jul 2016 10:01:32 -0400, John Eells wrote: >I sent in an RCF this morning with what I thought the book should say, >and copied the lead DADSM/CVAF developer (to make sure my correction >does not inject some different problem!). > >Bill Godfrey wrote: >> I think the possibility should be considered that the OP may have mistakenly >> been looking at the 16 bytes at AREA+2, not AREA. If that happened, and the >> missing bytes are hex 0000, the results would be correct for a device with >> 65520 cylinders. >> >> Bill >> >> On Thu, 21 Jul 2016 14:30:41 -0500, Mike Schwab wrote: >> >>>> Volume Data >>>> Tracks . : 982,800 >>> >>> / 15 = 65,520 = X'FFF0' >>> >>> On Thu, Jul 21, 2016 at 2:17 PM, Campbell Jay <[email protected]> >>> wrote: >>>> Agree with John. >>>> Doc should say first halfword of bytes 0 - 3 & 4 - 7. >>>> >>>> MJI2 e . : IM404A >>>> Command ===> >>>> >>>> Unit . . : 3390 >>>> >>>> Volume Data VTOC Data Free Space >>>> Tracks Cyls >>>> Tracks . : 982,800 Tracks . : 360 Size . . : >>>> 269,730 17,974 >>>> %Used . : 72 %Used . . : 1 Largest . : >>>> 67,950 4,530 >>>> Trks/Cyls: 15 Free DSCBS: 17,892 Free >>>> >>>> Extents . : 36 >>>> >>>> Disclaimer: No idea what he's working on >>>> >>>> Jay Campbell >>>> IBM OS Support Section >>>> ><snip> >>>>> -----Original Message----- >>>>> From: IBM Mainframe Discussion List >>>>> [mailto:[email protected]] On Behalf Of John Eells >>>>> Sent: Thursday, July 21, 2016 2:35 PM >>>>> To: [email protected] >>>>> Subject: Re: DEVTYPE INFO=DASD >>>>> >>>>> I think I understand your confusion. I'm not sure why you're using the >>>>> z/OS V1.10 level of the book. But in any event, the current (V2.2) level >>>>> of the book says this returns, for INFO=DASD: >>>>> >>>>> Returns 16 bytes as follows: >>>>> Bytes 0-3 - Number of cylinders on the device, excluding alternates. >>>>> <snip> >>>>> >>>>> Bytes 4-7 - Number of tracks per cylinder. >>>>> >>>>> So one would reasonably expect x'FFF00000' to be the number of cylinders, >>>>> and x'000FF000' to be the number of tracks per cylinder. The values of >>>>> the first halfwords in each word, however, seem far more reasonable >>>>> (possible, even!). The correct number of tracks/cylinder is definitely >>>>> 15. >>>>> >>>>> But what is the actual size of the volume? You can use "V" on >>>>> ISPF >>>>> OPT3.4 to see VTOC information, including the volume size in tracks under >>>>> "Volume data" on the left. Divide by 15 to get cylinders. What do you >>>>> see? >>>>> >>>>> It's likely RCF time... ><snip> > >-- >John Eells >IBM Poughkeepsie >[email protected] > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, send >email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
