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