In this example, a library character set module is built. Its characters are segments copied from the World Trade National Use Graphics graphic character modification module. For the listing of all the segments of that module, see IBM 3800 Printing Subsystem Programmer's Guide. The EBCDIC assignments for the characters are replaced by WCGM-location codes. The new module is stored in the SYS1.IMAGELIB system data set.

                                                                         72
  //LIBMOD2  JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      OPTION   DEVICE=3800M3
      CHARSET  REF=((24,01),(25,02),(26,03),(27,04),(28,05),             X
                 (31,06),(33,07),(35,08),(38,09),(40,0A))
      NAME     73
  /*

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.
• By not specifying the GCM keyword or a library character set ID, the CHARSET statement identifies the World Trade National Use Graphics graphic character modification module. Ten of its segments are to be copied and used with the new module. For example, the 24th segment is to be copied and assigned the WCGM location 01. See the REF parameter (24,01).
• The name of the library character set module is 73, and it is stored as a new module in the SYS1.IMAGELIB data set.