StorageTek 312564001 manual 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)
/*
//*	EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//GRNT				<===
//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;
/*

178	DB2 Manager User Guide
	StorageTek Proprietary