代码之家 › 专栏 › 技术社区 › crchin

除INTO或VALUES子句外,不能使用组项

cobol oracle sql

crchin · 技术社区 · 14 年前

这个sql看起来不错,但在编译过程中出错。。

SELECT COUNT(*)
INTO :W9-TOT-TRXN
FROM IRC02
WHERE SUBSTR(P9_IRC_PST_DT,1,6) = :Ws-DATE-YM
AND F9_IRC_FI = :W9-FI-PARAM
AND P9_IRC_PRIN_CRN = :F9-IR025-CRN
AND F9_IRC_LOC_ACCT = :F9-IR025-LOC-ACCT

错误消息如下:

文件RCCO.cbl中第757行第60列出现错误

                    WHERE SUBSTR(P9_IRC_PST_DT,1,6) = :Ws-DATE-YM

PCB--00204,除INTO或VALUES子句外,不能使用组项

01 Ws-DATE-YMD.
03 Ws-DATE-YM.
   05 W9-DATE-YY      PIC 9(04) VALUE ZEROES.
   05 W9-DATE-MM      PIC 9(02) VALUE ZEROES.
03 W9-DATE-DD         PIC 9(02) VALUE ZEROES.

知道吗?谢谢:)

2 回复 | 直到 14 年前

y.chraibi 14 年前

您也可以使用REDEFINES来避免添加MOVE语句:

03 Ws-DATE-YM.
   05 W9-DATE-YY      PIC 9(04) VALUE ZEROES.
   05 W9-DATE-MM      PIC 9(02) VALUE ZEROES.
03 Wx-DT-YM PIC 9(6) REDEFINES Ws-DATE-YM.

Alex Poole 14 年前

Group items cannot be used as host variables in the where clause 正如错误所说。您需要单独参考基本项目,例如:

SELECT COUNT(*)
INTO :W9-TOT-TRXN
FROM IRC02
WHERE SUBSTR(P9_IRC_PST_DT,1,4) = :Ws-DATE-YM.W9-DATE-YY
AND SUBSTR(P9_IRC_PST_DT,5,2) = :Ws-DATE-YM.W9-DATE-MM
AND F9_IRC_FI = :W9-FI-PARAM
AND P9_IRC_PRIN_CRN = :F9-IR025-CRN
AND F9_IRC_LOC_ACCT = :F9-IR025-LOC-ACCT

或者更具表演性:

WHERE SUBSTR(P9_IRC_PST_DT,1,6) = :Ws-DATE-YM.W9-DATE-YY || :Ws-DATE-YM.W9-DATE-MM

尽管我是从医生那里而不是从经验中得出的,所以这是完全未经测试的;也不确定是否需要包括家长 Ws-DATE-YMD 在这两个部分之前,或者它的一个层次会很高兴。

推荐文章

Andy · 将LENGTH OF移动到COMP字段解析失败

2 年前

sunleo · 这是否可以使用java将EBCDIC Comp-3文件转换为ASCII文件值?

9 年前

Bruce Martin · 如何为Cobol copybook生成java~jrecord代码

9 年前

SaggingRufus · 是否需要在我的JCL中指定所有文件?

9 年前

JOHN · 如何解决CICS中的PROG753错误?

10 年前

MC Emperor · 如何处理作为CALL语句参数的文字?

10 年前

Lena · 将字母转换为包含数字的字符串中的数字

10 年前

Sridhar · 用于cobol显示和解包数字字段的Java映射

11 年前

raz_user · 由尾随空格分隔的Cobol字符串

11 年前

Benjer · 有没有一种方法可以用现代Cobol写评论?[副本]

11 年前