In this example, an IBM-supplied character arrangement table module is modified to include another character, and then added to the SYS1.IMAGELIB data set as a replacement for the IBM-supplied module.

  //CHARMOD1 JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
       INCLUDE  GF10
       OPTION   DEVICE=3800M3
       TABLE    LOC=((2A,2A),(6A,2A),(AA,2A),(EA,2A))
       NAME     GF10(R)
  /*

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 character arrangement table named GF10 is to be used as a basis for the new module.
• The OPTION statement with the DEVICE parameter specifies 3800 Model 3 compatibility mode processing.
• The TABLE statement specifies updated information for four translation table entries: X'2A', X'6A', X'AA', and X'EA'. (These four locations are unused in the IBM-supplied GF10 table.) Each of the four translation table entries is to point to the '2A' (43rd character) position in the first WCGM, which contains the scan pattern for a lozenge.
• The name of the character arrangement table is GF10, and it is stored as a new module in the SYS1.IMAGELIB data set. The data set's directory is updated so that the name GF10 points to the new module; the old GF10 module can no longer be accessed through the data set's directory.