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

ホームページ

バックエンド開発

PHPチュートリアル

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

WBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWB

Jul 12, 2016 am 08:54 AM

android

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 コアシステムの全体構造は、メインコントロール - トランザクション - コンポーネントで構成されます...

声明

この記事の内容はネチズンが自主的に寄稿したものであり、著作権は原著者に帰属します。このサイトは、それに相当する法的責任を負いません。盗作または侵害の疑いのあるコンテンツを見つけた場合は、admin@php.cn までご連絡ください。

PHPの現在のステータス：Web開発動向を見てくださいApr 13, 2025 am 12:20 AM

PHPは、現代のWeb開発、特にコンテンツ管理とeコマースプラットフォームで依然として重要です。 1）PHPには、LaravelやSymfonyなどの豊富なエコシステムと強力なフレームワークサポートがあります。 2）パフォーマンスの最適化は、Opcacheとnginxを通じて達成できます。 3）PHP8.0は、パフォーマンスを改善するためにJITコンパイラを導入します。 4）クラウドネイティブアプリケーションは、DockerおよびKubernetesを介して展開され、柔軟性とスケーラビリティを向上させます。

PHP対その他の言語：比較Apr 13, 2025 am 12:19 AM

PHPは、特に迅速な開発や動的なコンテンツの処理に適していますが、データサイエンスとエンタープライズレベルのアプリケーションには良くありません。 Pythonと比較して、PHPはWeb開発においてより多くの利点がありますが、データサイエンスの分野ではPythonほど良くありません。 Javaと比較して、PHPはエンタープライズレベルのアプリケーションでより悪化しますが、Web開発により柔軟性があります。 JavaScriptと比較して、PHPはバックエンド開発により簡潔ですが、フロントエンド開発のJavaScriptほど良くありません。

PHP対Python：コア機能と機能Apr 13, 2025 am 12:16 AM

PHPとPythonにはそれぞれ独自の利点があり、さまざまなシナリオに適しています。 1.PHPはWeb開発に適しており、組み込みのWebサーバーとRich Functionライブラリを提供します。 2。Pythonは、簡潔な構文と強力な標準ライブラリを備えたデータサイエンスと機械学習に適しています。選択するときは、プロジェクトの要件に基づいて決定する必要があります。

PHP：Web開発の重要な言語Apr 13, 2025 am 12:08 AM

PHPは、サーバー側で広く使用されているスクリプト言語で、特にWeb開発に適しています。 1.PHPは、HTMLを埋め込み、HTTP要求と応答を処理し、さまざまなデータベースをサポートできます。 2.PHPは、ダイナミックWebコンテンツ、プロセスフォームデータ、アクセスデータベースなどを生成するために使用され、強力なコミュニティサポートとオープンソースリソースを備えています。 3。PHPは解釈された言語であり、実行プロセスには語彙分析、文法分析、編集、実行が含まれます。 4.PHPは、ユーザー登録システムなどの高度なアプリケーションについてMySQLと組み合わせることができます。 5。PHPをデバッグするときは、error_reporting（）やvar_dump（）などの関数を使用できます。 6. PHPコードを最適化して、キャッシュメカニズムを使用し、データベースクエリを最適化し、組み込み関数を使用します。 7

PHP：多くのウェブサイトの基礎Apr 13, 2025 am 12:07 AM

PHPが多くのWebサイトよりも優先テクノロジースタックである理由には、その使いやすさ、強力なコミュニティサポート、広範な使用が含まれます。 1）初心者に適した学習と使用が簡単です。 2）巨大な開発者コミュニティと豊富なリソースを持っています。 3）WordPress、Drupal、その他のプラットフォームで広く使用されています。 4）Webサーバーとしっかりと統合して、開発の展開を簡素化します。

誇大広告を超えて：今日のPHPの役割の評価Apr 12, 2025 am 12:17 AM

PHPは、特にWeb開発の分野で、最新のプログラミングで強力で広く使用されているツールのままです。 1）PHPは使いやすく、データベースとシームレスに統合されており、多くの開発者にとって最初の選択肢です。 2）動的コンテンツ生成とオブジェクト指向プログラミングをサポートし、Webサイトを迅速に作成および保守するのに適しています。 3）PHPのパフォーマンスは、データベースクエリをキャッシュおよび最適化することで改善でき、その広範なコミュニティと豊富なエコシステムにより、今日のテクノロジースタックでは依然として重要になります。

PHPの弱い参照は何ですか、そしていつ有用ですか？Apr 12, 2025 am 12:13 AM

PHPでは、弱い参照クラスを通じて弱い参照が実装され、ガベージコレクターがオブジェクトの回収を妨げません。弱い参照は、キャッシュシステムやイベントリスナーなどのシナリオに適しています。オブジェクトの生存を保証することはできず、ごみ収集が遅れる可能性があることに注意する必要があります。

PHPで__invoke Magicメソッドを説明してください。Apr 12, 2025 am 12:07 AM

\ _ \ _ Invokeメソッドを使用すると、オブジェクトを関数のように呼び出すことができます。 1。オブジェクトを呼び出すことができるように\ _ \ _呼び出しメソッドを定義します。 2。$ obj（...）構文を使用すると、PHPは\ _ \ _ Invokeメソッドを実行します。 3。ロギングや計算機、コードの柔軟性の向上、読みやすさなどのシナリオに適しています。

See all articles

ホットAIツール

Undresser.AI Undress

リアルなヌード写真を作成する AI 搭載アプリ

AI Clothes Remover

写真から衣服を削除するオンライン AI ツール。

Undress AI Tool

脱衣画像を無料で

Clothoff.io

AI衣類リムーバー

AI Hentai Generator

AIヘンタイを無料で生成します。

ホットツール

mPDF

mPDF は、UTF-8 でエンコードされた HTML から PDF ファイルを生成できる PHP ライブラリです。オリジナルの作者である Ian Back は、Web サイトから「オンザフライ」で PDF ファイルを出力し、さまざまな言語を処理するために mPDF を作成しました。 HTML2FPDF などのオリジナルのスクリプトよりも遅く、Unicode フォントを使用すると生成されるファイルが大きくなりますが、CSS スタイルなどをサポートし、多くの機能強化が施されています。 RTL (アラビア語とヘブライ語) や CJK (中国語、日本語、韓国語) を含むほぼすべての言語をサポートします。ネストされたブロックレベル要素 (P、DIV など) をサポートします。

SecLists

SecLists は、セキュリティテスターの究極の相棒です。これは、セキュリティ評価中に頻繁に使用されるさまざまな種類のリストを 1 か所にまとめたものです。 SecLists は、セキュリティテスターが必要とする可能性のあるすべてのリストを便利に提供することで、セキュリティテストをより効率的かつ生産的にするのに役立ちます。リストの種類には、ユーザー名、パスワード、URL、ファジングペイロード、機密データパターン、Web シェルなどが含まれます。テスターはこのリポジトリを新しいテストマシンにプルするだけで、必要なあらゆる種類のリストにアクセスできるようになります。