IDS Forum

Re: SUBSCRIPT of a CHAR column gives error -201

Posted By: John Miller iii
Date: Monday, 23 November 2009, at 12:09 p.m.

In Response To: Re: SUBSCRIPT of a CHAR column gives error -201 (PRADEEP KUMAR)

I have never tried it with host variables in the array position, but I have
used
the substr( source string, start position , [ length] )

John F. Miller III
STSM, Support Architect
miller3@us.ibm.com
503-578-5645
IBM Informix Dynamic Server (IDS)

ids-bounces@iiug.org wrote on 11/23/2009 07:51:16 AM:

> [image removed]
>
> Re: SUBSCRIPT of a CHAR column gives error -201 [18182]
>
> PRADEEP KUMAR
>
> to:
>
> ids
>
> 11/23/2009 07:53 AM
>
> Sent by:
>
> ids-bounces@iiug.org
>
> Please respond to ids
>
> Hi Art,
> Thanks for your response.
>
> I'm not using the colon but using ? to pass the parameter, sorry for the
> confusion .
>
> Below is the sample code which works fine when I use TEXT coulmn and
gives
> error with CHAR:
>
> /*
>
***************************************************************************

> *
>
****************************************************************************

> */
> #include <stdio.h>
> #include <stdlib.h>
> #include <conio.h>
> #include <windows.h>
> #include <sqltypes.h>
> #include <sys/timeb.h>
> #include <time.h>
> void InfConnect();
> void InfDisConnect();
> int InfBulkInsert(int nRows);
> int InfInsertSingle(int nRows);
> EXEC SQL define FNAME_LEN 15;
> EXEC SQL define LNAME_LEN 15;
> EXEC SQL BEGIN DECLARE SECTION;
>
> char dbname[100];
>
> char user[100];
>
> char password[100];
> EXEC SQL END DECLARE SECTION;
> /*
>
***************************************************************************

> */
> int main(int argc, char *argv[])
> {
> strcpy(dbname, argv[1]);
> strcpy(user, argv[2]);
> strcpy(password, argv[3]);
> InfConnect();
> InfInsertSingle(1);
> InfDisConnect();
> return 0;
> }
> /*
>
***************************************************************************

> */
> void InfDisConnect()
> {
>
> EXEC SQL disconnect current;
>
> printf("\nselect_bind demo program complete.\n\n");
> return;
> }
> /*
>
***************************************************************************

> */
> void InfConnect()
> {
>
> printf("\nselect_bind demo ESQL program running.\n\n");
>
> EXEC SQL WHENEVER ERROR STOP;
>
> EXEC SQL connect to :dbname user :user using :password;
>
> return;
> }
> /*
>
***************************************************************************

> */
> int InfInsertSingle(int nRows)
> {
> EXEC SQL BEGIN DECLARE SECTION;
>
> char stmt[1024] = "SELECT TABNAME[?,4] from 'informix'.systables where
> tabid=?";
>
> int id = 0, i=0;
>
> int sqld = 1;
>
> char StatementID[11]="TESTStmtID";
>
> char CursorID[11]="CursorID1";
>
> struct sqlda *da_ptr;
>
> struct sqlda ParmDA;
>
> struct sqlda *pParmDA;
>
> struct sqlvar_struct *col_ptr;
>
> struct sqlda FetchDA;
>
> struct sqlda *lpFetchDA;
> EXEC SQL END DECLARE SECTION;
> EXEC SQL BEGIN;
>
> EXEC SQL PREPARE :StatementID from :stmt;
>
> printf("EXEC SQL PREPARE :StatementID from :stmt\n");
>
> EXEC SQL DESCRIBE :StatementID into da_ptr;
>
> printf("EXEC SQL DESCRIBE :StatementID into da_ptr\n");
>
> ParmDA.sqlvar = (struct sqlvar_struct *) malloc( sqld * sizeof
> (struct sqlda));
>
> memcpy(&FetchDA, da_ptr, sizeof(struct sqlda));
>
> FetchDA.sqlvar = (struct sqlvar_struct*) malloc(da_ptr->sqld * sizeof
(struct
> sqlvar_struct));
>
> memcpy(FetchDA.sqlvar, da_ptr->sqlvar, sizeof(struct sqlvar_struct) *
> da_ptr->sqld);
>
> col_ptr = FetchDA.sqlvar;
>
> col_ptr->sqltype = CCHARTYPE;
>
> col_ptr->sqllen = 255;
>
> col_ptr->sqldata = (char *) malloc(col_ptr->sqllen * 1);
>
> lpFetchDA = &FetchDA;
>
> EXEC SQL DECLARE :CursorID CURSOR FOR :StatementID;
>
> printf("EXEC SQL DECLARE :CursorID CURSOR FOR :StatementID; %d columns
\n",
> da_ptr->sqld);
>
> for (id = 2000; id < 2002 + nRows; id++)
>
> {
>
> ParmDA.sqld = sqld;
>
> for( i = 0; i<sqld; i++)
>
> {
>
> ParmDA.sqlvar[i].sqlname = NULL;
>
> ParmDA.sqlvar[i].sqlformat = NULL;
>
> ParmDA.sqlvar[i].sqlitype = 0;
>
> ParmDA.sqlvar[i].sqlilen = 0;
>
> ParmDA.sqlvar[i].sqlidata = NULL;
>
> ParmDA.sqlvar[i].sqlind = NULL;
>
> ParmDA.sqlvar[i].sqltype = CINTTYPE;
>
> ParmDA.sqlvar[i].sqldata = (char*)&id;
>
> pParmDA = &ParmDA;
>
> printf("EXEC SQL OPEN :CursorID USING DESCRIPTOR pParmDA\n");
>
> EXEC SQL OPEN :CursorID USING DESCRIPTOR pParmDA;
>
> EXEC SQL FETCH :CursorID USING DESCRIPTOR lpFetchDA;
>
> printf("EXEC SQL FETCH :CursorID USING DESCRIPTOR lpFetchDA\n");
>
> printf("Data : %s\n", lpFetchDA->sqlvar[i].sqldata);
>
> // EXEC SQL EXECUTE :StatementID USING DESCRIPTOR pParmDA;
>
> }
>
> }
>
> if (strncmp(SQLSTATE, "02", 2) != 0)
>
> printf("SQLSTATE after fetch is %s\n", SQLSTATE);
> EXEC SQL commit;
>
> return 0;
> }
> /*
>
***************************************************************************

> */
>
> Appreciate any help .
>
>
>
*******************************************************************************

> Forum Note: Use "Reply" to post a response in the discussion forum.
>

Messages In This Thread

• SUBSCRIPT of a CHAR column gives error -201
  PRADEEP KUMAR -- Monday, 23 November 2009, at 1:57 a.m.
  • Re: SUBSCRIPT of a CHAR column gives error -201
    Art Kagel -- Monday, 23 November 2009, at 9:45 a.m.
    • Re: SUBSCRIPT of a CHAR column gives error -201
      PRADEEP KUMAR -- Monday, 23 November 2009, at 10:51 a.m.
      • Re: SUBSCRIPT of a CHAR column gives error -201
        John Miller iii -- Monday, 23 November 2009, at 12:09 p.m.
      • Re: SUBSCRIPT of a CHAR column gives error -201
        Art Kagel -- Monday, 23 November 2009, at 6:22 p.m.
        • Re: SUBSCRIPT of a CHAR column gives error -201
          PRADEEP KUMAR -- Monday, 23 November 2009, at 11:55 p.m.

IDS Forum is maintained by Administrator with WebBBS 5.12.