Example 5: Copy and Compare Sequential Data Set in Two Job Steps

In this example, a sequential disk or tape data set is copied and compared in two job steps.

  //TAPETAPE JOB  ...
  //STEPA    EXEC PGM=IEBGENER
  //SYSPRINT DD  SYSOUT=A
  //SYSUT1   DD  DSN=WAREHOUS.COPYSET1,DISP=(OLD,PASS),
  //SYSUT2   DD  DSNAME=WAREHOUS.COPYSET2,DISP=(,PASS),LABEL=(,SL),
  //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=640),
  //             UNIT=tape,VOLUME=SER=001235
  //SYSIN    DD  DUMMY
  //STEPB    EXEC PGM=IEBCOMPR
  //SYSPRINT DD  SYSOUT=A
  //SYSUT1   DD  DSNAME=*.STEPA.SYSUT1,DISP=(OLD,KEEP)
  //SYSUT2   DD  DSNAME=*.STEPA.SYSUT2,DISP=(OLD,KEEP)
  //SYSIN    DD  DUMMY

The first job step copies the data set and passes the original and copied data sets to the second job step. The second job step compares the two data sets.

The control statements for the IEBCOMPR job step are discussed, as follows:

SYSUT1 DD defines an input data set passed from the preceding job step (COPYSET1). The data set resides on a labeled tape volume.
SYSUT2 DD defines an input data set passed from the preceding job step (COPYSET2). The data set, which was created in the preceding job step, resides on a labeled tape volume.
SYSIN DD defines a dummy control data set. Because the input is sequential and no user exits are provided, no utility control statements are required.