如何实现一个COBOL-DB2程序PROGA，当PROGA加载到内存中并准备执行时，该程序将在表TA上获得锁定？

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

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

• 当程序加载到主存储器中并且可以执行时。它获取程序中SQL语句中使用的所有DB2表的锁。

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

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

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