Update of /cvsroot/firebird/interbase/gpre
In directory usw-pr-cvs1:/tmp/cvs-serv6414/interbase/gpre
Modified Files:
cob.c
Log Message:
COBOL programs randomly return a -901 request synchronization error.
Alternate title: COBOL programs lose SQLCODE values during UPDATE.
During 'UPDATE SET ... WHERE x=.. ' ('Mass Update') error codes returned by the update are not returned to the program, instead the program will see a -901 request synchronization error.
It appears that the other language modules do not have this same problem.
...pat
Index: cob.c
===================================================================
RCS file: /cvsroot/firebird/interbase/gpre/cob.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** cob.c 2000/10/13 06:02:10 1.4
--- cob.c 2001/01/06 15:36:35 1.5
***************
*** 3612,3615 ****
--- 3612,3616 ----
gen_s_start (action);
request = action->act_request;
+ printa (names [COLUMN], FALSE, "IF SQLCODE = 0 THEN");
port = request->req_primary;
gen_receive (action, port);
***************
*** 3617,3620 ****
--- 3618,3622 ----
printa (names [COLUMN], FALSE, "IF SQLCODE = 0 AND %s = 0 THEN ", name);
printa (names [COLUMN], FALSE, "MOVE 100 TO SQLCODE");
+ printa (names [COLUMN], FALSE, "END-IF");
printa (names [COLUMN], FALSE, "END-IF");
}
|
