在程序中进行非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) /*
广告