20020924-信貸系統(tǒng)V2.1升級(jí)V2.2說(shuō)明

1、.信貸系統(tǒng)V2.1升級(jí)V2.2版本說(shuō)明 信貸系統(tǒng)V2.2相對(duì)于V2.1增加以下功能：一、 信貸系統(tǒng)清分功能，包括：1、清分?jǐn)?shù)據(jù)生成與更新 （ES9000批量生成初始數(shù)據(jù)）2、信貸清分客戶基本信息、合同清分認(rèn)定表聯(lián)機(jī)維護(hù)；非信貸清分的合同認(rèn)定表及客戶信息錄入（新模板）；清分信息錄入統(tǒng)計(jì)查詢3、下傳數(shù)據(jù)生成 （ES9000- PC）二、 5218、5216科目傳票摘要自動(dòng)取同套9021傳票摘要三、 單筆聯(lián)機(jī)跨機(jī)構(gòu)移交授信合同（不出帳）四、 授信合同本息分戶帳聯(lián)機(jī)、批量打印五、 三貸業(yè)務(wù)（9177）脫鉤處理六、 到期任務(wù)列表功能完善七、 自動(dòng)交易列表順序調(diào)整（按機(jī)構(gòu)、部門、客戶、貨幣、合同排序）八、

2、 匡息、計(jì)息功能完善九、 合同信息變更自動(dòng)登記合同備注十、 未收利息為負(fù)時(shí)，支持直接收、轉(zhuǎn)負(fù)利息（相當(dāng)藍(lán)字沖帳）十一、 中銀統(tǒng)報(bào)表的各級(jí)匯總。（主要是二級(jí)行）十二、 中銀統(tǒng)報(bào)表的發(fā)生額計(jì)算方法改變（包括正常、逾期、呆帳、呆滯、核呆）十三、 與SBS3交換數(shù)據(jù)文本支持一個(gè)文本包含多區(qū)域 更新步驟：一、 將生產(chǎn)機(jī)LNLIB中的FCT的COPYBOOK移至LNPRD，備份生產(chǎn)機(jī)VSAM文件、DOS庫(kù)；二、 恢復(fù)升級(jí)帶DOS庫(kù)BOC2.LNLIB；三、 本地化BOC2.LNLIB.LNBATDD.PROC、BOC2.LNLIB.LNFILDD.PROC重新登庫(kù)到PRD庫(kù)，增加或修改LNPRD中有關(guān)FC

3、T的定義；四、 編譯DFHFCTLN；五、 恢復(fù)升級(jí)帶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；六、 運(yùn)行作業(yè)流(本地化后提交)：LQ01J,LQ03J(需要先跑一下)七、 起聯(lián)機(jī)，檢查以下各項(xiàng)是否正常：各文件是否正常打開是否能

4、作系統(tǒng)初始化是否能正常做帳務(wù)處理；八、 執(zhí)行聯(lián)機(jī)交易執(zhí)行聯(lián)機(jī)程序LQ98A，LQ99A,清理LQ01F和LQ04F中的FILLER.檢查清分認(rèn)定表新增域，測(cè)試非信貸清分錄入九、 按照新的規(guī)定維護(hù)系統(tǒng)參數(shù)：合同號(hào)起止區(qū)間等 更新詳細(xì)說(shuō)明：一、批量作業(yè)流更新說(shuō)明 A 、清分部分：1、在LNBAT2中更新LQ01J,在LQ01J中增加LB93C。按如下參數(shù)修改：/ EXEC PROC=LNBATDD / ON _CANCEL OR _ABEND GOTO _EOJ / EXEC LB93C,SIZE=AUTO 03 ; 第一日期 ( 兩位數(shù)組下標(biāo) 01 31 ) 下一工作日 26 ; 第二日期 (

5、兩位數(shù)組下標(biāo) 01 31 ) 清分截止日 01 ; 比較上限 ( 兩位整數(shù) ,99+ 90- 90+ ) 大于 90 ; 比較下限 ( 兩位整數(shù) ,99+ 90- 90+ ) /* / IF _MRC > 0 THEN / GOTO _EOJ / EXEC LQ01C,SIZE=AUTO 00000 ; 區(qū)域選擇 ( 00000- 所有區(qū)域 ) ; 清分截止日期（如空，由程序自動(dòng)計(jì)算） 1 ; 功能選擇 ( 1- 生成， 2- 更新 ) 1 ; CIF 信息更新選擇 ( 0/1 ) 1 ; 信貸客戶附加信息更新選擇 ( 0/1 ) 1 ; 信貸合同信息更新選擇 ( 0/1 ) 1 ; 信

6、貸帳務(wù)信息更新選擇 ( 0/1 ) 0 ; CF11F 記錄生成選擇 ( 0/1 ) /* /& 2更新LQ03J，文件文件*LQ01F,*LQ04F的長(zhǎng)度有變化，請(qǐng)按如下參數(shù)修改作業(yè)流LNBAT2 中文件定義（*LQ01F,*LQ04F代表?yè)?jù)各行名稱而不同）：DEFINE CL (NAME(LN100.LQF.*LQ11F) - RECSZ(979,979) - DEFINE CL (NAME(LN100.LQF.LQ14F) - RECSZ(5407,5407) - B、 與SBS3接口批量1、文件AC18F、AC19F、AC29F的長(zhǎng)度及鍵值位置有變化，請(qǐng)按如下參數(shù)修改作業(yè)流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、程序中卡片參數(shù)變化：/ EXEC LB17C,SIZE=AUTO ; 生成交易的日期 (YYYYMMDD) ，空 = 下一工作日 48631 ; 區(qū)域 - 四川 43016 ; 區(qū)域

8、 - 陜西 48882 ; 區(qū)域 - 貴州 # ; 結(jié)束符 /* / EXEC LB19C,SIZE=AUTO 48631 ; 區(qū)域 - 四川 43016 ; 區(qū)域 - 陜西 48882 ; 區(qū)域 - 貴州 # ; 結(jié)束符 /* / EXEC LB23C,SIZE=AUTO 48631 43469 # /* / EXEC LB08C,SIZE=AUTO 48631 ; 區(qū)域 - 四川 43016 ; 區(qū)域 - 陜西 48882 ; 區(qū)域 - 貴州 # ; 結(jié)束符 /* C、RP04C替換為RP02C。D、信貸報(bào)表二級(jí)行匯總。將以下作業(yè)流加入日批處理作業(yè)流，放在原作業(yè)流中的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,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&