summaryrefslogtreecommitdiff
path: root/src/interfaces/ecpg/test/test5.pgc
diff options
context:
space:
mode:
Diffstat (limited to 'src/interfaces/ecpg/test/test5.pgc')
-rw-r--r--src/interfaces/ecpg/test/test5.pgc109
1 files changed, 0 insertions, 109 deletions
diff --git a/src/interfaces/ecpg/test/test5.pgc b/src/interfaces/ecpg/test/test5.pgc
deleted file mode 100644
index 841b0e379fe..00000000000
--- a/src/interfaces/ecpg/test/test5.pgc
+++ /dev/null
@@ -1,109 +0,0 @@
-#include <stdio.h>
-#include <stdlib.h>
-
-EXEC SQL typedef long mmInteger;
-EXEC SQL typedef char mmChar;
-EXEC SQL typedef short mmSmallInt;
-
-EXEC SQL BEGIN DECLARE SECTION;
-struct TBempl
-{
- mmInteger idnum;
- mmChar name[21];
- mmSmallInt accs;
- mmChar byte[20];
-};
-EXEC SQL END DECLARE SECTION;
-
-int
-main (void)
-{
- EXEC SQL BEGIN DECLARE SECTION;
- struct TBempl empl;
- char *data = "\\001\\155\\000\\212";
- union
- {
- mmSmallInt accs;
- char t[2];
- } a;
- EXEC SQL END DECLARE SECTION;
- FILE *dbgs;
- int i;
-
- if ((dbgs = fopen ("log", "w")) != NULL)
- ECPGdebug (1, dbgs);
-
- empl.idnum = 1;
- EXEC SQL connect to mm;
- if (sqlca.sqlcode)
- {
- printf ("connect error = %ld\n", sqlca.sqlcode);
- exit (sqlca.sqlcode);
- }
-
- EXEC SQL create table empl
- (idnum integer, name char (20), accs smallint, byte bytea);
- if (sqlca.sqlcode)
- {
- printf ("create error = %ld\n", sqlca.sqlcode);
- exit (sqlca.sqlcode);
- }
-
- EXEC SQL insert into empl values (1, 'first user', 320,:data);
- if (sqlca.sqlcode)
- {
- printf ("insert error = %ld\n", sqlca.sqlcode);
- exit (sqlca.sqlcode);
- }
-
- EXEC SQL select name, accs, byte
- into :empl.name, :empl.accs, :empl.byte
- from empl
- where idnum =:empl.idnum;
- if (sqlca.sqlcode)
- {
- printf ("select error = %ld\n", sqlca.sqlcode);
- exit (sqlca.sqlcode);
- }
- printf ("name=%s, accs=%d byte=%s\n", empl.name, empl.accs, empl.byte);
-
- EXEC SQL DECLARE C CURSOR FOR select name, accs, byte from empl where idnum =:empl.idnum;
- EXEC SQL OPEN C;
- EXEC SQL FETCH C INTO:empl.name,:empl.accs,:empl.byte;
- if (sqlca.sqlcode)
- {
- printf ("fetch error = %ld\n", sqlca.sqlcode);
- exit (sqlca.sqlcode);
- }
-
- printf ("name=%s, accs=%d byte=%s\n", empl.name, empl.accs, empl.byte);
-
- memset(empl.name, 0, 21L);
- memset(empl.byte, '#', 20L);
- EXEC SQL DECLARE B BINARY CURSOR FOR select name, accs, byte from empl where idnum =:empl.idnum;
- EXEC SQL OPEN B;
- EXEC SQL FETCH B INTO :empl.name,:a.accs,:empl.byte;
- if (sqlca.sqlcode)
- {
- printf ("fetch error = %ld\n", sqlca.sqlcode);
- exit (sqlca.sqlcode);
- }
-
- EXEC SQL CLOSE B;
-
- i=a.t[0];
- a.t[0]=a.t[1];
- a.t[1]=i;
-
- printf ("name=%s, accs=%d byte=", empl.name, a.accs);
- for (i=0; i<20; i++)
- {
- if (empl.byte[i] == '#')
- break;
- printf("(%o)", (unsigned char)empl.byte[i]);
- }
- printf("\n");
- EXEC SQL disconnect;
- fclose (dbgs);
- exit (0);
-}