[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[orca-tech:01843] Re: tbl_yykにアクセスができず困ってます



お世話になっております。成田です。

APIを使ったところうまくいきました。
小林様ありがとうございました。

以上です。
----- Original Message ----- From: "成田恭一[NWH]" <ntnarita_prn@xxxxxxxxx>
To: <orca-tech@xxxxxxxxxxxxxx>
Sent: Wednesday, July 13, 2011 9:02 AM
Subject: [orca-tech:01842] Re:tbl_yykにアクセスができず困ってます


小林様

ご回答ありがとうございます。
どのような用途かわかりませんが、予約の登録と取り消しだけなら、API経由の
ほうが便利だと思います。
APIが出る前からWebサーバを作っておりましたので
Webサーバが既に出来上がっているため、APIの使用を
ためらっている状況です。
----- Original Message ----- From: "Shinji KOBAYASHI" <skoba@xxxxxxxxxx>
To: <orca-tech@xxxxxxxxxxxxxx>
Sent: Tuesday, July 12, 2011 10:58 PM
Subject: [orca-tech:01841] Re:tbl_yykにアクセスができず困ってます


どのような用途かわかりませんが、予約の登録と取り消しだけなら、API経由の
ほうが便利だと思います。
http://www.orca.med.or.jp/receipt/tec/api/

2011年7月12日11:15 成田恭一[NWH] <ntnarita_prn@xxxxxxxxx>:
毎度質問ばかりで申し訳ありません。
ネットワーク北海道の成田です。
添付ファイルが使えるか分からないのですが
添付しますファイルをHAKAMAの指定しているディレクトリ
においてsite-upgrade.shを走らせたあと
動かしてみました。
その後ruby test.rbで動かしてみたところ
tbl_yykにアクセスできない事象が発生いたしました。
以前もこのメーリングリストに質問したのですが
そのときはjma-receipt-dbsをインストールすれば解決
したのですが、今回はtbl_ptnumを追加した途端に
tbl_yykへのアクセスができなくなってしまいました。

添付ファイルが使えないとしたら困りますのでさわりだけ
記述いたします
-------------------------
dbs.dbd
name dbs;
arraysize 40;
textsize 800;

db {
   tbl_yyk;
   tbl_ptinf;
   tbl_ptnum;
};

db "shell"{
    shell;
};
---------------------------
test.rb
sqldata=[["1", "4", "", "10001", "20110710", "1300", "1"], ["1", "1", "",
"10001", "20110710", "1200", "1"]]
i=0

tbl_yyk["tbl_yyk.DRCD"] = sqldata[i][3];
 tbl_yyk["tbl_yyk.YYKYMD"] =sqldata[i][4];
 tbl_yyk["tbl_yyk.KEYYYKTIME"] = sqldata[i][5];
rc = server.recordops("DBSELECT","tbl_yyk","kensu",tbl_yyk);
 hasCountTbl = false;
 yykcnt = 0;

 loop do
  server.recordops("DBFETCH","tbl_yyk","kensu",tbl_yyk);
p "here:",tbl_yyk["tbl_yyk.YYKCNT"]
  tbl_yyk.each{|name,value|
  if tbl_yyk==nil
    yykcnt =0
  else
    yykcnt = tbl_yyk["tbl_yyk.YYKCNT"].to_i;
    hasCountTbl=true
  end
  }
  break if server.rc !=0
 end
------------------------
tbl_yyk.db
path   kensu {
DBSELECT {
 DECLARE tbl_yyk_kensu_csr CURSOR FOR
 SELECT YYKMAXCNT,YYKCNT
 FROM TBL_YYK
 WHERE YYKID = 0
 AND DRCD = :DRCD
 AND YYKYMD = :YYKYMD
 AND KEYYYKTIME = :KEYYYKTIME
 ;
};
};
以上です。何卒よろしくお願いします
∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
 成田 恭一 株式会社ネットワーク北海道
     開発室 札幌市西区二十四軒1-4加森ビル⑧3階
       ℡011-614-9130   fax011-614-2699
        http://www.ntwork.co.jp
             mail:ntnarita_prn@xxxxxxxxx
     本 社 札幌市西区西町南17−2−40
       ℡011-661-6618  fax011-661-6931
       東京支店 東京都新宿区西新宿6−10−1
          日土地新宿ビル 8階
          ℡ 03-5325-3370
∞∞∞∞∞∞∞ Network Hokkaido Inc. ∞∞∞∞∞∞