cobol练习.doc

用带符号的操作符‘S’定义两个变量，使两个变量为一正数，一负数，把两数相加。显示出来。
    单独显示出的数字会有乱码，相加后得0，但也有乱码。
3.定义一个组合变量，给子变量赋值，然后分别显示组合变量和子变量的值。
    效果相同。
4.定义变量A，使用重定义定义变量B,C，定义一个共同变量A。同时显示定义变量和被定义变量的值。在变量C之前，定义一个普通变量D。看编译结果如何。
可以看出，重定义变量B、C与A共用一块空间，对其中任何一个改变都会影响到三个的值。
重定义变量C必须紧跟原变量，中间插入另一个变量会使重定义失败。

       IDENTIFICATION DIVISION.                        
       PROGRAM-ID.   TEST1.                            
       AUTHOR.       ERIC                              
      *                                                
       ENVIRONMENT    DIVISION.                           
      *                                                
       DATA  DIVISION.                                  
       WORKING-STORAGE    SECTION.                        
       01   TEST-DATA   PIC X(20).                     
       01   TEST-DATA2  PIC S9(3).                     
       01 TEST-DATA3  REDEFINES   TEST-DATA2  PIC X(20).
       01   TEST-DATA4   PIC 9(5).                      
       01   STUDENT.                                   
           02    NAME   PIC X(5).                      
           02    SEX    PIC X(5).                      
           02    AGE    PIC 92).  
     *                                        
      PROCEDURE DIVISION.                     
           MOVE  'HELLO WORLD'  TO  TEST-DATA.
           MOVE  -234           TO  TEST-DATA2.
           ADD     234             TO   TEST-DATA2.
          DISPLAY  TEST-DATA2.
         DISPLAY   TEST-DATA3.
           MOVE  'ERIC'         TO NAME.      
           MOVE  'MAN'        TO  SEX.       
           MOVE   21            TO  AGE.       
           DISPLAY STUDENT.                   
           DISPLAY NAME  SEX   AGE.           
           STOP RUN.