How to send a CA Detector for DB2 for z/OS datastore to technical support if requested.

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

Description:

If a CA Detector for DB2 for z/OS (PDT) datastore is requested by technical support for analysis, what JCL should be used to copy the datastore VSAM datasets into sequential files to be sent via FTP? This document contains sample JCL that can be used to copy a PDT datastore (3 VSAM files) into 3 sequential files.

Solution:

The following sample JCL contains the correct block size and record length parameters for the sequential output datasets. Once the sequential files have been created they can be sent via FTP in binary tersed format for analysis.

//XXXXXXXX JOB (106100000),'Doe J. - Repro',CLASS=A,MSGCLASS=4,
//        MSGLEVEL=(1,1),REGION=0M,NOTIFY=XXXXXXX              
//*                                                            
//STEP010  EXEC PGM=IDCAMS
//*                                                            
//INFILE1  DD DSN=YOUR.DS.NAME.DTR0001.SSID,DISP=SHR           
//INFILE2  DD DSN=YOUR.DS.NAME.DTR0002.SSID,DISP=SHR           
//INFILE3  DD DSN=YOUR.DS.NAME.DTR0003.SSID,DISP=SHR           
//*                                                            
//OUTFILE1 DD DSN=Your.Output.File1,                           
//            UNIT=SYSDA,                                      
//            DISP=(NEW,CATLG,DELETE),                         
//            SPACE=(CYL,(25,10),RLSE),                        
//            DCB=(RECFM=FB,LRECL=24576,BLKSIZE=24576)         
//*                                                            
//OUTFILE2 DD DSN=Your.Output.File2,                       
//            UNIT=SYSDA,                                
//            DISP=(NEW,CATLG,DELETE),                   
//            SPACE=(CYL,(25,10),RLSE),                  
//            DCB=(RECFM=FB,LRECL=8192,BLKSIZE=8192)     
//*                                                      
//OUTFILE3 DD DSN=Your.Output.File3,                       
//            UNIT=SYSDA,                                
//            DISP=(NEW,CATLG,DELETE),                   
//            SPACE=(CYL,(25,10),RLSE),                  
//            DCB=(RECFM=FB,LRECL=24576,BLKSIZE=24576)   
//*                                                      
//SYSPRINT DD SYSOUT=*                                   
//SYSUDUMP DD SYSOUT=*                                   
//AMSDUMP  DD SYSOUT=*                                   
//SYSOUD   DD SYSOUT=*                                   
//*                                                      
//SYSIN    DD *                                          
 REPRO INFILE (INFILE1) OUTFILE (OUTFILE1)               
 REPRO INFILE (INFILE2) OUTFILE (OUTFILE2)
 REPRO INFILE (INFILE3) OUTFILE (OUTFILE3)
/*
//