[Firebird-devel] [ firebird-Bugs-526204 ] GPRE Cobol Variable Problems

[<no...@so...>]

Bugs item #526204, was opened at 2002-03-06 01:40
You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=109028&aid=526204&group_id=9028

Category: GPRE
Group: Confirmed Bug
Status: Open
>Resolution: Fixed
Priority: 5
Submitted By: Andrew Paul Cameron (andrewcza)
Assigned to: Frank Schlottmann-Goedde (fsg)
Summary: GPRE Cobol Variable Problems

Initial Comment:
When using gpre with cobol Gpre does not always 
generate the correct variable declarations.

I have attached a zip file with sample code to 
duplicate and show the problem.

The Zip file contains
 esql.create.ecob  (The ESQL Cobol Source)
 esql.create.ecob.cbl (The Generated code from GPRE)
 esql.insert.ecob   (The EQSL Cobol Source)
 esql.insert.ecob.cbl  (The Generated code from GPRE)

To Duplicate the problem run gpre as follows
gpre -co esql.create.ecob
This will Generate esql.create.ecob.cbl
Problem 1)
  edit esql.create.ecob.cbl
Line 26 reads as follows
01  isc_1db PIC X(8) VALUE IS "demo.gdb".
But in Line 77 It is called as follows
-     BY REFERENCE isc-1db, BY REFERENCE 
gds__database, BY VALUE 10,

The problem is that isc-1db is NOT the same as isc_1db 
and gpre needs to be fixed to resolve this problem.
As a Temporary work around in My cobol Program I am 
currently doing a redefine.

Problem 2)
Create a database called demo.gdb with a table called 
FRIEND
CREATE TABLE FRIEND(
                                        FIRSTNAME  CHAR
(15),
                                        LASTNAME   CHAR
(20),
                                        CITY       CHAR
(15),
                                        STATE      CHAR
(2),
                                        AGE        
INTEGER);

Then run gpre as follows
gpre -co -d demo.gdb esql.insert.ecob
This will generate esql.insert.ecob.cbl
edit esql.insert.ecob.cbl
Line 130 Reads as follows
-     BY REFERENCE gds__trans, BY VALUE 1
Line 140 Reads as follows
     IF gds__trans NOT = 0 AND gds__0 NOT = 0 THEN
Line 142 Reads as follows
-     BY REFERENCE gds__trans, BY VALUE 0
The problem is that gds__trans is not defined anywhere.
I got around this in my Cobol program by adding a 
refedine for ISC_TRANS 
This problem also need to fixed.

Regards
Andrew Cameron


----------------------------------------------------------------------

>Comment By: Frank Schlottmann-Goedde (fsg)
Date: 2002-03-17 21:12

Message:
Logged In: YES 
user_id=70223

I have submitted the fix today.


----------------------------------------------------------------------

You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=109028&aid=526204&group_id=9028