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

  //GRAFMOD4 JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      INCLUDE CSTW,DELSEG=3
      GRAPHIC REF=(1,6A),GCM=BODE,ASSIGN=9A
       ********           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  JPCK
  /*

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 graphic character modification module named CSTW is to be included with the new module. All segments of CSTW, except the third segment (as a result of DELSEG=3), are to be copied into the new module and become the module's first through ninth modification segments.
• The GRAPHIC statement specifies the module's tenth and eleventh segments:

  REF=(1,6A) and GCM=BODE specify that the 10th segment of the new module is to be obtained by copying the first segment from the graphic character modification module named BODE. In addition, the segment's 8-bit data code is to be changed so that its character is identified with the code X'6A'.

  ASSIGN=9A specifies that the new module's 11th segment is a user-designed character whose 8-bit data code is X'9A' and whose width is 10-pitch (the default when no pitch value is specified). The GRAPHIC statement is followed by data statements that specify the character's scan pattern.

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