get_sys_lsh.txt

unix 下的一个tcp通信例子

$include sqlca ;
$include sqlda ;

int Get_Pt_Seq(char *seq)
{
     $int sysseq ;

    //seq = (char *)malloc(6);

     $ begin work;

     do {
        $ lock table syspara in exclusive mode;
        if(sqlca.sqlcode) sleep(1);//停止运行的秒数
     } while (sqlca.sqlcode);

    plink_log("Get_Pt_Seq begin!");
     $select sysseq into $sysseq from syspara where 1=1 ;
     if (sqlca.sqlcode) {
        plink_log("取平台流水号错误%d %s->%d",sqlca.sqlcode,__FILE__,__LINE__);
        return 1;
     }
    plink_log("lsh = [%d]",sysseq);
     if ( sysseq < 50001 ) sysseq=50001 ;
     if ( sysseq >= 490000 ) sysseq=50001 ;
    plink_log("lsh = [%d]",sysseq);

     $update syspara set sysseq=$sysseq+1 where 1=1;
     if (sqlca.sqlcode) {
        plink_log("更新平台流水号错误 %d %s->%d",sqlca.sqlcode,__FILE__,__LINE__);
        return 1;
     }
    plink_log("lsh = [%d]",sysseq);

     $ unlock table ssypara;

     $ commit work;

    plink_log("lsh = [%d]",sysseq);
     sprintf(seq,"%-6ld",sysseq);
    plink_log("seq = [%s]",seq);
    plink_log("Get_Pt_Seq end!");

     return 0 ;
}