In this example, a library character set module is built. The module contains one user-designed character, a reverse 'E', whose 6-bit WCGM-location code is designated as X'03', and whose pitch is 10. An existing character arrangement table is then modified to include the reverse E.

  //LIBMOD3  JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      OPTION  DEVICE=3800M3
      CHARSET ASSIGN=(03,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     73
      INCLUDE  GS10
      OPTION   DEVICE=3800M3
      TABLE    CGMID=(83,73),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 specifies 3800 Model 3 compatibility mode module format and processing considerations.
• The CHARSET statement's ASSIGN parameter establishes the 6-bit WCGM-location code, X'03', and the width, 10-pitch, for the user-designed character. The data statements that follow the CHARSET statement describe the character's scan pattern.
• The name of the library character set module is 73, 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 library character set containing the reverse E to that copy of the GS10 table.

  CGMID=(83,73) 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'73' as a character set identifier to allow loading of the second WCGM with the library character set 73.

  LOC=(E0,03,1) specifies that the reverse E, which has been assigned the WCGM location 03 in the second WCGM, is to be referenced by the EBCDIC code X'E0'.

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