COBOL

COBOL程序的结构
IDENTIFICATION DIVISION (标识部)             
   主要用来指定源程序名字，也可以写入其他用作备忘的某些信息（如日期、作者等)。
ENVIROMENT DIVISION(环境部)
   主要用于指出程序中用到的数据文件名与计算机系统的设备的对 应关系，即把某一文件名与一个外部设备联系起来。
DATA DIVISION(数据部〕
   程序中所用到的全部数据（包括输入输出的数据和中间数据)都应在数据部中说明它们的类型和所占内存情况。
 PROCEDURE DIVISION(过程部〕
   用来给出程序要执行的指令，使计算机产生相应的操作，例如进行数学运算。


COBOL程序的书写格式
   1-6列    标号区
   7列      续行区（-）及注释行（*）
   8～11列  A区 部头，节头，段头，层号01，层号77以及文件描述符FD应从A 
            区开写。
   12-72列  B区 正文过程部的句子只能从B区开始写，而不能写到A区去。
   73-80列  注释区 编译时被舍弃

数值型数据 － “9” 描述符
  表示可以放入一个0~9之间的数字
03      X  PIC 9999.
03      Y  PIC 9(5).

              描述　　　　　　　　　数值　　　　　　　在内存中表示
　　　03  X  PIC   9999              1234          　　　　1234
　　　03  Y  PIC   9(5)              467         　 　　   00467
　　　03  Z  PIC   99                86             　　　 86
　　　03  T  PIC   9(6)          　  11011          　　   011011

若 MOVE     1.25    TO    Z, Z中的内容为  01，小数点后的舍弃
若 MOVE    -1.25    TO    Z, Z中的内容为 01，小数点后的舍弃，负号也舍弃


数值型数据 － “V” 描述符

指出在数值数据结构中隐含的小数点的位置
03  M  PIC 999V99.
    说明：
1. V隐含小数点的位置，占5个字节，传送时按小数点对齐，向两边延伸
                MOVE 215.63     TO M     -> M=213.63
                MOVE 1215.637   TO M     -> M= 215.63
2. 只能出现一个V
3. 按隐含的小数点位置对准进行运算
           A  PIC  9(3)V9.        A=010.0
           B  PIC  9(2)V9(2).    B=02.00
           C  PIC  9(2)V9(2).
           COMPUTE C=A+B   => C=12.00
4. 显示时，不显示小数点（用编辑型显示小数点）
 　　　　　描述　　　　　　　　　　数值　　　　　　    　　在内存中表示
　　　02 A  PIC  99V99　　　　　　 87.5　　 　　　　　　　　　8750
　　　02 T  PIC  999V99　　　　　　498.5　　　　　　　　　　　49850
　　　02 W PIC  9(3)V9(2)　　　　　781　　　　　　　　　　　　78100
　　　03 N  PIC  9(4)　　　　　　　1245.6　　　　　　 　　  　1245
　　　03 H  PIC  V999 　　　　　　 1.234　　　　　　　　　　　234  


[color=black][/color]