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

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

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

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加森ビル⑧３階
> > > 　　　　　　　℡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. ∞∞∞∞∞∞