How to Copy an entire DADS Plus DADS01 control file to a new control file?

Products

• DADS Plus

Issue/Introduction

How to copy an entire DADS Plus DADS01 control file to a new control file?  The new control file is for a new CICS region that is a model of the existing control file.

 

 

Environment

Z/OS 

CICS

 

Resolution

To make a copy of the DADS Plus control file(DADS01), use the IDCAMS REPRO command. The following steps can be used to copy a DADS01 file.

Do a IDCAMS LASTCAT on the DADS01 file being copied.

Define a new DADS01 file with the same allocation (records -cylinders) shown in the LISTCAT.  The JCL to define the DADS01 file is shipped with the DADS installation dataset HLQ.SAMPLIB(DADS01) as shown below.

//DADS01    EXEC PGM=IDCAMS,REGION=1024K                       
//SYSPRINT  DD SYSOUT=*                                        
//SYSIN     DD *                                               
  DEFINE CLUSTER (NAME(*DADS01*)                           -   
                  VOLUMES(*VOLSER*)                        -   
                  KEYS(24 0)                               -   
                  RECSZ(0180 8185)                         -   
                  SHR(2 3))                                -   
         DATA    (NAME(*DADS01*.DATA)                      -   
                  CISZ(8192)                               -   
                  CYL(2 1))                                -   
         INDEX   (NAME(*DADS01*.INDEX)                     -   
                  CISZ(1024)                               -   
                  CYL(1 1))                                    
/*                                                             

Do an IDCAMS repro from the existing DADS01 to the new DADS01.

The JCL below executes DADS utility program DADBLIST to list the contents of the DADS01 file.  Execute the JCL to produce a report of both DADS01 files and verify that the copy was successful.

//LIST     EXEC PGM=DADBLIST,REGION=700K                                          
//STEPLIB  DD DSN=YOUR.DADSPL40.LOADLIB,DISP=SHR                             
//DADS01   DD DISP=SHR,DSN=YOUR.DADS01.CONTROL                     
//SYSPRINT DD SYSOUT=*,DCB=(LRECL=133,RECFM=FBA,BLKSIZE=133)                      
//SYSIN    DD *                                                                   
ALL                                                                              
//