AS400銀行基幹システム開発における技術概要 - トランザクションとコンポーネントの作成

AS400銀行基幹システム開発における技術概要 - トランザクションとコンポーネントの記述方法

* トランザクションとコンポーネントの記述方法

Firebird基幹システムの全体構造は、メインコントロール-トランザクション-コンポーネントで構成されています層の。オンライントランザクションマスタコントロールはCプログラムで記述し、非同期トランザクションマスタコントロールと終日バッチマスタコントロールはCLおよびRPGLEプログラムで記述します。メインコントロールはトランザクションコードを介して対応するトランザクション RPGLE プログラムを呼び出し、トランザクションプログラムは CALLP を介してさまざまなモジュールのコンポーネント RPGLE プログラムを呼び出し、処理ロジック全体を完了します。トランザクションプログラムとコンポーネントプログラムの両方で、一連のテンプレートサンプルがまとめられています。サンプルプログラムの作成方法を次に示します。

トランザクションとコンポーネントプログラムの記述方法を紹介する前に、まず、/COPY によって導入される統合共通プログラムを紹介します。プログラムのこの部分は DSCPPGM に配置されます。 /COPY は乱用すべきではなく、命名規則と組み合わせる必要があることに注意してください。そうしないと、プログラムの可読性が低下しやすくなります。
まずはHEADです。このファイルは、著作権といくつかの日付 fmt ルールを定義します。

**始まり******************************************* **** *******************
**プログラム名: プログラム公開制御ヘッダー*
**機能説明: プログラム公開制御ヘッダー*
* * *
**バージョン: 2014-10-21_1 *
** *
** デザイナー: PACMAN 開発者: AUTOGEN *
** 設計日: 2011-08-30 開発日: 2011-08-30 *
** *
**終了************************************** ********* *************************
**
HCOPYRIGHT('Firebird V2.1 コアバンキングシステム、CSW SHANGHAI')
HDATFMT(*ISO ) TIMFMT(*ISO) DATEDIT(*YMD)

その後、ENUM、このファイルは列挙定数の定義を導入します。これはデータディクショナリと列挙値の部分に導入されているため、ここで繰り返します。
次のステップは PGDS です。このファイルは、PSDS および INFDS 構造定義、エラー構造定義、エラーメッセージ配列、インターフェイス配列番号、および各プログラムによって導入される特殊目的の変数を定義します。

**始まり******************************************** *******************
**プログラム名: プログラム公開制御ヘッダー*
**機能説明: プログラム公開制御ヘッダー*
** *
* *バージョン: 2014-11-23_1 *
** *
** デザイナー: PACMAN 開発者: AUTOGEN *
** 設計日: 2011-08-30 開発日: 2011-08-30 *
** *
**終了**************************************** * *************************
**
**公開定数
**出力チケット配列の数
DC_NBOTVC C CONST (100)
**クーポン配列の個数を入力
DC_NBINCS C CONST(30)
**料金配列の個数を入力
DC_NBINFE C CONST(30)
**手数料の個数を出力配列項目
DC_NBOTFE C CONST( 30)
**間違ったパラメータの数を置き換えます
DC_NBMSDS C CONST(9)
**レコードがロックされているというエラーメッセージ
DC_MGLOCK C CONST ('レコードはロックされています')
************ ************************************ *************** ************
**エラー処理構造体
**プログラムステータス構造体
DRPGPSDS SDS
D PG_MAINPROC 1 10A
D PG_STATUS 11 15A
D PG_PRVSTAT 16 20A
D PG_SRCLINE 21 28A
D PG_ROUTINE 29 36A
D PG_PARMNUM 37 39S 0
D PG_MSID 40 46A
D PG_PGMLIB 81 90A
D PG_EXCPDT 91 1 70A
D PG_LSERRFL 175 184A
D PG_JOBDATE 191 198A
D PG_FLINFO 209 243A
D PG_JOBNAME 244 253A
D PG_JOBUSER 254 63A
D PG_JOBNUM 264 269S 0
D PG_RUNDATE 276 281S 0
D PG_RUNTIME 282 287S 0
D PG_SRCFILE 304 313A
D PG_SRCLIB 314 323A
D PG_SRCMBR 324 333A
D PG_PGMNAME 334 343A
D PG_MODNAME 344 353A
D PG_SRCLNADD 354 355B 0
D PG_FLILNADD 356 357B 0
D PG_USRPRF 358 367A
D PG_EXTERR 368 371I 0
**ファイルステータス構造体
DFILESDS DS BASED(FILEDSP)
D FL_FILE 1 8A
D FL_OPNIND 9 9A
D FL_EOFIND 10 10A
D FL_STATUS 11 15S 0
D FL_OPCODE 16 21 A
D FL_ROUTINE 22 29A
D FL_SRCLINE 30 37A
D FL_RECORD 38 45A
D FL_MSID 46 52A
D FL_SRCLNADD 77 78B 0
D FL_ODPTYPE 81 82A
D FL_FILENAME 83 92A
D FL_LIBRARY 93 102A
D FL_SPLFILE 103 112A
D FL_SPLLIB 113 122A
D FL_RCDLEN 125 126I 0
D FL_KEYLEN 127 128I 0
D FL_MEMBER 129 138A
D FL_TYPE 147 148I 0
D FL_RCDNUM 156 159I 0
D FL_SPLNUM 160 163I 0
D FL_OVERFLOW 188 189I 0
D FL_BASEDMBRS 211 212I 0
D FL_OPENID 214 215B 0
D FL_RCDFMTL EN 216 217I 0
D FL_CCSID 218 219I 0
D FL_FBSIZE 367 370I 0
D FL_KEYNUM 387 388I 0
D FL_FBKEYLEN 393 394I 0
D FL_MBRNUM 395 396I 0
D FL_RRN 397 400I 0
D FL_KEY 240 0A
**ファイルステータス構造体ポインタ
DFILEDSP S *
****************** ******************************* ******************* **
**パブリック構造
**データディクショナリの導入
DDICT E DS EXTNAME(DICT) QUALIFIED TEMPLATE
**パブリックエラーメッセージインターフェイス
DPMG E DS EXTNAME(MESG) QUALIFIED
**エラーメッセージ配列を置き換えます
DA_MSDS S DIM(C_NBMSDS) LIKE(DICT.@@MSDS)
********** ******************** ***************************** ************
**特殊変数
**エラー処理プログラムが実行されているかどうか
DPG_ERYNFG S LIKE(DICT.@@YNFG) INZ(YNFG_NO)
**プログラムが初期化されているかどうか
DPG_FRYNFG S LIKE(DICT.@@YNFG) INZ (YNFG_YES)

最後は、一般処理プロセスPGCMです。このプログラムは、エラーをキャッチするプログラムや、チェックや終了などの共通処理を定義します。これは、通常の@で始まるプロセス名と区別するためです。取引。

**始まり******************************************** *** ******************
**プログラム名: プログラム公開サブルーチン*
**機能説明: プログラム公開サブルーチン*
** *
* *バージョン: 2014-10-21_1 *
** *
** デザイナー: PACMAN 開発者: AUTOGEN *
** 設計日: 2011-08-30 開発日: 2011-08-30 *
* * *
**終了***************************************** * **************************
**
***************** ****** ******************************************* *****
** #EXIT リターン
************************************ ****** **************************************
C #EXIT BEGSR
**
C EVAL PG_FRYNFG = YNFG_NO
C/IF DEFINED(USELR)
C EVAL *INLR = *ON
C/ENDIF
C RETURN
**
C ENDSR
********** ******** ***************************************** ********* **
** #ERR エラーメッセージを取得
**************************** ************ **********************************
C #ERR BEGSR
**
C EVAL PMG.MSFLNM +
* ********************************* *************************************
** #CHKMSGチェッカー返却情報
*** ********************* ***************************** ********************** *
C #CHKMSG BEGSR
**
C IF PMG.BKMSID
C EXSR #EXIT
**
C ENDSR
********* *************************** *********************** ***********
** *PSSRプログラム例外処理
***** ************************* ************************ *****************
C *PSSR BEGSR
**
C IF PG_ERYNFG = YNFG_NO
C EVAL PG_ERYNFG = YNFG_YES
C EVAL PMG.MSFLNM = PG_SRCMBR
C EVAL PMG.MSCDLN = PG_SRCLINE
C EVAL PMG.BKMSID = 'F' + PG _MSID
C EVAL PMG.BKMSDS = PG_EXCPDT
C Eval PMG.OTMSDS = PG_STATUS+'+PG_PGMLIB+'+
PGMNAMNAME
EXIT
C ENDIF
**
*** * **************************** ********************* ****************
** #FLEX ファイル例外処理
** ************************** *********************** *************************
C #FLEX BEGSR
**
C EVAL PMG.MSFLNM = PG_SRCMBR
C EVAL PMG。 MSCDLN = FL_SRCLINE
C EVAL PMG.BKMSID = 'F' + FL_MSID
C IF FL_STATUS = 1218
C CALL ' GETOBJTXT'
C PARM FL_LIBRARY V_FLEXLIB 10
C PARM FL_FILENAME EXOBJ 10
C PARM '*ファイル' V_FLEXTYP 7
C PARM *BLANKS V_FLEXTEXT 50
C EVAL PMG.BKMSDS = %TRIM(V_FLEXTEXT) +
C %TRIM(FL_FILENAME) + '.' +
C %TRIM(FL_MEMBER) + C_MGLOCK +
C ',' + PG_EXCPDT
C ELSE
C EVAL PMG.BKMSDS = PG_EXCPDT
C ENDIF
C EVAL PMG.OTMSDS = PG_FLINFO
C EXSR #EXIT
**
CエンドSR
トランザクションプログラムの例では、6 桁のトランザクションコード 000000 を例に挙げています。トランザクションプログラムの名前は T000000A で、2 つの入力 T000000I1 と T000000I2 と 2 つの出力 T000000O1 と T00000O2 があります。ここで、I2 と O2 は配列です。
T000000I1のプログラムは以下の通りです。
1. A REF(DICT)
2. A R RT000000I1
3. A BKBRNO R REFFLD(@@BRNO)
4. A COLHDG('organization')
5. A TEXT('organization')
T000000I2 手順は次のとおりです。
1. A REF(DICT)
2. A R RT000000I2
3. A BKTLNO R REFFLD(@@TLNO)
4. A COLHDG('Teller')
5. A TEXT('Teller')
T000000O1 手順は次のとおりです。
1. A REF(DICT)
2. A R RT000000O1
3. A BKTRWB R REFFLD(@@TRWB)
4. A COLHDG('トランザクションシリアル番号')
5. A TEXT('トランザクションシリアル番号')
T0000 00O1プログラム次のように。
1. A REF(DICT)
2. A R RT000000O2
3. A BKACNO R REFFLD(@@ACNO)
4. A COLHDG('account')
5. A TEXT('account')
トランザクションプログラム T000000Aのようなものですが続きます。
1. **始まり******************************************** *******************
2. **プログラム名：取引プログラムテンプレート*
3. **機能説明：取引プログラム開発仕様書*
4. ** *
5. ** デザイナー: CSWWM 開発者: CSWWM *
6. ** 設計日: 2011-08-30 開発日: 2011-08-30 *
7. **-------------- -------------------------------------------------- - -*
8. **メンテ者：CSWYJ *
9. **メンテ日：2014-10-17 *
10. **メンテ内容：新仕様に合わせて書き換え*
11. ** *
12. **END*** * ************************************************ ** *************
13. H/COPY DSCPPGM,HEAD
14. ************************* ***** ********************************************
15. ** データディクショナリ列挙型定数の導入
16. D/COPY DSCPPGM,ENUM
17. **パブリックプログラム本体の導入
18. D/COPY DSCPPGM,PGDS
19. ************** ********** *************************************** *********
20. * **LR=*ON で終了するかどうかを決定し、活性化グループ管理を一律に使用してコメントを保持する
21. D*/DEFINE USELR
22. **定数を定義する
23. DC_I1 C CONST('取引プログラムテンプレート')
24. DC_MGBRNO C CONST('組織番号')
25. DC_NBI2 C CONST(20)
26. DC_NBO2 C CONST(20)
27. ************* *****************
28. **呼び出しサービスのプロトタイプの紹介
29. D/COPY CETPEXP、SCETPSVP
30. D/COPY CNCMSVC、SCNCMTAP
31. ** 構造体と配列を定義する外部構造を参照する
32. DT_INHD E DS EXTNAME(INHD) QUALIFIED TEMPLATE
33. DT_INFE E DS EXTNAME(INFE) QUALIFIED TEMPLATE
34. DT_INCS E DS EXTNAME(INCS) QUALIFIED TEMPLATE
35. DT_OTHD E DS EXTNAME(OTHD) QUALIFIED TEMプレート
36. DT_OTVC E DS EXTNAME(T000000I1) 修飾されたテンプレート
37. DT_I2 E DS EXTNAME(T000000I2) 修飾されたテンプレート
38. DT_O1 E DS EXTNAME(T000000O1) 修飾されたテンプレート
39. DT_O2 E EXTNAME(T000000O2) 修飾されたテンプレート
40. ***** ********** **********
41. ** 内部構造体と変数を参照する構造体と配列を定義する (LIKE)
42. DPIN DS QUALIFIED
43. D INHD LIKEDS(T_INHD) ）dim（c_nbinfe）likeds（t_infe）
44. dincs dim（c_nbincs）likeds（t_i1）likeds（t_i1）
45. di2 dim（c_nbi2）likeds（t_i2）
46. **
47. DPOT DS 認定済み
48. D OTHD LIKE DS(T_OTHD )
49. D OTVC DIM(C_NBOTVC) LIKEDS(T_OTVC)
50. D O1 LIKEDS(T_O1)
51. D O2 DIM(C_NBO2) LIKEDS(T_O2)
52. * ** ************ **********
53. **一時変数の構造(参照定義不可)
54. DD_VARS DS
55. **参照する変数の定義データ辞書へ(LIKE)
56. D V_BKTRWB LIKE(DICT.@ @TRWB)
57. **参照できない一時変数を定義(カスタマイズ)
58. D V_NUM 5P 0
59. ********* ******************* ****************************** **************
60. **定義プログラム入口
61. C *エントリーリスト
62. C PARM PMG
63. C PARM PIN
64. C PARM POT
65. /無料
67. EXSR @INIT;
68. EXSR @CHEK;
69. EXSR @MAIN;
70. EXSR @RETN;
71. EXSR #EXIT;
73. //---------------- ---- ----
74. //プログラムの初期化
75. //------ ------------------------- ---
76. BEGSR @INIT;
77. //公的に定義された構造体を初期化します
78. CLEAR PMG;
79. CLEAR A_MSDS;
80. //トランザクション自身の出力インターフェイスを初期化します。OTHD と OTVC はオーバーライドメソッドで初期化されていることに注意してください。
81. CLEAR POT.O1;
82. CLEAR POT.O2;
83. //カスタム構造を初期化します
84. CLEAR D_VARS;
85. ENDSR;
87. //---------- ---------------------- ----------
88. //入力インターフェースの値が正しいことを確認してください
89. //------ ------- ----------------
90. BEGSR @CHEK;
91. //組織番号が失われているはずです
92. IF PIN.I1.BKBRNO = *BLANKS;
93. EVAL PMG.BKMSID = 'EIOND';
94. EVAL A_MSDS(1) = C_I1;
95. EVAL A_MSDS(2) = C_MGBRNO;
96. EXSR #ERR;
97. ENDIF;
99. //------------------------------------------
100. / /プログラムの主な流れ
101. //------------------------------------- -----
102. BEGSR @MAIN;
103. //Change
104. CLEAR TPSVF1;
105. CLEAR TPSVF2;
106. EVAL TPSVF1.BKBRNO = PIN.I1.BKBRNO;
107. CALLP SCETPSV(PMG:TPSVF1:TPSVF2) ;
108. EXSR #CHKMS G;
109. //特定のモジュールのアカウンティングサービスを呼び出す
110. //CALLP SCETPAC(PMG:TPSVF1:POT.OTVC);
111. //EXSR #CHKMSG;
112. ENDSR;
114. //------ ----------------------------------
115. //プログラムリターン処理中
116. //------ ----------------------------------
117. BEGSR @RETN ;
118. //登録は配列項目の数を返します
119. CLEAR TPSVF1;
120. EVAL CMTAF1.RDYNFG = YNFG_NO;
121. EVAL CMTAF1.WTYNFG = YNFG_YES;
122. EVAL CMTAF1.FDFLNM = 'O2RECD';
123. EVAL CMTAF1 .fdsqnu = v_num;モジュールコンポーネントを呼び出す必要がある場合は、/COPY を使用してコンポーネントの宣言とコンポーネントのパラメーター構造定義の PROTOTYPE を導入します。この部分はコンポーネントの例で紹介されています。
124. すべての一時変数はプログラム内の D_VARS 構造体で定義されているため、初期化が容易になり、CLEAR D_VARS を使用して直接クリアできます。
125. 戻り処理プロセス中、出力に配列が含まれている場合は、このセクションで SNCCMTA を呼び出して、出力配列内の実際の値の数を設定する必要があることに特に注意してください。メインコントロールは、以下に基づいて戻りメッセージを簡素化します。実際の数値。
128. コンポーネントプログラムサンプルSCETPSVには、固定PMGパラメータに加えて、2つの独自パラメータF1とF2があります。コンポーネントは、SCETPSVP コンポーネント宣言、SCETPSVF1 および SCETPSVF2 の 2 つのパラメータ構造体定義、および SCETPSV コンポーネントプログラムで構成されます。
  SCETPSVF1パラメータファイルは以下の通りです。
  1. A REF(DICT)
  2. A R RSCETPSVF1
  3. A BKBRNO R REFFLD(@@BRNO)
  4. A COLHDG('組織番号')
  5. A TEXT('組織番号')
  SCETPSVF2パラメータファイルは次のように。
  1. A REF(DICT)
  2. A R RSCETPSVF2
  3. A MTTLNO R REFFLD(@@TLNO)
  4. A COLHDG('Teller No.')
  5. A TEXT('Teller No.')
  SCETPSVPコンポーネント宣言ファイルは以下のようになります。
  1. **始まり******************************************* **** *******************
  2. **プログラム名：サービスプログラムテンプレートプロトタイプ*
  3. **機能説明：サービスプログラムテンプレートプロトタイプとパラメータインターフェース定義*
  4. * * *
  5. ** バージョン: 2014-10-21_1 *
  6. ** *
  7. ** デザイナー: CSWWM 開発者: CSWWM *
  8. ** 設計日: 2011-08-30 開発日: 2011 -08 -30 *
  9. **----------------------------------------------------- ------- ------------------------*
  10. **メンテナ: CSWYJ *
  11. **メンテ日: 2014 -10-17 *
  12. * *メンテナンス内容：新仕様に合わせて書き換え*
  13. ** *
  14. **END********************* ************** ***********************************
  15. **定数定義
  16. DC_NBTPSVF2 C CONST(50)
  17. *************************
  18. **パラメータインターフェース定義
  19. DTPSVF1 E DS EXTNAME(SCETPSVF1) 修飾済み
  20. DT_TPSVF2 E DS EXTNAME(SCETPSVF2 ) 修飾済みテンプレート
  21. DTPSVF2 DS 修飾済み
  22. D RECD LIKE(DICT.@@RECD)
  23. D ARR DIM(C_NBTPSVF2)いいね(T_TPSVF2)
  24. ****************** *********
  25. **プログラムプロトタイプ定義
  26. DSCETPSV PR EXTPGM('SCETPSV')
  27. D PMG LIKEDS( PMG)
  28. D TPSVF1 LIKEDS(TPSVF1)
  29. D TPSVF2 LIKEDS(TPSVF2)
  ここで、コンポーネント配列はトランザクションインターフェイス配列とは異なることに注意してください。これらはすべて、RECD レコードの実際の数を持つ複合構造です。。この方法でのみ、最大容量の配列に実際に格納されている有効なレコードの数を知ることができます。
  コンポーネントプログラムSCETPSVファイルは以下の通りです。
  1. **始まり******************************************** *******************
  2. **プログラム名: コンポーネントプログラムテンプレート*
  3. **機能説明: コンポーネントプログラム開発仕様書*
  4. ** *
  5. ** デザイナー: CSWWM 開発者: CSWWM *
  6. **設計日: 2011-08-30 開発日: 2011-08-30 *
  7. **--------------- -------------------------------------------------- - -*
  8. **メンテナンススタッフ：*
  9. **メンテナンス日：*
  10. **メンテナンス内容：*
  11. ** *
  12. **END************ * ************************************************ ** *
  13. H/COPY DSCPPGM,HEAD
  14. ************************************* ***** ********************************
  15. **で宣言されたプログラム演算のデータテーブルFテーブル、同時に宣言データテーブルの動作モード
  16. **データテーブルの宣言順序は以下の通りです
  17. **1)、動作モードを読み取り専用(I)としてデータテーブルを宣言します);
  18. **2)、動作モードを読み取りとして宣言する (I)、書き込みを行うデータテーブル (A)、動作モードを変更するように宣言するデータテーブル (U);
  19. **4)、動作モードが更新(U)、書き込み(A)であることを宣言するデータテーブル
  20. **5)、動作モードが書き込み専用(O)であることを宣言するデータテーブル; facnbrmf uf e k disk infsr（#flex）infds（s_cnbrmf）
  21. fqualified
  22. facntlmfuf a e k disk infsr（＃flex）infds（s_cntlmf） ********************************** **************** *****************
  23. **データディクショナリ列挙定数の導入
  24. D/COPY DSCPPGM, ENUM
  25. **プログラムのパブリック構造の導入
  26. D/COPY DSCPPGM,PGDS
  27. ******************************
  28. **ファイル構造定義
  29. DS_CNBRMF DS LIKEDS(FILESDS)
  30. DK_CNBRMF DS LIKEREC(ACNBRMF.RACNBRMF:*KEY)
  31. DR_CNBRMF DS LIKEREC(ACNBRMF.RACNBRMF:*INPUT)
  32. DW_CNBRMF DS LIKEREC(ACNBRMF.RACNBRMF: *OUTPUT)
  33. DS_CNTLMF DS LIKEDS(FILESDS)
  34. DR_CNTLMF DS Lイケレック( ACNTLMF.RACNTLMF:*INPUT)
  35. ************************
  36. ** *LR=*ON
  37. Dで終わるかどうかを決定*/DEFINE USELR
  38. ** 定数定義
  39. DC_F1 C CONST ('コンポーネントプログラムテンプレート')
  40. DC_MGBRMF C CONST ('組織テーブル')
  41. DC_MGBRNO C CONST ('組織番号')
  42. **** **************************
  43. **呼び出しサービスのプロトタイプの紹介
  44. D/COPY CETPEXP,SCETPSVP
  45. ** 構造体と外部構造体を参照する配列 (EXTNAME)
  46. ** 内部構造体と変数を参照する構造体と配列を定義する (LIKE)
  47. ********************* * ********
  48. **一時変数構造体
  49. DD_VARS DS
  50. **データディクショナリを参照する変数を定義(LIKE)
  51. D V_BKBRNO LIKE(DICT.@@BRNO)
  52. * *参照先の一時変数
  53. D V_NUM 5P 0
  54. ************************************ を定義できません******* *******************************
  55. **プログラムエントリー定義
  56. C *ENTRY PLIST
  57. C PARM PMG
  58. C PARM TPSVF1
  59. C PARM TPSVF2
  60. /FREE
  62. EXSR @INIT;
  63. EXSR @CHEK;
  64. EXSR @MAIN;
  65. EXSR #EXIT;
  67. / /------ -------------------------------------- ------- -
  68. //プログラムの初期化
  69. //-------------------------------- ---------- ------------------
  70. BEGSR @INIT;
  71. //公開定義された構造体を初期化します
  72. CLEAR PMG;
  73. CLEAR A_MSDS;
  74. //ファイル読み取りを初期化しますファイル例外構造体を除く操作構造体を取得します
  75. CLEAR K_CNBRMF;
  76. CLEAR R_CNBRMF;
  77. CLEAR R_CNTLMF;
  78. //カスタム構造体を初期化します
  79. CLEAR D_VARS;
  80. ENDSR;
  82. //--- --------------------------------------- ----------- ----
  83. //インターフェースによって渡された値が正しいか確認してください
  84. //------ ----------------- ------------------------
  85. BEGSR @CHEK;
  86. //組織番号が空です
  87. IF TPSVF1.BKBRNO = *BLANKS;
  88. PMG.BKMSID = 'EIOND';
  89. A_MSDS(1) = C_F1;
  90. A_MSDS(2) = C_MGBRNO;
  91. EXSR # ERR;
  92. ENDIF;
  93. ENDSR;
  95. //-- -------------------------------- ------- -----
  96. //プログラムの主な流れ
  97. //----------------------------------------------- --- ----------
  98. BEGSR @MAIN;
  99. K_CNBRMF.BKBRNO = TPSVF1.BKBRNO;
  100. FILEDSP = %ADDR(S_CNBRMF);
  101. CHAIN %KDS(K_CNBRMF) ACNBRMF .RACNBRMF R_CNBRMF;
  102. IF NOT %FOUND(ACNBRMF);
  103. PMG.BKMSID = 'ENTRD';
  104. A_MSDS(1) = C_MGBRMF;
  105. A_MSDS(2) = C_MGBRNO + K_CNBRMF.BKBRNO;
  106. EXSR # ERR;
  107. ENDIF ;
  108. EVAL-CORR W_CNBRMF = R_CNBRMF;
  109. UPDATE ACNBRMF.RACNBRMF W_CNBRMF;
  110. EVAL-CORR TPSVF2.ARR(1) = W_CNBRMF;
  111. ENDSR;
  113. /エンドフリー
  114. C /COPY DSCPPGM ,PGCM
  ここで注意すべき点は、宣言にプロトタイプ定義とパラメーター構造定義が含まれていると考えて、コンポーネント宣言を導入するためにコンポーネントプログラム自体も /COPY を必要とすることです。また、例外ハンドラの導入により、アプリケーションプログラムの記述がよりわかりやすくなり、各種ファイル操作における例外エラー処理を考慮する必要がなくなり、非常に便利ではないでしょうか。
  
  この時点で、コンポーネントとトランザクションテンプレートが導入されました。このテンプレートに従って、実際に使用されるモジュールプログラムを記述し、トランザクションマスターにハングして実行できます。
  
  http://www.bkjia.com/PHPjc/1119675.htmlwww.bkjia.com本当http://www.bkjia.com/PHPjc/1119675.html技術記事 AS400銀行コアシステム開発における技術概要 - トランザクションとコンポーネントの書き込み * トランザクションとコンポーネントの書き込み Firebird コアシステムの全体構造は、メインコントロール - トランザクション - コンポーネントで構成されます...