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

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

  •  1
  • 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
    
    1 回复  |  直到 2 年前
        1
  •  0
  •   Andru Luvisi    2 年前

    LENGTH OF不是一个函数,它是一个特殊的寄存器。试着去掉CUST-FIRST-NAME周围的括号。