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

[Shinji KOBAYASHI <skoba@xxxxxxxxxx>]

どのような用途かわかりませんが、予約の登録と取り消しだけなら、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加森ビル⑧３階
> 　　　　　　　℡011-614-9130   fax011-614-2699
> 　　　　　　　 http://www.ntwork.co.jp
>              mail：ntnarita_prn@xxxxxxxxx
> 　　　　 本　社　札幌市西区西町南１７−２−４０
> 　　　　　　　℡011-661-6618　 fax011-661-6931
>        東京支店 東京都新宿区西新宿６−１０−１
> 　　　　　　　　　　日土地新宿ビル ８階
> 　　　　　　　　　 ℡ 03-5325-3370
> ∞∞∞∞∞∞∞ Network Hokkaido Inc. ∞∞∞∞∞∞
>
>