In this example, IEBUPDTE is used to copy a sequential data set
from one DASD volume to another. User labels are processed by user
exit routines.
//LABELS JOB ...
//STEP1 EXEC PGM=IEBUPDTE,PARM=(MOD,,INTLRTN)
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSNAME=OLDMAST,DISP=OLD,LABEL=(,SUL),
// VOLUME=SER=111111,UNIT=disk
//SYSUT2 DD DSNAME=NEWMAST,DISP=(NEW,KEEP),LABEL=(,SUL),
// UNIT=disk,VOLUME=SER=XB182,
// SPACE=(TRK,(5,10))
//SYSIN DD DSNAME=INPUT,DISP=OLD,LABEL=(,SUL),
// VOLUME=SER=222222,UNIT=disk
/*
The control statements are as follows:
- SYSUT1 DD defines the input sequential data set, called OLDMAST,
which resides on a disk volume.
- SYSUT2 DD defines the output sequential data set, called NEWMAST,
which will reside on a disk volume.
- SYSIN DD defines the control data set. The contents of this disk-resident
data set in this example are:
./ REPRO LIST=ALL,INHDR=INHRTN,INTLR=INTRTN, C
./ OUTHDR=OUTHRTN,OUTTLR=OUTTRN
./ ENDUP
- The REPRO function statement indicates that the existing input
sequential data set is copied to the output data set. This output
data set is listed on the message data set. The user's label
processing routines are to be given control when header or trailer
labels are encountered on either the input or the output data set.
- ENDUP indicates the end of the control data set.