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

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

Update of /cvsroot/firebird/interbase/gpre
In directory slayer.i.sourceforge.net:/tmp/cvs-serv12540/interbase/gpre

Modified Files:
	cob.c 
Log Message:
10/13/2000

GPRE can create incorrect COBOL programs if EXEC SQL is 
enclosed in an IF statement terminated with '.'.


...pat



Index: cob.c
===================================================================
RCS file: /cvsroot/firebird/interbase/gpre/cob.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** cob.c	2000/10/12 02:52:17	1.3
--- cob.c	2000/10/13 06:02:10	1.4
***************
*** 3616,3620 ****
  gen_name (name, port->por_references, TRUE);
  printa (names [COLUMN], FALSE, "IF SQLCODE = 0 AND %s = 0 THEN ", name);
! printa (names [COLUMN], FALSE, "MOVE 100 TO SQLCODE.");
  }
  
--- 3616,3621 ----
  gen_name (name, port->por_references, TRUE);
  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");
  }