//**************************************************************/ //* JOB NAME = ASNA2BD4 */ //* */ //* DESCRIPTIVE NAME = BIND PACKAGE JCL FOR THE IBM */ //* DATAPROPAGATOR RELATIONAL APPLY FOR MVS */ //* FOR DB2 V4 */ //* */ //* STATUS = VERSION 05 RELEASE 01 MODIFICATION LEVEL 00 */ //* */ //* FUNCTION = BIND THE DATAPROPAGATOR RELATIONAL */ //* APPLY FOR MVS PACKAGE FOR 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 */ //* */ //**************************************************************/ //* //ASNA2BD4 JOB USER=USERID,PASSWORD=PASSWORD <== SPECIFY JOB CARD PARM //**************************************************************/ //* FOR EXECUTION OF APPLY FOR MVS BIND PROCEDURE */ //**************************************************************/ //ASNA2BD4 EXEC PGM=IKJEFT01 //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //STEPLIB DD DISP=SHR,DSN=DSN410.SDSNLOAD //DBRMLIB DD DISP=SHR,DSN=HLQUAL.SASNADBM <== VERIFY FILE NAME //SYSTSIN DD *
DSN S(DB24) <== REPLACE DB24 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)
/*
//