/* NOCOMMENT REXX  - BLKSIZE    DATE ADDED: 06/08/2000                */
/*                                                                    */
/* BLKSIZE - RETURNS BLKSIZE AND RECORDS PER BLOCK                    */
/* FORMAT BLKSIZE LRECL                                               */
/* EX. BLKSIZE 300                                                    */
/*                                                                    */
/* RELEASE      DESCRIPTION                                           */
/*                                                                    */
/*ADDRESS  "ISREDIT"  "MACRO" "(LRECL )"*/
SAY 'ENTER LRECL'
PULL LRECL
BLKSIZE = TRUNC(13682 / LRECL )
BLKSIZE = BLKSIZE  *  LRECL
RCDBLK = BLKSIZE / LRECL
SAY 'FOR LRECL: '||LRECL||' DISK BLKSIZE SHOULD BE '||BLKSIZE
SAY 'RECORD PER BLOCK IS '||RCDBLK
BLKSIZE = TRUNC(32760 / LRECL )
BLKSIZE = BLKSIZE  *  LRECL
RCDBLK = BLKSIZE / LRECL
SAY 'FOR LRECL: '||LRECL||' TAPE BLKSIZE SHOULD BE '||BLKSIZE
SAY 'RECORD PER BLOCK IS '||RCDBLK
EXIT

    Source: geocities.com/swede27410