程序执行期间 COBOL-DB2 程序中表级锁的实现

COBOL-DB2 程序可以通过两种方式将锁放入 DB2 表中。

• 在程序中执行使用该表的 SQL 语句时。

• 当程序加载到主内存中并准备好执行时。它获取对程序中 SQL 语句中使用的所有 DB2 表的锁。

要在程序加载到主内存或分配给线程后获取对所有 DB2 表的锁，我们必须使用适当的选项和参数绑定计划。下面是一个可以使用的 JCL 步骤。

//BIND EXEC PGM=IKJEFT01
//STEPLIB DD DSN=DIS.TEST.LOADLIB,DISP=SHR
//系统输出 DD 系统输出=*
//SYSTSIN DD *
DSN SYSTEM(TB3)
BIND PLAN(PLANA) -
PKLIST(PACKA) -
ACQUIRE(ALLOCATE)
/*

BIND 选项 ACQUIRE 将与 ALLOCATE 参数一起用于此目的。