[Firebird-checkins] CVS: interbase/gpre cob.c,1.4,1.5

[Patrick J. P. G. <pat...@us...>]

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");
  }