First I want to make clear this posting contains nothing but general code
(nothing to do with taxpayer code) there isn’t any IRS tax payer info in this
post
L 11R?+106 L(30) XC
0002CFEC. 0000FFF0 0000000F F0000000 01000800 *...0....0.......* 00000000
00000000 00000000 00000000 0000 *.............. *
TEST
This is where AREA is at so area is at 11R? + 106
00110C 2086 AREA DS XL16
006
Mapped by the IHADVA macro right ? Am I missing something ?
000000 00000 00010 9801+DVAIDASD DSECT
@H5A 01-
9802+***********************************************************************
9803+* SECTION FOR INFO=DASD.
@H5C
9804+***********************************************************************
000000 9805+ DS 0CL16 INFOLIST
POINTS TO LIST WITH INFO=DASD @H5C 01-
000000 9806+DVAICYL DS FL4 NUMBER OF
CYLINDERS, EXCLUDING ALTERNATES @H5A 01-
000004 9807+DVAITRK DS FL4 TRACKS PER
CYLINDER @H5A 01-
000008 9808+DVAIFLAG DS 0XL1 FLAGS
@LvC 01-
000008 9809+DVAIFLAG1 DS X FLAGS WITH
PREFERRED SYMBOLS @H5A 01-
00080 9810+DVAECKD1 EQU X'80' ECKD
SUPPORTED, ALSO ON FOR VIO DATA SETS @LvC 01-
00040 9811+DVALRE1 EQU X'40' LOCATE RECORD
EXTENDED IS SUPPORTED @H4A 01-
00110C 2086 AREA DS XL16
This is the beginning of my program
0000F 19+R15 EQU 15
0000E 21 XLNK EQU 14
000000 90EC D00C 0000C 22 STM R14,R12,12(R13) SAVE
CALLER'S REGISTERS
000004 0DC0 23 BASR R12,0
ESTABLISH ADDRESSABILITY
R:CB 00006 24 USING *,R12,R11 BASE
REGISTER OF EXECUTING PROGRAM
000006 41B0 CFFF 00FFF 25 LA R11,4095(,R12)
00000A 41B0 B001 00001 26 LA R11,1(,R11)
This is DEVTYPE macro R6 points the DDNAME from SVC 99
0002D2 4160 C5F5 005FB 224 LA R6,RETDDN+6
0
225 DEVTYPE
(R6),(AREA,L'AREA),INFOLIST=ILIST2 0
0002D6 0700 226+ CNOP 0,4 ENSURE
PARAMETER LIST ALIGNMENT @L1A 0
0002D8 4D10 C2EE 002F4 227+ BAS 1,IHB0032 SKIP OVER
PARAMETER LIST @02C 0
0002DC 18 228+ DC 0F'0',AL1(24) LENGTH OF
PARAMETER LIST @02C 0
0002DD 01 229+ DC AL1(1) VERSION
OF PARAMETER LIST @L1A 0
0002DE 8000 230+ DC X'8000' DD NAME
LOCATION WAS CODED 0
0002E0 00000000 231+ DC A(0) ADDRESS
OF DD NAME 0
0002E4 00000000 232+ DC A(0) RESERVED
OR UCB LIST LENGTH 0
0002E8 0000110C 233+ DC A(AREA) ADDRESS
OF RESULT AREA @L1A 0
0002EC 00000010 234+ DC A(L'AREA) SIZE OF
RESULT AREA @L1A 0
6R? L(8) XC
0002C4DB. E2E8E2F0 F0F0F0F6 *SYS00006 * 00000000
TEST
This is the list of the DEVTYPE
000314 07FE 251 BR R14
0
252 ILIST2 DEVTYPE INFO=DASD
0
000316 0001 253+ILIST2 DC H'1' NUMBER
OF ENTRIES IN INFO LIST @02C 0
000318 0210 254+ DC X'0210' DASD
CODE @02C 0
255 * B SCANUCB
0
256 * NOP DSCBABC
0
Joe Reichman
Joe Reichman
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:IT:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F 7:30 am - 4:00 pm
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of John Eells
Sent: Friday, July 22, 2016 10:02 AM
To: [email protected]
Subject: Re: DEVTYPE INFO=DASD
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]<mailto:[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]<mailto:[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]<mailto:[email protected]>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected]<mailto:[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
