IBM Books

DB2 Replication Guide and Reference


Link-Edit JCL for Capture (MVS for DB2 Version 5)

//**************************************************************/               
//* JOB NAME = ASNL2LK5                                        */               
//*                                                            */               
//* DESCRIPTIVE NAME = LINK-EDIT JCL FOR THE IBM               */               
//*                    DATAPROPAGATOR RELATIONAL CAPTURE FOR   */               
//*                    MVS FOR DB2 VERSION 5.1                 */               
//*                                                            */               
//* STATUS = VERSION 05  RELEASE 01  MODIFICATION LEVEL 00     */               
//*                                                            */               
//* FUNCTION = CREATE THE DATAPROPAGATOR RELATIONAL            */               
//*            CAPTURE FOR MVS LOAD MODULE                     */               
//*                                                            */               
//*       LICENSED MATERIALS - PROPERTY OF IBM                 */               
//*       5655-A23 (C) COPYRIGHT IBM CORP 1993, 1997           */               
//*       ALL RIGHTS RESERVED.                                 */               
//*       US GOVERNMENT USERS RESTRICTED RIGHTS -              */               
//*       USE, DUPLICATION OR DISCLOSURE RESTRICTED            */               
//*       BY GSA ADP SCHEDULE CONTRACT WITH IBM CORP.          */               
//*                                                            */               
//* NOTES =                                                    */               
//* 1) REVIEW ALL STATEMENTS.                                  */               
//* 2) CHANGE THE HLQUAL FIELD(S) TO A VALID HIGH LEVEL        */               
//*    QUALIFIER TO COMPLY WITH YOUR SITE'S NAMING STANDARDS.  */               
//*    ASNL.V5R1M0 IS RECOMMENDED AS THE HIGH LEVEL QUALIFIER. */               
//* 3) BE SURE TO REMOVE THE TEXT THAT BEGINS WITH <== AT THE  */               
//*    END OF SOME LINES                                       */               
//**************************************************************/               
//*                                                                             
//ASNL2LK5 JOB USER=USERID,PASSWORD=PASSWORD  <== SPECIFY JOB CARD PARM         
//**************************************************************/               
//*        FOR EXECUTION OF CAPTURE FOR MVS LINK/EDIT PROCEDURE*/               
//**************************************************************/               
//ASNL2LK5 EXEC PGM=IEWL,PARM='MAP,AMODE=31,RMODE=ANY'                          
//SYSLIB   DD  DISP=SHR,DSN=EDC.V2R1M0.SEDCBASE   <== VERIFY C/370              
//         DD  DISP=SHR,DSN=PLI.V2R3M0.SIBMBASE   <== LIBRARY NAMES AND         
//         DD  DISP=SHR,DSN=DSN510.SDSNLOAD       <== DB2 LIBRARY NAME          
//*    NETVIEW LIBRARIES (REMOVE COMMENT, IF NETVIEW IS INSTALLED)              
//*        DD  DSN=SYS1.CNMLINK,DISP=SHR                                        
//*        DD  DSN=SYS1.CNMINST,DISP=SHR                                        
//*        DD  DSN=SYS1.CNMSAMP,DISP=SHR                                        
//*        DD  DSN=SYS1.BNJMISC,DISP=SHR                                        
//*        DD  DSN=SYS1.BNJPNL1,DISP=SHR                                        
//*        DD  DSN=SYS1.BNJPNL2,DISP=SHR                                        
//OBJ      DD  DISP=SHR,DSN=HLQUAL.SASNLOBJ        <== VERIFY FILE NAME         
//SYSLMOD  DD  DISP=(OLD,KEEP,KEEP),                                            
//             DSN=HLQUAL.SASNLLNK                 <== VERIFY FILE NAME         
//SYSPRINT DD  SYSOUT=*                                                         
//SYSUT1   DD  DSN=&&SYSUT1,UNIT=SYSDA,DISP=(NEW,DELETE),                       
//             SPACE=(32000,(30,30))                                            
//SYSLIN   DD  DDNAME=SYSIN                                                     
//SYSIN    DD  *                                                                
  INCLUDE SYSLIB(DSNALI)                                                        
  INCLUDE OBJ(ASNLTD51)                                                         
  INCLUDE OBJ(ASNLTM51)                                                         
  INCLUDE OBJ(ASNLTC51)                                                         
  INCLUDE OBJ(ASNL2WTO)                                                         
  INCLUDE OBJ(ASNL2MSG)                                                         
  SETCODE AC(1)                                                                 
  NAME ASNLRP25(R)                                                              
  INCLUDE OBJ(ASNL2CPY)                                                         
  INCLUDE OBJ(ASNLTU00)                                                         
  NAME ASNLTU00(R)                                                              
/*                                                                              
//                                                                              


[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]

[ DB2 List of Books | Search the DB2 Books ]