Export an Entry-Sequenced Cluster Using CIMODE: Example 4

In this example, a VSAM data set, USERDS1, is exported, using control interval processing. The user data is copied to a portable file, BACKUP.USERDS1.CIMODE, and its catalog entry is modified to indicate that it was temporarily exported.

//EXPRTUSR  JOB   ...
//STEP1     EXEC  PGM=IDCAMS
//RECEIVE   DD    DSNAME=BACKUP.USERDS1.CIMODE,UNIT=(TAPE,,DEFER),
//          DISP=(NEW,KEEP),VOL=SER=327409,LABEL=(1,SL)
//SYSPRINT  DD    SYSOUT=A
//SYSIN     DD    *
     EXPORT -
            USERDS1 -
            OUTFILE(RECEIVE) -
            TEMPORARY        -
            CIMODE
/*

Job Control Statement:

• RECEIVE DD describes the portable file that receives a copy of the ESDS cluster (BACKUP.USERDS1.CIMODE).

The parameters of the EXPORT command are:

• USERDS1 identifies the object to be exported.
• OUTFILE points to the RECEIVE DD statement. This statement describes the portable data set, BACKUP.USERDS1.CIMODE, that is to receive a copy of the ESDS cluster.
• TEMPORARY specifies that the cluster is not to be deleted. The entry of the data set in the catalog is marked "temporary" to indicate that another copy of this data set exists and that the original copy can be replaced.
• CIMODE specifies that control interval processing is to be used to process the data one control interval at a time instead of one record at a time.