Sample GVCOPY utility JCL

Products

• FAVER VSAM Data Protection for z/OS

Issue/Introduction

Need a sample JCL to execute the GVCOPY utility. 

                           

Environment

Release: 4.5
Component: FastDASD

Resolution

 

//******************************************************************** 
//*  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    --> Faver load library                      
//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 export 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=*