publib.ec

在IBM RS6000小型机上AIX操作系统下INFORMIX数据库C源代码有通讯和管理程序

#include<time.h>
#include<stdio.h>
#include <sys/ipc.h>
#include <sys/msg.h>
#include <sys/shm.h>
#include <sys/sem.h>
#include <fcntl.h>
#include <ctype.h>
#include <sys/types.h>
#define BUFFSIZE 512
#define QPERM 0777
char aa[256]={
0x00,0x00,0x00,0x00,0x00,0x09,0x00,0x00,0x00,0x00,0x00,0x00,0x0c,0x0d,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x0a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x0a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x20,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x5e,0x2e,0x3c,0x28,0x2b,0x5d,
0x26,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x21,0x24,0x2a,0x29,0x3b,0x5b,
0x2d,0x2f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x7c,0x2c,0x25,0x5f,0x3e,0x3f,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0x3a,0x23,0x40,0x27,0x3d,0x22,
0x00,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x6a,0x6b,0x6c,0x6d,0x6e,0x6f,0x70,0x71,0x72,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x7e,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7a,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x7b,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x00,0x00,0x00,0x00,0x00,0x00,
0x7d,0x4a,0x4b,0x4c,0x4d,0x4e,0x4f,0x50,0x51,0x52,0x00,0x00,0x00,0x00,0x00,0x00,
0xe0,0x00,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5a,0x00,0x00,0x00,0x00,0x00,0x00,
0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x00,0x00,0x00,0x00,0x00,0x00}
;
unsigned short chrtab[100]={
0x4040,0x4344,0x4341,0x4345,0x4545,0x4546,0x4460,0x445b,0x445d,0x444a,0x43a1,
0x447c,0x447f,0x4461,0x4471,0x4462,0x4472,0x4463,0x4473,0x4464,0x4474,0x4465,
0x4475,0x4342,0x4343,0x4442,0x4443,0x455b,0x455c,0x4466,0x4476,0x444b,0x447a,
0x447b,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0x444c,0x4579,0x457a,
0x4467,0x4477,0x444d,0x4478,0x4468,0x4469,0x4479,0x44ed,0x44ee,0x44ef,0x444e,
0x42e0,0x4588,0x434a,0x424a,0x458b,0x446a,0x446e,0x44e5,0x44e6,0x44e0,0x44e1,
0x44e4,0x44e7,0x44e8,0x44e9,0x44ea,0x44e2,0x44e3,0x446b,0x44f0,0x44f1,0x44f2,
0x44f3,0x447d,
};
static unsigned char atoe[256] = 
	   { 0x00, 0x01, 0x02, 0x03, 0x37, 0x2D, 0x2E, 0x2F,
	     0x16, 0x05, 0x25, 0x0B, 0x0C, 0x0D, 0x0E, 0x0F,
	     0x10, 0x11, 0x12, 0x13, 0x3C, 0x3D, 0x32, 0x26,
	     0x18, 0x19, 0x3F, 0x27, 0x1C, 0x1D, 0x1E, 0x1F,
	     0x40, 0x5A, 0x7F, 0x7B, 0x5B, 0x6C, 0x50, 0x7D,
	     0x4D, 0x5D, 0x5C, 0x4E, 0x6B, 0x60, 0x4B, 0x61,
	     0xF0, 0xF1, 0xF2, 0xF3, 0xF4, 0xF5, 0xF6, 0xF7,
	     0xF8, 0xF9, 0x7A, 0x5E, 0x4C, 0x7E, 0x6E, 0x6F,
	     0x7C, 0xC1, 0xC2, 0xC3, 0xC4, 0xC5, 0xC6, 0xC7,
	     0xC8, 0xC9, 0xD1, 0xD2, 0xD3, 0xD4, 0xD5, 0xD6,
	     0xD7, 0xD8, 0xD9, 0xE2, 0xE3, 0xE4, 0xE5, 0xE6,
	     0xE7, 0xE8, 0xE9, 0x4A, 0xE0, 0x4F, 0x5F, 0x6D,
	     0x79, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87,
	     0x88, 0x89, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96,
	     0x97, 0x98, 0x99, 0xA2, 0xA3, 0xA4, 0xA5, 0xA6,
	     0xA7, 0xA8, 0xA9, 0xC0, 0x6A, 0xD0, 0xA1, 0x07,
	     0x20, 0x21, 0x22, 0x23, 0x24, 0x15, 0x06, 0x17,
	     0x28, 0x29, 0x2A, 0x2B, 0x2C, 0x09, 0x0A, 0x1B,
	     0x30, 0x31, 0x1A, 0x33, 0x34, 0x35, 0x36, 0x08,
	     0x38, 0x39, 0x3A, 0x3B, 0x04, 0x14, 0x3E, 0xE1,
	     0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48,
	     0x49, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57,
	     0x58, 0x59, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
	     0x68, 0x69, 0x70, 0x71, 0x72, 0x73, 0x74, 0x75,
	     0x76, 0x77, 0x78, 0x80, 0x8A, 0x8B, 0x8C, 0x8D,
	     0x8E, 0x8F, 0x90, 0x9A, 0x9B, 0x9C, 0x9D, 0x9E,
	     0x9F, 0xA0, 0xAA, 0xAB, 0xAC, 0xAD, 0xAE, 0xAF,
	     0xB0, 0xB1, 0xB2, 0xB3, 0xB4, 0xB5, 0xB6, 0xB7,
	     0xB8, 0xB9, 0xBA, 0xBB, 0xBC, 0xBD, 0xBE, 0xBF,
	     0xCA, 0xCB, 0xCC, 0xCD, 0xCE, 0xCF, 0xDA, 0xDB,
	     0xDC, 0xDD, 0xDE, 0xDF, 0xEA, 0xEB, 0xEC, 0xED,
	     0xEE, 0xEF, 0xFA, 0xFB, 0xFC, 0xFD, 0xFE, 0xFF
	     };

static unsigned char etoa[256] = 
	   { 0x00, 0x01, 0x02, 0x03, 0x9C, 0x09, 0x86, 0x7F,
	     0x97, 0x8D, 0x8E, 0x0B, 0x0C, 0x0D, 0x0E, 0x0F,
	     0x10, 0x11, 0x12, 0x13, 0x9D, 0x85, 0x08, 0x87,
	     0x18, 0x19, 0x92, 0x8F, 0x1C, 0x1D, 0x1E, 0x1F,
	     0x80, 0x81, 0x82, 0x83, 0x84, 0x0A, 0x17, 0x1B,
	     0x88, 0x89, 0x8A, 0x8B, 0x8C, 0x05, 0x06, 0x07,
	     0x90, 0x91, 0x16, 0x93, 0x94, 0x95, 0x96, 0x04,
	     0x98, 0x99, 0x9A, 0x9B, 0x14, 0x15, 0x9E, 0x1A,
	     0x20, 0xA0, 0xA1, 0xA2, 0xA3, 0xA4, 0xA5, 0xA6,
	     0xA7, 0xA8, 0x5B, 0x2E, 0x3C, 0x28, 0x2B, 0x5D,
	     0x26, 0xA9, 0xAA, 0xAB, 0xAC, 0xAD, 0xAE, 0xAF,
	     0xB0, 0xB1, 0x21, 0x24, 0x2A, 0x29, 0x3B, 0x5E,
	     0x2D, 0x2F, 0xB2, 0xB3, 0xB4, 0xB5, 0xB6, 0xB7,
	     0xB8, 0xB9, 0x7C, 0x2C, 0x25, 0x5F, 0x3E, 0x3F,
	     0xBA, 0xBB, 0xBC, 0xBD, 0xBE, 0xBF, 0xC0, 0xC1,
	     0xC2, 0x60, 0x3A, 0x23, 0x40, 0x27, 0x3D, 0x22,
	     0xC3, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
	     0x68, 0x69, 0xC4, 0xC5, 0xC6, 0xC7, 0xC8, 0xC9,
	     0xCA, 0x6A, 0x6B, 0x6C, 0x6D, 0x6E, 0x6F, 0x70,
	     0x71, 0x72, 0xCB, 0xCC, 0xCD, 0xCE, 0xCF, 0xD0,
	     0xD1, 0x7E, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78,
	     0x79, 0x7A, 0xD2, 0xD3, 0xD4, 0xD5, 0xD6, 0xD7,
	     0xD8, 0xD9, 0xDA, 0xDB, 0xDC, 0xDD, 0xDE, 0xDF,
	     0xE0, 0xE1, 0xE2, 0xE3, 0xE4, 0xE5, 0xE6, 0xE7,
	     0x7B, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47,
	     0x48, 0x49, 0xE8, 0xE9, 0xEA, 0xEB, 0xEC, 0xED,
	     0x7D, 0x4A, 0x4B, 0x4C, 0x4D, 0x4E, 0x4F, 0x50,
	     0x51, 0x52, 0xEE, 0xEF, 0xF0, 0xF1, 0xF2, 0xF3,
	     0x5C, 0x9F, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58,
	     0x59, 0x5A, 0xF4, 0xF5, 0xF6, 0xF7, 0xF8, 0xF9,
	     0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
	     0x38, 0x39, 0xFA, 0xFB, 0xFC, 0xFD, 0xFE, 0xFF
	     };
struct commsg_fmt {
        long	msg_typ; 	/* message type */
	char	msg[BUFFSIZE];
        };

/******* 通知后台进程 mp& 结束,取消共享内存及信息量 *******/
int kill_mp()
{
    $long mlsh;
    int ret,semid,shmid,shmsize,end_id,*end_ip;
    long *ip;

    shmsize=sizeof(int);
    if((end_id=shmget(0x501,shmsize,IPC_CREAT|0666))<0) {
	if((end_id=shmget(0x501,shmsize,0))<0) {
		perror("shmget failed");
/*	        memcpy(msg1->rc,PATR_KIERR,2);*/
		return(-1);
        }
    }
    if(*(end_ip=(int *)shmat(end_id,0,0)) == -1) {
	perror("shmat failed");
	return(-1);
    }
    *end_ip=0;
    sleep(1);
    shmdt((char *)end_ip);
    shmctl(end_id,IPC_RMID,NULL);

    ret=0;
    shmsize=sizeof(long);
    if((shmid=shmget(0x500,shmsize,IPC_CREAT|0666))<0) {
	if((shmid=shmget(0x500,shmsize,0))<0) {
		perror("shmget failed");
		return(-1);
        }
    }
    if(*(ip=(long *)shmat(shmid,0,0)) == -1) {
	perror("shmat failed");
	return(-1);
    }

    mlsh=*ip;
    printf("\nmlsh= %d\n",mlsh);
    $ update lskzb set mlsh=$mlsh where rq=today;
    if (sqlca.sqlcode<0) {
      fprintf(stderr,"update lskzb error!\n");
      ret=-1;
    }
    if (sqlca.sqlcode==100) {
      fprintf(stderr,"Not found today record!\n");
      ret=-1;
    }

    if ((semid=semget(0x500,1,IPC_CREAT|0666))<0) {
      fprintf(stderr,"semget error!\n");
      ret=-1;
    }
    else
      if (semctl(semid,0,IPC_RMID,0)<0) {
         fprintf(stderr,"semctl error!\n");
         ret=-1;
       }
   
    shmdt((char *)ip);
    shmctl(shmid,IPC_RMID,NULL);
    return(ret);
}


/********  将流水控制表读入共享内存   ********/
int init_shm()
{
    $long mlsh;
    int semid,shmid,shmsize,end_id,*end_ip;
    long *ip;

    shmsize=sizeof(int);
    if((end_id=shmget(0x501,shmsize,IPC_CREAT|0666))<0) {
	if((end_id=shmget(0x501,shmsize,0))<0) {
		perror("shmget failed");
		return(-1);
        }
    }
    if(*(end_ip=(int *)shmat(end_id,0,0)) == -1) {
	perror("shmat failed");
	return(-1);
    }
    *end_ip=1;
    shmdt((char *)end_ip);

    shmsize=sizeof(long);
    if((shmid=shmget(0x500,shmsize,IPC_CREAT|0666))<0) {
	if((shmid=shmget(0x500,shmsize,0))<0) {
		perror("shmget failed");
		return(-1);
        }
    }
    if(*(ip=(long *)shmat(shmid,0,0)) == -1) {
	perror("shmat failed");
	return(-1);
    }
    *ip=0l;

    if ((semid=semget(0x500,1,IPC_CREAT|0666))<0)
             fprintf(stderr,"semget error!\n");
    else if (semctl(semid,0,SETVAL,1)<0) 
             fprintf(stderr,"semctl error!\n");
         else
             fprintf(stderr,"起信息量完毕!\n");
   
    shmdt((char *)ip);
    return(0);
}


/********  将流水表最大流水号读入共享内存   ********/
int rest_shm()
{
    $long mlsh,mlsh1;
    int semid,shmid,shmsize,end_id,*end_ip;
    long *ip;
    int ret_ljlsb,ret_lskzb;

    shmsize=sizeof(int);
    if((end_id=shmget(0x501,shmsize,IPC_CREAT|0666))<0) {
	if((end_id=shmget(0x501,shmsize,0))<0) {
		perror("shmget failed");
		return(-1);
        }
    }

    if(*(end_ip=(int *)shmat(end_id,0,0)) == -1) {
	perror("shmat failed");
        fprintf(stderr,"rest_shm shmat end_id error\n");
	return(-1);
    }


    *end_ip=1;
    shmdt((char *)end_ip);

    shmsize=sizeof(long);
    if((shmid=shmget(0x500,shmsize,IPC_CREAT|0666))<0) {
	if((shmid=shmget(0x500,shmsize,0))<0) {
		perror("shmget failed");
		return(-1);
        }
    }
    ip=(long *)shmat(shmid,0,0);
    if(*ip == -1) {
	perror("shmat failed");
	return(-1);
    }

    $select max(lsh) into $mlsh
       from ljlsb; 
    ret_ljlsb=sqlca.sqlcode;

    $select mlsh into $mlsh1
       from lskzb; 
    ret_lskzb=sqlca.sqlcode;

    if (ret_ljlsb<0) {
       fprintf(stderr,"select ljlsb error!!\n");
       if (ret_lskzb<0) {
         *ip=0;
         fprintf(stderr,"select lskzb error!\n");
         fprintf(stderr,"\n          mlsh= %d\n\n",*ip);
         shmdt((char *)ip);
         return(-1);
       }
       else
         if (ret_lskzb==100) {
           *ip=0;
           fprintf(stderr,"There is not record in lskzb!\n");
           fprintf(stderr,"\n          mlsh= %d\n\n",*ip);
           shmdt((char *)ip);
           return(-1);
         }
    }

    if (ret_ljlsb==100) {
       fprintf(stderr,"Not found today record!\n");
       if (ret_lskzb<0) {
         *ip=0;
         fprintf(stderr,"select lskzb error!\n");
         fprintf(stderr,"\n          mlsh= %d\n\n",*ip);
         shmdt((char *)ip);
         return(-1);
       }
       else
         if (ret_lskzb==100) {
           *ip=0;
           fprintf(stderr,"There is not record in lskzb!\n");
           fprintf(stderr,"\n          mlsh= %d\n\n",*ip);
           shmdt((char *)ip);
           return(-1);
         }
    }

    if ((mlsh<0) && (mlsh1<0)) {
      *ip=0;
      fprintf(stderr,"     There are not records in the ljlsb!\n");
      fprintf(stderr,"\n          mlsh= %d\n\n",*ip);
      if ((semid=semget(0x500,1,IPC_CREAT|0666))<0)
             fprintf(stderr,"semget error!\n");
      else if (semctl(semid,0,SETVAL,1)<0)
             fprintf(stderr,"semctl error!\n");
           else
             fprintf(stderr,"起信息量完毕!!\n");
      shmdt((char *)ip);
      return(0);
    }

    if (mlsh > mlsh1)
      *ip=mlsh;
    else
      *ip=mlsh1;

    fprintf(stderr,"\n          mlsh= %d\n\n",*ip);

    if ((semid=semget(0x500,1,IPC_CREAT|0666))<0)
             fprintf(stderr,"semget error!\n");
    else if (semctl(semid,0,SETVAL,1)<0)
             fprintf(stderr,"semctl error!\n");
         else