[KEK Online Group] -> [Nakayoshi's Page] -> [SQL Test] -> [magnetRecord]

新レコード magnetRecord(仮称)の実装

テスト環境
テスト内容・結果
今後の予定

テスト環境

ハードウエア

Server PC(Pentium II 300MHz, 196MB, DECchip 21140)
Client PC(Pentium II 350MHz, 126MB, Intel Corp. 82557/8/9)
Server PC(Xeon 3.2GHz, 2GB, Intel Corp. 82545EM)

ソフトウエア

EPICS 3.14.5
asynDriver 3.1
MySQL4.0.12
Client Programs(C)

データベース

11 Columns x 100, 200, ..., 1000, 13 Columns x 200
table format

テスト内容・結果

前回報告で述べたように、1台の電磁石電源の情報に対応する DB の行が EPICS の新しいレコードに対応するように magnetRecord(仮称)の実装を行なった(KEK 加速器施設の小田切氏の御協力に感謝致します)。前回のくり返しになるが既存の配列型のレコード(waveform, aai, aao)では、その配列の要素の型は全て同じでなければならないため文字列や整数型の混在した新たなレコードを作ることにした。また、これまで DB のテーブルは1つと仮定していたが、レコード(電源)毎に指定できるようにした。

magnetRecord を規定しているデータベース型定義ファイル magnetRecord.dbd は次のようになっている。

recordtype(magnet) {
        include "dbCommon.dbd" 
        field(VAL,DBF_STRING) {
                prompt("Value")
                special(SPC_DBADDR)
                interest(1)
                size(16)
        }
        field(IDX,DBF_LONG) {
                prompt("MySQL Index")
        }
        field(MAG,DBF_STRING) {
                prompt("Magnet Name")
                promptgroup(GUI_DISPLAY)
                interest(1)
                size(16)
        }
        field(ITM1,DBF_LONG) {
                prompt("Item1 Value")
                asl(ASL0)
                pp(TRUE)
        }
        field(ITM2,DBF_LONG) {
                prompt("Item2 Value")
                asl(ASL0)
                pp(TRUE)
        }
        field(ITM3,DBF_LONG) {
                prompt("Item3 Value")
                asl(ASL0)
                pp(TRUE)
        }
        field(ITM4,DBF_LONG) {
                prompt("Item4 Value")
                asl(ASL0)
                pp(TRUE)
        }
        field(ITM5,DBF_LONG) {
                prompt("Item5 Value")
                asl(ASL0)
                pp(TRUE)
        }
        field(ITM6,DBF_LONG) {
                prompt("Item6 Value")
                asl(ASL0)
                pp(TRUE)
        }
        field(ITM7,DBF_LONG) {
                prompt("Item7 Value")
                asl(ASL0)
                pp(TRUE)
        }
        field(ITM8,DBF_LONG) {
                prompt("Item8 Value")
                asl(ASL0)
                pp(TRUE)
        }
        field(ITM9,DBF_LONG) {
                prompt("Item9 Value")
                asl(ASL0)
                pp(TRUE)
        }
        field(IT10,DBF_LONG) {
                prompt("Item10 Value")
                asl(ASL0)
                pp(TRUE)
        }
        field(TMS,DBF_STRING) {
                prompt("MySQL Time Stamp")
                promptgroup(GUI_DISPLAY)
                interest(1)
                size(20)
        }
        field(INP,DBF_INLINK) {
                prompt("Input Specification")
                promptgroup(GUI_INPUTS)
                special(SPC_NOMOD)
                interest(1)
        }
        field(PREC,DBF_SHORT) {
                prompt("Display Precision")
                promptgroup(GUI_DISPLAY)
                interest(1)
        }
}

.db ファイル

record(magnet,"$(name):$(port):$(table):$(mg)") {
    field(DESC, "MySQL select")
    field(SCAN,"1 second")
    field(DTYP,"MySql")
    field(INP,"@$(port) $(table) $(mg) * $(addr)")
}

Start up ファイル

...
dbLoadDatabase("dbd/example.dbd")
example_registerRecordDeviceDriver(pdbbase)

sqlDriverInit("nakadell", "nakayosi", "SQL_TEST", 0)

dbLoadRecords("db/testAi.db","name=client2,port=nakadell,addr=0,table=test_table100,mg=magnet1,info=item9")

dbLoadRecords("db/testMag.db","name=client2,port=nakadell,addr=1,table=howl_table200,mg=magnet1")
dbLoadRecords("db/testMag.db","name=client2,port=nakadell,addr=2,table=howl_table200,mg=magnet2")
dbLoadRecords("db/testMag.db","name=client2,port=nakadell,addr=3,table=howl_table200,mg=magnet3")
dbLoadRecords("db/testMag.db","name=client2,port=nakadell,addr=4,table=howl_table200,mg=magnet4")
dbLoadRecords("db/testMag.db","name=client2,port=nakadell,addr=5,table=howl_table200,mg=magnet5")
dbLoadRecords("db/testMag.db","name=client2,port=nakadell,addr=6,table=howl_table200,mg=magnet6")
dbLoadRecords("db/testMag.db","name=client2,port=nakadell,addr=7,table=howl_table200,mg=magnet7")
dbLoadRecords("db/testMag.db","name=client2,port=nakadell,addr=8,table=howl_table200,mg=magnet8")
dbLoadRecords("db/testMag.db","name=client2,port=nakadell,addr=9,table=howl_table200,mg=magnet9")
dbLoadRecords("db/testMag.db","name=client2,port=nakadell,addr=10,table=howl_table200,mg=magnet10")

iocInit()

今後の予定

長期耐久テスト
過負荷テスト