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

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

cobol field syntax-error parsing

Andy · 技术社区 · 2 年前

我在下面的MOVE语句中收到了一个PARSE ERROR,由注释指示。我尝试了各种各样的改变,但我看不出哪里出了问题。我是COBOL的新手。很抱歉代码的格式太糟糕了。使用RainCode COBOL编译器。提前感谢您的帮助。

LOCAL-STORAGE SECTION

01  CUSTOMER-RECORD.

     05 CUST-FIRST-NAME          PIC X(26).
     05 CUST-LAST-NAME           PIC X(26).
01 MYLENGTH PIC 9(3) COMP VALUE ZEROES.

DISPLAY-CUSTOMER-RECORD SECTION.
      
INSPECT CUST-FIRST-NAME TALLYING TRAILING-BLANKS FOR 
      TRAILING SPACES.
      MOVE ZEROES TO MYLENGTH.
      MOVE LENGTH OF (CUST-FIRST-NAME) TO MYLENGTH.  *> Receives PARSE ERROR