/* Result Sets Interface */
#ifndef SQL_CRSR
#  define SQL_CRSR
  struct sql_cursor
  {
    unsigned int curocn;
    void *ptr1;
    void *ptr2;
    unsigned int magic;
  };
  typedef struct sql_cursor sql_cursor;
  typedef struct sql_cursor SQL_CURSOR;
#endif /* SQL_CRSR */

/* Thread Safety */
typedef void * sql_context;
typedef void * SQL_CONTEXT;

/* Object support */
struct sqltvn
{
  unsigned char *tvnvsn; 
  unsigned short tvnvsnl; 
  unsigned char *tvnnm;
  unsigned short tvnnml; 
  unsigned char *tvnsnm;
  unsigned short tvnsnml;
};
typedef struct sqltvn sqltvn;

struct sqladts
{
  unsigned int adtvsn; 
  unsigned short adtmode; 
  unsigned short adtnum;  
  sqltvn adttvn[1];       
};
typedef struct sqladts sqladts;

static struct sqladts sqladt = {
  1,1,0,
};

/* Binding to PL/SQL Records */
struct sqltdss
{
  unsigned int tdsvsn; 
  unsigned short tdsnum; 
  unsigned char *tdsval[1]; 
};
typedef struct sqltdss sqltdss;
static struct sqltdss sqltds =
{
  1,
  0,
};

/* File name & Package Name */
struct sqlcxp
{
  unsigned short fillen;
           char  filnam[20];
};
static const struct sqlcxp sqlfpn =
{
    19,
    "horamagnetimport.pc"
};


static unsigned int sqlctx = 39129787;


static struct sqlexd {
   unsigned long  sqlvsn;
   unsigned int   arrsiz;
   unsigned int   iters;
   unsigned int   offset;
   unsigned short selerr;
   unsigned short sqlety;
   unsigned int   occurs;
      const short *cud;
   unsigned char  *sqlest;
      const char  *stmt;
   sqladts *sqladtp;
   sqltdss *sqltdsp;
   unsigned char  **sqphsv;
   unsigned long  *sqphsl;
            int   *sqphss;
            short **sqpind;
            int   *sqpins;
   unsigned long  *sqparm;
   unsigned long  **sqparc;
   unsigned short  *sqpadto;
   unsigned short  *sqptdso;
   unsigned int   sqlcmax;
   unsigned int   sqlcmin;
   unsigned int   sqlcincr;
   unsigned int   sqlctimeout;
   unsigned int   sqlcnowait;
            int   sqfoff;
   unsigned int   sqcmod;
   unsigned int   sqfmod;
   unsigned int   sqlpfmem;
   unsigned char  *sqhstv[50];
   unsigned long  sqhstl[50];
            int   sqhsts[50];
            short *sqindv[50];
            int   sqinds[50];
   unsigned long  sqharm[50];
   unsigned long  *sqharc[50];
   unsigned short  sqadto[50];
   unsigned short  sqtdso[50];
} sqlstm = {13,50};

// Prototypes
extern "C" {
  void sqlcxt (void **, unsigned int *,
               struct sqlexd *, const struct sqlcxp *);
  void sqlcx2t(void **, unsigned int *,
               struct sqlexd *, const struct sqlcxp *);
  void sqlbuft(void **, char *);
  void sqlgs2t(void **, char *);
  void sqlorat(void **, unsigned int *, void *);
}

// Forms Interface
static const int IAPSUCC = 0;
static const int IAPFAIL = 1403;
static const int IAPFTL  = 535;
extern "C" { void sqliem(unsigned char *, signed int *); }

typedef struct { unsigned short len; unsigned char arr[1]; } VARCHAR;
typedef struct { unsigned short len; unsigned char arr[1]; } varchar;

/* cud (compilation unit data) array */
static const short sqlcud0[] =
{13,4130,1,0,0,
5,0,0,1,0,0,29,75,0,0,0,0,0,1,0,
20,0,0,2,0,0,31,82,0,0,0,0,0,1,0,
35,0,0,3,677,0,3,199,0,0,50,50,0,1,0,1,97,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,
1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,
0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,
0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,
4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,
1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,
250,0,0,4,677,0,3,229,0,0,50,50,0,1,0,1,97,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,
1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,
0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,
0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,
4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,
1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,1,4,0,0,
};


//*-- AUTHOR : Ilse Koenig
//*-- Created : 27/05/2015 by Ilse Koenig

//////////////////////////////////////////////////////////////////////////////
//
// HOraMagnetImport
//
// Class to storage the MAGNET data in Oracle
//
//////////////////////////////////////////////////////////////////////////////

#include "horamagnetimport.h"
#include "hdbconn.h"
#include <stdlib.h>

#define SQLCA_STORAGE_CLASS extern
#define ORACA_STORAGE_CLASS extern

// Oracle communication area
#include <oraca.h>
// Include the SQL Communications Area
#include <sqlca.h>

ClassImp(HOraMagnetImport)

#define MAGNET_MAXROWS 2000

HOraMagnetImport::HOraMagnetImport() {
  // Constructor
  pConn=new HDbConn();
  fin=0;
}

HOraMagnetImport::~HOraMagnetImport() {
  // Destructor
  // Closes the Oracle connection and the input file
  close();
  if (pConn) {
    delete pConn;
    pConn=0;
  }
  if (fin) {
    closeFile();
    delete fin;
    fin=0;
  }
}

Bool_t HOraMagnetImport::open(TString userName, TString dbName) {
  // Opens an oracle connection (account userName)
  return pConn->connectDb(userName,dbName);
}

void HOraMagnetImport::close() {
  // Disconnects from ORACLE
  pConn->closeDbConn();
}

Bool_t HOraMagnetImport::check() {
  // Checks the Oracle connection
  if (pConn->isOpen() && !pConn->isReadonly()) return kTRUE;
  return kFALSE;
}

void HOraMagnetImport::print() {
  // Prints information about the database connection
  if (pConn->isOpen()) {
    cout<<"Connected to Oracle as user "<<pConn->getUserName()<<endl;
  } else cout<<"No connection to Oracle open\n";
  if (fileDirectory.Length()>0) cout<<"FileDirectory: "<<fileDirectory<<'\n';
}

void HOraMagnetImport::commit(void) {
  // Commits all inserts
  /* EXEC SQL COMMIT WORK; */ 

{
  struct sqlexd sqlstm;
  sqlorat((void **)0, &sqlctx, &oraca);
  sqlstm.sqlvsn = 13;
  sqlstm.arrsiz = 0;
  sqlstm.sqladtp = &sqladt;
  sqlstm.sqltdsp = &sqltds;
  sqlstm.iters = (unsigned int  )1;
  sqlstm.offset = (unsigned int  )5;
  sqlstm.cud = sqlcud0;
  sqlstm.sqlest = (unsigned char  *)&sqlca;
  sqlstm.sqlety = (unsigned short)4352;
  sqlstm.occurs = (unsigned int  )0;
  sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn);
}


  cout<<"Transaction committed"<<endl;
  return;
}

void HOraMagnetImport::rollback(void) {
  // Discards all inserts since last commit
  /* EXEC SQL ROLLBACK WORK; */ 

{
  struct sqlexd sqlstm;
  sqlorat((void **)0, &sqlctx, &oraca);
  sqlstm.sqlvsn = 13;
  sqlstm.arrsiz = 0;
  sqlstm.sqladtp = &sqladt;
  sqlstm.sqltdsp = &sqltds;
  sqlstm.iters = (unsigned int  )1;
  sqlstm.offset = (unsigned int  )20;
  sqlstm.cud = sqlcud0;
  sqlstm.sqlest = (unsigned char  *)&sqlca;
  sqlstm.sqlety = (unsigned short)4352;
  sqlstm.occurs = (unsigned int  )0;
  sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn);
}


  cout<<"Transaction rolled back"<<endl;
  return;
}

Bool_t HOraMagnetImport::openFile(const Char_t* filename) {
  // Opens the input file
  fileName=filename;
  TString fName;
  if (fin) {
    closeFile();
    fin->clear();
  } else fin=new ifstream;
  if (fileDirectory.Length()>0) {
    fName=fileDirectory + "/" + filename;
  } else fName=filename;
  fin->open(fName.Data(),ios::in);
  if (fin && fin->rdbuf()->is_open()==1) return kTRUE;
  else {
    Error("readDataFile","******** File %s not found\n",fName.Data());
    return kFALSE;
  }
}

void HOraMagnetImport::closeFile() {
  // Closes the input file
  if (fin && fin->rdbuf()->is_open()==1) fin->close();
}

Bool_t HOraMagnetImport::storeData(const Char_t* filename) {
  // Reads the input file and stores the data in a temporary table ikoenig.tmp_magnet_history
  Bool_t rc=openFile(filename);
  if (!rc) return kFALSE;
  const Int_t maxbuf=4000;
  Text_t buf[maxbuf], time[9];
  Int_t nData=0, k=0;
  TString timeStr(filename);
  timeStr+=" ";  
  /* EXEC SQL BEGIN DECLARE SECTION; */ 

    int rows_to_insert;
    char   p_TIME[MAGNET_MAXROWS][18];
    double p_TC1200[MAGNET_MAXROWS];  
    double p_TC1266[MAGNET_MAXROWS]; 
    double p_TC1202[MAGNET_MAXROWS]; 
    double p_TC1208[MAGNET_MAXROWS]; 
    double p_TC1214[MAGNET_MAXROWS];
    double p_TC1220[MAGNET_MAXROWS];
    double p_TC1226[MAGNET_MAXROWS];
    double p_TC1232[MAGNET_MAXROWS];
    double p_TC1206[MAGNET_MAXROWS];
    double p_TC1212[MAGNET_MAXROWS];
    double p_TC1218[MAGNET_MAXROWS];
    double p_TC1224[MAGNET_MAXROWS];
    double p_TC1230[MAGNET_MAXROWS];
    double p_TC1236[MAGNET_MAXROWS];
    double p_TC1238[MAGNET_MAXROWS];
    double p_TC1248[MAGNET_MAXROWS];
    double p_FI1400[MAGNET_MAXROWS];
    double p_PSUI_rbk[MAGNET_MAXROWS];
    double p_PSUV_rbk[MAGNET_MAXROWS];
    double p_BBI[MAGNET_MAXROWS];
    double p_LL1708[MAGNET_MAXROWS];
    double p_TP1240[MAGNET_MAXROWS];
    double p_PI2610[MAGNET_MAXROWS];
    double p_TP2200[MAGNET_MAXROWS];
    double p_TP2202[MAGNET_MAXROWS];
    double p_TP2204[MAGNET_MAXROWS];
    double p_TP2206[MAGNET_MAXROWS];
    double p_TP2208[MAGNET_MAXROWS];
    double p_TP2210[MAGNET_MAXROWS];
    double p_TP2212[MAGNET_MAXROWS];
    double p_TP2214[MAGNET_MAXROWS];
    double p_TP2216[MAGNET_MAXROWS];
    double p_TP2218[MAGNET_MAXROWS];
    double p_TP2220[MAGNET_MAXROWS];
    double p_TP2222[MAGNET_MAXROWS];
    double p_TP2224[MAGNET_MAXROWS];
    double p_TP2226[MAGNET_MAXROWS];
    double p_TP2228[MAGNET_MAXROWS];
    double p_TP2230[MAGNET_MAXROWS];
    double p_PI2600[MAGNET_MAXROWS];
    double p_VG3000[MAGNET_MAXROWS];
    double p_PI1600[MAGNET_MAXROWS];
    double p_PI1602[MAGNET_MAXROWS];
    double p_PI1604[MAGNET_MAXROWS];
    double p_EV1100R[MAGNET_MAXROWS];
    double p_EV1122R[MAGNET_MAXROWS];
    double p_EV1128R[MAGNET_MAXROWS];
    double p_TC1200M[MAGNET_MAXROWS];
    double p_PI1600I[MAGNET_MAXROWS];
  /* EXEC SQL END DECLARE SECTION; */ 

  /* EXEC SQL WHENEVER SQLERROR GOTO errorfound; */ 

  /* EXEC SQL WHENEVER NOT FOUND GOTO errorfound; */ 

  while (!fin->eof()) {
    fin->getline(buf,maxbuf);
    if (buf[0]=='#'||strlen(buf)==0) continue;
    sscanf(buf,
           "%s%lf%lf%lf%lf%lf%lf%lf%lf%lf"
           "%lf%lf%lf%lf%lf%lf%lf%lf%lf%lf"
           "%lf%lf%lf%lf%lf%lf%lf%lf%lf%lf"
           "%lf%lf%lf%lf%lf%lf%lf%lf%lf%lf"
           "%lf%lf%lf%lf%lf%lf%lf%lf%lf%lf",
           time,         &p_TC1200[k], &p_TC1266[k], &p_TC1202[k],   &p_TC1208[k],
           &p_TC1214[k], &p_TC1220[k], &p_TC1226[k], &p_TC1232[k],   &p_TC1206[k],
           &p_TC1212[k], &p_TC1218[k], &p_TC1224[k], &p_TC1230[k],   &p_TC1236[k],
           &p_TC1238[k], &p_TC1248[k], &p_FI1400[k], &p_PSUI_rbk[k], &p_PSUV_rbk[k],
           &p_BBI[k],    &p_LL1708[k], &p_TP1240[k], &p_PI2610[k],   &p_TP2200[k],
           &p_TP2202[k], &p_TP2204[k], &p_TP2206[k], &p_TP2208[k],   &p_TP2210[k],
           &p_TP2212[k], &p_TP2214[k], &p_TP2216[k], &p_TP2218[k],   &p_TP2220[k],
           &p_TP2222[k], &p_TP2224[k], &p_TP2226[k], &p_TP2228[k],   &p_TP2230[k],
           &p_PI2600[k], &p_VG3000[k], &p_PI1600[k], &p_PI1602[k],   &p_PI1604[k],
           &p_EV1100R[k],&p_EV1122R[k],&p_EV1128R[k],&p_TC1200M[k],  &p_PI1600I[k]);
    strcpy(p_TIME[k],timeStr.Data());
    strcat(p_TIME[k],time);
    k++;
    if (MAGNET_MAXROWS==k) {
      rows_to_insert=k;
      /* EXEC SQL FOR :rows_to_insert
        insert into ikoenig.tmp_magnet_history
          ( Time,    TC1200,  TC1266,  TC1202,   TC1208,
            TC1214,  TC1220,  TC1226,  TC1232,   TC1206,
            TC1212,  TC1218,  TC1224,  TC1230,   TC1236,
            TC1238,  TC1248,  FI1400,  PSUI_rbk, PSUV_rbk,
            BBI,     LL1708,  TP1240,  PI2610,   TP2200,
            TP2202,  TP2204,  TP2206,  TP2208,   TP2210,
            TP2212,  TP2214,  TP2216,  TP2218,   TP2220,
            TP2222,  TP2224,  TP2226,  TP2228,   TP2230,
            PI2600,  VG3000,  PI1600,  PI1602,   PI1604,
            EV1100R, EV1122R, EV1128R, TC1200M,  PI1600I )
          values
          ( to_date(:p_TIME,'ddmmyyyy hh24:mi:ss'),
                        :p_TC1200,  :p_TC1266,  :p_TC1202,   :p_TC1208,
            :p_TC1214,  :p_TC1220,  :p_TC1226,  :p_TC1232,   :p_TC1206,
            :p_TC1212,  :p_TC1218,  :p_TC1224,  :p_TC1230,   :p_TC1236,
            :p_TC1238,  :p_TC1248,  :p_FI1400,  :p_PSUI_rbk, :p_PSUV_rbk,
            :p_BBI,     :p_LL1708,  :p_TP1240,  :p_PI2610,   :p_TP2200,
            :p_TP2202,  :p_TP2204,  :p_TP2206,  :p_TP2208,   :p_TP2210,
            :p_TP2212,  :p_TP2214,  :p_TP2216,  :p_TP2218,   :p_TP2220,
            :p_TP2222,  :p_TP2224,  :p_TP2226,  :p_TP2228,   :p_TP2230,
            :p_PI2600,  :p_VG3000,  :p_PI1600,  :p_PI1602,   :p_PI1604,
            :p_EV1100R, :p_EV1122R, :p_EV1128R, :p_TC1200M,  :p_PI1600I ); */ 

{
      struct sqlexd sqlstm;
      sqlorat((void **)0, &sqlctx, &oraca);
      sqlstm.sqlvsn = 13;
      sqlstm.arrsiz = 50;
      sqlstm.sqladtp = &sqladt;
      sqlstm.sqltdsp = &sqltds;
      sqlstm.stmt = "insert into ikoenig.tmp_magnet_history ( time ,TC1200,T\
C1266,TC1202,TC1208,TC1214,TC1220,TC1226,TC1232,TC1206,TC1212,TC1218,TC1224,TC\
1230,TC1236,TC1238,TC1248,FI1400,PSUI_rbk,PSUV_rbk,BBI,LL1708,TP1240,PI2610,TP\
2200,TP2202,TP2204,TP2206,TP2208,TP2210,TP2212,TP2214,TP2216,TP2218,TP2220,TP2\
222,TP2224,TP2226,TP2228,TP2230,PI2600,VG3000,PI1600,PI1602,PI1604,EV1100R,EV1\
122R,EV1128R,TC1200M,PI1600I) values (to_date(:b1,'ddmmyyyy hh24:mi:ss'),:b2,:\
b3,:b4,:b5,:b6,:b7,:b8,:b9,:b10,:b11,:b12,:b13,:b14,:b15,:b16,:b17,:b18,:b19,:\
b20,:b21,:b22,:b23,:b24,:b25,:b26,:b27,:b28,:b29,:b30,:b31,:b32,:b33,:b34,:b35\
,:b36,:b37,:b38,:b39,:b40,:b41,:b42,:b43,:b44,:b45,:b46,:b47,:b48,:b49,:b50)";
      sqlstm.iters = (unsigned int  )rows_to_insert;
      sqlstm.offset = (unsigned int  )35;
      sqlstm.cud = sqlcud0;
      sqlstm.sqlest = (unsigned char  *)&sqlca;
      sqlstm.sqlety = (unsigned short)4352;
      sqlstm.occurs = (unsigned int  )0;
      sqlstm.sqhstv[0] = (unsigned char  *)p_TIME;
      sqlstm.sqhstl[0] = (unsigned long )18;
      sqlstm.sqhsts[0] = (         int  )18;
      sqlstm.sqindv[0] = (         short *)0;
      sqlstm.sqinds[0] = (         int  )0;
      sqlstm.sqharm[0] = (unsigned long )0;
      sqlstm.sqharc[0] = (unsigned long  *)0;
      sqlstm.sqadto[0] = (unsigned short )0;
      sqlstm.sqtdso[0] = (unsigned short )0;
      sqlstm.sqhstv[1] = (unsigned char  *)p_TC1200;
      sqlstm.sqhstl[1] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[1] = (         int  )sizeof(double);
      sqlstm.sqindv[1] = (         short *)0;
      sqlstm.sqinds[1] = (         int  )0;
      sqlstm.sqharm[1] = (unsigned long )0;
      sqlstm.sqharc[1] = (unsigned long  *)0;
      sqlstm.sqadto[1] = (unsigned short )0;
      sqlstm.sqtdso[1] = (unsigned short )0;
      sqlstm.sqhstv[2] = (unsigned char  *)p_TC1266;
      sqlstm.sqhstl[2] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[2] = (         int  )sizeof(double);
      sqlstm.sqindv[2] = (         short *)0;
      sqlstm.sqinds[2] = (         int  )0;
      sqlstm.sqharm[2] = (unsigned long )0;
      sqlstm.sqharc[2] = (unsigned long  *)0;
      sqlstm.sqadto[2] = (unsigned short )0;
      sqlstm.sqtdso[2] = (unsigned short )0;
      sqlstm.sqhstv[3] = (unsigned char  *)p_TC1202;
      sqlstm.sqhstl[3] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[3] = (         int  )sizeof(double);
      sqlstm.sqindv[3] = (         short *)0;
      sqlstm.sqinds[3] = (         int  )0;
      sqlstm.sqharm[3] = (unsigned long )0;
      sqlstm.sqharc[3] = (unsigned long  *)0;
      sqlstm.sqadto[3] = (unsigned short )0;
      sqlstm.sqtdso[3] = (unsigned short )0;
      sqlstm.sqhstv[4] = (unsigned char  *)p_TC1208;
      sqlstm.sqhstl[4] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[4] = (         int  )sizeof(double);
      sqlstm.sqindv[4] = (         short *)0;
      sqlstm.sqinds[4] = (         int  )0;
      sqlstm.sqharm[4] = (unsigned long )0;
      sqlstm.sqharc[4] = (unsigned long  *)0;
      sqlstm.sqadto[4] = (unsigned short )0;
      sqlstm.sqtdso[4] = (unsigned short )0;
      sqlstm.sqhstv[5] = (unsigned char  *)p_TC1214;
      sqlstm.sqhstl[5] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[5] = (         int  )sizeof(double);
      sqlstm.sqindv[5] = (         short *)0;
      sqlstm.sqinds[5] = (         int  )0;
      sqlstm.sqharm[5] = (unsigned long )0;
      sqlstm.sqharc[5] = (unsigned long  *)0;
      sqlstm.sqadto[5] = (unsigned short )0;
      sqlstm.sqtdso[5] = (unsigned short )0;
      sqlstm.sqhstv[6] = (unsigned char  *)p_TC1220;
      sqlstm.sqhstl[6] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[6] = (         int  )sizeof(double);
      sqlstm.sqindv[6] = (         short *)0;
      sqlstm.sqinds[6] = (         int  )0;
      sqlstm.sqharm[6] = (unsigned long )0;
      sqlstm.sqharc[6] = (unsigned long  *)0;
      sqlstm.sqadto[6] = (unsigned short )0;
      sqlstm.sqtdso[6] = (unsigned short )0;
      sqlstm.sqhstv[7] = (unsigned char  *)p_TC1226;
      sqlstm.sqhstl[7] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[7] = (         int  )sizeof(double);
      sqlstm.sqindv[7] = (         short *)0;
      sqlstm.sqinds[7] = (         int  )0;
      sqlstm.sqharm[7] = (unsigned long )0;
      sqlstm.sqharc[7] = (unsigned long  *)0;
      sqlstm.sqadto[7] = (unsigned short )0;
      sqlstm.sqtdso[7] = (unsigned short )0;
      sqlstm.sqhstv[8] = (unsigned char  *)p_TC1232;
      sqlstm.sqhstl[8] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[8] = (         int  )sizeof(double);
      sqlstm.sqindv[8] = (         short *)0;
      sqlstm.sqinds[8] = (         int  )0;
      sqlstm.sqharm[8] = (unsigned long )0;
      sqlstm.sqharc[8] = (unsigned long  *)0;
      sqlstm.sqadto[8] = (unsigned short )0;
      sqlstm.sqtdso[8] = (unsigned short )0;
      sqlstm.sqhstv[9] = (unsigned char  *)p_TC1206;
      sqlstm.sqhstl[9] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[9] = (         int  )sizeof(double);
      sqlstm.sqindv[9] = (         short *)0;
      sqlstm.sqinds[9] = (         int  )0;
      sqlstm.sqharm[9] = (unsigned long )0;
      sqlstm.sqharc[9] = (unsigned long  *)0;
      sqlstm.sqadto[9] = (unsigned short )0;
      sqlstm.sqtdso[9] = (unsigned short )0;
      sqlstm.sqhstv[10] = (unsigned char  *)p_TC1212;
      sqlstm.sqhstl[10] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[10] = (         int  )sizeof(double);
      sqlstm.sqindv[10] = (         short *)0;
      sqlstm.sqinds[10] = (         int  )0;
      sqlstm.sqharm[10] = (unsigned long )0;
      sqlstm.sqharc[10] = (unsigned long  *)0;
      sqlstm.sqadto[10] = (unsigned short )0;
      sqlstm.sqtdso[10] = (unsigned short )0;
      sqlstm.sqhstv[11] = (unsigned char  *)p_TC1218;
      sqlstm.sqhstl[11] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[11] = (         int  )sizeof(double);
      sqlstm.sqindv[11] = (         short *)0;
      sqlstm.sqinds[11] = (         int  )0;
      sqlstm.sqharm[11] = (unsigned long )0;
      sqlstm.sqharc[11] = (unsigned long  *)0;
      sqlstm.sqadto[11] = (unsigned short )0;
      sqlstm.sqtdso[11] = (unsigned short )0;
      sqlstm.sqhstv[12] = (unsigned char  *)p_TC1224;
      sqlstm.sqhstl[12] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[12] = (         int  )sizeof(double);
      sqlstm.sqindv[12] = (         short *)0;
      sqlstm.sqinds[12] = (         int  )0;
      sqlstm.sqharm[12] = (unsigned long )0;
      sqlstm.sqharc[12] = (unsigned long  *)0;
      sqlstm.sqadto[12] = (unsigned short )0;
      sqlstm.sqtdso[12] = (unsigned short )0;
      sqlstm.sqhstv[13] = (unsigned char  *)p_TC1230;
      sqlstm.sqhstl[13] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[13] = (         int  )sizeof(double);
      sqlstm.sqindv[13] = (         short *)0;
      sqlstm.sqinds[13] = (         int  )0;
      sqlstm.sqharm[13] = (unsigned long )0;
      sqlstm.sqharc[13] = (unsigned long  *)0;
      sqlstm.sqadto[13] = (unsigned short )0;
      sqlstm.sqtdso[13] = (unsigned short )0;
      sqlstm.sqhstv[14] = (unsigned char  *)p_TC1236;
      sqlstm.sqhstl[14] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[14] = (         int  )sizeof(double);
      sqlstm.sqindv[14] = (         short *)0;
      sqlstm.sqinds[14] = (         int  )0;
      sqlstm.sqharm[14] = (unsigned long )0;
      sqlstm.sqharc[14] = (unsigned long  *)0;
      sqlstm.sqadto[14] = (unsigned short )0;
      sqlstm.sqtdso[14] = (unsigned short )0;
      sqlstm.sqhstv[15] = (unsigned char  *)p_TC1238;
      sqlstm.sqhstl[15] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[15] = (         int  )sizeof(double);
      sqlstm.sqindv[15] = (         short *)0;
      sqlstm.sqinds[15] = (         int  )0;
      sqlstm.sqharm[15] = (unsigned long )0;
      sqlstm.sqharc[15] = (unsigned long  *)0;
      sqlstm.sqadto[15] = (unsigned short )0;
      sqlstm.sqtdso[15] = (unsigned short )0;
      sqlstm.sqhstv[16] = (unsigned char  *)p_TC1248;
      sqlstm.sqhstl[16] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[16] = (         int  )sizeof(double);
      sqlstm.sqindv[16] = (         short *)0;
      sqlstm.sqinds[16] = (         int  )0;
      sqlstm.sqharm[16] = (unsigned long )0;
      sqlstm.sqharc[16] = (unsigned long  *)0;
      sqlstm.sqadto[16] = (unsigned short )0;
      sqlstm.sqtdso[16] = (unsigned short )0;
      sqlstm.sqhstv[17] = (unsigned char  *)p_FI1400;
      sqlstm.sqhstl[17] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[17] = (         int  )sizeof(double);
      sqlstm.sqindv[17] = (         short *)0;
      sqlstm.sqinds[17] = (         int  )0;
      sqlstm.sqharm[17] = (unsigned long )0;
      sqlstm.sqharc[17] = (unsigned long  *)0;
      sqlstm.sqadto[17] = (unsigned short )0;
      sqlstm.sqtdso[17] = (unsigned short )0;
      sqlstm.sqhstv[18] = (unsigned char  *)p_PSUI_rbk;
      sqlstm.sqhstl[18] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[18] = (         int  )sizeof(double);
      sqlstm.sqindv[18] = (         short *)0;
      sqlstm.sqinds[18] = (         int  )0;
      sqlstm.sqharm[18] = (unsigned long )0;
      sqlstm.sqharc[18] = (unsigned long  *)0;
      sqlstm.sqadto[18] = (unsigned short )0;
      sqlstm.sqtdso[18] = (unsigned short )0;
      sqlstm.sqhstv[19] = (unsigned char  *)p_PSUV_rbk;
      sqlstm.sqhstl[19] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[19] = (         int  )sizeof(double);
      sqlstm.sqindv[19] = (         short *)0;
      sqlstm.sqinds[19] = (         int  )0;
      sqlstm.sqharm[19] = (unsigned long )0;
      sqlstm.sqharc[19] = (unsigned long  *)0;
      sqlstm.sqadto[19] = (unsigned short )0;
      sqlstm.sqtdso[19] = (unsigned short )0;
      sqlstm.sqhstv[20] = (unsigned char  *)p_BBI;
      sqlstm.sqhstl[20] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[20] = (         int  )sizeof(double);
      sqlstm.sqindv[20] = (         short *)0;
      sqlstm.sqinds[20] = (         int  )0;
      sqlstm.sqharm[20] = (unsigned long )0;
      sqlstm.sqharc[20] = (unsigned long  *)0;
      sqlstm.sqadto[20] = (unsigned short )0;
      sqlstm.sqtdso[20] = (unsigned short )0;
      sqlstm.sqhstv[21] = (unsigned char  *)p_LL1708;
      sqlstm.sqhstl[21] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[21] = (         int  )sizeof(double);
      sqlstm.sqindv[21] = (         short *)0;
      sqlstm.sqinds[21] = (         int  )0;
      sqlstm.sqharm[21] = (unsigned long )0;
      sqlstm.sqharc[21] = (unsigned long  *)0;
      sqlstm.sqadto[21] = (unsigned short )0;
      sqlstm.sqtdso[21] = (unsigned short )0;
      sqlstm.sqhstv[22] = (unsigned char  *)p_TP1240;
      sqlstm.sqhstl[22] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[22] = (         int  )sizeof(double);
      sqlstm.sqindv[22] = (         short *)0;
      sqlstm.sqinds[22] = (         int  )0;
      sqlstm.sqharm[22] = (unsigned long )0;
      sqlstm.sqharc[22] = (unsigned long  *)0;
      sqlstm.sqadto[22] = (unsigned short )0;
      sqlstm.sqtdso[22] = (unsigned short )0;
      sqlstm.sqhstv[23] = (unsigned char  *)p_PI2610;
      sqlstm.sqhstl[23] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[23] = (         int  )sizeof(double);
      sqlstm.sqindv[23] = (         short *)0;
      sqlstm.sqinds[23] = (         int  )0;
      sqlstm.sqharm[23] = (unsigned long )0;
      sqlstm.sqharc[23] = (unsigned long  *)0;
      sqlstm.sqadto[23] = (unsigned short )0;
      sqlstm.sqtdso[23] = (unsigned short )0;
      sqlstm.sqhstv[24] = (unsigned char  *)p_TP2200;
      sqlstm.sqhstl[24] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[24] = (         int  )sizeof(double);
      sqlstm.sqindv[24] = (         short *)0;
      sqlstm.sqinds[24] = (         int  )0;
      sqlstm.sqharm[24] = (unsigned long )0;
      sqlstm.sqharc[24] = (unsigned long  *)0;
      sqlstm.sqadto[24] = (unsigned short )0;
      sqlstm.sqtdso[24] = (unsigned short )0;
      sqlstm.sqhstv[25] = (unsigned char  *)p_TP2202;
      sqlstm.sqhstl[25] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[25] = (         int  )sizeof(double);
      sqlstm.sqindv[25] = (         short *)0;
      sqlstm.sqinds[25] = (         int  )0;
      sqlstm.sqharm[25] = (unsigned long )0;
      sqlstm.sqharc[25] = (unsigned long  *)0;
      sqlstm.sqadto[25] = (unsigned short )0;
      sqlstm.sqtdso[25] = (unsigned short )0;
      sqlstm.sqhstv[26] = (unsigned char  *)p_TP2204;
      sqlstm.sqhstl[26] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[26] = (         int  )sizeof(double);
      sqlstm.sqindv[26] = (         short *)0;
      sqlstm.sqinds[26] = (         int  )0;
      sqlstm.sqharm[26] = (unsigned long )0;
      sqlstm.sqharc[26] = (unsigned long  *)0;
      sqlstm.sqadto[26] = (unsigned short )0;
      sqlstm.sqtdso[26] = (unsigned short )0;
      sqlstm.sqhstv[27] = (unsigned char  *)p_TP2206;
      sqlstm.sqhstl[27] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[27] = (         int  )sizeof(double);
      sqlstm.sqindv[27] = (         short *)0;
      sqlstm.sqinds[27] = (         int  )0;
      sqlstm.sqharm[27] = (unsigned long )0;
      sqlstm.sqharc[27] = (unsigned long  *)0;
      sqlstm.sqadto[27] = (unsigned short )0;
      sqlstm.sqtdso[27] = (unsigned short )0;
      sqlstm.sqhstv[28] = (unsigned char  *)p_TP2208;
      sqlstm.sqhstl[28] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[28] = (         int  )sizeof(double);
      sqlstm.sqindv[28] = (         short *)0;
      sqlstm.sqinds[28] = (         int  )0;
      sqlstm.sqharm[28] = (unsigned long )0;
      sqlstm.sqharc[28] = (unsigned long  *)0;
      sqlstm.sqadto[28] = (unsigned short )0;
      sqlstm.sqtdso[28] = (unsigned short )0;
      sqlstm.sqhstv[29] = (unsigned char  *)p_TP2210;
      sqlstm.sqhstl[29] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[29] = (         int  )sizeof(double);
      sqlstm.sqindv[29] = (         short *)0;
      sqlstm.sqinds[29] = (         int  )0;
      sqlstm.sqharm[29] = (unsigned long )0;
      sqlstm.sqharc[29] = (unsigned long  *)0;
      sqlstm.sqadto[29] = (unsigned short )0;
      sqlstm.sqtdso[29] = (unsigned short )0;
      sqlstm.sqhstv[30] = (unsigned char  *)p_TP2212;
      sqlstm.sqhstl[30] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[30] = (         int  )sizeof(double);
      sqlstm.sqindv[30] = (         short *)0;
      sqlstm.sqinds[30] = (         int  )0;
      sqlstm.sqharm[30] = (unsigned long )0;
      sqlstm.sqharc[30] = (unsigned long  *)0;
      sqlstm.sqadto[30] = (unsigned short )0;
      sqlstm.sqtdso[30] = (unsigned short )0;
      sqlstm.sqhstv[31] = (unsigned char  *)p_TP2214;
      sqlstm.sqhstl[31] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[31] = (         int  )sizeof(double);
      sqlstm.sqindv[31] = (         short *)0;
      sqlstm.sqinds[31] = (         int  )0;
      sqlstm.sqharm[31] = (unsigned long )0;
      sqlstm.sqharc[31] = (unsigned long  *)0;
      sqlstm.sqadto[31] = (unsigned short )0;
      sqlstm.sqtdso[31] = (unsigned short )0;
      sqlstm.sqhstv[32] = (unsigned char  *)p_TP2216;
      sqlstm.sqhstl[32] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[32] = (         int  )sizeof(double);
      sqlstm.sqindv[32] = (         short *)0;
      sqlstm.sqinds[32] = (         int  )0;
      sqlstm.sqharm[32] = (unsigned long )0;
      sqlstm.sqharc[32] = (unsigned long  *)0;
      sqlstm.sqadto[32] = (unsigned short )0;
      sqlstm.sqtdso[32] = (unsigned short )0;
      sqlstm.sqhstv[33] = (unsigned char  *)p_TP2218;
      sqlstm.sqhstl[33] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[33] = (         int  )sizeof(double);
      sqlstm.sqindv[33] = (         short *)0;
      sqlstm.sqinds[33] = (         int  )0;
      sqlstm.sqharm[33] = (unsigned long )0;
      sqlstm.sqharc[33] = (unsigned long  *)0;
      sqlstm.sqadto[33] = (unsigned short )0;
      sqlstm.sqtdso[33] = (unsigned short )0;
      sqlstm.sqhstv[34] = (unsigned char  *)p_TP2220;
      sqlstm.sqhstl[34] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[34] = (         int  )sizeof(double);
      sqlstm.sqindv[34] = (         short *)0;
      sqlstm.sqinds[34] = (         int  )0;
      sqlstm.sqharm[34] = (unsigned long )0;
      sqlstm.sqharc[34] = (unsigned long  *)0;
      sqlstm.sqadto[34] = (unsigned short )0;
      sqlstm.sqtdso[34] = (unsigned short )0;
      sqlstm.sqhstv[35] = (unsigned char  *)p_TP2222;
      sqlstm.sqhstl[35] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[35] = (         int  )sizeof(double);
      sqlstm.sqindv[35] = (         short *)0;
      sqlstm.sqinds[35] = (         int  )0;
      sqlstm.sqharm[35] = (unsigned long )0;
      sqlstm.sqharc[35] = (unsigned long  *)0;
      sqlstm.sqadto[35] = (unsigned short )0;
      sqlstm.sqtdso[35] = (unsigned short )0;
      sqlstm.sqhstv[36] = (unsigned char  *)p_TP2224;
      sqlstm.sqhstl[36] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[36] = (         int  )sizeof(double);
      sqlstm.sqindv[36] = (         short *)0;
      sqlstm.sqinds[36] = (         int  )0;
      sqlstm.sqharm[36] = (unsigned long )0;
      sqlstm.sqharc[36] = (unsigned long  *)0;
      sqlstm.sqadto[36] = (unsigned short )0;
      sqlstm.sqtdso[36] = (unsigned short )0;
      sqlstm.sqhstv[37] = (unsigned char  *)p_TP2226;
      sqlstm.sqhstl[37] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[37] = (         int  )sizeof(double);
      sqlstm.sqindv[37] = (         short *)0;
      sqlstm.sqinds[37] = (         int  )0;
      sqlstm.sqharm[37] = (unsigned long )0;
      sqlstm.sqharc[37] = (unsigned long  *)0;
      sqlstm.sqadto[37] = (unsigned short )0;
      sqlstm.sqtdso[37] = (unsigned short )0;
      sqlstm.sqhstv[38] = (unsigned char  *)p_TP2228;
      sqlstm.sqhstl[38] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[38] = (         int  )sizeof(double);
      sqlstm.sqindv[38] = (         short *)0;
      sqlstm.sqinds[38] = (         int  )0;
      sqlstm.sqharm[38] = (unsigned long )0;
      sqlstm.sqharc[38] = (unsigned long  *)0;
      sqlstm.sqadto[38] = (unsigned short )0;
      sqlstm.sqtdso[38] = (unsigned short )0;
      sqlstm.sqhstv[39] = (unsigned char  *)p_TP2230;
      sqlstm.sqhstl[39] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[39] = (         int  )sizeof(double);
      sqlstm.sqindv[39] = (         short *)0;
      sqlstm.sqinds[39] = (         int  )0;
      sqlstm.sqharm[39] = (unsigned long )0;
      sqlstm.sqharc[39] = (unsigned long  *)0;
      sqlstm.sqadto[39] = (unsigned short )0;
      sqlstm.sqtdso[39] = (unsigned short )0;
      sqlstm.sqhstv[40] = (unsigned char  *)p_PI2600;
      sqlstm.sqhstl[40] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[40] = (         int  )sizeof(double);
      sqlstm.sqindv[40] = (         short *)0;
      sqlstm.sqinds[40] = (         int  )0;
      sqlstm.sqharm[40] = (unsigned long )0;
      sqlstm.sqharc[40] = (unsigned long  *)0;
      sqlstm.sqadto[40] = (unsigned short )0;
      sqlstm.sqtdso[40] = (unsigned short )0;
      sqlstm.sqhstv[41] = (unsigned char  *)p_VG3000;
      sqlstm.sqhstl[41] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[41] = (         int  )sizeof(double);
      sqlstm.sqindv[41] = (         short *)0;
      sqlstm.sqinds[41] = (         int  )0;
      sqlstm.sqharm[41] = (unsigned long )0;
      sqlstm.sqharc[41] = (unsigned long  *)0;
      sqlstm.sqadto[41] = (unsigned short )0;
      sqlstm.sqtdso[41] = (unsigned short )0;
      sqlstm.sqhstv[42] = (unsigned char  *)p_PI1600;
      sqlstm.sqhstl[42] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[42] = (         int  )sizeof(double);
      sqlstm.sqindv[42] = (         short *)0;
      sqlstm.sqinds[42] = (         int  )0;
      sqlstm.sqharm[42] = (unsigned long )0;
      sqlstm.sqharc[42] = (unsigned long  *)0;
      sqlstm.sqadto[42] = (unsigned short )0;
      sqlstm.sqtdso[42] = (unsigned short )0;
      sqlstm.sqhstv[43] = (unsigned char  *)p_PI1602;
      sqlstm.sqhstl[43] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[43] = (         int  )sizeof(double);
      sqlstm.sqindv[43] = (         short *)0;
      sqlstm.sqinds[43] = (         int  )0;
      sqlstm.sqharm[43] = (unsigned long )0;
      sqlstm.sqharc[43] = (unsigned long  *)0;
      sqlstm.sqadto[43] = (unsigned short )0;
      sqlstm.sqtdso[43] = (unsigned short )0;
      sqlstm.sqhstv[44] = (unsigned char  *)p_PI1604;
      sqlstm.sqhstl[44] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[44] = (         int  )sizeof(double);
      sqlstm.sqindv[44] = (         short *)0;
      sqlstm.sqinds[44] = (         int  )0;
      sqlstm.sqharm[44] = (unsigned long )0;
      sqlstm.sqharc[44] = (unsigned long  *)0;
      sqlstm.sqadto[44] = (unsigned short )0;
      sqlstm.sqtdso[44] = (unsigned short )0;
      sqlstm.sqhstv[45] = (unsigned char  *)p_EV1100R;
      sqlstm.sqhstl[45] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[45] = (         int  )sizeof(double);
      sqlstm.sqindv[45] = (         short *)0;
      sqlstm.sqinds[45] = (         int  )0;
      sqlstm.sqharm[45] = (unsigned long )0;
      sqlstm.sqharc[45] = (unsigned long  *)0;
      sqlstm.sqadto[45] = (unsigned short )0;
      sqlstm.sqtdso[45] = (unsigned short )0;
      sqlstm.sqhstv[46] = (unsigned char  *)p_EV1122R;
      sqlstm.sqhstl[46] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[46] = (         int  )sizeof(double);
      sqlstm.sqindv[46] = (         short *)0;
      sqlstm.sqinds[46] = (         int  )0;
      sqlstm.sqharm[46] = (unsigned long )0;
      sqlstm.sqharc[46] = (unsigned long  *)0;
      sqlstm.sqadto[46] = (unsigned short )0;
      sqlstm.sqtdso[46] = (unsigned short )0;
      sqlstm.sqhstv[47] = (unsigned char  *)p_EV1128R;
      sqlstm.sqhstl[47] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[47] = (         int  )sizeof(double);
      sqlstm.sqindv[47] = (         short *)0;
      sqlstm.sqinds[47] = (         int  )0;
      sqlstm.sqharm[47] = (unsigned long )0;
      sqlstm.sqharc[47] = (unsigned long  *)0;
      sqlstm.sqadto[47] = (unsigned short )0;
      sqlstm.sqtdso[47] = (unsigned short )0;
      sqlstm.sqhstv[48] = (unsigned char  *)p_TC1200M;
      sqlstm.sqhstl[48] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[48] = (         int  )sizeof(double);
      sqlstm.sqindv[48] = (         short *)0;
      sqlstm.sqinds[48] = (         int  )0;
      sqlstm.sqharm[48] = (unsigned long )0;
      sqlstm.sqharc[48] = (unsigned long  *)0;
      sqlstm.sqadto[48] = (unsigned short )0;
      sqlstm.sqtdso[48] = (unsigned short )0;
      sqlstm.sqhstv[49] = (unsigned char  *)p_PI1600I;
      sqlstm.sqhstl[49] = (unsigned long )sizeof(double);
      sqlstm.sqhsts[49] = (         int  )sizeof(double);
      sqlstm.sqindv[49] = (         short *)0;
      sqlstm.sqinds[49] = (         int  )0;
      sqlstm.sqharm[49] = (unsigned long )0;
      sqlstm.sqharc[49] = (unsigned long  *)0;
      sqlstm.sqadto[49] = (unsigned short )0;
      sqlstm.sqtdso[49] = (unsigned short )0;
      sqlstm.sqphsv = sqlstm.sqhstv;
      sqlstm.sqphsl = sqlstm.sqhstl;
      sqlstm.sqphss = sqlstm.sqhsts;
      sqlstm.sqpind = sqlstm.sqindv;
      sqlstm.sqpins = sqlstm.sqinds;
      sqlstm.sqparm = sqlstm.sqharm;
      sqlstm.sqparc = sqlstm.sqharc;
      sqlstm.sqpadto = sqlstm.sqadto;
      sqlstm.sqptdso = sqlstm.sqtdso;
      sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn);
      if (sqlca.sqlcode == 1403) goto errorfound;
      if (sqlca.sqlcode < 0) goto errorfound;
}


      k=0;
      nData+=rows_to_insert;
    }
  }
  if (k>0) {
    rows_to_insert=k;
    /* EXEC SQL FOR :rows_to_insert
      insert into ikoenig.tmp_magnet_history
        ( Time,    TC1200,  TC1266,  TC1202,   TC1208,
          TC1214,  TC1220,  TC1226,  TC1232,   TC1206,
          TC1212,  TC1218,  TC1224,  TC1230,   TC1236,
          TC1238,  TC1248,  FI1400,  PSUI_rbk, PSUV_rbk,
          BBI,     LL1708,  TP1240,  PI2610,   TP2200,
          TP2202,  TP2204,  TP2206,  TP2208,   TP2210,
          TP2212,  TP2214,  TP2216,  TP2218,   TP2220,
          TP2222,  TP2224,  TP2226,  TP2228,   TP2230,
          PI2600,  VG3000,  PI1600,  PI1602,   PI1604,
          EV1100R, EV1122R, EV1128R, TC1200M,  PI1600I )
        values
        ( to_date(:p_TIME,'ddmmyyyy hh24:mi:ss'),
                      :p_TC1200,  :p_TC1266,  :p_TC1202,   :p_TC1208,
          :p_TC1214,  :p_TC1220,  :p_TC1226,  :p_TC1232,   :p_TC1206,
          :p_TC1212,  :p_TC1218,  :p_TC1224,  :p_TC1230,   :p_TC1236,
          :p_TC1238,  :p_TC1248,  :p_FI1400,  :p_PSUI_rbk, :p_PSUV_rbk,
          :p_BBI,     :p_LL1708,  :p_TP1240,  :p_PI2610,   :p_TP2200,
          :p_TP2202,  :p_TP2204,  :p_TP2206,  :p_TP2208,   :p_TP2210,
          :p_TP2212,  :p_TP2214,  :p_TP2216,  :p_TP2218,   :p_TP2220,
          :p_TP2222,  :p_TP2224,  :p_TP2226,  :p_TP2228,   :p_TP2230,
          :p_PI2600,  :p_VG3000,  :p_PI1600,  :p_PI1602,   :p_PI1604,
          :p_EV1100R, :p_EV1122R, :p_EV1128R, :p_TC1200M,  :p_PI1600I ); */ 

{
    struct sqlexd sqlstm;
    sqlorat((void **)0, &sqlctx, &oraca);
    sqlstm.sqlvsn = 13;
    sqlstm.arrsiz = 50;
    sqlstm.sqladtp = &sqladt;
    sqlstm.sqltdsp = &sqltds;
    sqlstm.stmt = "insert into ikoenig.tmp_magnet_history ( time ,TC1200,TC1\
266,TC1202,TC1208,TC1214,TC1220,TC1226,TC1232,TC1206,TC1212,TC1218,TC1224,TC12\
30,TC1236,TC1238,TC1248,FI1400,PSUI_rbk,PSUV_rbk,BBI,LL1708,TP1240,PI2610,TP22\
00,TP2202,TP2204,TP2206,TP2208,TP2210,TP2212,TP2214,TP2216,TP2218,TP2220,TP222\
2,TP2224,TP2226,TP2228,TP2230,PI2600,VG3000,PI1600,PI1602,PI1604,EV1100R,EV112\
2R,EV1128R,TC1200M,PI1600I) values (to_date(:b1,'ddmmyyyy hh24:mi:ss'),:b2,:b3\
,:b4,:b5,:b6,:b7,:b8,:b9,:b10,:b11,:b12,:b13,:b14,:b15,:b16,:b17,:b18,:b19,:b2\
0,:b21,:b22,:b23,:b24,:b25,:b26,:b27,:b28,:b29,:b30,:b31,:b32,:b33,:b34,:b35,:\
b36,:b37,:b38,:b39,:b40,:b41,:b42,:b43,:b44,:b45,:b46,:b47,:b48,:b49,:b50)";
    sqlstm.iters = (unsigned int  )rows_to_insert;
    sqlstm.offset = (unsigned int  )250;
    sqlstm.cud = sqlcud0;
    sqlstm.sqlest = (unsigned char  *)&sqlca;
    sqlstm.sqlety = (unsigned short)4352;
    sqlstm.occurs = (unsigned int  )0;
    sqlstm.sqhstv[0] = (unsigned char  *)p_TIME;
    sqlstm.sqhstl[0] = (unsigned long )18;
    sqlstm.sqhsts[0] = (         int  )18;
    sqlstm.sqindv[0] = (         short *)0;
    sqlstm.sqinds[0] = (         int  )0;
    sqlstm.sqharm[0] = (unsigned long )0;
    sqlstm.sqharc[0] = (unsigned long  *)0;
    sqlstm.sqadto[0] = (unsigned short )0;
    sqlstm.sqtdso[0] = (unsigned short )0;
    sqlstm.sqhstv[1] = (unsigned char  *)p_TC1200;
    sqlstm.sqhstl[1] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[1] = (         int  )sizeof(double);
    sqlstm.sqindv[1] = (         short *)0;
    sqlstm.sqinds[1] = (         int  )0;
    sqlstm.sqharm[1] = (unsigned long )0;
    sqlstm.sqharc[1] = (unsigned long  *)0;
    sqlstm.sqadto[1] = (unsigned short )0;
    sqlstm.sqtdso[1] = (unsigned short )0;
    sqlstm.sqhstv[2] = (unsigned char  *)p_TC1266;
    sqlstm.sqhstl[2] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[2] = (         int  )sizeof(double);
    sqlstm.sqindv[2] = (         short *)0;
    sqlstm.sqinds[2] = (         int  )0;
    sqlstm.sqharm[2] = (unsigned long )0;
    sqlstm.sqharc[2] = (unsigned long  *)0;
    sqlstm.sqadto[2] = (unsigned short )0;
    sqlstm.sqtdso[2] = (unsigned short )0;
    sqlstm.sqhstv[3] = (unsigned char  *)p_TC1202;
    sqlstm.sqhstl[3] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[3] = (         int  )sizeof(double);
    sqlstm.sqindv[3] = (         short *)0;
    sqlstm.sqinds[3] = (         int  )0;
    sqlstm.sqharm[3] = (unsigned long )0;
    sqlstm.sqharc[3] = (unsigned long  *)0;
    sqlstm.sqadto[3] = (unsigned short )0;
    sqlstm.sqtdso[3] = (unsigned short )0;
    sqlstm.sqhstv[4] = (unsigned char  *)p_TC1208;
    sqlstm.sqhstl[4] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[4] = (         int  )sizeof(double);
    sqlstm.sqindv[4] = (         short *)0;
    sqlstm.sqinds[4] = (         int  )0;
    sqlstm.sqharm[4] = (unsigned long )0;
    sqlstm.sqharc[4] = (unsigned long  *)0;
    sqlstm.sqadto[4] = (unsigned short )0;
    sqlstm.sqtdso[4] = (unsigned short )0;
    sqlstm.sqhstv[5] = (unsigned char  *)p_TC1214;
    sqlstm.sqhstl[5] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[5] = (         int  )sizeof(double);
    sqlstm.sqindv[5] = (         short *)0;
    sqlstm.sqinds[5] = (         int  )0;
    sqlstm.sqharm[5] = (unsigned long )0;
    sqlstm.sqharc[5] = (unsigned long  *)0;
    sqlstm.sqadto[5] = (unsigned short )0;
    sqlstm.sqtdso[5] = (unsigned short )0;
    sqlstm.sqhstv[6] = (unsigned char  *)p_TC1220;
    sqlstm.sqhstl[6] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[6] = (         int  )sizeof(double);
    sqlstm.sqindv[6] = (         short *)0;
    sqlstm.sqinds[6] = (         int  )0;
    sqlstm.sqharm[6] = (unsigned long )0;
    sqlstm.sqharc[6] = (unsigned long  *)0;
    sqlstm.sqadto[6] = (unsigned short )0;
    sqlstm.sqtdso[6] = (unsigned short )0;
    sqlstm.sqhstv[7] = (unsigned char  *)p_TC1226;
    sqlstm.sqhstl[7] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[7] = (         int  )sizeof(double);
    sqlstm.sqindv[7] = (         short *)0;
    sqlstm.sqinds[7] = (         int  )0;
    sqlstm.sqharm[7] = (unsigned long )0;
    sqlstm.sqharc[7] = (unsigned long  *)0;
    sqlstm.sqadto[7] = (unsigned short )0;
    sqlstm.sqtdso[7] = (unsigned short )0;
    sqlstm.sqhstv[8] = (unsigned char  *)p_TC1232;
    sqlstm.sqhstl[8] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[8] = (         int  )sizeof(double);
    sqlstm.sqindv[8] = (         short *)0;
    sqlstm.sqinds[8] = (         int  )0;
    sqlstm.sqharm[8] = (unsigned long )0;
    sqlstm.sqharc[8] = (unsigned long  *)0;
    sqlstm.sqadto[8] = (unsigned short )0;
    sqlstm.sqtdso[8] = (unsigned short )0;
    sqlstm.sqhstv[9] = (unsigned char  *)p_TC1206;
    sqlstm.sqhstl[9] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[9] = (         int  )sizeof(double);
    sqlstm.sqindv[9] = (         short *)0;
    sqlstm.sqinds[9] = (         int  )0;
    sqlstm.sqharm[9] = (unsigned long )0;
    sqlstm.sqharc[9] = (unsigned long  *)0;
    sqlstm.sqadto[9] = (unsigned short )0;
    sqlstm.sqtdso[9] = (unsigned short )0;
    sqlstm.sqhstv[10] = (unsigned char  *)p_TC1212;
    sqlstm.sqhstl[10] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[10] = (         int  )sizeof(double);
    sqlstm.sqindv[10] = (         short *)0;
    sqlstm.sqinds[10] = (         int  )0;
    sqlstm.sqharm[10] = (unsigned long )0;
    sqlstm.sqharc[10] = (unsigned long  *)0;
    sqlstm.sqadto[10] = (unsigned short )0;
    sqlstm.sqtdso[10] = (unsigned short )0;
    sqlstm.sqhstv[11] = (unsigned char  *)p_TC1218;
    sqlstm.sqhstl[11] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[11] = (         int  )sizeof(double);
    sqlstm.sqindv[11] = (         short *)0;
    sqlstm.sqinds[11] = (         int  )0;
    sqlstm.sqharm[11] = (unsigned long )0;
    sqlstm.sqharc[11] = (unsigned long  *)0;
    sqlstm.sqadto[11] = (unsigned short )0;
    sqlstm.sqtdso[11] = (unsigned short )0;
    sqlstm.sqhstv[12] = (unsigned char  *)p_TC1224;
    sqlstm.sqhstl[12] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[12] = (         int  )sizeof(double);
    sqlstm.sqindv[12] = (         short *)0;
    sqlstm.sqinds[12] = (         int  )0;
    sqlstm.sqharm[12] = (unsigned long )0;
    sqlstm.sqharc[12] = (unsigned long  *)0;
    sqlstm.sqadto[12] = (unsigned short )0;
    sqlstm.sqtdso[12] = (unsigned short )0;
    sqlstm.sqhstv[13] = (unsigned char  *)p_TC1230;
    sqlstm.sqhstl[13] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[13] = (         int  )sizeof(double);
    sqlstm.sqindv[13] = (         short *)0;
    sqlstm.sqinds[13] = (         int  )0;
    sqlstm.sqharm[13] = (unsigned long )0;
    sqlstm.sqharc[13] = (unsigned long  *)0;
    sqlstm.sqadto[13] = (unsigned short )0;
    sqlstm.sqtdso[13] = (unsigned short )0;
    sqlstm.sqhstv[14] = (unsigned char  *)p_TC1236;
    sqlstm.sqhstl[14] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[14] = (         int  )sizeof(double);
    sqlstm.sqindv[14] = (         short *)0;
    sqlstm.sqinds[14] = (         int  )0;
    sqlstm.sqharm[14] = (unsigned long )0;
    sqlstm.sqharc[14] = (unsigned long  *)0;
    sqlstm.sqadto[14] = (unsigned short )0;
    sqlstm.sqtdso[14] = (unsigned short )0;
    sqlstm.sqhstv[15] = (unsigned char  *)p_TC1238;
    sqlstm.sqhstl[15] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[15] = (         int  )sizeof(double);
    sqlstm.sqindv[15] = (         short *)0;
    sqlstm.sqinds[15] = (         int  )0;
    sqlstm.sqharm[15] = (unsigned long )0;
    sqlstm.sqharc[15] = (unsigned long  *)0;
    sqlstm.sqadto[15] = (unsigned short )0;
    sqlstm.sqtdso[15] = (unsigned short )0;
    sqlstm.sqhstv[16] = (unsigned char  *)p_TC1248;
    sqlstm.sqhstl[16] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[16] = (         int  )sizeof(double);
    sqlstm.sqindv[16] = (         short *)0;
    sqlstm.sqinds[16] = (         int  )0;
    sqlstm.sqharm[16] = (unsigned long )0;
    sqlstm.sqharc[16] = (unsigned long  *)0;
    sqlstm.sqadto[16] = (unsigned short )0;
    sqlstm.sqtdso[16] = (unsigned short )0;
    sqlstm.sqhstv[17] = (unsigned char  *)p_FI1400;
    sqlstm.sqhstl[17] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[17] = (         int  )sizeof(double);
    sqlstm.sqindv[17] = (         short *)0;
    sqlstm.sqinds[17] = (         int  )0;
    sqlstm.sqharm[17] = (unsigned long )0;
    sqlstm.sqharc[17] = (unsigned long  *)0;
    sqlstm.sqadto[17] = (unsigned short )0;
    sqlstm.sqtdso[17] = (unsigned short )0;
    sqlstm.sqhstv[18] = (unsigned char  *)p_PSUI_rbk;
    sqlstm.sqhstl[18] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[18] = (         int  )sizeof(double);
    sqlstm.sqindv[18] = (         short *)0;
    sqlstm.sqinds[18] = (         int  )0;
    sqlstm.sqharm[18] = (unsigned long )0;
    sqlstm.sqharc[18] = (unsigned long  *)0;
    sqlstm.sqadto[18] = (unsigned short )0;
    sqlstm.sqtdso[18] = (unsigned short )0;
    sqlstm.sqhstv[19] = (unsigned char  *)p_PSUV_rbk;
    sqlstm.sqhstl[19] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[19] = (         int  )sizeof(double);
    sqlstm.sqindv[19] = (         short *)0;
    sqlstm.sqinds[19] = (         int  )0;
    sqlstm.sqharm[19] = (unsigned long )0;
    sqlstm.sqharc[19] = (unsigned long  *)0;
    sqlstm.sqadto[19] = (unsigned short )0;
    sqlstm.sqtdso[19] = (unsigned short )0;
    sqlstm.sqhstv[20] = (unsigned char  *)p_BBI;
    sqlstm.sqhstl[20] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[20] = (         int  )sizeof(double);
    sqlstm.sqindv[20] = (         short *)0;
    sqlstm.sqinds[20] = (         int  )0;
    sqlstm.sqharm[20] = (unsigned long )0;
    sqlstm.sqharc[20] = (unsigned long  *)0;
    sqlstm.sqadto[20] = (unsigned short )0;
    sqlstm.sqtdso[20] = (unsigned short )0;
    sqlstm.sqhstv[21] = (unsigned char  *)p_LL1708;
    sqlstm.sqhstl[21] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[21] = (         int  )sizeof(double);
    sqlstm.sqindv[21] = (         short *)0;
    sqlstm.sqinds[21] = (         int  )0;
    sqlstm.sqharm[21] = (unsigned long )0;
    sqlstm.sqharc[21] = (unsigned long  *)0;
    sqlstm.sqadto[21] = (unsigned short )0;
    sqlstm.sqtdso[21] = (unsigned short )0;
    sqlstm.sqhstv[22] = (unsigned char  *)p_TP1240;
    sqlstm.sqhstl[22] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[22] = (         int  )sizeof(double);
    sqlstm.sqindv[22] = (         short *)0;
    sqlstm.sqinds[22] = (         int  )0;
    sqlstm.sqharm[22] = (unsigned long )0;
    sqlstm.sqharc[22] = (unsigned long  *)0;
    sqlstm.sqadto[22] = (unsigned short )0;
    sqlstm.sqtdso[22] = (unsigned short )0;
    sqlstm.sqhstv[23] = (unsigned char  *)p_PI2610;
    sqlstm.sqhstl[23] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[23] = (         int  )sizeof(double);
    sqlstm.sqindv[23] = (         short *)0;
    sqlstm.sqinds[23] = (         int  )0;
    sqlstm.sqharm[23] = (unsigned long )0;
    sqlstm.sqharc[23] = (unsigned long  *)0;
    sqlstm.sqadto[23] = (unsigned short )0;
    sqlstm.sqtdso[23] = (unsigned short )0;
    sqlstm.sqhstv[24] = (unsigned char  *)p_TP2200;
    sqlstm.sqhstl[24] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[24] = (         int  )sizeof(double);
    sqlstm.sqindv[24] = (         short *)0;
    sqlstm.sqinds[24] = (         int  )0;
    sqlstm.sqharm[24] = (unsigned long )0;
    sqlstm.sqharc[24] = (unsigned long  *)0;
    sqlstm.sqadto[24] = (unsigned short )0;
    sqlstm.sqtdso[24] = (unsigned short )0;
    sqlstm.sqhstv[25] = (unsigned char  *)p_TP2202;
    sqlstm.sqhstl[25] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[25] = (         int  )sizeof(double);
    sqlstm.sqindv[25] = (         short *)0;
    sqlstm.sqinds[25] = (         int  )0;
    sqlstm.sqharm[25] = (unsigned long )0;
    sqlstm.sqharc[25] = (unsigned long  *)0;
    sqlstm.sqadto[25] = (unsigned short )0;
    sqlstm.sqtdso[25] = (unsigned short )0;
    sqlstm.sqhstv[26] = (unsigned char  *)p_TP2204;
    sqlstm.sqhstl[26] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[26] = (         int  )sizeof(double);
    sqlstm.sqindv[26] = (         short *)0;
    sqlstm.sqinds[26] = (         int  )0;
    sqlstm.sqharm[26] = (unsigned long )0;
    sqlstm.sqharc[26] = (unsigned long  *)0;
    sqlstm.sqadto[26] = (unsigned short )0;
    sqlstm.sqtdso[26] = (unsigned short )0;
    sqlstm.sqhstv[27] = (unsigned char  *)p_TP2206;
    sqlstm.sqhstl[27] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[27] = (         int  )sizeof(double);
    sqlstm.sqindv[27] = (         short *)0;
    sqlstm.sqinds[27] = (         int  )0;
    sqlstm.sqharm[27] = (unsigned long )0;
    sqlstm.sqharc[27] = (unsigned long  *)0;
    sqlstm.sqadto[27] = (unsigned short )0;
    sqlstm.sqtdso[27] = (unsigned short )0;
    sqlstm.sqhstv[28] = (unsigned char  *)p_TP2208;
    sqlstm.sqhstl[28] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[28] = (         int  )sizeof(double);
    sqlstm.sqindv[28] = (         short *)0;
    sqlstm.sqinds[28] = (         int  )0;
    sqlstm.sqharm[28] = (unsigned long )0;
    sqlstm.sqharc[28] = (unsigned long  *)0;
    sqlstm.sqadto[28] = (unsigned short )0;
    sqlstm.sqtdso[28] = (unsigned short )0;
    sqlstm.sqhstv[29] = (unsigned char  *)p_TP2210;
    sqlstm.sqhstl[29] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[29] = (         int  )sizeof(double);
    sqlstm.sqindv[29] = (         short *)0;
    sqlstm.sqinds[29] = (         int  )0;
    sqlstm.sqharm[29] = (unsigned long )0;
    sqlstm.sqharc[29] = (unsigned long  *)0;
    sqlstm.sqadto[29] = (unsigned short )0;
    sqlstm.sqtdso[29] = (unsigned short )0;
    sqlstm.sqhstv[30] = (unsigned char  *)p_TP2212;
    sqlstm.sqhstl[30] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[30] = (         int  )sizeof(double);
    sqlstm.sqindv[30] = (         short *)0;
    sqlstm.sqinds[30] = (         int  )0;
    sqlstm.sqharm[30] = (unsigned long )0;
    sqlstm.sqharc[30] = (unsigned long  *)0;
    sqlstm.sqadto[30] = (unsigned short )0;
    sqlstm.sqtdso[30] = (unsigned short )0;
    sqlstm.sqhstv[31] = (unsigned char  *)p_TP2214;
    sqlstm.sqhstl[31] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[31] = (         int  )sizeof(double);
    sqlstm.sqindv[31] = (         short *)0;
    sqlstm.sqinds[31] = (         int  )0;
    sqlstm.sqharm[31] = (unsigned long )0;
    sqlstm.sqharc[31] = (unsigned long  *)0;
    sqlstm.sqadto[31] = (unsigned short )0;
    sqlstm.sqtdso[31] = (unsigned short )0;
    sqlstm.sqhstv[32] = (unsigned char  *)p_TP2216;
    sqlstm.sqhstl[32] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[32] = (         int  )sizeof(double);
    sqlstm.sqindv[32] = (         short *)0;
    sqlstm.sqinds[32] = (         int  )0;
    sqlstm.sqharm[32] = (unsigned long )0;
    sqlstm.sqharc[32] = (unsigned long  *)0;
    sqlstm.sqadto[32] = (unsigned short )0;
    sqlstm.sqtdso[32] = (unsigned short )0;
    sqlstm.sqhstv[33] = (unsigned char  *)p_TP2218;
    sqlstm.sqhstl[33] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[33] = (         int  )sizeof(double);
    sqlstm.sqindv[33] = (         short *)0;
    sqlstm.sqinds[33] = (         int  )0;
    sqlstm.sqharm[33] = (unsigned long )0;
    sqlstm.sqharc[33] = (unsigned long  *)0;
    sqlstm.sqadto[33] = (unsigned short )0;
    sqlstm.sqtdso[33] = (unsigned short )0;
    sqlstm.sqhstv[34] = (unsigned char  *)p_TP2220;
    sqlstm.sqhstl[34] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[34] = (         int  )sizeof(double);
    sqlstm.sqindv[34] = (         short *)0;
    sqlstm.sqinds[34] = (         int  )0;
    sqlstm.sqharm[34] = (unsigned long )0;
    sqlstm.sqharc[34] = (unsigned long  *)0;
    sqlstm.sqadto[34] = (unsigned short )0;
    sqlstm.sqtdso[34] = (unsigned short )0;
    sqlstm.sqhstv[35] = (unsigned char  *)p_TP2222;
    sqlstm.sqhstl[35] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[35] = (         int  )sizeof(double);
    sqlstm.sqindv[35] = (         short *)0;
    sqlstm.sqinds[35] = (         int  )0;
    sqlstm.sqharm[35] = (unsigned long )0;
    sqlstm.sqharc[35] = (unsigned long  *)0;
    sqlstm.sqadto[35] = (unsigned short )0;
    sqlstm.sqtdso[35] = (unsigned short )0;
    sqlstm.sqhstv[36] = (unsigned char  *)p_TP2224;
    sqlstm.sqhstl[36] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[36] = (         int  )sizeof(double);
    sqlstm.sqindv[36] = (         short *)0;
    sqlstm.sqinds[36] = (         int  )0;
    sqlstm.sqharm[36] = (unsigned long )0;
    sqlstm.sqharc[36] = (unsigned long  *)0;
    sqlstm.sqadto[36] = (unsigned short )0;
    sqlstm.sqtdso[36] = (unsigned short )0;
    sqlstm.sqhstv[37] = (unsigned char  *)p_TP2226;
    sqlstm.sqhstl[37] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[37] = (         int  )sizeof(double);
    sqlstm.sqindv[37] = (         short *)0;
    sqlstm.sqinds[37] = (         int  )0;
    sqlstm.sqharm[37] = (unsigned long )0;
    sqlstm.sqharc[37] = (unsigned long  *)0;
    sqlstm.sqadto[37] = (unsigned short )0;
    sqlstm.sqtdso[37] = (unsigned short )0;
    sqlstm.sqhstv[38] = (unsigned char  *)p_TP2228;
    sqlstm.sqhstl[38] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[38] = (         int  )sizeof(double);
    sqlstm.sqindv[38] = (         short *)0;
    sqlstm.sqinds[38] = (         int  )0;
    sqlstm.sqharm[38] = (unsigned long )0;
    sqlstm.sqharc[38] = (unsigned long  *)0;
    sqlstm.sqadto[38] = (unsigned short )0;
    sqlstm.sqtdso[38] = (unsigned short )0;
    sqlstm.sqhstv[39] = (unsigned char  *)p_TP2230;
    sqlstm.sqhstl[39] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[39] = (         int  )sizeof(double);
    sqlstm.sqindv[39] = (         short *)0;
    sqlstm.sqinds[39] = (         int  )0;
    sqlstm.sqharm[39] = (unsigned long )0;
    sqlstm.sqharc[39] = (unsigned long  *)0;
    sqlstm.sqadto[39] = (unsigned short )0;
    sqlstm.sqtdso[39] = (unsigned short )0;
    sqlstm.sqhstv[40] = (unsigned char  *)p_PI2600;
    sqlstm.sqhstl[40] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[40] = (         int  )sizeof(double);
    sqlstm.sqindv[40] = (         short *)0;
    sqlstm.sqinds[40] = (         int  )0;
    sqlstm.sqharm[40] = (unsigned long )0;
    sqlstm.sqharc[40] = (unsigned long  *)0;
    sqlstm.sqadto[40] = (unsigned short )0;
    sqlstm.sqtdso[40] = (unsigned short )0;
    sqlstm.sqhstv[41] = (unsigned char  *)p_VG3000;
    sqlstm.sqhstl[41] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[41] = (         int  )sizeof(double);
    sqlstm.sqindv[41] = (         short *)0;
    sqlstm.sqinds[41] = (         int  )0;
    sqlstm.sqharm[41] = (unsigned long )0;
    sqlstm.sqharc[41] = (unsigned long  *)0;
    sqlstm.sqadto[41] = (unsigned short )0;
    sqlstm.sqtdso[41] = (unsigned short )0;
    sqlstm.sqhstv[42] = (unsigned char  *)p_PI1600;
    sqlstm.sqhstl[42] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[42] = (         int  )sizeof(double);
    sqlstm.sqindv[42] = (         short *)0;
    sqlstm.sqinds[42] = (         int  )0;
    sqlstm.sqharm[42] = (unsigned long )0;
    sqlstm.sqharc[42] = (unsigned long  *)0;
    sqlstm.sqadto[42] = (unsigned short )0;
    sqlstm.sqtdso[42] = (unsigned short )0;
    sqlstm.sqhstv[43] = (unsigned char  *)p_PI1602;
    sqlstm.sqhstl[43] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[43] = (         int  )sizeof(double);
    sqlstm.sqindv[43] = (         short *)0;
    sqlstm.sqinds[43] = (         int  )0;
    sqlstm.sqharm[43] = (unsigned long )0;
    sqlstm.sqharc[43] = (unsigned long  *)0;
    sqlstm.sqadto[43] = (unsigned short )0;
    sqlstm.sqtdso[43] = (unsigned short )0;
    sqlstm.sqhstv[44] = (unsigned char  *)p_PI1604;
    sqlstm.sqhstl[44] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[44] = (         int  )sizeof(double);
    sqlstm.sqindv[44] = (         short *)0;
    sqlstm.sqinds[44] = (         int  )0;
    sqlstm.sqharm[44] = (unsigned long )0;
    sqlstm.sqharc[44] = (unsigned long  *)0;
    sqlstm.sqadto[44] = (unsigned short )0;
    sqlstm.sqtdso[44] = (unsigned short )0;
    sqlstm.sqhstv[45] = (unsigned char  *)p_EV1100R;
    sqlstm.sqhstl[45] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[45] = (         int  )sizeof(double);
    sqlstm.sqindv[45] = (         short *)0;
    sqlstm.sqinds[45] = (         int  )0;
    sqlstm.sqharm[45] = (unsigned long )0;
    sqlstm.sqharc[45] = (unsigned long  *)0;
    sqlstm.sqadto[45] = (unsigned short )0;
    sqlstm.sqtdso[45] = (unsigned short )0;
    sqlstm.sqhstv[46] = (unsigned char  *)p_EV1122R;
    sqlstm.sqhstl[46] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[46] = (         int  )sizeof(double);
    sqlstm.sqindv[46] = (         short *)0;
    sqlstm.sqinds[46] = (         int  )0;
    sqlstm.sqharm[46] = (unsigned long )0;
    sqlstm.sqharc[46] = (unsigned long  *)0;
    sqlstm.sqadto[46] = (unsigned short )0;
    sqlstm.sqtdso[46] = (unsigned short )0;
    sqlstm.sqhstv[47] = (unsigned char  *)p_EV1128R;
    sqlstm.sqhstl[47] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[47] = (         int  )sizeof(double);
    sqlstm.sqindv[47] = (         short *)0;
    sqlstm.sqinds[47] = (         int  )0;
    sqlstm.sqharm[47] = (unsigned long )0;
    sqlstm.sqharc[47] = (unsigned long  *)0;
    sqlstm.sqadto[47] = (unsigned short )0;
    sqlstm.sqtdso[47] = (unsigned short )0;
    sqlstm.sqhstv[48] = (unsigned char  *)p_TC1200M;
    sqlstm.sqhstl[48] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[48] = (         int  )sizeof(double);
    sqlstm.sqindv[48] = (         short *)0;
    sqlstm.sqinds[48] = (         int  )0;
    sqlstm.sqharm[48] = (unsigned long )0;
    sqlstm.sqharc[48] = (unsigned long  *)0;
    sqlstm.sqadto[48] = (unsigned short )0;
    sqlstm.sqtdso[48] = (unsigned short )0;
    sqlstm.sqhstv[49] = (unsigned char  *)p_PI1600I;
    sqlstm.sqhstl[49] = (unsigned long )sizeof(double);
    sqlstm.sqhsts[49] = (         int  )sizeof(double);
    sqlstm.sqindv[49] = (         short *)0;
    sqlstm.sqinds[49] = (         int  )0;
    sqlstm.sqharm[49] = (unsigned long )0;
    sqlstm.sqharc[49] = (unsigned long  *)0;
    sqlstm.sqadto[49] = (unsigned short )0;
    sqlstm.sqtdso[49] = (unsigned short )0;
    sqlstm.sqphsv = sqlstm.sqhstv;
    sqlstm.sqphsl = sqlstm.sqhstl;
    sqlstm.sqphss = sqlstm.sqhsts;
    sqlstm.sqpind = sqlstm.sqindv;
    sqlstm.sqpins = sqlstm.sqinds;
    sqlstm.sqparm = sqlstm.sqharm;
    sqlstm.sqparc = sqlstm.sqharc;
    sqlstm.sqpadto = sqlstm.sqadto;
    sqlstm.sqptdso = sqlstm.sqtdso;
    sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn);
    if (sqlca.sqlcode == 1403) goto errorfound;
    if (sqlca.sqlcode < 0) goto errorfound;
}


      nData+=rows_to_insert;
  }
  cout<<"File: "<<filename<<"  Inserts: "<<nData<<endl;
  commit();
  fin->close();
  return kTRUE;
errorfound:
  pConn->showSqlError("storeData");
  rollback();
  fin->close();
  return kFALSE;
}