在程序中进行非SQL更改时,如果未进行BIND,执行结果是什么?


问题:一个 COBOL-DB2 程序修改了变量长度,从 PIC X(5) 增加到 PIC X(8)。但是,程序的 SQL 部分没有变化。如果程序的计划/包没有针对这些更改进行绑定,结果会怎样?

解决方案

变量长度从 PIC X(5) 更改为 PIC X(8) 不是 DB2 更改,程序中的 SQL 语句不需要修改。但是,我们仍然需要绑定其计划/包,否则我们将得到 SQL 错误代码 -818,该代码表示“加载模块中的预编译器生成的 TIMESTAMP x 与从 DBRM z 生成的绑定 TIMESTAMP y 不同”。

此 SQL 错误的原因如下:在每次执行 COBOL-DB2 程序时,都会比较加载模块和包/DBRM 的时间戳。如果程序中变量的长度发生变化(并且没有 SQL 更改)并且已编译,则加载模块将具有新生成的时间戳,而如果未执行 BIND,则包/DBRM 将具有旧的时间戳。当执行此程序时,调用此程序的 JCL 步骤将以 SQL 错误代码 -818 失败。

如果我们有一个 COBOL-DB2 程序,其 SQL 语句将来永远不会更改,我们可以使用 LEVEL 选项预编译此程序。以下是使用 LEVEL 选项的 BIND 步骤示例。

示例

//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) -
LEVEL -
ACQUIRE(ALLOCATE) -
ISOLATION (RS)
/*

更新于:2020年12月1日

191 次查看

启动您的职业生涯

完成课程获得认证

开始
广告