exam02

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

       IDENTIFICATION DIVISION.
       PROGRAM-ID.      EXAM02.
       AUTHOR.          SANDOBLUE.
       DATE-WRITTEN.    14-MAR-2007.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77  A   PICTURE IS   9(3).
       77  B   PICTURE IS   9(3).
       PROCEDURE DIVISION.
       PROGRAM-BEGIN.
           ACCEPT   A
           ACCEPT   B
           ADD A TO B
           DISPLAY A, B.
           STOP RUN.