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

[Sergey Kashyrin]

Hi again.

Here is the issue:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ztest INITIAL.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A.
               10  FILLER              PIC X(78) VALUE '
      -        '
      -        '      '.
       PROCEDURE DIVISION.
           DISPLAY 'A=' A ';'.
           GOBACK.

 

G:\bank64\src\obj>cobc -x ztest4.cbl
ztest4.cbl:7: Error: syntax error, unexpected $end, expecting EXTERNAL or GLOBAL

 

G:\bank64\src\obj>cobol ztest4.cbl;
MERANT Micro Focus Net Express V3
Version 3.1.11 Copyright (C) 1984-2000 MERANT International Ltd.
URN AXCGG/AA0/00000
* Checking complete with no errors - starting code generation
* Generating ztest4
* Data:         800     Code:         688     Literals:         112

 

G:\bank64\src\obj>cbllink ztest4
Micro Focus Net Express - CBLLINK utility
Version 3.1.11 Copyright (C) 1984-2000 MERANT International Ltd.

 

Microsoft (R) Incremental Linker Version 7.10.3077
Copyright (C) Microsoft Corporation.  All rights reserved.

 

ztest4.obj
cbllds.obj
   Creating library ztest4.lib and object ztest4.exp

 

G:\bank64\src\obj>ztest4
A=
;