All FOCUS load libraries are distributed with block sizes of 13030 bytes so that they can be loaded onto any CKD disk device with a track capacity of at least 13030 bytes. Even if you allocate the load library on a pack with a larger track capacity, the largest single record in any load module is only 13030 bytes. To exploit larger track capacities, you must re-link the modules; it is not enough to copy them from a library with a small block size to one with a larger block size. Alternatively, you could copy the modules to a load library with a larger block size using the IEBCOPY COPYMOD statement in place of the normal COPY statement.

Actual load module block sizes have no logical significance, but do have a small effect on efficiency. For 3390 devices, we recommend half-track blocking.

The following example illustrates how to re-link member FOCUS:

//* REBLOCKING FOCUS MODULES.
//LINK1   EXEC PGM=IEWL,PARM='NCAL,LET,LIST,SIZE=(2048K)'
//SYSPRINT     DD  SYSOUT=*
//SYSUT1       DD  UNIT=SYSDA,SPACE=(TRK,(30,10))
//OLDLIB       DD  DSN=prefix.FOCLIB.LOAD,DISP=OLD
//FOCCTL       DD  DSN=prefix.FOCCTL.DATA,DISP=SHR
//SYSLMOD      DD  DSN=prefix.TEST.FOCLIB.LOAD,DISP=OLD
//SYSLIN       DD  *
 INCLUDE OLDLIB(CORFOC)        <---membername
 INCLUDE FOCCTL(CORFOC)        <---same membername
 NAME FOCUS(R)                 <---same membername
//*
/*

where:

prefix

Is the high-level qualifier for your FOCUS production data sets.

The other modules in FOCLIB.LOAD can be re-linked similarly. Only the larger modules are worth reblocking: CORFOC, FOCSAM, and HLISNK. The rest are so small that reblocking would not reduce the number of module records. If a module has an alias, make sure that is not lost. (Aliases and member names always have the same entry point.)