• 検索結果がありません。

通信制御ファイル格納ライブラリ

ドキュメント内 ITHDG (ページ 53-56)

コピー元 コピー先

JCA手順 端末側 JFJCAP10 JFJCUP10

JFJCAP50 JFJCUP50 全銀手順 Aセンター F1 JFZGNP10 JFZGUP10

Aセンター F2 JFZGNP20 JFZGUP20 Bセンター F1 JFZGNP60 JFZGUP60 Bセンター F2 JFZGNP70 JFZGUP70

Toolbox for System i5

(元)

Toolbox for UST

(先)

EVXDBLIB EVXUSDTA

通信制御ファイル格納ライブラリ

コマンド対比表

Toolbox for System i5 通信コマンド Toolbox for UST コマンド

JCA手順通信 センター側 CMNJCACTR <=> CMNJCUCTR JCA手順 センター側(UST) JCA手順通信 端末側 CMNJCATRM <=> CMNJCUTRM JCA手順 端末側(UST) JCA手順通信 センター側 終了 ENDJCACTR <=> ENDJCUCTR JCA手順通信 センター側 終了

JCAセンター側LOGの再編成 RGZJCALOGC <=> RGZJCULOGC JCA手順通信 センター側 LOGファイル再編成 JCA端末側LOGの再編成 RGZJCALOGT <=> RGZJCULOGT JCA手順通信 端末側 LOGファイル再編成 JCAセンター側制御ファイルの処理 WRKJCACTLC <=> WRKJCUCTLC JCAセンター側制御Fの処理

JCA端末側制御ファイルの処理 WRKJCACTLT <=> WRKJCUCTLT JCA端末側制御Fの処理 JCAセンター側LOGの処理 WRKJCALOGC <=> WRKJCULOGC JCAセンター側LOGの処理 JCA端末側LOGの処理 WRKJCALOGT <=> WRKJCULOGT JCA端末側LOGの処理

全銀手順通信 Aセンター CMNZGNACTR <=> CMNZGUACTR 全銀手順 Aセンター(UST) 全銀Aセンター制御F1処理 WRKZGNC1A <=> WRKZGUC1A 全銀Aセンター制御F1の処理 全銀Aセンター制御F2処理 WRKZGNC2A <=> WRKZGUC2A 全銀Aセンター制御F1の処理 全銀AセンターLOG1処理 WRKZGNL1A <=> WRKZGUL1A 全銀AセンターLOG1の処理 全銀AセンターLOG2処理 WRKZGNL2A <=> WRKZGUL2A 全銀AセンターLOG2の処理

全銀AセンターLOG再編成 RGZZGNLA <=> RGZZGULA 全銀手順通信 Aセンター LOGファイル再編成

全銀手順通信 Bセンターの開始 CMNZGNBCTR <=> CMNZGUBCTR 全銀手順 Bセンター(UST) 全銀Bセンター制御F1処理 WRKZGNC1B <=> WRKZGUC1B 全銀Bセンター制御F1の処理 全銀Bセンター制御F2処理 WRKZGNC2B <=> WRKZGUC2B 全銀Bセンター制御F1の処理 全銀BセンターLOG1処理 WRKZGNL1B <=> WRKZGUL1B 全銀BセンターLOG1の処理 全銀BセンターLOG2処理 WRKZGNL2B <=> WRKZGUL2B 全銀BセンターLOG2の処理 全銀Bセンター 終了 ENDZGNBCTR <=> ENDZGUBCTR 全銀手順通信 Bセンター 終了

全銀BセンターLOG再編成 RGZZGNLB <=> RGZZGULB 全銀手順通信 Bセンター LOGファイル再編成

メッセージID

メッセージIDの対比 (※一部抜粋)

– メッセージIDの下2桁で、新旧の対比になります。

手順 通常版

UST版

内容

全銀 A

00 00

正常終了

全銀 A

01 01

相手先識別がない 全銀 A

02 02

サービス時間外 全銀 A

03 03

ファイル識別がない 全銀 A

04 04

二重ファイル伝送

全銀 A

30

書き出しエラー

全銀 A

40

読み取りエラー

共通

30

ポート・オープン・エラー

共通

31

トレース・ファイル書出しエラー

共通

32

発呼指令送信エラー

共通

33

発呼完了受信エラー

EVX0000 EVU0000

正常終了

UST版で追加

UST版は削除

運用CLプログラムについて

• USTでの運用には、コマンドのスペルとメッセージモニタリングへの対応が必要です。

/* 全銀BSC Aセンター実行CLサンプル */

PGM

DCL VAR(&ERRCNT) TYPE(*DEC) LEN(3 0) VALUE(0) CMNA: /* 全銀 BSC Aセンターの開始 */

CMNZGNACTR KEY(HOST1) FKEY(RCV1) /*** エラーハンドリング ***/

/* エラーメッセージを受け取ったら*/

/* 受信ファイルをクリアし、再度Aセンターのコマンド実行 */

MONMSG MSGID(EVX0000) EXEC(DO) CHGVAR VAR(&ERRCNT) VALUE(&ERRCNT + 1) IF COND(&ERRCNT > 3) THEN(GOTO CMDLBL(ERR10))

/* 受信ファイルクリア */

ドキュメント内 ITHDG (ページ 53-56)

関連したドキュメント