In this example, a copy modification module that contains four modification segments is built. The module is added to the SYS1.IMAGELIB data set as a new member.

                                                                         72
  //COPMOD1  JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
  COPY1  COPYMOD COPIES=(1,1),LINES=(1,1),POS=50,                        X
                 TEXT=(C,'CONTROLLER'S COPY')
  COPY2A COPYMOD COPIES=(2,1),LINES=(1,1),POS=50,                        X
                 TEXT=(C,'SHIPPING MANAGER'S COPY')
  COPY2B COPYMOD COPIES=(2,1),LINES=(34,3),POS=75,                       X
                 TEXT=(10C,' ')
  COPYALL COPYMOD COPIES=(1,4),LINES=(58,1),POS=35,                      X
              TEXT=((C,'***'),(C,'CONFIDENTIAL'),(3X,'5C'))
           NAME  RTO1
  /*

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 COPY1 COPYMOD statement specifies text that applies to each page of the first copy of the output data set:

  LINES=(1,1) and POS=50 specify that the text is to be on the first printable line of each page, starting at the 50th print position from the left.

  The TEXT parameter identifies each page of the copy as being the "Controller's Copy".

• The COPY2A COPYMOD statement specifies text that applies to each page of the second copy of the output data set. The text is to be on the first line of each page, at the 50th print position from the left, with each page of the copy being the "Shipping Manager's Copy".
• The COPY2B COPYMOD statement specifies that part of the second copy's output data set text is to be blanked out, so that the first, third, and subsequent copies contain information that is not printed on the second copy. The blank area is to be on lines 34, 35, and 36, beginning at the 75th print position from the left. The text on lines 34, 35, and 36, between print positions 75 and 84, is to be blank (that is, the character specified between the TEXT parameter's single quotation marks is a blank).
• The COPYALL COPYMOD statement specifies text that applies to the first four copies of the output data set. This example assumes that no more than four copies are printed each time the job that produces the output data set is processed. The text is to be on the 58th line on each page, at the 35th print position from the left. The legend "***CONFIDENTIAL***" is to be on each page of the copy. Note that the text can be coded in both character and hexadecimal format.
• The name of the copy modification module is RTO1; it is stored as a member of the SYS1.IMAGELIB data set.