In this example, an existing character arrangement table module is copied and used as a basis for a new one. The new character arrangement table deletes references to all graphic character modification modules and resets the translate table entries that were used to point to character positions for the segments of a graphic character modification module.

  //CHARMOD4 JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      INCLUDE  ZYL
      OPTION   DEVICE=3800M3
      TABLE    GCMLIST=DELETE,LOC=((6A),(6B))
      NAME     ZYLA
  /*

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 ZYL 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 deletes references to graphic character modification modules and resets two translation table entries:

  GCMLIST=DELETE specifies that all names of graphic character modification modules included with the module when the ZYL character arrangement table was copied are to be reset to blanks (X'40').

  The LOC parameter identifies two locations in the translation table, X'6A' and X'6B', that are to be set to X'FF' (the default value when no character position or WCGM values are specified).

• The name of the new character arrangement table is ZYLA; it is stored as a member of the SYS1.IMAGELIB data set.