Frank,

  You might want to look up the SPHERE parameter.

Dave O'Brien
NIH Contractor
________________________________________
From: IBM Mainframe Discussion List [[email protected]] On Behalf Of Frank 
Swarbrick [[email protected]]
Sent: Friday, April 17, 2009 9:09 PM
To: [email protected]
Subject: copying files

No, I'm not the same person who asked a similar question earlier.  :-)

DRDSS seems to be an OK way to copy groups of files.  For example...

//COPY1     JOB CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
//STEP01    EXEC PGM=ADRDSSU,REGION=4080K
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *
 COPY DATASET( -
        INCLUDE(DRDMVS.PROD.DEMAND.DMDMTC, -
                DRDMVS.PROD.DDASAV.CRMEMO) -
      ) -
      RENAMEU( -
        (DRDMVS.PROD.**, FJS.TEST.**) -
      ) -
      REPLACEU
/*

This will copy the two files in the INCLUDE clause, renamed with FJS.TEST as
the first two nodes, defining the files if they do not already exist.

This works fine for just a regular VSAM cluster.  It works even for those
defined NOREUSE.  In other words, there is no need to delete the cluster
before copying to it (which is my goal).

I am having a problem doing it with a CLUSTER that has an AIX.

ADR439E (001)-PREVS(07), A PREALLOCATED DATA SET WITH NEW NAME
DRDMVS.CVSC.CVSPAF WAS FOUND FOR DATA SET PROD.CVSC.CVSPAF BUT
WAS UNUSABLE, 08

Where "08 An alternate index (AIX) is defined over the preallocated cluster."

So what am I to do?  The only thing I've been able to do is delete the entire
cluster (including AIX and PATH) before I restore the cluster, and then
redefine the AIX and PATH afterward.  Pain in the neck!  Do I have an
alternative that I have missed?

Thanks,
Frank

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to