| |
Hex Dec Type/Val Lng Label (dup) Comments
---- ---- --------- ---- -------------- --------
0000 0 Structure QALBK Query Alloc Block
0000 0 Signed 4 QALORGIN (0) Start of QALBK
Fields that start with QALR map the response
for the regular Q Alloc reponse.
0000 0 Character 1 QALRHDR (0) Header on regular response
0000 0 Character 4 QALRDASD 'DASD'
0004 4 Character 1 *
0005 5 Character 4 QALRRDEV Real device number
0009 9 Character 1 *
000A 10 Character 6 QALRVOL Volid
0010 16 Character 1 *
0011 17 Character 4 QALRTYPE Device type
0015 21 Character 1 *
0016 22 Character 8 QALRFMT Device format
001E 30 Character 1 *
001F 31 Character 10 * '(UNITS IN '
0029 41 Character 10 QALRUNIT 'CYLINDERS)' or 'PAGES )'
00000033 QALRHLN *-QALRHDR Regular response header
length
0033 51 Character 1 QALRD (0) Data line on regular response
0033 51 Character 5 *
0038 56 Character 5 QALRALLO Type of space allocated (TDISK,
page , spool or DRCT)
003D 61 Character 1 *
003E 62 Character 6 * 'Total='
0044 68 Character 11 QALRTOTL Total number allocated
004F 79 Character 1 *
0050 80 Character 6 * 'Inuse='
0056 86 Character 11 QALRUSED Number in use
0061 97 Character 1 *
0062 98 Character 6 * 'Avail='
0068 104 Character 11 QALRAVL Number available
0073 115 Character 8 QALRDRN For DR on TDSK, page, spol lines
00000048 QALRLINL *-QALRD Length of a data line
THIS IS 69 CHARS FOR NOW.
Hardcoding the following so
BLOCKDEF will work.
007B 123 Character 72 QALRPAGE SPACE FOR PAGE LINE
00C3 195 Character 72 QALRSPOL SPACE FOR SPOL LINE
010B 267 Character 72 QALRDRCT SPACE FOR DRCT LINE
Work areas
0158 344 Dbl-Word 8 * (0) ALIGNMENT
0158 344 Character 6 QALACNUC Save the active nucleus volid
015E 350 Bitstring 1 * (2) Reserved for IBM use
0160 352 Signed 4 QALVOLCT Save the count of CP volumes
0164 356 Signed 4 QAL1STVL Save the first CPVOL address
0168 360 Signed 4 QALACDIR Save active directory CPVOL for
active directory compare
016C 364 Signed 4 QALCURVL Save current CPVOL address for
active directory compare
0170 368 Character 6 QALVOLID (0) Save input volid
0170 368 Character 1 * 1st character of saved volid
0171 369 Character 5 QALVOLI2 Rest of saved volid - For padding
with blanks
0176 374 Bitstring 1 QALVOLFF Fence at the end of volid
0177 375 Bitstring 1 QALFRSP Flags used to determine response
to be sent
1... .... QALIPLVL X'80' Write the IPL nucleus
active on last line of response
..1. .... QALHDDNE X'20' Header display done
...1 .... QAL1STEX X'10' First extent being
processed
.... 1... QALSHARE X'08' Volume is shared
.... .1.. QALDUMP X'04' Volume is dump only
.... ..1. QALDIRAC X'02' Active directory on volume
.... ...1 QALPRCVL X'01' Volid has been processed
0178 376 Bitstring 1 QALFWILD Wildcard processing flags
1... .... QALWILDV X'80' QALWILDV Wildcard volid
specification was given
.1.. .... QALALL X'40' QALALL Processing all
volumes
..1. .... QAL1FND X'20' QAL1FND At least one volid
was found which matched the
wildcard spec
...1 .... QALSPFND X'10' QALSPFND Requested type of
space was found on at least one
volid which matched the wildcard
spec
0179 377 Bitstring 1 QALFXTD Extended processing flags
1... .... QALXMP X'80' QALXMP Extended map
processing
.1.. .... QALXDR X'40' QALXDR Extended DRCT
processing
..1. .... QALXTD X'20' QALXTD Extended TDSK
processing
.... ..1. QALXSP X'02' QALXSP Extended spool
processing
.... ...1 QALXPG X'01' QALXPG Extended page
processing
017A 378 Bitstring 1 * (2) Reserved for IBM use
The following fields are used as a work area for the
regular and extended responses.
017C 380 Signed 4 QALWTOTL Total number of slots/cyls in
extent (extended) or on volume
(regular)
0180 384 Signed 4 QALWUSED Number of slots/cyls in use in
extent (extended) or on volume
(regular)
0188 392 Dbl-Word 8 QALSUMTC Summary of total cylinders
0190 400 Dbl-Word 8 QALSUMUC Summary of in use cylinders
0198 408 Dbl-Word 8 QALSUMTS Summary of total slots
01A0 416 Dbl-Word 8 QALSUMUS Summary of in use slots
01A8 424 Dbl-Word 8 QALUSMTC Summary of total cylinders
(usable)
01B0 432 Dbl-Word 8 QALUSMUC Summary of in use cylinders
(usable)
01B8 440 Dbl-Word 8 QALUSMTS Summary of total slots (usable)
01C0 448 Dbl-Word 8 QALUSMUS Summary of in use slots (usable)
01C8 456 Dbl-Word 8 QALDRATC Summary of total cylinders
(DRAINing)
01D0 464 Dbl-Word 8 QALDRAUC Summary of in use cylinders
(DRAINing)
01D8 472 Dbl-Word 8 QALDRATS Summary of total slots (DRAINing)
01E0 480 Dbl-Word 8 QALDRAUS Summary of in use slots
(DRAINing)
01E8 488 Signed 4 QALSVR15 Save R15 for CALLCVT
01EC 492 Character 1 QALWALLO Extent allocation type
01ED 493 Character 6 QALWVOL Save volid
01F3 499 Character 4 QALWRDEV Save RDEV
01F8 504 Bitstring 16 QALQUAD CONVERT WORK AREA
0208 520 Decimal 8 QALMASK CONVERT MASK WORK AREA
0210 528 Character 11 QALCVT
00QALCVT QALCVT10 0000A QALCVT+1,10
_NNNNNNNNN,NNNNNNNNK,NNNNNNNN
00QALCVT QALCVT8 00008 QALCVT+3,8 NNNNNNNN,
NNNNNNK, NNNNNN
00QALCVT QALCVT6 00006 QALCVT+5,6 NNNNNN, NNNNK,
NNNN
00QALCVT QALCVT3 00003 QALCVT+8,3 NNN, NNK, NN
00000044 QALSIZE (*-QALBK+7)/8 Size, in
doublewords, of QALBK
Start of remaps.
0033 51 Character 72 QALRTDSK RENAME TDSK LINE
0033 51 Character 72 QALRDATA RENAME DATA LINE
The following field is filled in only on the DRCT
line of the response.
0073 115 Character 8 QALRACT For active
The response buffer is also used to display the active
nucleus response line in case the active IPL nucleus is on
one of the volumes displayed.
0000 0 Character 29 * Active nucleus MSG text area
001D 29 Character 6 QALRACNV Active nucleus volid
00000023 QALRACNL *-QALBK Length of active nucleus
MSG
Extended option response buffer and work area
Used for query alloc extended options page, spool, TDISK,
DRCT, and map.
0000 0 Character 1 QALXB (0)
0000 0 Character 6 QALXVOL Volid
0006 6 Character 1 *
0007 7 Character 4 QALXRDEV Real device number
000B 11 Character 1 *
0000000C QALXHDRL *-QALXB Length of volid info
0000 0 Character 12 QALXHDR Length of extended header area.
Hardcoded for blockdef.
The above fields are only filled in for the first response
line for a volume, and are left blank on subsequent
reponse lines for the same volume, unless the query alloc
command was issued using diagnose X'08', and the response
is being placed in the user's buffer. In that case, the
above fields are filled in on every line.
000C 12 Character 1 QALXD (0) Data area of buffer
000C 12 Character 10 QALXSTR Extent start cylinder or page
0016 22 Character 1 *
0017 23 Character 10 QALXEND Extent end cylinder or page
0021 33 Character 1 *
0022 34 Character 6 QALXTOTL Total number of cylinders/pages
in extent
0028 40 Character 1 *
0029 41 Character 6 QALXUSED Number of cylinders/pages in use
002F 47 Character 1 *
0030 48 Character 6 QALXHIGH Highest cylinder/page number in
use
00000006 QALXCNT *-QALXHIGH Map a count field for
countcvt
0036 54 Character 1 *
0037 55 Character 3 QALXPCTI Percent of cylinders/pages in use
003A 58 Character 1 QALXPCT Percent sign
003B 59 Character 1 *
00000030 QALXDATL *-QALXD Length of data area
000C 12 Character 48 QALXDATA Extended response header area.
Hardcoded for blockdef
003C 60 Character 13 QALXTEXT Extended response text area
00000049 QALXLINL *-QALXB Length of extended
response line
0000 0 Character 73 QALXLINE Extended response HDR + data.
Hardcoded for blockdef
Extended response header mapping
0000 0 Character 1 QALX1 (0)
0000 0 Character 6 * VOLSER
0006 6 Character 1 *
0007 7 Character 4 * RDEVC
000B 11 Character 1 *
000C 12 Character 10 QALX1ST "Extent"
0016 22 Character 1 *
0017 23 Character 10 QALX1END "Extent"
0021 33 Character 1 *
0022 34 Character 6 QALX1TOT " Total"
0028 40 Character 1 *
0029 41 Character 6 QALX1USE " Pages"
002F 47 Character 1 *
0030 48 Character 6 QALX1HGH " High"
0036 54 Character 1 *
0037 55 Character 4 QALX1PCT " %"
003B 59 Character 1 *
003C 60 Character 13 QALX1TYP "Allocation"
00000049 QALX1HDL *-QALX1 Length of first header
line
0000 0 Character 73 QALX1HD Extended response HDR + data
0000 0 Character 1 QALX2 (0)
0000 0 Character 6 QALX2VOL "Volid "
0006 6 Character 1 *
0007 7 Character 4 QALX2RDV "RDEV"
000B 11 Character 1 *
000C 12 Character 10 QALX2ST " Start"
0016 22 Character 1 *
0017 23 Character 10 QALX2END " End"
0021 33 Character 1 *
0022 34 Character 6 QALX2TOT " Pages" or " total"
0028 40 Character 1 *
0029 41 Character 6 QALX2USE "In use"
002F 47 Character 1 *
0030 48 Character 6 QALX2HGH " Page" or " high"
0036 54 Character 1 *
0037 55 Character 4 QALX2PCT "Used"
003B 59 Character 1 *
003C 60 Character 13 QALX2TYP "Type "
00000049 QALX2HDL *-QALX2 Length of 2nd header line
0000 0 Character 73 QALX2HD Extended response HDR + data
0000 0 Character 1 QALX3 (0)
0000 0 Character 6 * Column 1 dashes - Volid
0006 6 Character 1 *
0007 7 Character 4 * Column 2 dashes - RDEV
000B 11 Character 1 *
000C 12 Character 10 * Column 3 dashes - Start
0016 22 Character 1 *
0017 23 Character 10 * Column 4 dashes - End
0021 33 Character 1 *
0022 34 Character 6 * Column 5 dashes - Total
0028 40 Character 1 *
0029 41 Character 6 * Column 6 dashes - In use
002F 47 Character 1 *
0030 48 Character 6 * Column 7 dashes - High
0036 54 Character 1 *
0037 55 Character 4 QALX3PCT Column 8 dashes - Percent
003B 59 Character 1 *
003C 60 Character 13 QALX3DSH And more dashes for map
00000049 QALX3HDL *-QALX3 Length of 2nd header line
0000 0 Character 73 QALX3HD Extended response HDR + data
| |