In this example, a graphic character modification module is built. Its characters are segments copied from the World Trade National Use Graphics graphic character modification module. (See the IBM 3800 Printing Subsystem Programmer's Guide for the EBCDIC assignments for the characters.) The new module is stored in the SYS1.IMAGELIB system data set.

  //GRAFMOD2 JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
     OPTION DEVICE=3800M3
     GRAPHIC REF=((24),(25),(26),(27),(28),(31),(33),(35),(38),(40))
     NAME   CSTW
  /*

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, the GRAPHIC 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.
• The name of the graphic character modification module is CSTW; it is stored as a new module in the SYS1.IMAGELIB data set.