COBOL学习(2)-关键字和语法

********************************************************************
COPY * REPLACING * BY *.
********************************************************************
REPLACE * BY *
REPLACE OFF.
********************************************************************
FILLER
********************************************************************
88层条件名
********************************************************************
77层独立数据项
********************************************************************
66 * renames *.
********************************************************************
DECLARATIVES.
*
END DECLARATIVES.
异常或特殊条件触发时调用
********************************************************************
O1 VAR OCCURS 9 TIMES.
03 NAME PIC X(10).
VAR(5)(1:3)
指的是第5个VAR中的前三个字符.
********************************************************************
DISPLAY
ACCEPT
********************************************************************
MOVE * TO *.
********************************************************************
PERFORM * THRU *.
PERFORM VARYING V1 FROM V2 BY V3 UNTIL *
END-PERFORM.
********************************************************************
USAGE IS COMP/BINARY/DISPLAY.
指定数据格式
********************************************************************
SIGN IS LEADING/TRAILING.
********************************************************************
OCCURS * TIMES.
OCCURS V1 TO V2 TIMES DEPENDING ON V3
********************************************************************
SYNCHRONIZED/SYNC LEFT/RIGHT
指定基本数据项在计算机内存自然边界上的对齐
********************************************************************
JUSTIFIED/JUST RIGHT
有此语句时右对齐，没有此语句时坐对齐
********************************************************************
BLANK WHEN ZERO
只能用于数字或者数字编辑型.当发送的数据为0时则置为空格.
********************************************************************
VALUE
********************************************************************
SIZE ERROR
非法算术操作或者结果的绝对值超出接收项大小时执行，接收项数据不改变。
********************************************************************
ROUNDED
如果有截断先进行四舍五入。
********************************************************************
CORRESPONDING/CORR
同名操作。
********************************************************************
ADD
SUBTRACT
MULTIPLY
DIVIDE
COMPUTE
********************************************************************
MOVE
ACCEPT *
ACCEPT * FROM *
ACCEPT * FROM DATE/DAY/
********************************************************************
********************************************************************
********************************************************************