Re: [open-cobol-list] cobxref with the 2.0 version?

[Michael D. Setzer II]

On 26 Oct 2013 at 2:26, Brian Tiffin wrote:

Date sent:              Sat, 26 Oct 2013 02:26:06 -0400
Subject:                Re: [open-cobol-list] cobxref with the 2.0 version?
From:                   Brian Tiffin <address@hidden>
To:                     "Michael D. Setzer II" 
<address@hidden>
Copies to:              address@hidden

> Sorry Micheal;   Vince keeps a project on SourceForge.
> http://sourceforge.net/projects/cobxref/
> 
> Should be good to go from there.
> 
> I'll mention it in the GNU Cobol FAQ.
> 
> Cheers,
> Brian
> 

Just as an update. I have gotten my setup working, but am using 
the cobxref compiled with the 1.1 version of the OC. Just had to 
change the script to use the -Xref option instead of the -t option 
before, and it seems to work fine. 

Intrinsic word table was successfully updated
Reserve word table was successfully updated
Xref v1.01.07
Copyright (c) 1967-2013 Vincent Bryan Coen
 
Parameters are
 
1: Source File name (Mandatory)
2: -R    Do NOT print out source code prior to xref listings in cobc 
free form
3: -L    reports in lowercase else upper
4: -TEST produces testing info (for programmers use only)
5: -DR   Display All reserved words & stop
6: -G    produce only group xref: Comp. MF
7: -H    Display this help message
   --H   as -H

The same code compiled with the 2.x version is giving an error.
cobxref.cbl: In section 'ba000-Process-WS':
cobxref.cbl: In paragraph 'ba020-GetAWord':
cobxref.cbl: 1571: Error: Invalid MOVE statement

The error is about moving high-values to a numeric variable.

Lines with the Global-Current-Level variable are:

   231   77  Global-Current-Level  pic 99          value zero.
  1568                move zero to Global-Current-Level  *> Global 
only
  1571                move high-values to Global-Current-Level.
  1602           and  (Global-Current-Level = high-values
  1605                move 1 to Global-Current-Level.
  1726        if      Global-Current-Level not = high-values
  3306       if       Global-Current-Level = high-values

There only seem to be 3 values used, zero, 1 and high-values, so 
I tired changing these high-values to 99 and it would compile, but 
the results didn't work in making a listing. 

So, not clear on why the code that works with the 1.1 isn't working 
with the 2.x on this?

+----------------------------------------------------------+
  Michael D. Setzer II -  Computer Science Instructor      
  Guam Community College  Computer Center                  
  mailto:address@hidden                            
  mailto:address@hidden
  http://www.guam.net/home/mikes
  Guam - Where America's Day Begins                        
  G4L Disk Imaging Project maintainer 
  http://sourceforge.net/projects/g4l/
+----------------------------------------------------------+

http://setiathome.berkeley.edu (Original)
Number of Seti Units Returned:  19,471
Processing time:  32 years, 290 days, 12 hours, 58 minutes
(Total Hours: 287,489)

address@hidden CREDITS
ROSETTA      8934597.939140   |   SETI        16495587.652793
ABC         16388182.274044   |   EINSTEIN    13928979.969852