esql:
@echo "Generating myingres.c from myingres.sc"
- $(NO_ECHO)$(II_SYSTEM)/ingres/bin/esqlcc -extension=c myingres.sc
+ $(NO_ECHO)$(II_SYSTEM)/ingres/bin/esqlcc -multi -extension=c myingres.sc
@echo "Generating myingres.h from myingres.sh"
$(NO_ECHO)$(II_SYSTEM)/ingres/bin/esqlcc -extension=h myingres.sh
#include <eqpname.h>
#include <eqdefcc.h>
#include <eqsqlca.h>
-extern IISQLCA sqlca; /* SQL Communications Area */
+IISQLCA *IIsqlca();
+#define sqlca (*(IIsqlca()))
#include <eqsqlda.h>
#include <stdlib.h>
#include <stdio.h>
/* # line 367 "myingres.sc" */ /* open */
{
IIsqInit(&sqlca);
- IIcsOpen((char *)"c2",11417,2807);
+ IIcsOpen((char *)"c2",19318,7414);
IIwritio(0,(short *)0,1,32,0,(char *)"s2");
- IIcsQuery((char *)"c2",11417,2807);
+ IIcsQuery((char *)"c2",19318,7414);
}
/* # line 368 "myingres.sc" */ /* host code */
if ((check = INGcheck()) < 0) {
/* # line 374 "myingres.sc" */ /* fetch */
{
IIsqInit(&sqlca);
- if (IIcsRetScroll((char *)"c2",11417,2807,-1,-1) != 0) {
+ if (IIcsRetScroll((char *)"c2",19318,7414,-1,-1) != 0) {
IIcsDaGet(0,desc);
IIcsERetrieve();
} /* IIcsRetrieve */
/* # line 394 "myingres.sc" */ /* close */
{
IIsqInit(&sqlca);
- IIcsClose((char *)"c2",11417,2807);
+ IIcsClose((char *)"c2",19318,7414);
}
/* # line 396 "myingres.sc" */ /* host code */
ing_res->status = ING_COMMAND_OK;