TLA  Line data    Source code

       1                 : #include <stdio.h>
       2                 : #include <stdlib.h>
       3                 : 
       4                 : EXEC SQL include ../regression;
       5                 : 
       6                 : EXEC SQL BEGIN DECLARE SECTION;
       7                 : struct TBempl
       8                 : {
       9                 :   long idnum;
      10                 :   char name[21];
      11                 :   short accs;
      12                 :   char byte[20];
      13                 : };
      14                 : EXEC SQL END DECLARE SECTION;
      15                 : 
      16                 : EXEC SQL WHENEVER SQLERROR STOP;
      17                 : 
      18                 : int
      19 CBC           1 : main (void)
      20                 : {
      21                 :   EXEC SQL BEGIN DECLARE SECTION;
      22                 :   struct TBempl empl;
      23               1 :   char *pointer = NULL;
      24               1 :   char *data = "\\001\\155\\000\\212";
      25                 :   EXEC SQL END DECLARE SECTION;
      26                 :   int i;
      27                 : 
      28               1 :   ECPGdebug (1, stderr);
      29                 : 
      30               1 :   empl.idnum = 1;
      31               1 :   EXEC SQL connect to REGRESSDB1;
      32               1 :   EXEC SQL set bytea_output = escape;
      33               1 :   EXEC SQL create table empl
      34                 :     (idnum integer, name char (20), accs smallint, byte bytea);
      35               1 :   EXEC SQL insert into empl values (1, 'first user', 320, :data);
      36               1 :   EXEC SQL DECLARE C CURSOR FOR select name, accs, byte from empl where idnum =:empl.idnum;
      37               1 :   EXEC SQL OPEN C;
      38               1 :   EXEC SQL FETCH C INTO:empl.name,:empl.accs,:empl.byte;
      39               1 :   printf ("name=%s, accs=%d byte=%s\n", empl.name, empl.accs, empl.byte);
      40                 : 
      41               1 :   EXEC SQL CLOSE C;
      42               1 : 
      43               1 :   memset(empl.name, 0, 21L);
      44               1 :   EXEC SQL DECLARE B BINARY CURSOR FOR select name, accs, byte from empl where idnum =:empl.idnum;
      45               1 :   EXEC SQL OPEN B;
      46               1 :   EXEC SQL FETCH B INTO :empl.name,:empl.accs,:empl.byte;
      47               1 :   EXEC SQL CLOSE B;
      48               1 : 
      49                 :   /* do not print a.accs because big/little endian will have different outputs here */
      50               1 :   printf ("name=%s, byte=", empl.name);
      51               5 :   for (i=0; i<4; i++)
      52               4 :     printf("(%o)", (unsigned char)empl.byte[i]);
      53               1 :   printf("\n");
      54                 : 
      55               1 :   EXEC SQL DECLARE A BINARY CURSOR FOR select byte from empl where idnum =:empl.idnum;
      56               1 :   EXEC SQL OPEN A;
      57               1 :   EXEC SQL FETCH A INTO :pointer;
      58               1 :   EXEC SQL CLOSE A;
      59               1 : 
      60               1 :   if (pointer) {
      61               1 :     printf ("pointer=");
      62               5 :     for (i=0; i<4; i++)
      63               4 :         printf("(%o)", (unsigned char)pointer[i]);
      64               1 :     printf("\n");
      65               1 :     free(pointer);
      66                 :   }
      67                 : 
      68               1 :   EXEC SQL disconnect;
      69               1 :   exit (0);
      70                 : }