Paul Schuster wrote on 11/24/2022 11:13 PM:
TRKCALC knows everything.
Second best, I dug up this exec from the 1990s that should get it right: /* Rexx */ Parse Arg kl dl . "XPROC 2 KL DL DEBUG" If dl = "" Then Do Say "Usage: BLK3390 keylen datalen [DEBUG]" Exit 2 End c = 10 If kl = 0 Then k = 0 Else Do kn = DivRU( kl+6, 232 ) k = 9 + DivRU( kl+6*kn+6, 34 ) End dn = DivRU( dl+6, 232 ) d = 9 + DivRU( dl+6*dn+6, 34 ) blks = 1729%(c+k+d) If debug = "DEBUG" Then Say 'C' c', K' k', D' d Say blks "blocks with keylen" kl "and datalen" dl "fit on a 3390." Exit /*********************************************************************/ DivRU: /* divide and round UP */ Return (Arg(1)+Arg(2)-1)%Arg(2) /Leonard ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
