In this example, a graphic character modification module is built. The module contains one user-designed character, a reverse 'E', whose 8-bit data code is designated as X'E0' and whose pitch is 10. An existing character arrangement table is then modified to include the reverse E.

  //GRAFMOD3 JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
          OPTION  DEVICE=3800M3
          GRAPHIC  ASSIGN=(E0,10)
      XXXXXXXXXXXXXXX     SEQ=10
      XXXXXXXXXXXXXXX     SEQ=11
      XXXXXXXXXXXXXXX     SEQ=12
                 XXXX     SEQ=13
                 XXXX     SEQ=14
                 XXXX     SEQ=15
                 XXXX     SEQ=16
                 XXXX     SEQ=17
                 XXXX     SEQ=18
                 XXXX     SEQ=19
        XXXXXXXXXXXXX     SEQ=20
        XXXXXXXXXXXXX     SEQ=21
        XXXXXXXXXXXXX     SEQ=22
                 XXXX     SEQ=23
                 XXXX     SEQ=24
                 XXXX     SEQ=25
                 XXXX     SEQ=26
                 XXXX     SEQ=27
                 XXXX     SEQ=28
                 XXXX     SEQ=29
      XXXXXXXXXXXXXXX     SEQ=30
      XXXXXXXXXXXXXXX     SEQ=31
      XXXXXXXXXXXXXXX     SEQ=32
      NAME     BODE
      INCLUDE  GS10
      OPTION   DEVICE=3800M3
      TABLE    CGMID=(83,FF),GCMLIST=BODE,LOC=(E0,03,1)
      NAME     RE10
  /*

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=3800M3 in the OPTION statement preceding the GRAPHIC statement specifies 3800 Model 3 compatibility mode processing.
• The GRAPHIC statement's ASSIGN parameter establishes the 8-bit data code, X'E0', and the width, 10-pitch, for the user-designed character. The data statements that follow the GRAPHIC statement describe the character's scan pattern.
• The name of the graphic character modification module is BODE, and it is stored as a new module in the SYS1.IMAGELIB data set.
• The INCLUDE statement specifies that a copy of the GS10 character arrangement table is to be used as the basis for the new table.
• The TABLE statement specifies the addition of the reverse E to that copy of the GS10 table.

  CGMID=(83,FF) specifies the character set identifier X'83' for the Gothic-10 set (which is the set already used by the GS10 table) and specifies X'FF' as a character set identifier to allow accessing of the second WCGM without loading it.

  GCMLIST=BODE identifies the graphic character modification module containing the reverse E for inclusion in the table.

  LOC=(E0,03,1) specifies that the reverse E, which has been assigned the 8-bit data code X'E0', is to be loaded into position X'03' in the second WCGM. Because this second WCGM is otherwise unused, any position in it could have been used for the reverse E.

• The new character arrangement table is named RE10; it is stored as a new module in the SYS1.IMAGELIB data set.