多字符特殊名称

Question

我刚刚在 SPECIAL-NAMES 段落下创建了一个 CLASS 包含多个字符作为条件：

SPECIAL-NAMES.
   CLASS TEST-CLASS IS SPACES, LOW-VALUES,
                       "#TT#", "#AA#", "#BB#",
                       "#ET#", "#CA#", "#DB#".

如果我进行比较会怎样？

示例：

如果以下字符串“#TT#ThisIsATest”在名为 TEST-VAR

的变量中

IF TESTVAR(1:4) IS TEST-CLASS AND
   TESTVAR  IS NOT TEST-CLASS
   do logic
END-IF

我需要知道前 4 个字符是否与 class 匹配。然后我需要查看是否有任何其他字符（前 4 个字符除外）不属于 class。

以这种方式使用 class 行得通吗？

Answer 1

这只是写意，但我想你明白了。

01  WORK-AREAS.
    05  TEST-VAR-DLIM-TEST PIC X(004).
        88  TEST-VAR-IS-DLIM VALUES
            SPACES 
            LOW-VALUES
            "#TT#" 
            "#AA#" 
            "#BB#"  
            "#ET#" 
            "#CA#" 
            "#DB#".

MOVE TEST-VAR(1:4) TO TEST-VAR-DLIM-TEST
IF TEST-VAR-IS-DLIM
    ...
END-IF

多字符特殊名称

Multi-charcter special names

cobol