quanz.sqc

本人写的在AIX下的用SQLC开发的处理DB2数据库中业务的程序

/*-------------------------------------------------------
** 程序名:quanz.sqc
** 程序员:
** 修改时间:
** 程序功能:
** 
-------------------------------------------------------*/

EXEC SQL INCLUDE SQLCA;

int main(int argc,char *argv[])
{
  int inum;
  FILE *fp;
  char file[30],showmsg[80];
  
  EXEC SQL BEGIN DECLARE SECTION;

     char m_dbs[11];
     char m_user[11];
     char m_password[11];
     char m_branch_code[4];

     char m_cust_no[10];
     char m_HOLDER_ACC_NO[15];
     char m_SEC_ACC[15];
     char m_MARKET_CODE[1];
     char m_ENTRUST_BRANCH[3];
     char m_BRANCH_CODE[3];
     char m_BS[2];
     char m_SEC_CODE[8];
     char m_ENTRUST_PRICE[9];
     char m_ENTRUST_VOL[10];
     
  EXEC SQL END DECLARE SECTION;
  
  EXEC SQL WHENEVER NOT FOUND  CONTINUE;
  EXEC SQL WHENEVER SQLWARNINT CONTINUE;
  EXEC SQL WHENEVER SQLERROR   CONTINUE;
  
  if( argc!=5 && argc!=4)
    { printf("ERROR:Parameter is less than 3!\n");
      printf("Usage: %s dbs user password schema\n",argv[0]);
      return 1;
    }

  strcpy(m_dbs,argv[1]);     
  strcpy(m_user,argv[2]);
  strcpy(m_password,argv[3]);
  if(argc==5)
     strcpy(m_branch_code,argv[4]);
  else
     strcpy(m_branch_code," ");