In this example, a library character set module is created. Its contents come from three different sources: 62 segments are copied from an existing module with the INCLUDE statement; the CHARSET statement is used to select another segment to be copied; a second CHARSET statement is used to establish characteristics for a user-designed character. The new library character set module, when built, is added to the SYS1.IMAGELIB.

  //LIBMOD4  JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      INCLUDE  33,DELSEG=(3,4)
      CHARSET  REF=(1,02),GCM=BODE,ASSIGN=03
       ********           SEQ=06
      **********          SEQ=07
     ****    ****         SEQ=08
     ***      ***         SEQ=09
     ***     ****         SEQ=10
     ***  ******          SEQ=11
     ***  ******          SEQ=12
     ***     ****         SEQ=13
     ***      ****        SEQ=14
     ***       ***        SEQ=15
     ***       ***        SEQ=16
     *** **** ****        SEQ=17
     ***  *******         SEQ=18
     ***   *****          SEQ=19
      NAME  53
  /*

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.
• The INCLUDE statement specifies that a copy of the library character set module named 33 is to be included with the new module. All segments of 33, except the third and fourth segments (as a result of DELSEG=3,4), are to be copied into the new module and become the basis for the new module.
• The CHARSET statement specifies the module's third and fourth segments:

  REF=(1,02) and GCM=BODE specify that the third segment of the new module is to be obtained by copying the first segment from the graphic character modification module named BODE. The segment's 6-bit WCGM-location code is to be set so that its character is identified with the code X'02'.

  ASSIGN=03 specifies that the new module's fourth segment is a user-designed character whose 6-bit WCGM-location code is X'03' and whose width is 10-pitch (the default when no pitch value is specified). The CHARSET statement is followed by data statements that specify the character's scan pattern.

• The name of the library character set module is 53, it is stored as a new module in the SYS1.IMAGELIB data set.