AS400银行核心系统开发中的技术总结--交易和组件写法

*交易和组件写法

Firebird核心系统的整体结构，是由主控--交易--组件这几个层次组成的。联机交易主控由C程序编写，异步交易主控和日终批量主控由CL和RPGLE程序编写。主控通过交易码调用相应的交易RPGLE程序，交易程序又通过CALLP调用不同模块的组件RPGLE程序，完成整个处理逻辑。交易程序和组件程序都总结了一套模版样例，下面就介绍样例程序的写法。

在介绍交易和组件程序写法之前，先介绍统一由/COPY引入的通用程序，这部分程序放在DSCPPGM中。注意/COPY不宜滥用，一定要结合命名规范，否则极易导致程序可读性差。
首先是HEAD。这个文件定义了copyright和几个日期fmt规则。

**BEGIN***************************************************************
**程序名称：程序公共控制头 *
**功能描述：程序公共控制头 *
** *
**版本：2014-10-21_1 *
** *
**设计人员：PACMAN 开发人员：AUTOGEN *
**设计日期：2011-08-30 开发日期：2011-08-30 *
** *
**END*****************************************************************
**
HCOPYRIGHT('Firebird V2.1 corebanking system, CSW SHANGHAI')
HDATFMT(*ISO) TIMFMT(*ISO) DATEDIT(*YMD)

然后是ENUM，这个文件是引入枚举常量定义，在数据字典和枚举值部分已经有了介绍，这里就不重复了。
接下来是PGDS，这个文件定义了每个程序都会引入的PSDS和INFDS结构定义，错误结构定义，错误信息数组，接口数组条数，以及特殊用途变量等。

**BEGIN***************************************************************
**程序名称：程序公共控制头 *
**功能描述：程序公共控制头 *
** *
**版本：2014-11-23_1 *
** *
**设计人员：PACMAN 开发人员：AUTOGEN *
**设计日期：2011-08-30 开发日期：2011-08-30 *
** *
**END*****************************************************************
**
**公共常量
**输出传票数组条数
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 170A
D PG_LSERRFL 175 184A
D PG_JOBDATE 191 198A
D PG_FLINFO 209 243A
D PG_JOBNAME 244 253A
D PG_JOBUSER 254 263A
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 21A
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_RCDFMTLEN 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 401 2400A
**文件状态结构指针
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，这个程序定义了错误捕获程序以及检查，退出等通用过程，并以#开头的过程名，与交易中普通@开头过程名以示区分。

**BEGIN***************************************************************
**程序名称：程序公共子程序 *
**功能描述：程序公共子程序 *
** *
**版本：2014-10-21_1 *
** *
**设计人员：PACMAN 开发人员：AUTOGEN *
**设计日期：2011-08-30 开发日期：2011-08-30 *
** *
**END*****************************************************************
**
**********************************************************************
** #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 = PG_SRCMBR
C IF PMG.BKMSDS = *BLANKS
C CALL 'SCNCMMG'
C PARM PMG
C PARM A_MSDS
C ENDIF
C EXSR #EXIT
**
C ENDSR
**********************************************************************
** #CHKMSG检查程序返回信息
**********************************************************************
C #CHKMSG BEGSR
**
C IF PMG.BKMSID *BLANKS
C EXSR #EXIT
C ENDIF
**
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+' '+
C PG_PGMNAME
C EXSR #EXIT
C ENDIF
**
C ENDSR
**********************************************************************
** #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 V_FLEXOBJ 10
C PARM '*FILE' 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 ENDSR

交易程序样例以6位交易码000000为例，交易程序名为T000000A，有两个输入T000000I1，T000000I2，两个输出T000000O1，T00000O2。其中I2和O2是数组。
T000000I1程序如下。

A REF(DICT)
A R RT000000I1
A BKBRNO R REFFLD(@@BRNO)
A COLHDG('机构')
A TEXT('机构')

T000000I2程序如下。

A REF(DICT)
A R RT000000I2
A BKTLNO R REFFLD(@@TLNO)
A COLHDG('柜员')
A TEXT('柜员')

T000000O1程序如下。

A REF(DICT)
A R RT000000O1
A BKTRWB R REFFLD(@@TRWB)
A COLHDG('交易流水号')
A TEXT('交易流水号')

T000000O1程序如下。

A REF(DICT)
A R RT000000O2
A BKACNO R REFFLD(@@ACNO)
A COLHDG('账号')
A TEXT('账号')

交易程序T000000A程序如下。

**BEGIN***************************************************************
**程序名称：交易程序模板 *
**功能描述：交易程序开发规范 *
** *
**设计人员：CSWWM 开发人员：CSWWM *
**设计日期：2011-08-30 开发日期：2011-08-30 *
**-------------------------------------------------------------------*
**维护人员：CSWYJ *
**维护日期：2014-10-17 *
**维护内容：按新规范改写 *
** *
**END*****************************************************************
H/COPY DSCPPGM,HEAD
**********************************************************************
**引入数据字典枚举常量
D/COPY DSCPPGM,ENUM
**引入公共程序体
D/COPY DSCPPGM,PGDS
**********************************************************************
**决定是否以*LR=*ON结束，统一使用激活组管理则保持注释
D*/DEFINE USELR
**定义常量
DC_I1 C CONST('交易程序模版')
DC_MGBRNO C CONST('机构号')
DC_NBI2 C CONST(20)
DC_NBO2 C CONST(20)
*************************
**引入调用服务原型
D/COPY CETPEXP,SCETPSVP
D/COPY CNCMSVC,SCNCMTAP
**定义参照外部结构的结构、数组　
DT_INHD E DS EXTNAME(INHD) QUALIFIED TEMPLATE
DT_INFE E DS EXTNAME(INFE) QUALIFIED TEMPLATE
DT_INCS E DS EXTNAME(INCS) QUALIFIED TEMPLATE
DT_OTHD E DS EXTNAME(OTHD) QUALIFIED TEMPLATE
DT_OTVC E DS EXTNAME(OTVC) QUALIFIED TEMPLATE
DT_I1 E DS EXTNAME(T000000I1) QUALIFIED TEMPLATE
DT_I2 E DS EXTNAME(T000000I2) QUALIFIED TEMPLATE
DT_O1 E DS EXTNAME(T000000O1) QUALIFIED TEMPLATE
DT_O2 E DS EXTNAME(T000000O2) QUALIFIED TEMPLATE
*************************
**定义参照内部结构、变量（LIKE）的结构、数组
DPIN DS QUALIFIED
D INHD LIKEDS(T_INHD)
D INFE DIM(C_NBINFE) LIKEDS(T_INFE)
D INCS DIM(C_NBINCS) LIKEDS(T_INCS)
D I1 LIKEDS(T_I1)
D I2 DIM(C_NBI2) LIKEDS(T_I2)
**
DPOT DS QUALIFIED
D OTHD LIKEDS(T_OTHD)
D OTVC DIM(C_NBOTVC) LIKEDS(T_OTVC)
D O1 LIKEDS(T_O1)
D O2 DIM(C_NBO2) LIKEDS(T_O2)
*************************
**临时变量（无法参照定义）的结构体
DD_VARS DS
**定义参照数据字典（LIKE）的变量　
D V_BKTRWB LIKE(DICT.@@TRWB)
**定义无法参照（自定义）的临时变量　
D V_NUM 5P 0
**********************************************************************
**定义程序入口
C *ENTRY PLIST
C PARM PMG
C PARM PIN
C PARM POT
/FREE
EXSR @INIT;
EXSR @CHEK;
EXSR @MAIN;
EXSR @RETN;
EXSR #EXIT;
//---------------------------------------
//程序初始化
//---------------------------------------
BEGSR @INIT;
//初始化公共定义的结构
CLEAR PMG;
CLEAR A_MSDS;
//初始化交易自有输出接口，注意已在覆盖方法中初始化过OTHD,OTVC的不要清
CLEAR POT.O1;
CLEAR POT.O2;
//初始化自定义结构
CLEAR D_VARS;
ENDSR;
//---------------------------------------
//检查输入接口值的正确性
//---------------------------------------
BEGSR @CHEK;
//机构号必输
IF PIN.I1.BKBRNO = *BLANKS;
EVAL PMG.BKMSID = 'EIOND';
EVAL A_MSDS(1) = C_I1;
EVAL A_MSDS(2) = C_MGBRNO;
EXSR #ERR;
ENDIF;
//---------------------------------------
//程序的主流程
//---------------------------------------
BEGSR @MAIN;
//变更
CLEAR TPSVF1;
CLEAR TPSVF2;
EVAL TPSVF1.BKBRNO = PIN.I1.BKBRNO;
CALLP SCETPSV(PMG:TPSVF1:TPSVF2);
EXSR #CHKMSG;
//调用某模块记账服务
//CALLP SCETPAC(PMG:TPSVF1:POT.OTVC);
//EXSR #CHKMSG;
ENDSR;
//---------------------------------------
//程序返回处理
//---------------------------------------
BEGSR @RETN;
//登记返回数组条数
CLEAR TPSVF1;
EVAL CMTAF1.RDYNFG = YNFG_NO;
EVAL CMTAF1.WTYNFG = YNFG_YES;
EVAL CMTAF1.FDFLNM = 'O2RECD';
EVAL CMTAF1.FDSQNU = V_NUM;
CALLP SCNCMTA(PMG:CMTAF1);
EXSR #CHKMSG;
ENDSR;
/END-FREE
C/COPY DSCPPGM,PGCM

在交易程序中，如果需要调用模块组件，那么会用/COPY引入组件的PROTOTYPE声明和组件参数结构定义，这部分在组件样例中介绍。
交易的参数统一为3个。先是PMG，错误信息结构，用于将出错信息返回主控，判断交易是否成功，组织出错报文。再是PIN，输入复合结构，依次由INHD输入应用头，INFE输入费用数组，INCS输入券面数组，I1，I2等交易自身结构组成。最后是POT，输出复合结构，依次由OTHD输出应用头，OTVC输出记账传票数组，O1，O2等交易自身结构组成。这部分可以参见报文格式一节内容。
程序中将所有临时变量都定义在D_VARS结构下，这样方便一开始的初始化，可以用CLEAR D_VARS直接清值。
交易程序中调用了组件程序模版SCETPSV，同样第一个参数要是PMG，这样结合#CHKMSG，可以让出错信息层层传递返回。接着是组件自己的参数。如果是记账组件，那么最后一个参数必须是传票数组POT.OTVC层层传递，以实现将交易所有产生的记账传票流水按套顺序重组，返回前端打印。现有的很多系统，只能体现交易所有借贷传票，无法体现传票先后顺序，也不能按会计原理进行最小成套归类，并保证每套不会出现多借多贷，而Firebird则做到了这一点。
在返回处理过程中，特别注意如果是输出有数组，需要在这段中调用SCNCMTA设置输出数组实际有值的条数，主控会根据实际条数去简化返回报文。

组件程序样例SCETPSV，除了固定的PMG参数外，有F1，F2两个自有参数。组件由SCETPSVP组件声明，SCETPSVF1，SCETPSVF2两个参数结构定义，SCETPSV组件程序这几个部分组成。
SCETPSVF1参数文件如下。