In this example, two sequential data sets that reside on 7-track tape volumes are compared.

  //TAPETAPE JOB  ...
  //         EXEC PGM=IEBCOMPR
  //SYSPRINT DD  SYSOUT=A
  //SYSUT1   DD  DSNAME=SET1,LABEL=(2,SUL),DISP=(OLD,KEEP),
  //             VOL=SER=001234,DCB=(DEN=2,RECFM=FB,LRECL=80,
  //             BLKSIZE=2000,TRTCH=C),UNIT=tape
  //SYSUT2   DD  DSNAME=SET2,LABEL=(,SUL),DISP=(OLD,KEEP),
  //             VOL=SER=001235,DCB=(DEN=2,RECFM=FB,LRECL=80,
  //             BLKSIZE=2000,TRTCH=C),UNIT=tape
  //SYSIN    DD  *
        COMPARE  TYPORG=PS
         LABELS  DATA=ONLY
  /*

The control statements are discussed, as follows::

• SYSUT1 DD defines an input data set, SET1, which resides on a labeled, 7-track tape volume. The blocked data set was originally written at a density of 800 bits per inch (DEN=2) with the data converter on (TRTCH=C).
• SYSUT2 DD defines an input data set, SET2, 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 800 bits per inch (DEN=2) with the data converter on (TRTCH=C).
• 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.
• LABELS DATA=ONLY specifies that user header labels are to be treated as data and compared. All other labels on the tape are ignored.