/************************************************/
/* func_isdigit
　　処理概要：NUMERICチェック処理
　　　　　　文字数分NUMERICチェックを行う
　　Ｉ／Ｏ
　　　　char *cheak_obj (i/ ) チェック対象文字列
　　　　戻り値 0:数字以外 */
/************************************************/
long func_isdigit(char *cheak_obj){

　　long isdigit_rtn;
　　unsigned long i; /* 添え字(文字数分) */
　　unsigned long cLength; /* チェックする文字列の長さ */

　　cLength = strlen(cheak_obj); /* チェックする文字列の長さを取得 */

　　for ( i=0 ; isdigit_rtn == 0 || i <= cLength ; i++ ) {
　　　　if (isdigit(cheak_obj[i]) == 0 ) { /*チェック文字列に数字以外がある場合*/
　　　　　　return 0;
　　　　}
　　　　return 1;
　　}
}