lc.c

计费系统中的S1240交换机脱机读磁带程序

#include "D4ALL.h"

#define Debug 0
#define VolFlag 1
char bs1ContentLC[160]="VOL1BB0127      "
		     "                "
		     "                "
		     "                "
		     "               3"
		     "HDR1H803AA00XXXX"
		     "XXTAXBB012700010"
		     "001001300 96187 "
		     "96217 000000    "
		     "                ";

char bs3ContentLC[80]="EOF1H803AA00XXXX"
		    "XXTAXBB012700010"
		    "001001300 96187 "
		    "96217 000066    "
		    "                ";

char bs1ContentLD[160]="VOL1DB0127      "
		     "                "
		     "                "
		     "                "
		     "               3"
		     "HDR1H800AA00XXXX"
		     "XXTAXDB012700010"
		     "001001300 96187 "
		     "96217 000000    "
		     "                ";

char bs3ContentLD[80]="EOF1H800AA00XXXX"
		    "XXTAXDB012700010"
		    "001001300 96187 "
		    "96217 000066    "
		    "                ";
int getHigh(int ch)
{
    ch=(ch&0xF0)>>4;
    ch+=(ch>9)?0x37:0x30;
    return ch;
}

int getLow(int ch)
{
    ch=ch&0x0F;
    ch+=(ch>9)?0x37:0x30;
    return ch;
}

static int calcDate(struct date *pDate)
{
    int i,ret=0;
    int mday[12]={31,28,31,30,31,30,31,31,30,31,30,31};

    if ((pDate->da_year%4)==0) mday[1]=29;
    for (i=0; i<pDate->da_mon-1; i++) ret+=mday[i];
    ret+=pDate->da_day;
    if (ret<0 || ret>366) ret=0;
    return ret;
}
static void ConvertToDBFFormat(DataInfo *pdata)
{
	if (curr>=total)
	{
	    FLAG=1;
	    retCode=True;
	    continue;
	}
	rc=ReadDataSource(pdata,curr);
	if (rc!=True)
	{
	    FLAG=1;
	    retCode=False;
	    continue;
	}

	if (DiskBuffer[0]==0x01)
	{
	    p=DiskBuffer+4;
	    for (count=0; count<3; count++)
	    {
		if (*p==0xEE) break;

		memset(buf1,0,sizeof(buf1));
		for (i=0; i<4; i++)
		{
		    buf1[2*i]=getHigh(p[i]);
		    if (buf1[2*i]=='E')
		    {
			buf1[2*i]=0;
			break;
		    }
		    buf1[2*i+1]=getLow(p[i]);
		    if (buf1[2*i+1]=='E')
		    {
			buf1[2*i+1]=0;
			break;
		    }
		}
		p+=4;
		for (i=0; i<100; i++)
		{
		    buf2[1]=*p++;
		    buf2[0]=*p++;
		    cnt1=*(unsigned *)buf2;
		    buf2[1]=*p++;
		    buf2[0]=*p++;
		    cnt2=*(unsigned *)buf2;
		    buf2[1]=*p++;
		    buf2[0]=*p++;
		    cnt3=*(unsigned *)buf2;
		    sprintf(buf2,"%s%02d",buf1,i);

		    d4append_start(dataDest,0);
		    f4assign(field_phone,buf2);
		    f4assign_long(field_count1,cnt1);
		    f4assign_long(field_count2,cnt2);
		    f4assign_long(field_count3,cnt3);
		    d4append(dataDest);
		}
	    }
	}
	curr+=1816L;
    }
}