void Connect(const char *szbase)
{
	EXEC SQL BEGIN DECLARE SECTION;
    char database[ 9 ];
	EXEC SQL END DECLARE SECTION;
    strncpy(database, szbase,sizeof(database));
	database[sizeof(database)- 1 ] = '\0';

  EXEC SQL CONNECT TO :database;
  	sqlca.sqlerrmc[ 69 ] = '\0';

  if(SQLCODE< 0 )
  {
    throw SQLException( "Connect:" , SQLCODE, sqlca.sqlerrmc);
  }
}


void Connect(const char *szbase, const char *szuser, const char *szpwd)
{
  EXEC SQL BEGIN DECLARE SECTION;
    char szXbase[ 9 ];
    char szXuser[ 30 ];
    char szXpwd  [ 30 ];
  EXEC SQL END DECLARE SECTION;

	strncpy(szXbase, szbase,sizeof(szXbase));
	szXbase[sizeof(szXbase)- 1 ] = '\0';
	strcpy (szXuser, szuser);
    strcpy (szXpwd , szpwd);
  EXEC SQL CONNECT TO :szXbase USER :szXuser USING :szXpwd;
  	sqlca.sqlerrmc[ 69 ] = '\0';

  if(SQLCODE< 0 )
  {
    throw SQLException( "Connect:" , SQLCODE, sqlca.sqlerrmc);
  }
}

void     IBMSNAP_SUBS_MEMBR::fetch(void)
{
  EXEC SQL BEGIN DECLARE SECTION;
    char     IBMSNAP_SUBS_MEMBR_APPLY_QUAL[ 19 ];
    short int IBMSNAP_SUBS_MEMBR_apply_qual;
    char     IBMSNAP_SUBS_MEMBR_SET_NAME[ 19 ];
    short int IBMSNAP_SUBS_MEMBR_set_name;
    char     IBMSNAP_SUBS_MEMBR_WHOS_ON_FIRST[ 2 ];
    short int IBMSNAP_SUBS_MEMBR_whos_on_first;
    char     IBMSNAP_SUBS_MEMBR_SOURCE_OWNER[ 19 ];
    short int IBMSNAP_SUBS_MEMBR_source_owner;
    char     IBMSNAP_SUBS_MEMBR_SOURCE_TABLE[ 19 ];
    short int IBMSNAP_SUBS_MEMBR_source_table;
    short int IBMSNAP_SUBS_MEMBR_SOURCE_VIEW_QUAL;
    short int IBMSNAP_SUBS_MEMBR_source_view_qual;
    char     IBMSNAP_SUBS_MEMBR_TARGET_OWNER[ 19 ];
    short int IBMSNAP_SUBS_MEMBR_target_owner;
    char     IBMSNAP_SUBS_MEMBR_TARGET_TABLE[ 19 ];
    short int IBMSNAP_SUBS_MEMBR_target_table;
    char     IBMSNAP_SUBS_MEMBR_TARGET_CONDENSED[ 2 ];
    short int IBMSNAP_SUBS_MEMBR_target_condensed;
    char     IBMSNAP_SUBS_MEMBR_TARGET_COMPLETE[ 2 ];
    short int IBMSNAP_SUBS_MEMBR_target_complete;
    short int IBMSNAP_SUBS_MEMBR_TARGET_STRUCTURE;
    short int IBMSNAP_SUBS_MEMBR_target_structure;
//    struct
//          {
//          short int length;
//          char     IBMSNAP_SUBS_MEMBR_PREDICATES[ 512 ];
//          }        IBMSNAP_SUBS_MEMBR_PREDICATES;
//    short int IBMSNAP_SUBS_MEMBR_predicates;
  EXEC SQL END DECLARE SECTION;
  EXEC SQL FETCH IBMSNAP_SUBS_MEMBR INTO
    :IBMSNAP_SUBS_MEMBR_APPLY_QUAL :IBMSNAP_SUBS_MEMBR_apply_qual,
    :IBMSNAP_SUBS_MEMBR_SET_NAME :IBMSNAP_SUBS_MEMBR_set_name,
    :IBMSNAP_SUBS_MEMBR_WHOS_ON_FIRST :IBMSNAP_SUBS_MEMBR_whos_on_first,
    :IBMSNAP_SUBS_MEMBR_SOURCE_OWNER :IBMSNAP_SUBS_MEMBR_source_owner,
    :IBMSNAP_SUBS_MEMBR_SOURCE_TABLE :IBMSNAP_SUBS_MEMBR_source_table,
    :IBMSNAP_SUBS_MEMBR_SOURCE_VIEW_QUAL
	  :IBMSNAP_SUBS_MEMBR_source_view_qual,
    :IBMSNAP_SUBS_MEMBR_TARGET_OWNER :IBMSNAP_SUBS_MEMBR_target_owner,
    :IBMSNAP_SUBS_MEMBR_TARGET_TABLE :IBMSNAP_SUBS_MEMBR_target_table,
    :IBMSNAP_SUBS_MEMBR_TARGET_CONDENSED
	  :IBMSNAP_SUBS_MEMBR_target_condensed,
    :IBMSNAP_SUBS_MEMBR_TARGET_COMPLETE :IBMSNAP_SUBS_MEMBR_target_complete,
    :IBMSNAP_SUBS_MEMBR_TARGET_STRUCTURE
	  :IBMSNAP_SUBS_MEMBR_target_structure
  ;
	sqlca.sqlerrmc[ 69 ] = '\0';

  setcode();
  if( 0 ==getcode())
  {
    if( 0 <=IBMSNAP_SUBS_MEMBR_apply_qual)
    {
      memcpy(APPLY_QUAL,IBMSNAP_SUBS_MEMBR_APPLY_QUAL,sizeof(APPLY_QUAL ));
    } else
    {
      APPLY_QUAL[ 0 ]='\0';
    }
    if( 0 <=IBMSNAP_SUBS_MEMBR_set_name)
    {
      memcpy(SET_NAME,IBMSNAP_SUBS_MEMBR_SET_NAME,sizeof(SET_NAME ));
    } else
    {
      SET_NAME[ 0 ]='\0';
    }
    if( 0 <=IBMSNAP_SUBS_MEMBR_whos_on_first)
    {
      memcpy(WHOS_ON_FIRST,IBMSNAP_SUBS_MEMBR_WHOS_ON_FIRST,
		  sizeof(WHOS_ON_FIRST ));
    } else
    {
      WHOS_ON_FIRST[ 0 ]='\0';
    }
    if( 0 <=IBMSNAP_SUBS_MEMBR_source_owner)
    {
      memcpy(SOURCE_OWNER,IBMSNAP_SUBS_MEMBR_SOURCE_OWNER,
		  sizeof(SOURCE_OWNER ));
    } else
    {
      SOURCE_OWNER[ 0 ]='\0';
    }
    if( 0 <=IBMSNAP_SUBS_MEMBR_source_table)
    {
      memcpy(SOURCE_TABLE,IBMSNAP_SUBS_MEMBR_SOURCE_TABLE,
		  sizeof(SOURCE_TABLE ));
    } else
    {
      SOURCE_TABLE[ 0 ]='\0';
    }
    if( 0 <=IBMSNAP_SUBS_MEMBR_source_view_qual)
    {
      SOURCE_VIEW_QUAL=IBMSNAP_SUBS_MEMBR_SOURCE_VIEW_QUAL;
    } else
    {
      SOURCE_VIEW_QUAL= 0 ;
    }
    if( 0 <=IBMSNAP_SUBS_MEMBR_target_owner)
    {
      memcpy(TARGET_OWNER,IBMSNAP_SUBS_MEMBR_TARGET_OWNER,
		  sizeof(TARGET_OWNER ));
    } else
    {
      TARGET_OWNER[ 0 ]='\0';
    }
    if( 0 <=IBMSNAP_SUBS_MEMBR_target_table)
    {
      memcpy(TARGET_TABLE,IBMSNAP_SUBS_MEMBR_TARGET_TABLE,
		  sizeof(TARGET_TABLE ));
    } else
    {
      TARGET_TABLE[ 0 ]='\0';
    }
    if( 0 <=IBMSNAP_SUBS_MEMBR_target_condensed)
    {
      memcpy(TARGET_CONDENSED,IBMSNAP_SUBS_MEMBR_TARGET_CONDENSED,
		  sizeof(TARGET_CONDENSED ));
    } else
    {
      TARGET_CONDENSED[ 0 ]='\0';
    }
    if( 0 <=IBMSNAP_SUBS_MEMBR_target_complete)
    {
      memcpy(TARGET_COMPLETE,IBMSNAP_SUBS_MEMBR_TARGET_COMPLETE,
		  sizeof(TARGET_COMPLETE ));
    } else
    {
      TARGET_COMPLETE[ 0 ]='\0';
    }
    if( 0 <=IBMSNAP_SUBS_MEMBR_target_structure)
    {
      TARGET_STRUCTURE=IBMSNAP_SUBS_MEMBR_TARGET_STRUCTURE;
    } else
    {
      TARGET_STRUCTURE= 0 ;
    }
//    if( 0 <=IBMSNAP_SUBS_MEMBR_predicates)
//    {
//      memcpy(PREDICATES,
//IBMSNAP_SUBS_MEMBR_PREDICATES.IBMSNAP_SUBS_MEMBR_PREDICATES,
//sizeof(PREDICATES ));
//    } else
//    {
//      PREDICATES[ 0 ]='\0';
//    }
  }
}