178 DB2 Manager User Guide
StorageTek Proprietary
//*
//* 2. Change the name of the DB2 subsystem (DB2) in
//* the DSN statements to match the subsystem name
//* in use on the host system.
//*
//* 3. Replace the character string 'pppppppp' with
//* the name of the DB2 plan to be generated.
//*
//* 4. Change the plan name in the RUN statement (DSNTIAnn)
//* to match the version of DB2 in use on the host
//* system.
//*
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB DD DSN=DB2.runtime.library,DISP=SHR <===
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB2) <===
BIND PLAN(pppppppp) - <===
PKLIST(OTDBL100.OTDBL100, -
OTDBL120.OTDBL120, -
OTDBL130.OTDBL130, -
OTDBL140.OTDBL140, -
OTDBL170.OTDBL170) -
ACTION(REPLACE) -
RETAIN -
VALIDATE(BIND) -
ISOLATION(CS) -
FLAG(E) -
ACQUIRE(USE) -
RELEASE(COMMIT) -
KEEPDYNAMIC(YES) -
EXPLAIN(NO)
/*
//*
//GRNT EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//STEPLIB DD DSN=DB2.runtime.library,DISP=SHR <===
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB2) <===
RUN PROGRAM(DSNTIAD) PLAN(DSNTIAnn) <===
//SYSIN DD *
GRANT EXECUTE
ON PLAN pppppppp <===
TO PUBLIC;
COMMIT;
/*