• COBOL 在保险行业中的应用举例

    保单管理

    1.       ******************************************************************
    2.       * Author: berry
    3.       * Date:2023-09-12
    4.       * Purpose: studying
    5.       * Tectonics: cobc
    6.       ******************************************************************
    7.        IDENTIFICATION DIVISION.
    8.        PROGRAM-ID. MYPROG.
    9.        DATA DIVISION.
    10.        WORKING-STORAGE SECTION.
    11.            01 AMOUNT-INSURED PIC 9(6)V99 VALUE 100000.00.
    12.            01 PREMIUM-RATE PIC 9(3)V99 VALUE 1.50.
    13.            01 PREMIUM-AMOUNT PIC 9(10)V99.
    14.        PROCEDURE DIVISION.
    15.            MULTIPLY AMOUNT-INSURED BY PREMIUM-RATE GIVING PREMIUM-AMOUNT.
    16.            DISPLAY "PREMIUM AMOUNT = ", PREMIUM-AMOUNT.
    17.        STOP RUN.
    18.

    索赔管理

    1.       ******************************************************************
    2.       * Author:
    3.       * Date:
    4.       * Purpose:
    5.       * Tectonics: cobc
    6.       ******************************************************************
    7.        IDENTIFICATION DIVISION.
    8.        PROGRAM-ID. MYPROG.
    9.        DATA DIVISION.
    10.        WORKING-STORAGE SECTION.
    11.            01 DAMAGE-AMOUNT PIC 9(4)V99 VALUE 2000.00.
    12.            01 DEDUCTIBLE-AMOUNT PIC 9(3)V99 VALUE 500.00.
    13.            01 CLAIM-AMOUNT PIC 9(10)V99.
    14.        PROCEDURE DIVISION.
    15.        SUBTRACT DEDUCTIBLE-AMOUNT FROM DAMAGE-AMOUNT GIVING CLAIM-AMOUNT.
    16.        DISPLAY "CLAIM AMOUNT = ", CLAIM-AMOUNT.
    17.        STOP RUN.
    18.  
    19.

    会计管理

    1.       ******************************************************************
    2.       * Author: berry
    3.       * Date: 2023-09-12
    4.       * Purpose: studying
    5.       * Tectonics: cobc
    6.       ******************************************************************
    7.        IDENTIFICATION DIVISION.
    8.        PROGRAM-ID. MYPROG.
    9.        DATA DIVISION.
    10.        WORKING-STORAGE SECTION.
    11.        01 CASH-BALANCE PIC S9(5)V99 VALUE +10000.00.
    12.        01 LOAN-AMOUNT PIC S9(4)V99 VALUE -5000.00.
    13.        01 NEW-BALANCE PIC S9(10)V99.
    14.        PROCEDURE DIVISION.
    15.        ADD CASH-BALANCE LOAN-AMOUNT GIVING NEW-BALANCE.
    16.        DISPLAY "NEW BALANCE = ", NEW-BALANCE.
    17.        STOP RUN.
    18.

    报告处理

    1.       ******************************************************************
    2.       * Author: berry
    3.       * Date: 2023-9-12
    4.       * Purpose: studying
    5.       * Tectonics: cobc
    6.       ******************************************************************
    7.        IDENTIFICATION DIVISION.
    8.        PROGRAM-ID. MYPROG.
    9.        DATA DIVISION.
    10.        WORKING-STORAGE SECTION.
    11.            01 MONTHLY-PREMIUMS PIC 9(8)V99 OCCURS 12 TIMES.
    12.            01 TOTAL-PREMIUM PIC 9(8)V99.
    13.            01 MONTH-COUNTER PIC 99 VALUE 1.
    14.        PROCEDURE DIVISION.
    15.            PERFORM VARYING MONTH-COUNTER FROM 1 BY 1 UNTIL MONTH-COUNTER > 12
    16.            DISPLAY "Month ", MONTH-COUNTER, ": ", MONTHLY-PREMIUMS(MONTH-COUNTER)
    17.            ADD MONTHLY-PREMIUMS(MONTH-COUNTER) TO TOTAL-PREMIUM
    18.            END-PERFORM
    19.        DISPLAY "Total Premium: ", TOTAL-PREMIUM.
    20.        STOP RUN.
    21.  
    22.

    保险管理

    1.       ******************************************************************
    2.       * Author:
    3.       * Date:
    4.       * Purpose:
    5.       * Tectonics: cobc
    6.       ******************************************************************
    7.        IDENTIFICATION DIVISION.
    8.        PROGRAM-ID. MANAGEMENT.
    9.        DATA DIVISION.
    10.        WORKING-STORAGE SECTION.
    11.        01 CUSTOMER-COUNT PIC 99 VALUE 0.
    12.        01 POLICY-COUNT PIC 99 VALUE 0.
    13.        PROCEDURE DIVISION.
    14.        PERFORM UNTIL CUSTOMER-COUNT = 100
    15.            ADD 1 TO CUSTOMER-COUNT
    16.            PERFORM UNTIL POLICY-COUNT = 10
    17.                ADD 1 TO POLICY-COUNT
    18.            END-PERFORM
    19.            DISPLAY "Customer ", CUSTOMER-COUNT, " has ", POLICY-COUNT, " policies."
    20.                SET POLICY-COUNT TO 0
    21.        END-PERFORM
    22.        STOP RUN.
    23.  
    24.  
    25.

    保险单统计分析demo

    1.       ******************************************************************
    2.       * Author:
    3.       * Date:
    4.       * Purpose:
    5.       * Tectonics: cobc
    6.       ******************************************************************
    7.        IDENTIFICATION DIVISION.
    8.        PROGRAM-ID. STATISTICAL-ANALYSIS.
    9.        DATA DIVISION.
    10.        WORKING-STORAGE SECTION.
    11.        01 POLICY-COUNT PIC 99 VALUE 0.
    12.        01 TOTAL-PREMIUMS PIC 9(5)V99 VALUE 0.
    13.        01 AVERAGE-PREMIUM PIC 9(8)V99.
    14.        01 HIGHEST-PREMIUM PIC 9(8)V99 VALUE 0.
    15.        01 LOWEST-PREMIUM PIC 9(8)V99 VALUE 999999.
    16.        01 RISK-COUNT PIC 99 VALUE 0.
    17.        01 HIGH-RISK-COUNT PIC 99 VALUE 0.
    18.        01 LOW-RISK-COUNT PIC 99 VALUE 0.
    19.        PROCEDURE DIVISION.
    20.        PERFORM UNTIL POLICY-COUNT = 3
    21.           ADD 1 TO POLICY-COUNT
    22.           DISPLAY "Policy ", POLICY-COUNT, ":"
    23.           ACCEPT TOTAL-PREMIUMS
    24.           IF TOTAL-PREMIUMS > HIGHEST-PREMIUM
    25.            MOVE TOTAL-PREMIUMS TO HIGHEST-PREMIUM
    26.           END-IF
    27.           IF TOTAL-PREMIUMS < LOWEST-PREMIUM
    28.            MOVE TOTAL-PREMIUMS TO LOWEST-PREMIUM
    29.           END-IF
    30.           IF TOTAL-PREMIUMS > 5000
    31.            ADD 1 TO HIGH-RISK-COUNT
    32.           ELSE
    33.            ADD 1 TO LOW-RISK-COUNT
    34.           END-IF
    35.           ADD TOTAL-PREMIUMS TO TOTAL-PREMIUMS
    36.        END-PERFORM
    37.        DIVIDE TOTAL-PREMIUMS BY POLICY-COUNT GIVING AVERAGE-PREMIUM
    38.        DISPLAY "Total Policies: ", POLICY-COUNT
    39.        DISPLAY "Average Premium: ", AVERAGE-PREMIUM
    40.        DISPLAY "Highest Premium: ", HIGHEST-PREMIUM
    41.        DISPLAY "Lowest Premium: ", LOWEST-PREMIUM
    42.        DISPLAY "High Risk Policies: ", HIGH-RISK-COUNT
    43.        DISPLAY "Low Risk Policies: ", LOW-RISK-COUNT.
    44.        STOP RUN.
    45.  
    46.

  • 相关阅读:
    2023年09月 Python（一级）真题解析#中国电子学会#全国青少年软件编程等级考试
    Apple 注销账户 Revoke Token
    83、【backtrader期货策略】一个国债期货的日线趋势跟踪策略
    输入网址后发生了什么&没有listen（accept）能建立连接吗&SYN洪水
    省去findViewById()方法，kotlin-android-extensions插件
    LlamaFS自组织文件管理器
    SPDK线程模型
    为什么 Spring和IDEA 都不推荐使用 @Autowired 注解
    Flink学习:从wordCount开始
    TS复习---typeScript介绍
  • 原文地址：https://blog.csdn.net/bbrry/article/details/132837582