本系统是模拟真实保险业务的需求而设计，在契约管理方面可以完成保险业务中新契约做成、新契约修改、新契约查询；在顾客管理方面可以完成新顾客做成、顾客地址德追加及查询选择、顾客信息的修改、顾客信息德查询、顾客信息的删除等简单的保险业务逻辑。
通过对AS400系统、COBOL语言、保险业务知识的学习和运用，使系统的可操作性、安全性、稳定性和业务处理能力都有了很大的提高。
        本文介绍了在AS400上的保险契约建立系统完整开发过程，首先对整个系统在研究内容和组织结构方面进行了简要概述，然后详细介绍了从需求分析、系统设计到系统实现的完整过程，包括新契约管理功能块的新契约做成、新契约修改、新契约查询；顾客管理功能块中的新顾客做成、顾客住址的追加及查询选择、顾客信息的修改、顾客信息的查询、顾客信息的删除，并利用设计图、页面运行效果图，以及代码实例的方式阐述本系统。最后，对系统进行了总结和展望。
保险契约系统设计指导思想
         为了迎合发展迅猛的保险行业和日趋复杂的保险业务，用计算机来代替大量的人工劳作已经成为未来发展的趋势，计算机以其计算准确、计算能力强大、消耗成本低廉而成为未来保险业务发展的强劲动力。
本系统的设计采用AS400操作系统作为作为系统的运行环境,采用COBOL语言来实现程序的逻辑控制。采用物理文件（PF）和逻辑文件（LF）来存储数据，采用显示文件（DSPF）用来描述显示格式，以产生程序所使用的屏幕。
        AS400操作系统是面向对象的，其中的文件系统又是面向记录格式的，这使得它在许多方面有独特的表现。在AS400中引入目标（Object）、库、库列表（Library、Library List）、文件（File）、子系统（Subsystem）、作业（Job）等概念，使AS/400具有安全、易用、易管理等特点，在商业领域运用广泛，涉足银行、金融、保险、证券等方面。
        在AS/400系统上一个方便的和有力的替换方法是数据描述规范可以在处理数据的应用程序外部文件描述中来描述数据的属性。DDS（数据描述规范）可以用来描述下列类型的文件：物理文件、逻辑文件、显示文件、打印机文件。建立三种文件分别用如下命令：物理文件 CRTPF 、逻辑文件 CRTLF、 显示文件 CRTDSPF 。用STRSEU命令在源文件（SOURCE FILE）中建立源成员（SOURCE MEMBER）。源成员就是要建立的物理文件的DDS。一个源文件中可有许多源成员。字段参考文件相当于数据字典，由于在多个数据库中会用到同样的字段，为减少冗余，可把它们的定义放入字段参考文件中，供物理文件参考。逻辑文件决定在一个应用程序读操作时数据记录是如何选择和定义的。逻辑文件可以是单一格式的，多格式的和结合的逻辑文件。显示文件用来描述显示格式，以产生程序所使用的屏幕。建立显示文件，有两种方法：使用CRTDSPF(建立显示文件)命令，选择文件类型为DSPF；使用STRSEU(开始源输入实用程序)命令，按F4键，选择文件类型为DSPF

保险契约系统的功能结构设计
本系统分为两大部分----新契约管理和顾客管理。
      顾客管理：顾客情报保守界面开始，进入选择界面。输入顾客番号后，用户可以选择A、B、C、D分别进入顾客情报作成、顾客情报变更、顾客情报照会、顾客情报削除四个功能模块。      
当选择A进入顾客情报作成，该功能主要完成顾客信息的新建，顾客的各种信息在该页面录入，通过录入的邮编番号，按F7键可以跳到住址查询画面选择住址，即调用住址情报功能模块，住址不能直接在画面录入。追加邮编番号：当后面的空格不为空时（有任何字母录入）不做本画面的任何CHECK，直接跳到住址追加画面。本页面CHECK：姓名、邮编、住址必须有值；否则将错误信息在页面输出。在该功能模块中新顾客的信息分别存放在新顧客数据库 CREL和顾客情报数据库  CLNT。
       选择B进入顾客情报变更模块，该模块主要用来完成顾客相关信息的更改。该模块的所有信息，顾客番号一项不可以更改，其他信息项可以更改，更改以后按回车键将更改信息写进数据库。追加邮编番号：当后面的空格不为空时（有任何字母录入）不做本画面的任何CHECK，直接跳到住址追加画面。当用户按下回车键后，该顾客的信息就被更新到顾客情报数据库  CLNT。
选择C进入顾客情报照会功能模块，该模块主要用来完成顾客情报的查询。进入显示页面后，将与该番号对应的顾客信息显示出来，但不可更改信息。该模块用到的数据库有邮编番号数据库 CREL、顾客情报数据库  CLNT。
      选择D进入顾客情报削除功能模块，该部分主要用来完成对某顾客信息的删除。由顾客情报保守页面传过来的顾客番号调用顾客情报数据库  CLNT中相应顾客信息，按下F8键后，选择“Y”确认删除，将该条记录从顾客情报数据库  CLNT中删除。该模块用到数据库有顾客情报数据库  CLNT。
       新契约管理：由主页面进入契约申请页面，页面提示输入保险种类、证券番号和处理项，在相应选项输入
       在输入保险种类和A选项后（在此处证券番号是自动生成的），进入契约做成功能模块。该模块主要完成契约的新建功能。契约者信息通过录入的顾客番号查询出页面需要的信息，或则在顾客番号的位子，按F4可以调出顾客查询，通过查询顾客情报数据库  CLNT后选择得到所需顾客信息。责任开始日和契约申请日是系统自动生成的数据。在被保险者一项中，顾客信息中的顾客番号和相关信息也可以通过F4调出顾客选择页面，在顾客选择页面中选择相应顾客，将信息带入到契约做成页面。领取人一项中的百分比相加必须等于100%，否则系统报错。该模块用到的数据库有：契约数据表  CHDR、契约内容数据表  CHNAYO、主契约数据表   CTABLE、顾客情报数据库  CLNT、邮编番号数据库 CREL。
       在输入证券番号后，处理项输入B后进入契约变更功能模块，在此处证券番号可以通过F4键调用契约选择页面，选择相应的契约，即将证券番号带入到前一页面。主要用来完成对契约的变更和对新契约内容的变更。显示出原有的契约内容，可以修改顾客的相应信息，但顾客番号以及契约相关信息无法修改，在光标停契约者处，按下F4可以检索顾客信息，进入顾客选择页面，选择相关顾客后，返回顾客的番号等相关信息，确定更改结束后，在确认处选择“Y”，回车键结束。在该模块用到的数据库有：契约内容数据表  CHNAYO
在输入证券番号后，在处理项输入C后进入契约照会功能模块。此处的证券番号同样可以通过调用契约选择来获得。进入该页面后，显示出顾客契约信息，无法在此功能模块内修改契约信息。在历史变更记录照会处选择“1”，进入历史变更记录查询，可以查询到该契约的变更历史记录。F12返回契约照会。该模块用到的数据库有：契约数据表  CHDR、契约内容数据表  CHNAYO、主契约数据表   CTABLE、顾客情报数据库  CLNT、邮编番号数据库 CREL。具体功能流程如图4.1所示