diff options
Diffstat (limited to 'src/interfaces/ecpg/test/dyntest.pgc')
| -rw-r--r-- | src/interfaces/ecpg/test/dyntest.pgc | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/src/interfaces/ecpg/test/dyntest.pgc b/src/interfaces/ecpg/test/dyntest.pgc index 3698cf685f..f7c9ee4798 100644 --- a/src/interfaces/ecpg/test/dyntest.pgc +++ b/src/interfaces/ecpg/test/dyntest.pgc @@ -2,7 +2,7 @@ * * Copyright (c) 2000, Christof Petig <christof.petig@wtal.de> * - * $Header: /cvsroot/pgsql/src/interfaces/ecpg/test/Attic/dyntest.pgc,v 1.3 2000/02/22 19:57:12 meskes Exp $ + * $Header: /cvsroot/pgsql/src/interfaces/ecpg/test/Attic/dyntest.pgc,v 1.4 2000/02/23 19:26:04 meskes Exp $ */ #include <stdio.h> @@ -11,14 +11,16 @@ exec sql include sql3types; exec sql include sqlca; void error() -{ printf("#%d:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc); +{ + printf("\n#%d:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc); exit(1); } int main(int argc,char **argv) -{ exec sql begin declare section; +{ +exec sql begin declare section; int COUNT; - int INTVAR; + int INTVAR, BOOLVAR; int INDEX; int INDICATOR; int TYPE,LENGTH,OCTET_LENGTH,PRECISION,SCALE,NULLABLE,RETURNED_OCTET_LENGTH; @@ -28,10 +30,12 @@ int main(int argc,char **argv) float FLOATVAR; double DOUBLEVAR; char QUERY[1024]; - exec sql end declare section; +exec sql end declare section; int done=0; FILE *dbgs; + exec sql var BOOLVAR is bool; + if ((dbgs = fopen("log", "w")) != NULL) ECPGdebug(1, dbgs); @@ -67,14 +71,16 @@ int main(int argc,char **argv) :PRECISION = precision, :SCALE=scale, :NULLABLE=nullable, :NAME=name, :INDICATOR=indicator; - printf("%2d %s %d(%d)(%d,%d) %d,%d %d = " + printf("%2d\t%s (type: %d length: %d precision: %d scale: %d + \toctet_length: %d returned_octet_length: %d nullable: %d)\n\t= " ,INDEX,NAME,TYPE,LENGTH,PRECISION,SCALE ,OCTET_LENGTH,RETURNED_OCTET_LENGTH,NULLABLE); if (INDICATOR==-1) printf("NULL\n"); else switch (TYPE) - { case SQL3_BOOLEAN: - exec sql get descriptor MYDESC value :INDEX :INTVAR=data; - printf("%s\n",INTVAR?"true":"false"); + { + case SQL3_BOOLEAN: + exec sql get descriptor MYDESC value :INDEX :BOOLVAR=data; + printf("%s\n",BOOLVAR ? "true":"false"); break; case SQL3_NUMERIC: case SQL3_DECIMAL: |