《20020924-信贷系统V2.1升级V2.2说明.docx》由会员分享，可在线阅读，更多相关《20020924-信贷系统V2.1升级V2.2说明.docx（4页珍藏版）》请在三一文库上搜索。
1、.信贷系统V2.1升级V2.2版本说明 信贷系统V2.2相对于V2.1增加以下功能：一、 信贷系统清分功能，包括：1、清分数据生成与更新 （ES9000批量生成初始数据）2、信贷清分客户基本信息、合同清分认定表联机维护；非信贷清分的合同认定表及客户信息录入（新模板）；清分信息录入统计查询3、下传数据生成 （ES9000- PC）二、 5218、5216科目传票摘要自动取同套9021传票摘要三、 单笔联机跨机构移交授信合同（不出帐）四、 授信合同本息分户帐联机、批量打印五、 三贷业务（9177）脱钩处理六、 到期任务列表功能完善七、 自动交易列表顺序调整（按机构、部门、客户、货币、合同排序）八、
2、 匡息、计息功能完善九、 合同信息变更自动登记合同备注十、 未收利息为负时，支持直接收、转负利息（相当蓝字冲帐）十一、 中银统报表的各级汇总。（主要是二级行）十二、 中银统报表的发生额计算方法改变（包括正常、逾期、呆帐、呆滞、核呆）十三、 与SBS3交换数据文本支持一个文本包含多区域 更新步骤：一、 将生产机LNLIB中的FCT的COPYBOOK移至LNPRD，备份生产机VSAM文件、DOS库；二、 恢复升级带DOS库BOC2.LNLIB；三、 本地化BOC2.LNLIB.LNBATDD.PROC、BOC2.LNLIB.LNFILDD.PROC重新登库到PRD库，增加或修改LNPRD中有关FC
3、T的定义；四、 编译DFHFCTLN；五、 恢复升级带VSAM文件：LNCSP.*LN100.BASE.BA01FLN100.BASE.BA05FLN100.BASE.BA06FLN100.BASE.BA08FLN100.BASE.BA09FLN100.BASE.BA11FLN100.LOAN.LC20FLN100.LOAN.LC21FLN100.LOAN.LC22FLN100.LOAN.LC23FLN100.LOAN.LC24FLN100.BASE.BC23F；六、 运行作业流(本地化后提交)：LQ01J,LQ03J(需要先跑一下)七、 起联机，检查以下各项是否正常：各文件是否正常打开是否能
4、作系统初始化是否能正常做帐务处理；八、 执行联机交易执行联机程序LQ98A，LQ99A,清理LQ01F和LQ04F中的FILLER.检查清分认定表新增域，测试非信贷清分录入九、 按照新的规定维护系统参数：合同号起止区间等 更新详细说明：一、批量作业流更新说明 A 、清分部分：1、在LNBAT2中更新LQ01J,在LQ01J中增加LB93C。按如下参数修改：/ EXEC PROC=LNBATDD / ON _CANCEL OR _ABEND GOTO _EOJ / EXEC LB93C,SIZE=AUTO 03 ; 第一日期 ( 两位数组下标 01 31 ) 下一工作日 26 ; 第二日期 (
5、两位数组下标 01 31 ) 清分截止日 01 ; 比较上限 ( 两位整数 ,99+ 90- 90+ ) 大于 90 ; 比较下限 ( 两位整数 ,99+ 90- 90+ ) /* / IF _MRC > 0 THEN / GOTO _EOJ / EXEC LQ01C,SIZE=AUTO 00000 ; 区域选择 ( 00000- 所有区域 ) ; 清分截止日期（如空，由程序自动计算） 1 ; 功能选择 ( 1- 生成， 2- 更新 ) 1 ; CIF 信息更新选择 ( 0/1 ) 1 ; 信贷客户附加信息更新选择 ( 0/1 ) 1 ; 信贷合同信息更新选择 ( 0/1 ) 1 ; 信
6、贷帐务信息更新选择 ( 0/1 ) 0 ; CF11F 记录生成选择 ( 0/1 ) /* /& 2更新LQ03J，文件文件*LQ01F,*LQ04F的长度有变化，请按如下参数修改作业流LNBAT2 中文件定义（*LQ01F,*LQ04F代表据各行名称而不同）：DEFINE CL (NAME(LN100.LQF.*LQ11F) - RECSZ(979,979) - DEFINE CL (NAME(LN100.LQF.LQ14F) - RECSZ(5407,5407) - B、 与SBS3接口批量1、文件AC18F、AC19F、AC29F的长度及键值位置有变化，请按如下参数修改作业流LN
7、BAT2 中文件定义： DEFINE CL (NAME(LN100.LOAN.AC18F) - RECSZ(300,300) - KEY(38,0) - DEFINE CL (NAME(LN100.LOAN.AC19F) - RECSZ(400,400) - KEY(40,0) - DEFINE CL (NAME(LN100.LOAN.CC29F) - RECSZ(160,160) - KEY(44,0) - 2、程序中卡片参数变化：/ EXEC LB17C,SIZE=AUTO ; 生成交易的日期 (YYYYMMDD) ，空 = 下一工作日 48631 ; 区域 - 四川 43016 ; 区域
8、 - 陕西 48882 ; 区域 - 贵州 # ; 结束符 /* / EXEC LB19C,SIZE=AUTO 48631 ; 区域 - 四川 43016 ; 区域 - 陕西 48882 ; 区域 - 贵州 # ; 结束符 /* / EXEC LB23C,SIZE=AUTO 48631 43469 # /* / EXEC LB08C,SIZE=AUTO 48631 ; 区域 - 四川 43016 ; 区域 - 陕西 48882 ; 区域 - 贵州 # ; 结束符 /* C、RP04C替换为RP02C。D、信贷报表二级行汇总。将以下作业流加入日批处理作业流，放在原作业流中的LS07C后面，注意本
9、地化(BC23F先做DEL-DEF)。/ EXEC IDCAMS,SIZE=AUTO DELETE LN100.BASE.BC23F CLUSTER PURGE - CATALOG(USER.CAT.PROD.BOC2EE) DEFINE CLUSTER ( - NAME (LN100.BASE.BC23F ) - CYLINDERS(9 2 ) - SHAREOPTIONS (1) - RECORDSIZE (170 170 ) - VOL(BOC267 BOC320 BOC27F) - NOREUSE - NONINDEXED - FREESPACE (15 7) - NOCOMPRESS
10、ED - TO (99366 ) - DATA (NAME (LN100.BASE.BC23F.D ) - CONTROLINTERVALSIZE (4096 ) - CATALOG (USER.CAT.PROD.BOC2EE ) IF LASTCC NE 0 THEN CANCEL JOB /* / DLBL SORTIN1,'LN100.BASE.BC21F',VSAM, X CAT=UCAT2EE,DISP=(OLD,KEEP) / DLBL SORTOUT,'LN100.BASE.BC23F',VSAM, X CAT=UCAT2EE,DISP=(OLD,
11、KEEP) / EXEC SORT,SIZE=80K OPTION ROUTE=LST SORT FIELDS=(1,5,CH,A, 60,1,CH,D, 55,4,CH,A),WORK=1 RECORD TYPE=F,LENGTH=(000170) INPFIL VSAM OUTFIL ESDS /* / DLBL UCAT2EE,'USER.CAT.PROD.BOC2EE',VSAM / EXEC PROC=LNBATDD / DLBL BC23F,'LN100.BASE.BC23F',VSAM, X CAT=UCAT2EE,DISP=(OLD,KEEP) / EXEC LS51C,SIZE=AUTO 00000 ; 起始区域号 99999 ; 终止区域号 ; 统计年月 /* :