Would like a sample JCL to execute GVCOPY utility.

Document ID : KB000045233
Last Modified Date : 14/02/2018
Show Technical Document Details

Problem:

How do you execute the GVCOPY utility? I would like a sample JCL to assist me in this process.

Resolution:

There are some variations to the GVCOPY execution, these are described in the CA Faver User Guide section for utilities labeled GVCOPY.

Sample JCL:

//********************************************************************
//*  THIS STEP WILL USE GVCOPY TO PULL THE EXPORTED FILE FROM THE    
//*  BACKUP FILE AND CREATE A QSAM FILE TO COPY INTO                 
//********************************************************************
//$$$$$$@  EXEC PGM=GVCOPY,PARM='prefix.cluster.dsn'                    
//*           PARM=''prefix.cluster.dsn'    --> OPTIONAL PARM VALUE      
//*           PARM=DDNAME=TESTFLE       --->> OPTIONAL PARM VALUE     
//STEPLIB  DD DISP=SHR,DSN=prefix.FAVR45.CBSVLINK           ---> CA Faver loadlibrary                     
//INPUT    DD SYSOUT=*                                                
//OUTPUT   DD SYSOUT=*                                                
//SNAPDD   DD SYSOUT=*                                                
//*TESTFLE  DD DISP=SHR,DSN=prefix.GVCOPY.IN.DSNAME    -->OPTIONAL    
//********************************************************************
//*  FVRFILE IS THE INPUT  FILE. THIS IS THE ORIGINAL EXPORT TAPE    
//*  OR EXPORT DISK FILE                                             
//********************************************************************
//FVRFILE  DD DISP=SHR,DSN=prefix.FAVER.BKUP1                                        ---> input Faver exort file                    
//********************************************************************
//*  FVROUT  IS THE OUTPUT FILE THAT SHOULD BE IN A QSAM FORMAT FOR   
//*  THIS TEST. This example may not reflect your DCB needs                                                                                     
//********************************************************************
//FVROUT   DD DSN=prefix.your.QSAM.DSN,                             
//            DISP=(NEW,CATLG,DELETE),                                
//            DCB=(RECFM=VB,LRECL=4096),                              
//            UNIT=3390,VOL=SER=vvvvvv,                               
//            SPACE=(CYL,(5,5),RLSE)                                  
//SYSUDUMP DD SYSOUT=*                                                
//SYSPRINT DD SYSOUT=*