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

[成田恭一[NWH] <ntnarita_prn@xxxxxxxxx>]

小林様

ご回答ありがとうございます。
> どのような用途かわかりませんが、予約の登録と取り消しだけなら、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加森ビル⑧３階
> > 　　　　　　　℡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. ∞∞∞∞∞∞