COBOL中带可选WHERE条件的SQL查询及参数赋值方案问询

1. 调整SQL查询逻辑（推荐方案） #

因为无法动态拼接WHERE子句，最可靠的方式是修改原查询的条件，让参数为空时自动跳过对应过滤规则：

SELECT * 
FROM TABLE
WHERE (Field1 = :VAL1 OR :VAL1 IS NULL)
AND (Field2 = :VAL2 OR :VAL2 IS NULL)

• 当表单字段为空时，把对应的参数设为NULL，该字段的条件会自动变为OR TRUE，不对数据做过滤；
• 当表单字段有值时，正常赋值给参数，按等于逻辑过滤数据。

2. COBOL中传递NULL参数的实现 #

COBOL需要通过指示变量来向数据库传递NULL值：

• 先定义宿主变量和对应的指示变量：

01  WS-QUERY-PARMS.
    05  VAL1        PIC X(10).  // 对应Field1的参数
    05  IND1        PIC S9(4) COMP.  // VAL1的指示变量
    05  VAL2        PIC X(20).  // 对应Field2的参数
    05  IND2        PIC S9(4) COMP.  // VAL2的指示变量

• 赋值规则：
  • 若表单字段为空：将对应指示变量设为-1（标记参数为NULL），VAL变量无需赋值；
  • 若表单字段有值：将指示变量设为0，同时把字段内容赋值给对应的VAL变量。

3. 特殊场景的替代方案 #

如果完全无法修改原SQL语句，只能通过设置VAL值实现全量查询的话，这种方式依赖数据库特性且局限性大：

• 仅适用于字符类型字段：将VAL1/VAL2设为数据库的全匹配通配符（如'%'），同时把原SQL的=改为LIKE（但这本质还是修改了SQL）；
• 若必须保留=操作符，没有通用值能匹配所有行的字段值，因此这种场景下必须调整WHERE子句逻辑。

内容的提问来源于stack exchange，提问作者Ahmed SEDDIK