In this example, two sequential data sets that were written at different densities on different tape units are compared.

  //TAPETAPE JOB  ...
  //         EXEC PGM=IEBCOMPR
  //SYSPRINT DD  SYSOUT=A
  //SYSUT1   DD  DSNAME=SET1,LABEL=(,SUL),DISP=(OLD,KEEP),
  //             VOL=SER=001234,DCB=(DEN=1,RECFM=FB,LRECL=80,
  //             BLKSIZE=320,TRTCH=C),UNIT=tape
  //SYSUT2   DD  DSNAME=SET2,LABEL=(,SUL),DISP=(OLD,KEEP),
  //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=640),
  //             UNIT=tape,VOLUME=SER=001235
  //SYSIN    DD  *
        COMPARE  TYPORG=PS
          EXITS  INHDR=HDRS,INTLR=TLRS
         LABELS  DATA=NO
  /*

The control statements are discussed, as follows::

• SYSUT1 DD defines an input data set, SET1, which is the first or only data set on a labeled, 7-track tape volume. The blocked data set was originally written at a density of 556 bits per inch (DEN=1) with the data converter on (TRTCH=C).
• SYSUT2 DD defines an input data set, SET2, which is the first or only blocked data set on a labeled tape volume. In this example, assume SYSUT2 is on a 9-track tape drive.
• SYSIN DD defines the control data set, which follows in the input stream.
• COMPARE TYPORG=PS specifies that the input data sets are sequentially organized.
• EXITS identifies the names of routines to be used to process user input header labels and trailer labels.
• LABELS DATA=NO specifies that the user input header and trailer labels for each data set are not to be compared.