downbank.ec

来自「在SCO UNIX制定界面程序 可根据文件配制菜单,而不必修改源程序,非常方便」· EC 代码 · 共 70 行

/****************************************************
 *	黑名单重发之界面处理所用到的函数
 *
 * 最后修改:	周国祥 2001/08/23
 ****************************************************/
#include <stdio.h>
#include "mytools.h"
EXEC SQL INCLUDE sqlca;
EXEC SQL WHENEVER SQLERROR CALL error_handler;
EXEC SQL WHENEVER SQLWARNING CALL warning_handler;
EXEC SQL WHENEVER NOT FOUND CALL notfound_handler;

int get_max_sid(int *sid,long *date)
{
	$int  msid;
	$long mdate;

$ifdef zgx010823_modi;
$else;
	*sid = 0;
	*date = 0;
$endif;
        $SELECT MAX(rcv_date) INTO $mdate FROM wb_log;
	if (sqlca.sqlcode != 0) 
		return(sqlca.sqlcode);

        $SELECT MAX(sid) INTO $msid FROM wb_log
                WHERE rcv_date = $mdate;
	if (sqlca.sqlcode != 0) 
		return(sqlca.sqlcode);

	*sid = msid;
	*date = mdate;
	return(0);
}

int get_wb_snd_date(char *snd_date,char *rcv_date, char *bank_id, char *host_id)
{
	$long wb_snd_date;
	$long wb_rcv_date;
	$char wb_bank_id[12];
	$char wb_host_id[3];
	
	if ((bank_id[0] == 0) || (host_id[0] == 0))  return(0);
	
	strcpy(wb_bank_id,bank_id);
	strcpy(wb_host_id,host_id);

	EXEC SQL SELECT snd_date, rcv_date
		INTO :wb_snd_date, :wb_rcv_date
		FROM wb_snd_bank
		WHERE bank_id = :wb_bank_id
		AND host_id = :wb_host_id ;
	if (sqlca.sqlcode != 0) {
		return(sqlca.sqlcode);
	}

	rfmtdate(wb_snd_date,"MM/DD/YYYY", snd_date);
	rfmtdate(wb_rcv_date,"MM/DD/YYYY", rcv_date);
	/*================== WuBin 2001-8-6 10:39 ======Start==============
	*snd_date = wb_snd_date;
	*rcv_date = wb_rcv_date;
	===========================2001-8-6 10:39=======End==============*/

	return(0);
}