int insertSample(
ST_Rsv00784Insert* at_InsertRsv00874_I_p) /* 登録データ構造体P */ /* 変数定義 */
char lc_FunName_a[FUNNAMESIZE]={"insertSample"}; /* 関数名 */
static char lc_ViewName_a[RSICDX_VI_LEN+1]; /* 登録VIEW名 */
rsstatus_t lt_status; /* ステータス構造体 */
#ifdef DBG2
printf("==========%s start==================\n",lc_FunName_a);
#endif /* 1.VIEW 取得処理 */
li_rc = rsgetview( GKNBRMWBKS, ICDTKY_ATM, "*", lc_ViewName_a,
&li_Blockinfo, &(lt_status)); #ifdef DBG2
printf("-----li_rc=%d\n",li_rc);
#endif /* ビュー取得処理で異常終了*/
if ( li_rc != RSNORMAL )
{ #ifdef DBG2
printf("==========%s getviewerror============\n",lc_FunName_a);
#endif /* ビュー取得エラーのメッセージ出力 */
/*============================================================================
*ここでメッセージ出力共通関数の追加が必要です。
*関数名: BGKKC001005 エラー種別 インフラAPIエラー
*出力内容:①オペレータID、②閉塞検出関数名、③リターンコード、④論理ビュー名
* ⑤API名 ⑥閉塞ステータス
*============================================================================*/ return( DI_ABORT );
} /* 2.ホスト変数定義 */
EXEC SQL BEGIN DECLARE SECTION;
VARCHAR lv_sql_statement[STRLENSQL]; /* SQL文字列領域 */
ST_Rsv00784* lt_Rsv00784insert;
EXEC SQL END DECLARE SECTION; /* 3. 項目値初期化と設定処理 */
lt_Rsv00784insert = at_InsertRsv00874_I_p; /* 4. SQLエラートラップ */
EXEC SQL WHENEVER SQLERROR GOTO sqlerror; /* 5. SQL文字列作成 */
sql_statement.len = sprintf((char *)sql_statement.arr,
"INSERT INTO"
" %s "
" (data_tp," /* 料金計算関連データ種別 */
"call_tp_ptn_no," /* 呼種ptn番号 */
"chrg_index," /* 料金料index */
"volm_dsct_tp," /* ボリューム割引種別 */
"svc_tp," /* ボリューム割引サービス種別 */
"cmm_form_dv," /* 通信形態区分 */
"way_tp," /* 方向種別 */
"cnfr_f," /* 会議通話識別_f */
"inmar_tel_fax_f," /* 海事衛星電話fax同報通信_f */
"spcl_job_tp," /* 特別業務種別 */
"vpn_call_tp," /* vpn通話種別 */
"coll_cr_dv," /* コレクト_クレジット区分 */
"crcd_tp," /* クレジットカード種別 */
"tel_cr_hctry_dv," /* テレクレ本国宛表示区分 */
"spcl_spcf_dv," /* 特殊指定区分 */
"bear_svc_tp," /* ベアラサービス種別 */
"semi_dv," /* 非自動通話区分 */
"snd_te_dv," /* 発信端末設備区分 */
"rcv_te_dv," /* 着信端末設備区分 */
"imaero_s_area_dv," /* インマルエアロ発海空域区分 */
"im_s_sys_tp," /* インマル発信システム種別 */
"cdr_ptn," /* cdr_ptn情報 */
"kissdbdate," /* kissdbdate */
"kissdbcnt," /* kissdbcnt */
"kissaudit" /* kissaudit */
") "
"VALUES (:V0, :v1, :v2, :V3, :v4, :v5, :V6, :v7, :v8, :V9, :v10, :v12, :V13, :v14, :v15,"
" :V16, :v17, :v18, :V19, :V20, :v21, :SYSDATE, :V23, :V24)"
, view_name); /* 6. SQL解析 */
EXEC SQL PREPARE S_insertllog FROM :sql_statement; /* 7. 動的SQL実行 */
EXEC SQL EXECUTE S_insertllog USING
: lt_Rsv00784insert->data_tp, /* 料金計算関連データ種別 */
: lt_Rsv00784insert->call_tp_ptn_no, /* 呼種ptn番号 */
: lt_Rsv00784insert->chrg_index, /* 料金料index */
: lt_Rsv00784insert->volm_dsct_tp, /* ボリューム割引種別 */
: lt_Rsv00784insert->svc_tp, /* ボリューム割引サービス種別 */
: lt_Rsv00784insert->cmm_form_dv, /* 通信形態区分 */
: lt_Rsv00784insert->way_tp, /* 方向種別 */
: lt_Rsv00784insert->cnfr_f, /* 会議通話識別_f */
: lt_Rsv00784insert->inmar_tel_fax_f, /* 海事衛星電話fax同報通信_f */
: lt_Rsv00784insert->spcl_job_tp, /* 特別業務種別 */
: lt_Rsv00784insert->vpn_call_tp, /* vpn通話種別 */
: lt_Rsv00784insert->coll_cr_dv, /* コレクト_クレジット区分 */
: lt_Rsv00784insert->crcd_tp, /* クレジットカード種別 */
: lt_Rsv00784insert->tel_cr_hctry_dv, /* テレクレ本国宛表示区分 */
: lt_Rsv00784insert->spcl_spcf_dv, /* 特殊指定区分 */
: lt_Rsv00784insert->bear_svc_tp, /* ベアラサービス種別 */
: lt_Rsv00784insert->semi_dv, /* 非自動通話区分 */
: lt_Rsv00784insert->snd_te_dv, /* 発信端末設備区分 */
: lt_Rsv00784insert->rcv_te_dv, /* 着信端末設備区分 */
: lt_Rsv00784insert->imaero_s_area_dv, /* インマルエアロ発海空域区分 */
: lt_Rsv00784insert->im_s_sys_tp, /* インマル発信システム種別 */
: lt_Rsv00784insert->cdr_ptn, /* cdr_ptn情報 */
: lt_Rsv00784insert->kissdbdate, /* kissdbdate */
: lt_Rsv00784insert->kissdbcnt, /* kissdbcnt */
: lt_Rsv00784insert->kissaudit /* kissaudit */ #ifdef DBG2
printf("==========%s end==================\n",lc_FunName_a);
#endif
EXEC SQL CLOSE s_cursor;
return RSNORMAL ; /* 9. SQLエラー処理 */
sqlerror:
#ifdef DBG2
printf("========SQL-Error %d%s end=====\n",SQLCODE,lc_FunName_a);
#endif /* メッセージ関数設定処理が必要 */
/*=======================================================================================
*ここでメッセージ出力共通関数の追加が必要です。
*関数名: BGKKC001005 エラー種別: DB障害
*出力内容:①オペレータID、②呼び出し元関数名、③SQL関数名(SQL EXECUTE等)、④論理ビュー名
* ⑤SQLエラーコード ⑥DBMSエラーメッセージ
*=======================================================================================*/
EXEC SQL CLOSE s_cursor;
return SQLCODE;
}
ST_Rsv00784Insert* at_InsertRsv00874_I_p) /* 登録データ構造体P */ /* 変数定義 */
char lc_FunName_a[FUNNAMESIZE]={"insertSample"}; /* 関数名 */
static char lc_ViewName_a[RSICDX_VI_LEN+1]; /* 登録VIEW名 */
rsstatus_t lt_status; /* ステータス構造体 */
#ifdef DBG2
printf("==========%s start==================\n",lc_FunName_a);
#endif /* 1.VIEW 取得処理 */
li_rc = rsgetview( GKNBRMWBKS, ICDTKY_ATM, "*", lc_ViewName_a,
&li_Blockinfo, &(lt_status)); #ifdef DBG2
printf("-----li_rc=%d\n",li_rc);
#endif /* ビュー取得処理で異常終了*/
if ( li_rc != RSNORMAL )
{ #ifdef DBG2
printf("==========%s getviewerror============\n",lc_FunName_a);
#endif /* ビュー取得エラーのメッセージ出力 */
/*============================================================================
*ここでメッセージ出力共通関数の追加が必要です。
*関数名: BGKKC001005 エラー種別 インフラAPIエラー
*出力内容:①オペレータID、②閉塞検出関数名、③リターンコード、④論理ビュー名
* ⑤API名 ⑥閉塞ステータス
*============================================================================*/ return( DI_ABORT );
} /* 2.ホスト変数定義 */
EXEC SQL BEGIN DECLARE SECTION;
VARCHAR lv_sql_statement[STRLENSQL]; /* SQL文字列領域 */
ST_Rsv00784* lt_Rsv00784insert;
EXEC SQL END DECLARE SECTION; /* 3. 項目値初期化と設定処理 */
lt_Rsv00784insert = at_InsertRsv00874_I_p; /* 4. SQLエラートラップ */
EXEC SQL WHENEVER SQLERROR GOTO sqlerror; /* 5. SQL文字列作成 */
sql_statement.len = sprintf((char *)sql_statement.arr,
"INSERT INTO"
" %s "
" (data_tp," /* 料金計算関連データ種別 */
"call_tp_ptn_no," /* 呼種ptn番号 */
"chrg_index," /* 料金料index */
"volm_dsct_tp," /* ボリューム割引種別 */
"svc_tp," /* ボリューム割引サービス種別 */
"cmm_form_dv," /* 通信形態区分 */
"way_tp," /* 方向種別 */
"cnfr_f," /* 会議通話識別_f */
"inmar_tel_fax_f," /* 海事衛星電話fax同報通信_f */
"spcl_job_tp," /* 特別業務種別 */
"vpn_call_tp," /* vpn通話種別 */
"coll_cr_dv," /* コレクト_クレジット区分 */
"crcd_tp," /* クレジットカード種別 */
"tel_cr_hctry_dv," /* テレクレ本国宛表示区分 */
"spcl_spcf_dv," /* 特殊指定区分 */
"bear_svc_tp," /* ベアラサービス種別 */
"semi_dv," /* 非自動通話区分 */
"snd_te_dv," /* 発信端末設備区分 */
"rcv_te_dv," /* 着信端末設備区分 */
"imaero_s_area_dv," /* インマルエアロ発海空域区分 */
"im_s_sys_tp," /* インマル発信システム種別 */
"cdr_ptn," /* cdr_ptn情報 */
"kissdbdate," /* kissdbdate */
"kissdbcnt," /* kissdbcnt */
"kissaudit" /* kissaudit */
") "
"VALUES (:V0, :v1, :v2, :V3, :v4, :v5, :V6, :v7, :v8, :V9, :v10, :v12, :V13, :v14, :v15,"
" :V16, :v17, :v18, :V19, :V20, :v21, :SYSDATE, :V23, :V24)"
, view_name); /* 6. SQL解析 */
EXEC SQL PREPARE S_insertllog FROM :sql_statement; /* 7. 動的SQL実行 */
EXEC SQL EXECUTE S_insertllog USING
: lt_Rsv00784insert->data_tp, /* 料金計算関連データ種別 */
: lt_Rsv00784insert->call_tp_ptn_no, /* 呼種ptn番号 */
: lt_Rsv00784insert->chrg_index, /* 料金料index */
: lt_Rsv00784insert->volm_dsct_tp, /* ボリューム割引種別 */
: lt_Rsv00784insert->svc_tp, /* ボリューム割引サービス種別 */
: lt_Rsv00784insert->cmm_form_dv, /* 通信形態区分 */
: lt_Rsv00784insert->way_tp, /* 方向種別 */
: lt_Rsv00784insert->cnfr_f, /* 会議通話識別_f */
: lt_Rsv00784insert->inmar_tel_fax_f, /* 海事衛星電話fax同報通信_f */
: lt_Rsv00784insert->spcl_job_tp, /* 特別業務種別 */
: lt_Rsv00784insert->vpn_call_tp, /* vpn通話種別 */
: lt_Rsv00784insert->coll_cr_dv, /* コレクト_クレジット区分 */
: lt_Rsv00784insert->crcd_tp, /* クレジットカード種別 */
: lt_Rsv00784insert->tel_cr_hctry_dv, /* テレクレ本国宛表示区分 */
: lt_Rsv00784insert->spcl_spcf_dv, /* 特殊指定区分 */
: lt_Rsv00784insert->bear_svc_tp, /* ベアラサービス種別 */
: lt_Rsv00784insert->semi_dv, /* 非自動通話区分 */
: lt_Rsv00784insert->snd_te_dv, /* 発信端末設備区分 */
: lt_Rsv00784insert->rcv_te_dv, /* 着信端末設備区分 */
: lt_Rsv00784insert->imaero_s_area_dv, /* インマルエアロ発海空域区分 */
: lt_Rsv00784insert->im_s_sys_tp, /* インマル発信システム種別 */
: lt_Rsv00784insert->cdr_ptn, /* cdr_ptn情報 */
: lt_Rsv00784insert->kissdbdate, /* kissdbdate */
: lt_Rsv00784insert->kissdbcnt, /* kissdbcnt */
: lt_Rsv00784insert->kissaudit /* kissaudit */ #ifdef DBG2
printf("==========%s end==================\n",lc_FunName_a);
#endif
EXEC SQL CLOSE s_cursor;
return RSNORMAL ; /* 9. SQLエラー処理 */
sqlerror:
#ifdef DBG2
printf("========SQL-Error %d%s end=====\n",SQLCODE,lc_FunName_a);
#endif /* メッセージ関数設定処理が必要 */
/*=======================================================================================
*ここでメッセージ出力共通関数の追加が必要です。
*関数名: BGKKC001005 エラー種別: DB障害
*出力内容:①オペレータID、②呼び出し元関数名、③SQL関数名(SQL EXECUTE等)、④論理ビュー名
* ⑤SQLエラーコード ⑥DBMSエラーメッセージ
*=======================================================================================*/
EXEC SQL CLOSE s_cursor;
return SQLCODE;
}
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货