You can also get the formula calculations retruned from a Read Device
Characteristics command to the storage controller. And I forget who said it,
but the vendor hardware manuals will describe whats in the gap. One item is
repeated skip displacement information, if a track was assigned a skip due to a
faulty area of the track.
Bill
> Date: Thu, 20 Dec 2007 11:12:57 -0500> From: [EMAIL PROTECTED]> Subject: Re:
> Max. number of physical blocks on 3390 track> To: [email protected]> > 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
----------------------------------------------------------------------
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
