分散トランザクション処理機能 OpenTP1 プロトコル TP1/NET/XMAP3編

[目次][用語][索引][前へ][次へ]

定義例

TP1/NET/XMAP3を使用したシステム定義の例を示します。

適用OSがUNIXの場合のコーディング例は,次のファイルで提供しています。

適用OSがWindowsの場合のコーディング例は,次のファイルで提供しています。

TP1/NET/XMAP3システム構成例を次の図に示し,その構成に沿った定義例をそのあとに示します。

図7-4 TP1/NET/XMAP3システム構成例

[図データ]

コーディング例(TP1/NET/XMAP3の定義)

 
###############################################################
#                MCF通信構成定義(TP1/NET/XMAP3)                    #
###############################################################
 
# ---------------------- MCF環境定義 ----------------------------- #
mcftenv     -s  66                      \
            -m  A                       \
            -a  aplfil02
 
# ---------------------- MCF共通定義 ----------------------------- #
mcftcomn    -j  32768
 
# ---------------------- 最大処理多重度定義 ----------------------- #
mcfttred    -m  10
 
# ---------------------- タイマ定義 ------------------------------- #
mcfttim     -t "btim = 1                \
                mtim = 180              \
                rmtim = 0"
 
# ---------------------- トレース環境定義 ------------------------- #
mcfttrc     -t "size = 204800           \
                disk = yes              \
                bufcnt = 100            \
                trccnt = 3"             \
            -m  del
 
# ---------------------- 状態引き継ぎ定義 ------------------------- #
mcftsts     -a  10                      \
            -l  10
 
# ---------------------- 送受信バッファ定義 ----------------------- #
### (送信用1)
mcftbuf     -g "groupno = 1             \
                length  = 32768         \
                count   = 20            \
                extend  = 4"
 
### (受信用1)
mcftbuf     -g "groupno = 2             \
                length  = 1024          \
                count   = 10            \
                extend  = 2"
 
### (編集用1)
mcftbuf     -g "groupno = 3             \
                length  = 32768         \
                count   = 30            \
                extend  = 10"
 
# ---------------------- XMAP3共通定義 --------------------------- #
mcftxp      -m "msgkey = 'PF2'          \
                timeoutlog = yes"       \
            -o "opcolor = 2             \
                opreverse = no"         \
            -n  mapserv1
 
# ---------------------- コネクション定義 ------------------------- #
mcftalccn   -c  XPNCN1                  \
            -p  xp                      \
            -g "sndbuf = 1              \
                rcvbuf = 2"             \
            -e "msgbuf = 3              \
                count  = 5"             \
            -i  auto                    \
            -b "bretry = yes            \
                bretrycnt = 3           \
                bretryint = 60"         \
            -S "svname = XPWDSP1        \
                type   = DSP"
 
# ---------------------- 論理端末定義 ---------------------------- #
mcftalcle   -l  XPNLE101                \
            -t  any                     \
            -m "mmsgcnt = 0             \
                dmsgcnt = 0"            \
            -K "keyboard = aptype"      \
            -k "quekind  = memory"      \
            -G "groupsend = no"         \
            -o "aj = yes"               \
            -p "dflmap  = 'MAP02'       \
                initmap = 'MAP01'"      \
            -i  auto                    \
            -a "msgadv = manual"        \
            -g "title = on              \
                titlname = 'XPNLE101'"  \
            -z "device = 'XDSPM1'"
 
# ---------------------- 論理端末定義 ---------------------------- #
mcftalcle   -l  XPNLE102                \
            -t  any                     \
            -m "mmsgcnt = 0             \
                dmsgcnt = 0"            \
            -K "keyboard = aptype"      \
            -k "quekind  = memory"      \
            -G "groupsend = no"         \
            -o "aj = yes"               \
            -p "dflmap  = 'MAP02'       \
                initmap = 'MAP01'"      \
            -i  auto                    \
            -a "msgadv = manual"        \
            -g "title = on              \
                titlname = 'XPNLE102'"  \
            -z "device = 'XDSPS1'"
 
# ---------------------- コネクション定義の終了 -------------------- #
mcftalced
 
# ---------------------- コネクション定義 ------------------------- #
mcftalccn   -c  XPNCN2                  \
            -p  xp                      \
            -g "sndbuf = 1              \
                rcvbuf = 2"             \
            -e "msgbuf = 3              \
                count  = 5"             \
            -i  auto                    \
            -b "bretry = yes            \
                bretrycnt = 3           \
                bretryint = 60"         \
            -S "svname = XPWPRT1        \
                type   = PRT"
 
# ---------------------- 論理端末定義 ---------------------------- #
mcftalcle   -l  XPNLE201                \
            -t  any                     \
            -m "mmsgcnt = 0             \
                dmsgcnt = 0"            \
            -k "quekind  = disk         \
                quegrpid = otqgrp01"    \
            -G "groupsend = no"         \
            -o "aj = yes"               \
            -p "dflmap = 'MAP04'"       \
            -i  auto                    \
            -r "rretry = yes            \
                rretrycnt = 10          \
                rretryint = 60"         \
            -z "device = 'XPRTL1'"      \
            -y  10
 
# ---------------------- コネクション定義の終了 -------------------- #
mcftalced
 
# ---------------------- コネクション定義 ------------------------- #
mcftalccn   -c  XPNCN3                  \
            -p  xp                      \
            -g "sndbuf = 1              \
                rcvbuf = 2"             \
            -e "msgbuf = 3              \
                count  = 5"             \
            -i  auto                    \
            -b "bretry = yes            \
                bretrycnt = 3           \
                bretryint = 60"         \
            -S "svname = XPPDSP1        \
                type   = DSP"
 
# ---------------------- 論理端末定義 ---------------------------- #
mcftalcle   -l  XPNLE301                \
            -t  any                     \
            -m "mmsgcnt = 0             \
                dmsgcnt = 0"            \
            -K "keyboard = aptype"      \
            -k "quekind  = memory"      \
            -G "groupsend = no"         \
            -o "aj = yes"               \
            -p "dflmap  = 'MAP02'       \
                initmap = 'MAP01'"      \
            -i  auto                    \
            -a "msgadv = manual"        \
            -g "title = on              \
                titlname = 'XPNLE301'"  \
            -z "device = 'XDSPM1'"
 
# ---------------------- コネクション定義の終了 -------------------- #
mcftalced
 
# ---------------------- コネクション定義 ------------------------- #
mcftalccn   -c  XPNCN4                  \
            -p  xp                      \
            -g "sndbuf = 1              \
                rcvbuf = 2"             \
            -e "msgbuf = 3              \
                count  = 5"             \
            -i  auto                    \
            -b "bretry = yes            \
                bretrycnt = 3           \
                bretryint = 60"         \
            -S "svname = XPWPRT2        \
                type   = PRT"
 
# ---------------------- 論理端末定義 --------------------------- #
mcftalcle   -l  XPNLE401                \
            -t  any                     \
            -m "mmsgcnt = 0             \
                dmsgcnt = 0"            \
            -k "quekind  = disk         \
                quegrpid = otqgrp01"    \
            -G "groupsend = yes"        \
            -o "aj = yes"               \
            -p "dflmap = 'MAP04'        \
                dflpagec = 'PAGE01'"    \
            -i  auto                    \
            -r "rretry = yes            \
                rretrycnt = 10          \
                rretryint = 60"         \
            -z "device = 'XPRTP3'       \
                remote = no"            \
            -y  10                      \
            -x "excnt = 20"
 
# ---------------------- コネクション定義の終了 -------------------- #
mcftalced
 
#### 終わり ####