On 20 Dec 2007 05:43:03 -0800, in bit.listserv.ibm-main
(Message-ID:<[EMAIL PROTECTED]>)
[EMAIL PROTECTED] (R.S.) wrote:
AFAIK it is 86, for equal blocks up to 22 bytes.
Q: What is the reason for the limitation ?
Surely, it's not track capacity.
Where can I find further information (some RTFM) ?
Yes, as others have noted, it *is* track capacity.
I don't have the exact name or number of the FM, but
you can find the exact formula on the 3390 reference
card. It gives the size of the interblock gaps and of the
minimum "chunk" (as Bill called it).
I have a REXX program to give 3380 and 3390
utilizations based on LRECL and the available blocksizes
for that LRECL. (For BLKSIZE=1 it gives 86 on 3390 and 93
on 3380.)
It was written *long* ago and was based on an even
older CLIST for 3330 & 3350. FWIW, here it is. I disavow
any bad coding, as it belongs to a much younger version of
myself. (Beware that at least two lines are probably
broken by line-wrap. Hint: Nothing starts in column 1
except "roundup".)
<code>
/* rexx exec to show track utilization on 3380's and
3390's */
ARG TEMP1
if datatype(word(temp1,1),n) then temp1= 'LRECL='temp1
do while temp1 \= ''
parse var temp1 temp2 temp1
if right(temp2,1) = ')' then
temp2 = translate(temp2,'= ','()')
if pos('=',temp2) = 0 then temp2 = temp2 || '= ""'
interpret temp2
end
drop temp1
drop temp2
if debug = 'TRACE' then trace ?i
else if debug \= "DEBUG" then trace i
if lrecl = 'LRECL' then
do
say 'LRECL must be specified'
exit 4
end
if stop = 'STOP' then do
if dasd = '80' | dasd = '3380' then stop = 23476
else stop = 27998
end
stop = min(stop,32760)
'clr'
say 'lrecl blksize
blk/trk blk/trk used used % % blk'
say
' 3380 3390 3380 3390 3380 3390
fctr'
say ''
size0 = lrecl
if start = 'START' then start=1
if size0 < start then
size0 = trunc(start/size0)*size0
slrecl = center(lrecl,6)
do size = size0 by lrecl to stop
blkfctr = size/lrecl
D80 = (SIZE + 12) / 32
d80 = roundup(d80)
NBLK80 = trunc(1499 / (15 + D80) )
USED80 = NBLK80 * SIZE
PERC80 = USED80/47476*100
dn90 = (size+6)/232
dn90 = roundup(dn90)
d90 = 9 + (size + 6*dn90 +6)/34
d90 = roundup(d90)
NBLK90 = trunc(1729 / (10 + D90) )
USED90 = NBLK90 * SIZE
PERC90 = USED90/56664*100
blkfctr = size/lrecl
sblk = center(blkfctr,4)
sblks = center(size,6)
sblk80 = center(nblk80,6)
sused80 = left(used80,6)
sperc80 = format(perc80,3,1)
sblk90 = center(nblk90,6)
sused90 = left(used90,6)
sperc90 = format(perc90,3,1)
star = ''
select
when dasd = '80' | dasd = '3380' then
do
if perc80 >= 90 then star = '*'
if perc80 >= 95 then star = '**'
end
when dasd = '90' | dasd = '3390' then
do
if perc90 >= 90 then star = '*'
if perc90 >= 95 then star = '**'
end
otherwise
do
if perc80 >= 85 & perc90 >= 83.8 then star = '*'
if perc80 >= 90 & perc90 >= 88.8 then star =
'**'
if perc80 >= 90 & perc90 >= 93.8 then star =
'***'
end
end
if ostar \= 'OSTAR' then
if star = ''
then iterate
say slrecl sblks || ' ' || sblk80 || ' ' || sblk90
,
sused80 sused90 || ' ' || sperc80 || ' ' || ,
sperc90 || ' ' || sblk star
end
exit 0
roundup:
PROCEDURE
ARG curr
temp = trunc(curr)
if temp \= curr then temp = temp + 1
return temp
</code>
--
I cannot receive mail at the address this was sent from.
To reply directly, send to ar23hur "at" intergate "dot" com
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
