Quick Copy : Alter IBM Image Copy JCL to run with Quick Copy
Article ID: 245733
Updated On:
Products
Quick Copy for DB2 for z/OS
Issue/Introduction
Existing IBM utility JCL is able to be used to run the Quick Copy Utility with only minor changes. When the Quick Copy is run in IBM compatibility mode, most IBM syntax is recognized.
Quick Copy will adhere to IBM Db2 syntax diagram rules in the use of parentheses. Quick Copy will tolerate the use of parentheses only where documented in IBM syntax diagrams or as documented in our product syntax.
Environment
DB2 for Z/OS
Release : R20
Resolution
Starting with standard IBM Image Copy JCL
//*********************************************************************
//* *
//* CREATE AN IMAGE COPY *
//* *
//*********************************************************************
//*
//IMAGCOPY EXEC PGM=DSNUTILB,REGION=4096K,PARM='ssid'
//*
//STEPLIB DD DISP=SHR,DSN=hlq.SDSNLOAD
// DD DISP=SHR,DSN=ssid.PRIVATE.SDSNEXIT
//*
//SYSPRINT DD SYSOUT=*
//*
//IC1 DD DSN=AUTHID1.DBCORP.TSEMP.IBMIC,
// UNIT=SYSDA,DISP=(NEW,CATLG),
// SPACE=(CYL,(5,5))
//SYSIN DD *
COPY TABLESPACE DBCORP.TSEMP COPYDDN IC1
SHRLEVEL REFERENCE
/*
//
The SYSOUT below shows the IBM COPY utility executing.
DSNU000I 192 21:07:10.32 DSNUGUTC - OUTPUT START FOR UTILITY, UTILID = AUTHID1.AUTHID1A
DSNU1044I 192 21:07:10.32 DSNUGTIS - PROCESSING SYSIN AS EBCDIC
DSNU050I 192 21:07:10.34 DSNUGUTC - COPY TABLESPACE DBCORP.TSEMP COPYDDN IC1 SHRLEVEL CHANGE
DSNU400I 192 21:07:10.68 DSNUBBID - COPY PROCESSED FOR TABLESPACE DBCORP.TSEMP
NUMBER OF PAGES=20
AVERAGE PERCENT FREE SPACE PER PAGE = 17.50
PERCENT OF CHANGED PAGES = 1.07
ELAPSED TIME=00:00:00
DSNU428I 192 21:07:10.70 DSNUBBID - DB2 IMAGE COPY SUCCESSFUL FOR TABLESPACE DBCORP.TSEMP
DSNU010I 192 21:07:10.71 DSNUGBAC - UTILITY EXECUTION COMPLETE, HIGHEST RETURN CODE=0
To the IBM standard JCL:
1. Add a PTIPARM DD that specifies the utilities parmlib name
2. Change the program name to XSNUTILB or rename module XSNUTILB in the Broadcom load library to DSNUTILB. Load module XSNUTILB is normally found in hlq.CDBALOAD
3. Modify STEPLIB to concatenate the Broadcom loadlib ahead of the Db2 loadlib.
4. Include a PTILIB DD statement that contains the load libraries.
//*********************************************************************
//* *
//* CREATE AN IMAGE COPY *
//* *
//*********************************************************************
//*
//IMAGCOPY EXEC PGM=XSNUTILB,REGION=4096K,PARM='ssid'
//*
//STEPLIB DD DISP=SHR,DSN=hlq.CDBALOAD
// DD DISP=SHR,DSN=hlq.SDSNLOAD
// DD DISP=SHR,DSN=ssid.PRIVATE.SDSNEXIT
//PTILIB DD DISP=SHR,DSN=hlq.CDBALOAD
// DD DISP=SHR,DSN=ssid.PRIVATE.SDSNEXIT
// DD DISP=SHR,DSN=hlq.SDSNLOAD
//*
//PTIPARM DD DISP=SHR,DSN=hlq.CDBAPARM
//SYSPRINT DD SYSOUT=*
//*
//IC1 DD DSN=AUTHID1.DBCORP.TSEMP.IBMIC,
// UNIT=SYSDA,DISP=(NEW,CATLG),
// SPACE=(CYL,(5,5))
//SYSIN DD *
COPY TABLESPACE DBCORP.TSEMP COPYDDN IC1
SHRLEVEL REFERENCE
/*
//
The resulting SYSOUT shows that QUICK COPY VERSION: 20.0.04 is EXECUTING after the changes.
PUT0000I - Database Management for Db2 Utilities 20.0.04 - Started
PUT3520I - 6 zIIP processors currently online
Activating zIIP services
PUT0006I - Initialization Complete - dd mmm yyyy hh:mm:ss
PUT0018I - Invoking Utility COPY - Statement Number: 001
PQC0300I - QUICK COPY VERSION: 20.0.04 EXECUTING ON
DB2 SUBSYSTEM: ssid RELEASE: 1210 FL: V12R1M500 CL: V12R1M500
PQC0299I Region Size Requested ...1,048,576K
Region Below Available .......7,024K
Region Below Upper Limit .......7,656K
Region Below High Value .......7,656K
Region Below SMF Limit Value ...4,194,303K
Region Above Available ...1,113,700K
Region Above Upper Limit ...1,048,576K
Region Above High Value ...1,048,576K
Region Above SMF Limit Value ...4,194,303K
COPY TABLESPACE DBCORP.TSEMP COPYDDN IC1
SHRLEVEL REFERENCE
PQC0519I EXTENDED TIOTS AND 31-BIT DSABS ARE AVAILABLE FOR USE
PQC0080I PQC UTILITY ID: AUTHID1.AUTHID1A CHECKSUM: 00008389
PQC0533I PARSING FUNCTION COMPLETED SUCCESSFULLY
PQC0825I ACCESS METHOD EXCP NO WILL BE USED FOR PQC PROCESSING
PQC0245I PREPARING LIST OF OBJECTS FOR IMAGE COPY
PQC0246I Object=DBCORP.TSEMP Creator AUTHID1
PQC0247I NUMBER OF OBJECTS SELECTED FOR IMAGE COPY: 1
PQC0081I PQC UTILITY ID: AUTHID1.AUTHID1A PSP CHECKSUM: 00030570
DSNU000I 192 21:36:38.95 DSNUGUTC - OUTPUT START FOR UTILITY, UTILID =
AUTHID1.AUTHID1A
DSNU1044I 192 21:36:38.95 DSNUGTIS - PROCESSING SYSIN AS EBCDIC
DSNU050I 192 21:36:38.95 DSNUGUTC - QUIESCE TABLESPACE DBCORP.TSEMP
DSNU477I !ssid 192 21:36:38.97 DSNUQUIA - QUIESCE SUCCESSFUL FOR TABLESPACE
DBCORP.TSEMP
DSNU474I !ssid 192 21:36:38.97 DSNUQUIA - QUIESCE AT RBA 0000000003F49E58B89A
AND AT LRSN 00DBCA1FBE33E42D1800
DSNU475I 192 21:36:38.97 DSNUQUIB - QUIESCE UTILITY COMPLETE, ELAPSED TIME=
00:00:00
DSNU010I 192 21:36:38.97 DSNUGBAC - UTILITY EXECUTION COMPLETE, HIGHEST
RETURN CODE=0
PQC9110I Elapsed Time: 00:00:02 - dd mmm yyyy hh:mm:ss
PQC0002I COPY DATA PROCESS STARTING
PQC0101I COPY001 - FULL IMAGECOPY FOR DBCORP .TSEMP
PQC0102I DATASET: AUTHID1.DBCORP.TSEMP.IBMIC
PQC0103I VOLUMES: SMS
PQC0119I NUMBER OF 4K BLOCKS WRITTEN PER COPY: 00000000020
PQC0010I SYSCOPY UPDATE: ICTYPE=F STYPE= DSNUM=000 ICBACKUP=
PQC0808I REAL TIME STATISTICS TABLES UPDATE COMPLETED
PQC0100I COPY DATA PROCESS ENDING
A standard JCL generated by RC/Query to execute a Quick Copy job on the same tablespace looks like this:
//UTIL0001 EXEC PGM=PTLDRIVM,
// PARM='EP=UTLGLCTL/ssid,',
// REGION=0M
//*
//STEPLIB DD DISP=SHR,DSN=hlq.CDBALOAD
// DD DISP=SHR,DSN=ssid.PRIVATE.SDSNEXIT
// DD DISP=SHR,DSN=hlq.SDSNLOAD
//PTILIB DD DISP=SHR,DSN=hlq.CDBALOAD
// DD DISP=SHR,DSN=ssid.PRIVATE.SDSNEXIT
// DD DISP=SHR,DSN=hlq.SDSNLOAD
//PTIPARM DD DISP=SHR,DSN=hlq.CDBAPARM
//*
//PTIMSG DD SYSOUT=*
//PTIIMSG DD SYSOUT=*
//*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//STXXMSG DD SYSOUT=*
//*
//SYSCP101 DD DSN=AUTHID1.DBCORP.TSEMP.IBMIC,
// DISP=(NEW,CATLG),SPACE=(CYL,(5,5)),UNIT=SYSDA
//SYSIN DD *
COPY TABLESPACE DBCORP.TSEMP
STOP-LIMIT 1
COPY-TASKS 1
COPY-BUFFERS 3
STARTUP-ACCESS RW
EXCP YES
MODIFYBITS NO SHRLEVEL REFERENCE
FULL YES FULL-AUTO YES
QUICKCOPY COPY01(Y,SYSCP101,,LP)
Additional Information
Feedback
Yes
No
Powered by
