以下は、新規計画をバインドするために使用するサンプル・ジョブです。
- IBMUSER としてログオンしている間に 1 つの直列化プロファイルが作成されました。
- db2profc を実行するために -pgmname=TESTBMP が指定されました。
- 新規計画は、SQLJPLAN という名前が付けられます。
//BBOOLS JOB (516B,1025),'IBMUSER',MSGCLASS=H,CLASS=A,PRTY=14,
// NOTIFY=&SYSUID,TIME=1440,USER=IBMUSER,PASSWORD=IBMUSER,
// MSGLEVEL=(1,1)
//********************************************************************
//BINDOLS EXEC PGM=IKJEFT01,DYNAMNBR=20
//DBRMLIB DD DSN=IBMUSER.DBRMLIB.DATA,DISP=SHR
//* DD DSN=MVSDSOM.DB2710.SDSNDBRM,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB2)
BIND -
PACKAGE(TESTBMP) -
QUALIFIER(IBMUSER) -
MEMBER(TESTBMP1) -
VALIDATE(BIND) -
ISOLATION(UR) -
SQLERROR(NOPACKAGE) -
BIND -
PACKAGE(TESTBMP) -
QUALIFIER(IBMUSER) -
MEMBER(TESTBMP2) -
VALIDATE(BIND) -
ISOLATION(CS) -
SQLERROR(NOPACKAGE) -
BIND -
PACKAGE(TESTBMP) -
QUALIFIER(IBMUSER) -
MEMBER(TESTBMP3) -
VALIDATE(BIND) -
ISOLATION(RS) -
SQLERROR(NOPACKAGE) -
BIND -
PACKAGE(TESTBMP) -
QUALIFIER(IBMUSER) -
MEMBER(TESTBMP4) -
VALIDATE(BIND) -
ISOLATION(RR) -
SQLERROR(NOPACKAGE) -
BIND PLAN(SQLJPLAN) -
QUALIFIER(IBMUSER) -
PKLIST(TESTBMP.* -
DSNJDBC.* ) -
ACTION(REPLACE) RETAIN -
VALIDATE(BIND)
END
/*