[open-cobol-list] OC issues - number 7

[Sergey Kashyrin]

the next one looks like bug.

 

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ztest INITIAL.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  T     COMP.
           05 MENU-AREA-LEN         PIC S9(04)  VALUE   +5.
           05 COMMAREA-LEN          PIC S9(04)  VALUE  +58.
           05 LCTABL-RECLEN         PIC S9(4)   VALUE +255.
           05 LCTABL-KEYLEN         PIC S9(4)   VALUE  +16.
           05 CA-DATE-AREA-LENGTH   PIC S9(4)   VALUE  +65.
       01  L PIC S9(4) COMP.
       PROCEDURE DIVISION.
           MOVE LENGTH OF T TO L.
           DISPLAY 'LEN=' L.
           GOBACK.

G:\bank64\src\obj>cobc -x -std=ibm ztest7.cbl
ztest7.cbl:6: Error: 'T' binary field cannot be larger than 18 digits