[orca-dev:00384] Re: [PANDA]COBOL/COMPUTE 式にて、 A+B/C とすると syntax エラー

[ichikawa kayoko <kayoko@xxxxxxxxx>]

すいません、また手落ちがありました。；
おごしさんに御指摘いただきました。
大変ありがとうございました。

> かきわすれました。
> C、CH、CMの型は全て
>  PIC S9(12)V9(3)
> です。
定義も書き忘れていました。
--------------------------------------------------
       WORKING-STORAGE         SECTION.
       01  filejdg      PIC XX.
       01  WRK.
           02  WRK-BUFF    PIC X(30).
       01  I           PIC S9(9)   BINARY.
       01  J           PIC S9(9)   BINARY.
       01 WK-DATE.
          03 WK-YYMMDD         PIC 9(06) VALUE ZERO.
          03 WK-HHMMSSSS       PIC 9(08) VALUE ZERO.
       01 MY.
          03 MYDATE-MAX        PIC 99.
       01 A                           PIC X(15). 
      * ８時間かどうか計算用 ****************************
       01 CH                          PIC S9(12)V9(3).
       01 CM                          PIC S9(12)V9(3).
       01 CS                          PIC S9(12)V9(3).
       01 C                           PIC S9(12)V9(3).
       01 BH                          PIC S9(12)V9(3).
       01 BM                          PIC S9(12)V9(3).
       01 BS                          PIC S9(12)V9(3).
       01 B                           PIC S9(12)V9(3).
      * 合計出勤時間
       01 GT                          PIC 9(5).
       01 GTALL                       PIC 9(5).
      * 合計残業時間
       01 ST                          PIC 9(5).
       01 STALL                       PIC 9(5).

      ***************************************************
       01 JSW                         PIC 9.

       COPY    ENUM-VALUE.
       COPY    DB-META.
       COPY    DBPATH.
       COPY    DB-HELLOWS.
       COPY    DB-MYUSERS.
       COPY    DB-SHELLS.
       LINKAGE                 SECTION.
       COPY    MCPAREA.
       COPY    SPAAREA.
       COPY    SCRAREA.
       COPY    LINKAREA.
------------------------------------------------------
(上記の略↓)
------------------------------------------------------
       WORKING-STORAGE         SECTION.
       01 CH                          PIC S9(12)V9(3).
       01 CM                          PIC S9(12)V9(3).
       01 CS                          PIC S9(12)V9(3).
       01 C                           PIC S9(12)V9(3).
-------------------------------------------------------
定義は以上の通りです。
CH、CM、CS、CにCOPY句は使っておらず、
全てWORKING-STORAGE  SECTIONの01になっています。

ばたばたしていてすいません；