z/OS V1R6.0 DFSMS Access Method Services for Catalogs

Export an Entry-Sequenced Cluster: Example 3In this example, an entry-sequenced cluster is exported to a portable file and thendeleted from the system.//EXPORT2 JOB ...//STEP1 EXEC PGM=IDCAMS//RECEIVE DD DSNAME=TAPE1,UNIT=(TAPE,,DEFER),// VOL=SER=001147,LABEL=(1,SL),DISP=NEW//SYSPRINT DD SYSOUT=A//SYSIN DD *EXPORT -X98.EXAMPLE.ESDS1 -OUTFILE(RECEIVE) -PURGE/*Job control language statement:vRECEIVE DD describes the portable file, TAPE1, that is to contain a copy of theexported entry-sequenced cluster.The EXPORT command copies the entry-sequenced cluster, X98.EXAMPLE.ESDS1,and its cataloged attributes to a portable file, TAPE1. The cluster is deleted fromthe system after it is copied into the portable file. The parameters are:v X98.EXAMPLE.ESDS1 identifies the entry-sequenced cluster to be exported.vOUTFILE points to the RECEIVE DD statement. The RECEIVE DD statementdescribes the portable data set, TAPE1, that is to receive a copy of the cluster.v PURGE allows the cluster to be deleted regardless of its retention period or date.Because EXPORT defaults to PERMANENT, the cluster is deleted after its contentsare copied to TAPE1.Because EXPORT defaults to NOINHIBITTARGET, access method services assumesthe cluster can be updated (by users of the other system) when it is imported toanother system.Export an Entry-Sequenced Cluster Using CIMODE: Example 4In this example, a VSAM data set, USERDS1, is exported, using control intervalprocessing. 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:vRECEIVE DD describes the portable file that receives a copy of the ESDS cluster(BACKUP.USERDS1.CIMODE).The parameters of the EXPORT command are:v USERDS1 identifies the object to be exported.EXPORTChapter 23. EXPORT 255