In this example, a new 4248 default FCB module is built using an existing FCB module as a model. The new module, NEW1, is added to SYS1.IMAGELIB as a new member. The existing module, OLD1, remains unchanged. OLD1 may be a 4248 FCB called FCB4OLD1, or it may be a 3211 FCB called FCB2OLD1. (If both modules existed, FCB4OLD1 would be used.)

  //FCBMOD7  JOB   ...
  //STEP1    EXEC  PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      OPTION  DEVICE=4248
      INCLUDE OLD1
      FCB     COPYP=67,PSPEED=M,DEFAULT=YES
      NAME    NEW1
  /*

The control statements are discussed below:

• The SYSUT1 DD statement includes DISP=OLD to ensure that no other job can modify the data set while this job is executing.
• DEVICE=4248 on the OPTION statement specifies that this module is to be created for the 4248 printer.
• The INCLUDE statement specifies that a copy of the existing module OLD1 is to be used as a basis for the new module, NEW1.
• COPYP=67 indicates that the horizontal copy feature should be activated, and that horizontal copies should begin printing in the 67th print position from the left margin. This setting overrides any COPYP value previously set in module OLD1; it applies to module NEW1, but does not change the value set in OLD1.

  Note that the value 67 divides a 132-hammer printer into two equal copy areas for two equally-sized horizontal copies. With COPYP=67, a maximum of 66 bytes can be sent to the printer.

• PSPEED=M indicates that the printer speed should be set to medium (3000 LPM). This setting overrides any PSPEED value previously set in module OLD1; it applies to module NEW1, but does not change the value set in OLD1.
• DEFAULT=YES indicates that this module, NEW1, should become a default FCB module for this installation.
• Because these parameters are not specified, the values of LINES, SIZE, LPI, and CHx default to the values which already exist in module OLD1.
• The NAME statement indicates that this module should be called NEW1.