DB2 Replication Guide and Reference
//**************************************************************/
//* JOB NAME = ASNA2LK4 */
//* */
//* DESCRIPTIVE NAME = LINK-EDIT JCL FOR THE IBM */
//* DATAPROPAGATOR RELATIONAL APPLY FOR MVS */
//* FOR DB2 V4 */
//* */
//* STATUS = VERSION 05 RELEASE 01 MODIFICATION LEVEL 00 */
//* */
//* FUNCTION = CREATE THE DATAPROPAGATOR RELATIONAL */
//* APPLY FOR MVS LOAD MODULE */
//* DB2 V4 */
//* */
//* LICENSED MATERIALS - PROPERTY OF IBM */
//* 5655-A22 (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. */
//* ASNA.V5R1M0 IS RECOMMENDED AS THE HIGH LEVEL QUALIFIER. */
//* 3) DELETE THE TEXT THAT BEGINS WITH <== AT THE */
//* END OF SOME LINES */
//* */
//**************************************************************/
//*
//ASNA2LK4 JOB USER=USERID,PASSWORD=PASSWORD <== SPECIFY JOB CARD PARM
//**************************************************************/
//* FOR EXECUTION OF APPLY FOR MVS LINK/EDIT PROCEDURE */
//**************************************************************/
//ASNA2LK4 EXEC PGM=IEWL,PARM='MAP,AMODE=31,RMODE=ANY'
//SYSPRINT DD SYSOUT=*
//SYSLIB DD DSN=EDC.V2R1M0.SEDCBASE,DISP=SHR <== VERIFY C/370
// DD DSN=PLI.V2R3M0.SIBMBASE,DISP=SHR <== LIBRARY NAMES AND
// DD DSN=DSN410.SDSNLOAD,DISP=SHR <== DB2 LIBRARY NAME
//OBJ DD DSN=HLQUAL.SASNAOBJ,DISP=SHR <== VERIFY FILE NAME
//SYSLMOD DD DSN=HLQUAL.SASNALNK,DISP=SHR <== VERIFY FILE NAME
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSDA,
// SPACE=(32000,(30,30))
//SYSLIN DD DDNAME=SYSIN
//SYSIN DD *
INCLUDE SYSLIB(DSNALI)
INCLUDE OBJ(ASNTS000)
INCLUDE OBJ(ASNT9000)
INCLUDE OBJ(ASNT4000)
INCLUDE OBJ(ASNTP000)
INCLUDE OBJ(ASNTB000)
INCLUDE OBJ(ASNTA000)
INCLUDE OBJ(ASNTF000)
INCLUDE OBJ(ASNTC000)
INCLUDE OBJ(ASNTI000)
INCLUDE OBJ(ASNTW000)
INCLUDE OBJ(ASNTX000)
SETCODE AC(1)
NAME ASNAPV24(R)
INCLUDE OBJ(ASNA2CPY)
INCLUDE OBJ(ASNTU000)
NAME ASNTU000(R)
/*
//
[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]
[ DB2 List of Books |
Search the DB2 Books ]