New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
GPRE Cobol Variable Problems [CORE217] #546
Comments
Commented by: Alice F. Bird (firebirds) Date: 2002-03-17 21:12 I have submitted the fix today. |
Commented by: @pcisar Reopened just to add attachment. |
Modified by: @pcisarstatus: Closed [ 6 ] => Reopened [ 4 ] SF_ID: 526204 => resolution: Fixed [ 1 ] => |
Commented by: @pcisar Source code to duplicate the problem |
Modified by: @pcisarAttachment: bug_code.zip [ 10095 ] |
Modified by: @pcisarstatus: Reopened [ 4 ] => Closed [ 6 ] resolution: Fixed [ 1 ] SF_ID: 526204 => |
Modified by: @pcisarWorkflow: jira [ 10241 ] => Firebird [ 14471 ] |
Modified by: @pavel-zotovQA Status: No test |
Modified by: @pavel-zotovstatus: Closed [ 6 ] => Closed [ 6 ] QA Status: No test => Cannot be tested |
Submitted by: andrewcza (andrewcza)
Assigned to: Frank Schlottmann-Goedde (fsg)
Attachments:
bug_code.zip
SFID: 526204#
Submitted By: andrewcza
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
The text was updated successfully, but these errors were encountered: