Saturday 10 August 2013

JCL IEBCOMPR Utility.

Compare records in sequential or partitioned data sets, or PDSEs.
These programs provide functions that are better performed by newer applications, such as ISMF or DFSMSrmm or DFSMSdss. IBM continues to ship these programs for compatibility with the supported older system levels.
Example : 1

//CARDTAPE JOB ...

// EXEC PGM=IEBCOMPR
//SYSPRINT DD SYSOUT=A
//SYSIN DD DUMMY
//SYSUT2 DD UNIT=tape,VOLUME=SER=001234,LABEL=(,NL),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=2000),
// DISP=(OLD,KEEP)
//SYSUT1 DD DATA

(input data set)

/*
The control statements are discussed, as follows::
  • SYSIN DD defines a dummy control data set. Because no user routines are provided and the input data sets are sequential, utility control statements are not necessary.
  • SYSUT2 DD defines an input data set, which resides on an unlabeled, tape volume.
  • SYSUT1 DD defines a system input stream data set.
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.

Created with Artisteer

No comments:

Post a Comment

New In-feed ads