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

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



毎度質問ばかりで申し訳ありません。
ネットワーク北海道の成田です。
添付ファイルが使えるか分からないのですが
添付しますファイルを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. ∞∞∞∞∞∞

Attachment: yoyaku3.tar.gz
Description: Binary data