pay

目前,国内运用COBOL语言的公司很少,导致目前国内懂cobol的程序员甚少.我这里提供几个由简入深的例子,希望对大家能够有用

      *************************************************************************** 
       IDENTIFICATION    DIVISION.
      *************************************************************************** 
       PROGRAM-ID.           PAY.
       AUTHOR.               FNSAP47-SANDOBLUE.
       DATE-WRITTEN.         2007-03-16.
      ***************************************************************************
       ENVIRONMENT       DIVISION.
      ***************************************************************************
      *
      *--------------------------------
       INPUT-OUTPUT        SECTION.
      *--------------------------------
       FILE-CONTROL.
           SELECT  INPUT-FILE    ASSIGN  TO  DU-KA-JI.
           SELECT  PRINT-FILE    ASSIGN  TO  KUANG-XING-DA-YIN-JI.
      ***************************************************************************
       DATA              DIVISION.
      ***************************************************************************
      *
      *--------------------------------
       FILE                SECTION.
      *--------------------------------
       FD  INPUT-FILE    LABEL  RECORD  IS  OMITTED.
       01  GZQD-R.
           03  BH          PIC    9(06).
           03  XM          PIC    X(20).
           03  JBGZ        PIC    999V99.
           03  FJGZ        PIC    9V99.
           03  FSBZ        PIC    9V9.
           03  XLF         PIC    9V99.
           03  TEF         PIC    99V99.
           03  FZ          PIC    99V99.
           03  HZJ         PIC    99V99.
           03  BSJKC       PIC    99V99.
           03  FILLER      PIC    X(25).
       FD  PRINT-FILE    LABEL  RECORD  IS  OMITTED.
       01  GZQD-P.
           03  FILLER      PIC    X.
           03  BH-P        PIC    9(06).
           03  FILLER      PIC    XX.
           03  XM-P        PIC    X(20).
           03  FILLER      PIC    XX.
           03  JBGZ-P      PIC    999.99.
           03  FILLER      PIC    XX.
           03  FJGZ-P      PIC    9.99.
           03  FILLER      PIC    XX.
           03  FSBZ-P      PIC    9.9.
           03  FILLER      PIC    XX.
           03  XLF-P       PIC    9.99.
           03  FILLER      PIC    XX.
           03  TEF-P       PIC    99.99.
           03  FILLER      PIC    XX.
           03  FZ-P        PIC    99.99.
           03  FILLER      PIC    XX.
           03  HZJ-P       PIC    99.99.
           03  FILLER      PIC    XX.
           03  BSJKC-P     PIC    99.99.
           03  FILLER      PIC    XX.
           03  SFGZ-P      PIC    9(4).99.
           03  FILLER      PIC    X(45). 
      *--------------------------------
       WORKING-STORAGE        SECTION.
      *--------------------------------
       77  SFGZ-P-TEMP     PIC    9(4)V99   VALUE  IS  ZEROS.
      *************************************************************************** 
       PROCEDURE         DIVISION.
      ***************************************************************************
       OPEN-FILES.
           OPEN    INPUT    INPUT-FILE
                   OUTPUT   PRINT-FILE.
       READ-FILES.
           MOVE    SPACE    TO    GZQD-P.
           MOVE    ZEROS    TO    GZQD-P-TEMP.
           READ    INPUT-FILE
                   AT  END  PERFORM  CLOSE-FILES    
                            STOP  RUN.
       MOVE-DATA-FOR-PRINT.
           MOVE  BH      TO  BH-P.
           MOVE  XM      TO  XM-P.
           MOVE  JBGZ    TO  JBGZ-P.
           MOVE  FJGZ    TO  FJGZ-P.
           MOVE  FSBZ    TO  FSBJ-P.
           MOVE  XLF     TO  XLF-P.
           MOVE  TEF     TO  TEF-P.
           MOVE  FZ      TO  FZ-P.
           MOVE  HZJ     TO  HZJ-P.
           MOVE  BSJKC   TO  BSJKC-P.  
       JISUAN-GONGZI.
           ADD  JBGZ, FJGZ, FSBZ  TO  XLF   GIVING  SFGZ-P-TEMP 
                   ROUNDED
                   ON  SIZE  ERROR  DISPLAY "SIZE  ERROR!"
                                    STOP  RUN.
           SUBTRACT  TEF, FZ, HZJ, BSJKC  FROM  SFGZ-P-TEMP 
                   ROUNDED
                   ON  SIZE  ERROR  DISPLAY "SIZE  ERROR!"
                                    STOP  RUN.
      *or  COMPUTE SFGZ-P-TEMP = JBGZ + FJGZ + FSBZ + XLF -TEF -FZ - HZJ - BSJKC.
           MOVE SFGZ-P-TEMP  TO  SFGZ-P.
       PRINT-RESULT.
           WRITE  GZQD-P    AFTER 2.
           GO  TO  READ-FILES.  
       CLOSE-FILES.
           CLOSE   INPUT-FILE
                   PRINT-FILE.