IBM Mainframe Forum

//*                                                                   *
//*  US GOVERNMENT USERS RESTRICTED RIGHTS - USE, DUPLICATION OR      *
//*  DISCLOSURE RESTRICTED BY GSA ADP SCHEDULE CONTRACT WITH          *
//*  IBM CORP.                                                        *
//*                                                                   *
//************************************************************@ECPYRT**
//*                                                                     
//AR%STPNO  EXEC PGM=DFSUARC0,PARM='%SSID,DBRC=YES'                     
//*                                                                     
//*     THIS JCL ORIGINATES FROM THE USER'S 'JCLPDS' LIBRARY.           
//*     KEYWORDS ARE REPLACED BY THE GENJCL FUNCTION OF                 
//*     THE IMS DATA BASE RECOVERY CONTROL FEATURE.                     
//*                                                                     
//*                 JCL FOR ARCHIVE UTILITY                             
//*                                                                     
//STEPLIB   DD DISP=SHR,DSN=IMS910.SDFSRESL                             
//SYSPRINT  DD SYSOUT=*                                                 
//SYSUDUMP  DD SYSOUT=*                                                 
%DELETE  (%RCNDSN1 EQ '')                                               
//ARCHJCL$ JOB MSGCLASS=X,MSGLEVEL=(1,1),CLASS=B,                       
//         REGION=0M,NOTIFY=&SYSUID                                     
//*                                                                     
//*********************************************************************
//* IVP IMS 9.1                                                         
//*                                                                     
//* SKELETON: DFSIXS33                                                 
//*                                                                     
//* FUNCTION: IVP SKELETAL JCL FOR DBRC GENJCL.ARCHIVE                 
//*********************************************************************
//*                                                                     
//************************************************************@SCPYRT**
//*                                                                   *
//*  LICENSED MATERIALS - PROPERTY OF IBM                             *
//*                                                                   *
//*  5655-J38                                                         *
//*                                                                   *
//*  (C) COPYRIGHT IBM CORP. 1989,1998 ALL RIGHTS RESERVED            *
//*                                                                   *
//*  US GOVERNMENT USERS RESTRICTED RIGHTS - USE, DUPLICATION OR      *
//*  DISCLOSURE RESTRICTED BY GSA ADP SCHEDULE CONTRACT WITH          *
//*  IBM CORP.                                                        *
//*                                                                   *
//************************************************************@ECPYRT**
//*                                                                     
//AR%STPNO  EXEC PGM=DFSUARC0,PARM='%SSID,DBRC=YES'                     
//*                                                                     
//*     THIS JCL ORIGINATES FROM THE USER'S 'JCLPDS' LIBRARY.           
//*     KEYWORDS ARE REPLACED BY THE GENJCL FUNCTION OF                 
//*     THE IMS DATA BASE RECOVERY CONTROL FEATURE.                     
//*                                                                     
//*                 JCL FOR ARCHIVE UTILITY                             
//*                                                                     
//STEPLIB   DD DISP=SHR,DSN=IMS910.SDFSRESL                             
//SYSPRINT  DD SYSOUT=*                                                 
//SYSUDUMP  DD SYSOUT=*                                                 
%DELETE  (%RCNDSN1 EQ '')                                               
//RECON1    DD DSN=%RCNDSN1,DISP=SHR                               
%ENDDEL                                                             
%DELETE  (%RCNDSN2 EQ '')                                           
//RECON2    DD DSN=%RCNDSN2,DISP=SHR                               
%ENDDEL                                                             
%DELETE  (%RCNDSN3 EQ '')                                           
//RECON3    DD DSN=%RCNDSN3,DISP=SHR                               
%ENDDEL                                                             
%SELECT  OLDS(%SSID,(%DDNAMES))                                     
//%OLDSDDN  DD DSN=%OLDSDSN,DISP=SHR                               
%ENDSEL                                                             
//DFSSLOGP  DD DSN=IMS910.SLDSP.%SSID.D%ARDATE.T%ARTIME.V%ARVERS,   
//             DISP=(NEW,CATLG),                                   
//             UNIT=3390,                                           
//             VOL=SER=BCIMMQ,                                     
//             SPACE=(CYL,(1,1))                                   
//*DFSSLOGS  DD DSN=IMS910.SLDSS.%SSID.D%ARDATE.T%ARTIME.V%ARVERS, 
//*             DISP=(NEW,CATLG),                                   
//*             UNIT=3390,                                         
//*             VOL=SER=BCIMMQ,                                       
//*             SPACE=(CYL,(1,1))                                     
//RLDSDD1   DD DSN=IMS910.RLDSP.%SSID.D%ARDATE.T%ARTIME.V%ARVERS,     
//             DISP=(NEW,CATLG),                                     
//             UNIT=3390,                                             
//             VOL=SER=BCIMMQ,                                       
//             SPACE=(CYL,(1,1))                                     
//*RLDSDD2   DD DSN=IMS910.RLDSS.%SSID.D%ARDATE.T%ARTIME.V%ARVERS,   
//*             DISP=(NEW,CATLG),                                     
//*             UNIT=3390,                                           
//*             VOL=SER=BCIMMQ,                                       
//*             SPACE=(CYL,(1,1))                                     
//SYSIN     DD *                                                     
COPY DDNOUT1(RLDSDD1) DBRECOV                                         
//*                                                                   

 2 IEFC662I INVALID LABEL                                 
 7 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
 9 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
11 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
13 IEFC662I INVALID LABEL                                 
13 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
15 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
15 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
15 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
15 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
16 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
16 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
16 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
16 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT

//*     KEYWORDS ARE REPLACED BY THE GENJCL FUNCTION OF                 
//*     THE IMS DATA BASE RECOVERY CONTROL FEATURE.