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]