Question

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

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

如果我做比较会怎么样？

示例：

如果以下字符串＆＃34; #TT＃ThisIsATest＆＃34;在一个名为TEST-VAR

的变量中

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

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

以这种方式使用这个类会起作用吗？

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

多字符特殊名称

1 个答案: