In this example, multiple VSAM data sets are exported in the same
step using multiple INFILE parameters.
//EXPORT JOB ...
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//INDS1 DD DSNAME=MTD.CLUSTER1,DISP=OLD
//INDS2 DD DSNAME=MTD.CLUSTER2,DISP=OLD
//INDS3 DD DSNAME=MTD.CLUSTER3,DISP=OLD
//INDS4 DD DSNAME=MTD.CLUSTER4,DISP=OLD
//PORTDS1 DD DSNAME=CLUSBAC1,UNIT=3380,VOL=SER=338001,DISP=(NEW,KEEP),
// SPACE=(TRK,(10,2)),DCB=(RECFM=F,LRECL=4101,BLKSIZE=4401)
//PORTDS2 DD DSNAME=CLUSBAC2,UNIT=3380,VOL=SER=338001,DISP=(NEW,KEEP),
// SPACE=(TRK,(10,2)),DCB=(RECFM=F,LRECL=4101,BLKSIZE=4401)
//PORTDS3 DD DSNAME=CLUSBAC3,UNIT=3380,VOL=SER=338001,DISP=(NEW,KEEP),
// SPACE=(TRK,(10,2)),DCB=(RECFM=F,LRECL=4101,BLKSIZE=4401)
//PORTDS4 DD DSNAME=CLUSBAC4,UNIT=3380,VOL=SER=338001,DISP=(NEW,KEEP),
// SPACE=(TRK,(10,2)),DCB=(RECFM=F,LRECL=4101,BLKSIZE=4401)
//SYSIN DD *
EXPORT -
MTD.CLUSTER1 -
INFILE(INDS1) -
OUTFILE(PORTDS1)
EXPORT -
MTD.CLUSTER2 -
INFILE(INDS2) -
OUTFILE(PORTDS2)
EXPORT -
MTD.CLUSTER3 -
INFILE(INDS3) -
OUTFILE(PORTDS3)
EXPORT -
MTD.CLUSTER4 -
INFILE(INDS4) -
OUTFILE(PORTDS4)
/*
Job control language statements:
- INDS1 through INDS4 allocate the data sets to be exported.
- PORTDS1 through PORTDS4 describe the portable files that are to
contain a copy of the exported data sets.
The parameters of the EXPORT command are:
- MTD.CLUSTER1 through MTD.CLUSTER4 specify the data sets to be
exported.
- INFILE points to the INDS1 through INDS4 statements.
- OUTFILE points to the PORTDS1 through PORTDS4 statements. These
statements describe the portable data sets, CLUSBAC1 through CLUSBAC4,
that are to receive a copy of data sets INDS1 through INDS4.