我刚刚在CLASS段落下创建了一个SPECIAL-NAMES,其中包含多个字符作为标准:
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个字符是否与全班匹配。然后,我需要看看是否还有其他字符(前4除外)不是类的一部分。
以这种方式使用这个类有用吗?
发布于 2016-11-09 18:04:56
这只是白手起家,但我想你明白了。
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-IFhttps://stackoverflow.com/questions/40510970
复制相似问题