Sample DSN1COPY control statements

Use the sample control statements as models for developing your own DSN1COPY control statements.

If you run online REORG with FASTSWITCH behavior, the fifth-level qualifier in the data set name can be either I0001 or J0001. For clone tables, the data set can also be I0002 or J0002. These examples use I0001.

Example 1: Checking input data set before copying

The following statement specifies that the DSN1COPY utility is to copy the data set that is identified by the SYSUT1 DD statement to the data set that is identified by the SYSUT2 DD statement. Before DSN1COPY copies this data, the utility is to check the validity of the input data set.

//RUNCOPY EXEC PGM=DSN1COPY,PARM='CHECK'
//* COPY VSAM TO SEQUENTIAL AND CHECK PAGES
//STEPLIB  DD DSN=PDS CONTAINING DSN1COPY
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD DSN=DSNCAT.DSNDBC.DSNDB01.SYSUTILX.I0001.A001,DISP=OLD
//SYSUT2   DD DSN=TAPE.DS,UNIT=TAPE,DISP=(NEW,KEEP),VOL=SER=UTLBAK

Example 2: Translating the Db2 internal identifiers

The statement in this example specifies that DSN1COPY is to copy the data set that is identified by the SYSUT1 DD statement to the data set that is identified by the SYSUT2 DD statement. The OBIDXLAT option specifies that DSN1COPY is to translate the OBIDs before the data set is copied. The OBIDs are provided as input on the SYSXLAT DD statement. Because the OBIDXLAT option is specified, DSN1COPY also checks the validity of the input data set, even though the CHECK option is not specified. 

//EXECUTE EXEC PGM=DSN1COPY,PARM='OBIDXLAT'
//STEPLIB  DD  DSN=PDS CONTAINING DSN1COPY
//SYSPRINT DD  SYSOUT=A
//SYSUT1   DD  DSN=DSNC111.DSNDBC.DSN8D12P.DSN8S12C.I0001.A001,
//             DISP=OLD
//SYSUT2   DD  DSN=DSNC910.DSNDBC.DSN8D12P.DSN8S12C.I0001.A001,
//             DISP=OLD
//SYSXLAT  DD  *
260,280
2,10
3,55
6,56
7,57
/*

Example 3: Printing a single page of a partitioned table space

The following statement specifies that DSN1COPY is to print page 2002A1 of the table space in the data set that is identified by the SYSUT1 DD statement. This table space has eight partitions, as indicated by the NUMPARTS option.

//PRINT EXEC PGM=DSN1COPY,PARM='PRINT(2002A1),NUMPARTS(8)'
//* PRINT A PAGE IN THE THIRD PARTITION OF A TABLE SPACE CONSISTING
//* OF 8 PARTITIONS.
//SYSUDUMP DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSUT2   DD DUMMY
//SYSUT1   DD DSN=DSNCAT.DSNDBD.MMRDB.PARTEMP1.I0001.A003,DISP=OLD

Example 4: Printing 16 pages of a nonpartitioning index

The following statement specifies that DSN1COPY is to print 16 pages of a nonpartitioning index in the data set that is identified by the SYSUT1 DD statement. The pages range from page F0000 to page F000F, as indicated by the PRINT option. The maximum data set size is 64 MB, as indicated by the PIECESIZ option.

//PRINT2 EXEC PGM=DSN1COPY,PARM=(PRINT(F0000,F000F),PIECESIZ(64M))
//* PRINT THE FIRST 16 PAGES IN THE 61ST PIECE OF AN NPI WITH PIECE SIZE OF 64M
//SYSUDUMP DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSUT2    DD DUMMY
//SYSUT1    DD DISP=OLD,DSN=DSNCAT.DSTDBD.MMRDB.NPI1.I0001.A061

Example 5: Copying individual partitions of a partitioned table space

In the example in the following figure, the two job steps specify that DSN1COPY is to copy partitions 1501 and partition 1502 from image copy data sets into a partitioned table space. In the two SYSUT2 DD statements, the fifth-level qualifier in the data set names can differ, because each job step lists an individual partition. The FULLCOPY option is used in both steps to indicate that the input data set is a full image copy. The NUMPARTS option indicates that the input data set has 1600 partitions. The RESET option resets to 0 the high-formatted page number in the header page. Because this option is specified, DSN1COPY checks the validity of the input data, even though the CHECK option is not specified. 

//STEP1    EXEC PGM=DSN1COPY,                                     
//            PARM='NUMPARTS(1600),RESET,FULLCOPY'                  
//SYSUDUMP DD SYSOUT=A                                            
//SYSPRINT DD SYSOUT=A                                            
//SYSUT1   DD DISP=SHR,DSN=PROD.IMAGE.COPY.PART1501                  
//SYSUT2   DD DISP=OLD,DSN=DSNCAT.DSNDBD.TESTDB.TS01.I0001.B501   
//STEP2    EXEC PGM=DSN1COPY,                                     
//            PARM='NUMPARTS(1600),RESET,FULLCOPY'                  
//SYSUDUMP DD SYSOUT=A                                            
//SYSPRINT DD SYSOUT=A                                            
//SYSUT1   DD DISP=SHR,DSN=PROD.IMAGE.COPY.PART1502                  
//SYSUT2   DD DISP=OLD,DSN=DSNCAT.DSNDBD.TESTDB.TS01.J0001.B502

Example 6: Copying all partitions of a partitioned table space

The following statement specifies that DSN1COPY is to copy data into all partitions of a partitioned table space by using a full image copy of the table space as input. The input image copy has 16 partitions, as indicated by the NUMPARTS option. You must ensure that the fifth-level qualifier in the data set name is the same, either I0001 or J0001, for all partitions of the output table space before running this type of job stream. 

//DSN1COPY EXEC PGM=DSN1COPY,                                   
//            PARM='NUMPARTS(16),RESET,FULLCOPY'                
//SYSUDUMP DD SYSOUT=A                                          
//SYSPRINT DD SYSOUT=A                                          
//SYSUT1   DD DISP=SHR,DSN=PROD.IMAGE.COPY.DSNUMALL             
//SYSUT2   DD DISP=OLD,DSN=DSNCAT.DSNDBD.TESTDB.TS01.I0001.A001

Example 7: Using DSN1COPY with UTS table spaces

The following statements specify that DSN1COPY is to copy a UTS table space vsam data set to a sequential data set. 

//****************************************************************** 
//* COMMENT: RUN DSN1COPY FOR THE TABLESPACE Part 1 
//****************************************************************** 
//STEP1 EXEC PGM=DSN1COPY, 
// PARM='SEGMENT,RESET' 
//SYSUDUMP DD SYSOUT=A 
//SYSPRINT DD SYSOUT=A 
//SYSOUT DD SYSOUT=A 
//SYSABEND DD SYSOUT=A 
//SYSUT1 DD DSN=DSNCAT.DSNDBD.DBKQBG01.TPKQBG01.I0001.A001,DISP=SHR 
//SYSUT2 DD DSN=JUKQU2BG.DSN1COPY.D1P1,DISP=(NEW,CATLG,CATLG), 
// VOL=SER=SCR03,UNIT=SYSDA,SPACE=(TRK,(55,1)) 
/* 
//****************************************************************** 
//* COMMENT: RUN DSN1COPY FOR THE TABLESPACE Part 2 
//****************************************************************** 
//STEP2 EXEC PGM=DSN1COPY, 
// PARM='SEGMENT,RESET' 
//SYSUDUMP DD SYSOUT=A 
//SYSPRINT DD SYSOUT=A 
//SYSOUT DD SYSOUT=A 
//SYSABEND DD SYSOUT=A 
//SYSUT1 DD DSN=DSNCAT.DSNDBD.DBKQBG01.TPKQBG01.I0001.A002,DISP=SHR 
//SYSUT2 DD DSN=JUKQU2BG.DSN1COPY.D1P2,DISP=(NEW,CATLG,CATLG), 
// VOL=SER=SCR03,UNIT=SYSDA,SPACE=(TRK,(55,1)) 
/*

Example 8: Specifying Unicode output for DSN1COPY

When you specify the UNICODE option for DSN1COPY, you are not going to see non-Latin Unicode characters, such as Japanese characters, in your output. When you specify the UNICODE option, DSN1COPY takes the hexadecimal data and formats it as ASCII instead of the default EBCDIC.

A problem might arise when the data that you want DSN1COPY to handle is in UTF-16. In the case of UTF-16 data, DSN1COPY takes only the second byte of the data and formats that part of the data as ASCII. Thus, the output might not be correct. For example, the UTF-16 hexadecimal values X'0030' and X'1130' are both output as 0, because the first byte of each ("00" and "11" respectively) is ignored. The remaining part ("30") is interpreted as an ASCII 0. In UTF-16, X'0030' is the hexadecimal value for 0, but X'1130' is the hexadecimal value for a Hangul character.

In the following DSN1COPY example, notice the three bold hexadecimal values: X'0041', X'0141', and X'0241'. The output for all three of these values is A.A.A, even though they each correspond to different characters in UTF-16. (X'0041' is A, X'0141' is Ł, and X'0241' is the Latin capital character for glottal stop.)

//STEP1    EXEC PGM=DSN1COPY,                                     
//         PARM='CHECK,PRINT(002),UNICODE'   
//STEPLIB  DD DSN=DB2A.DSNLOAD,DISP=SHR                           
//SYSUDUMP DD SYSOUT=A                                            
//SYSPRINT DD SYSOUT=A                                            
//SYSOUT   DD SYSOUT=A                                            
//SYSABEND DD SYSOUT=A                                            
//SYSUT1   DD DSN=TESTCAT.DSNDBC.DBED2101.TPED2101.I0001.A001,DISP=SHR 
//SYSUT2   DD DSN=DUMMY 
/*                   
DSN1999I START OF DSN1COPY FOR JOB RUNCPYI1 RUNCPYI1
DSN1989I DSN1COPY IS PROCESSED WITH THE FOLLOWING OPTIONS: 
CHECK/   PRINT/ 4K/NO IMAGECOPY/NON-SEGMENT/NUMPARTS=   0/NO OBIDXLAT/NO VALUE/NO RESET/  /   /   /  
DSSIZE=   /PIECESIZ=    /UNICODE/
DSN1998I INPUT  DSNAME = TESTCAT.DSNDBC.DBED2101.TPED2101.I0001.A001 , VSAM
DSN1997I OUTPUT DSNAME = NULLFILE                                    , SEQ

Contents of the input data set in hexadecimal:


0000 10000075 8C945500 00000200 0FC90033   00000101 02001F00 03018000 00010000
0020 41014102 41002000 20002000 20002000   20002000 00000000 00000000 00000000
.... LINES ARE ALL ZERO. 
0FE0 00000000 00000000 00000000 00000000   00000000 00000000 00000000 001400D5

Contents of the input data set in ASCII:


*...u..U........3................* 
*A.A.A. . . . . . . .............* 
.... LINES ARE ALL ZERO. 
*................................*
Related information:

Example 9: Defining output data sets for multi-piece nonpartitioned table spaces

The following statements specify that DSN1COPY is to copy data into all pieces of a segmented (non-UTS) table space by using a full image copy of another segmented (non-UTS) table space as input.

  1. Create the target segmented (non-UTS) table space by specifying appropriate primary and secondary quantities.
  2. Define data sets for all subsequent pieces.

    In the following example, the data set for the second piece is 'DSNCAT.DSNDBC.TESTDB.TS01.I0001.A002'. Use the MODEL option, which causes the new data set to be created like the first data set.

    //ALCVSAM  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *   
  DEFINE CLUSTER +
    (NAME('DSNCAT.DSNDBC.TESTDB.TS01.I0001.A002') +  
     MODEL('DSNCAT.DSNDBC.TESTDB.TS01.I0001.A001')) +
  DATA +
    (NAME('DSNCAT.DSNDBD.TESTDB.TS01.I0001.A002') +
     MODEL('DSNCAT.DSNDBD.TESTDB.TS01.I0001.A001'))
/*
  3. Run DSN1COPY.
    //DSN1COPY EXEC PGM=DSN1COPY,
// PARM='FULLCOPY'
//SYSUDUMP DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DISP=SHR,DSN=PROD.IMAGE.COPY.DSNUMALL
//SYSUT2 DD DISP=OLD,DSN=DSNCAT.DSNDBD.TESTDB.TS01.I0001.A001