//**************************************************************/ //* JOB NAME = ASNA2BD5 */ //* */ //* DESCRIPTIVE NAME = BIND PACKAGE JCL FOR THE IBM */ //* DATAPROPAGATOR RELATIONAL APPLY FOR MVS */ //* FOR DB2 V5 */ //* */ //* STATUS = VERSION 05 RELEASE 01 MODIFICATION LEVEL 00 */ //* */ //* FUNCTION = BIND THE DATAPROPAGATOR RELATIONAL */ //* APPLY FOR MVS PACKAGE FOR DB2 V5 */ //* */ //* 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 */
//* */
//**************************************************************/
//*
//ASNA2BD5 JOB USER=USERID,PASSWORD=PASSWORD <== SPECIFY JOB CARD PARM
//**************************************************************/
//* FOR EXECUTION OF APPLY FOR MVS BIND PROCEDURE */
//**************************************************************/
//ASNA2BD5 EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//STEPLIB DD DISP=SHR,DSN=DSN510.SDSNLOAD
//DBRMLIB DD DISP=SHR,DSN=HLQUAL.SASNADBM <== VERIFY FILE NAME
//SYSTSIN DD *
DSN S(D51A) <== REPLACE D51A WITH YOUR SUBSYSTEM NAME
<== VERIFY DB2 LOCATION NAME
<== AND COLLECTION-ID;
<== INCLUDE THE 7 BIND PACKAGE SUBCOMMANDS
<== FOR EACH DB2 TO BE ACCESSED BY
<== THE APPLY PROGRAM
BIND PACKAGE(LOCATION-NAME1.COL1) -
MEMBER(ASNDI000) -
ACTION(REP) -
RELEASE(COMMIT) ISOLATION(UR)
BIND PACKAGE(LOCATION-NAME1.COL1) -
MEMBER(ASND4000) -
ACTION(REP) -
RELEASE(COMMIT) ISOLATION(UR)
BIND PACKAGE(LOCATION-NAME1.COL1) -
MEMBER(ASNDP000) -
ACTION(REP) -
RELEASE(COMMIT) ISOLATION(UR)
BIND PACKAGE(LOCATION-NAME1.COL1) -
MEMBER(ASNDB000) -
ACTION(REP) -
RELEASE(COMMIT) ISOLATION(UR)
BIND PACKAGE(LOCATION-NAME1.COL1) -
MEMBER(ASNDF000) -
ACTION(REP) -
RELEASE(COMMIT) ISOLATION(CS)
BIND PACKAGE(LOCATION-NAME1.COL1) -
MEMBER(ASNDA000) -
ACTION(REP) -
RELEASE(COMMIT) ISOLATION(UR)
BIND PACKAGE(LOCATION-NAME1.COL1) -
MEMBER(ASNDC000) -
ACTION(REP) -
RELEASE(COMMIT) ISOLATION(UR)
BIND PACKAGE(LOCATION-NAME2.COL1) -
MEMBER(ASNDI000) -
ACTION(REP) -
RELEASE(COMMIT) ISOLATION(UR)
.
.
.
BIND PACKAGE(LOCATION-NAME2.COL1) -
MEMBER(ASNDC000) -
ACTION(REP) -
RELEASE(COMMIT) ISOLATION(UR)
BIND PLAN(ASNAP510) -
PKLIST(LOCATION-NAME1.COL1.*,LOCATION-NAME2.COL1.*) -
ACTION(REP) ACQUIRE(USE) -
RELEASE(COMMIT)
/*
//