COBOL parser

alex.shneer@verizon.com alex.shneer@verizon.com
Fri Dec 29 14:36:00 GMT 2000


Hi,
can somebody tell why COBOL parser is including surrounding quotes in the
function names?

"Symbol Browser" shows the following error when I'm selecting
"calling_procedure" or "called_procedure"
from the list of functions by clicking on the function icon.

==========================================================

list element in quotes followed by "(fu)" instead of space
    while executing
"lindex [$tree get $idx] 0"
    (proc "Retriever&@@expand_classes" body line 35)
    invoked from within
"expand_classes .multisymbr-1.symbr 10 24 display_contents"
    invoked from within
"Retriever& @@ expand_classes .multisymbr-1.symbr 10 24 display_contents"
    invoked from within
"Retriever& @@ expand_classes $this $x $y display_contents"
    (object ".multisymbr-1.symbr" method "Retr&@@handle_click" body line 2)
    invoked from within
".multisymbr-1.symbr handle_click 10 24"
    (command bound to event)

========================================================

Cross reference tool also shows error and refuses to recognize that
"called_procedure"
is refered by "calling_procedure"

There are examples of the procedures, each should be in a separate file:
========================================================
calling_procedure.cbl:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. "calling_procedure".
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       LINKAGE SECTION.
       PROCEDURE DIVISION.
       A-MAIN SECTION.
       A-00.
        CALL  "called_procedure".
       A-EXIT.
           EXIT.


========================================================
called_procedure.cbl

       IDENTIFICATION DIVISION.
       PROGRAM-ID. "called_procedure".
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       LINKAGE SECTION.
       PROCEDURE DIVISION.
       A-MAIN SECTION.
       A-00.
           PERFORM  B-INIT.
           PERFORM  Z-FINISH.
       A-EXIT.
           EXIT.

       B-INIT SECTION.
       B-00.
       B-EXIT.
           EXIT.
       Z-FINISH SECTION.
       Z-00.
       Z-EXIT.
           EXIT PROGRAM.

==========================================================




More information about the Sourcenav mailing list