LifeAsia 功能通过Java转移到Web

最新推荐文章于 2021-03-18 17:09:27 发布

原创

最新推荐文章于 2021-03-18 17:09:27 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#LifeAsia #Java

该博客讲述了LifeAsia的功能如何从Cobol版本通过Java实现文件IO的迁移，并利用PCML进行查询调用。业务操作则通过BO（Business Object）来实现。主要内容包括：1) Java版本的Cobol文件IO实现；2) PCML调用LifeAsia的现有程序；3) 未完成优化的BO调用示例。

主题思想，除了业务操作类以BO实现外，除非已有现成BO，查询/报表不通过BO实现。

LIfeAsia文件的IO通过开发Java版本的IO来达到同样目的，LifeAsia的查询类程序通过PCML来调用，业务操作通过开发BO来实现。

（1）LifeAsia的Cobol版本的文件IO 以java版本来实现。最终调用代码类似。

Clnt clnt = new Clnt();
  clnt.setClntpfx(Common.CLNTPFX);
  clnt.setClntcoy(Common.CLNTCOY);
  clnt.setClntnum(clntnum);
  clnt.setIOF_(IOF.READR);
  Clntio.io(clnt);

（2）PCML调用，通过IBM的PCML类调用LA的已有程序。比如HRTOTLON。

pcml.setValue("HRTOTLON.TOTL-TOTLOAN-REC.TOTL-FUNCTION", loanCalCPY.getFunction());
            pcml.setValue("HRTOTLON.TOTL-TOTLOAN-REC.TOTL-STATUZ", Common.O_K);
            pcml.setValue("HRTOTLON.TOTL-TOTLOAN-REC.TOTL-CHDRCOY",loanCalCPY.getChdrcoy());
            pcml.setValue("HRTOTLON.TOTL-TOTLOAN-REC.TOTL-CHDRNUM",loanCalCPY.getChdrnum());
            pcml.setValue("HRTOTLON.TOTL-TOTLOAN-REC.TOTL-PRINCIPAL",new BigDecimal(0.0));
            pcml.setValue("HRTOTLON.TOTL-TOTLOAN-REC.TOTL-INTEREST",new BigDecimal(0.0));
            pcml.setValue("HRTOTLON.TOTL-TOTLOAN-REC.TOTL-LOAN-COUNT",new BigDecimal(0));
            pcml.setValue("HRTOTLON.TOTL-TOTLOAN-REC.TOTL-EFFECTIVE-DATE",loanCalCPY.getEffective_date());
            pcml.setValue("HRTOTLON.TOTL-TOTLOAN-REC.TOTL-BATCHKEY"," ");
            pcml.setValue("HRTOTLON.TOTL-TOTLOAN-REC.TOTL-TRANNO",new BigDecimal(0));