svrf332.ec

一个银行业务的程序

/*****************************
*查询报表定义信息            *
******************************/
#include <stdio.h>
#include <stdlib.h>

SvrF332(int argc,char *argv[])
{
    $char cBankNo[11],cSql[800];

    $struct sREPTINFO {
        char code[3];
	char name[41];
	char type[2];
	int term;
    } struReptInfo;

    char fname[80];
    FILE *fp;

    sprintf(fname,"%s/download/%s",getenv("HOME"),argv[0]);
    sprintf(cBankNo,"%s",argv[1]);

    sprintf(cSql,"select * from reportinfo");

    if(strcmp(cBankNo,"002262001 ")==0)
        strcat(cSql," where type in ('0','9')");
    else
        strcat(cSql," where type in ('1','9')");

    strcat(cSql," order by code");

WriteTest("svrf332:cSql[%s]\n",cSql);

    $prepare selid from $cSql;
    if(sqlca.sqlcode!=0) 
    {
	WriteTest("svrf332:prepare[%s] err[%ld]\n",cSql,sqlca.sqlcode);
	CreateStruct("返回码","020");
	return 0;
    }

    $declare cursel cursor for selid;
    if(sqlca.sqlcode!=0) 
    {
	WriteTest("svrf332:declare[%s] err[%ld]\n",cSql,sqlca.sqlcode);
	CreateStruct("返回码","020");
	return 0;
    }

    $open cursel;
    if(sqlca.sqlcode!=0) 
    {
	WriteTest("svrf332:open declare err[%ld]\n",sqlca.sqlcode);
	CreateStruct("返回码","020");
	return 0;
    }

    $fetch cursel into $struReptInfo;

    if(sqlca.sqlcode!=0) 
    {
	WriteTest("svrf332:fetch err[%ld]\n",sqlca.sqlcode);
	CreateStruct("返回码","020");
	return 0;
    }

    if (( fp=fopen(fname,"w"))==NULL)
    {
    	    WriteTest("svrf332: open file %s error \n",fname);
	    CreateStruct("返回码","020");
	    return 0;
    }

    CreateStruct("文件标志","1");

    while(sqlca.sqlcode==0)
    {
	fprintf(fp,"%s,%s\n",
		struReptInfo.code,struReptInfo.name);

    	$fetch cursel into $struReptInfo;
    }

    $close cursel;
    $free cursel;
    $free selid;

    fclose(fp);

    CreateStruct("返回码","000");
    return 0;
}