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;
}