1.4.2.txt

来自「COBOL实验源码」· 文本 代码 · 共 21 行

          IDENTIFICATION  DIVISION.
          PROGRAM-ID.   EXAM2.

          ENVIRONMENT  DIVISION.

          DATA  DIVISION.
          WORKING-STORAGE  SECTION.
          77  A  PICTURE  IS  9(3).
          77  B  PICTURE  IS  9(3).

          PROCEDURE  DIVISION.
          CMP.    
                   MOVE  10  TO  A.
                   MOVE  20  TO  B.
                   ADD A TO B.
          DSP.
                  DISPLAY 'A  =  ',         A.
	 DISPLAY 'B=',   B.
          END-P.
                  STOP RUN.