COBOL......2

赋初值子句(VALUE 子句)
COBOL 中允许直接对工作单元节中数据赋以初值。

只能对工作单元节中的数据项赋初值。不能对文件节中输入输出文件中的数据项赋初值。
如果在组合项的描述体中使用VALUE 子句,初值只能是表意常量或非数值型常量。如:
01 A     VALUE ‘1234’.
   03 A1 PIC 99.
   03 A2 PIC 99.
当用一个带符号的数值作初值时,相应的PIC 子句中应该有S 描述符。
赋初值时应注意类型的一致性。
VALUE 子句给出的值应适合PIC 子句描述的范围,否则会出现截断或产生错误。

显示语句(DISPLAY 语句)
将少量数据从计算机内存中输出到某一指定的外设上,可用DISPLAY 语句。
DISPLAY 语句的一般格式
DISPLAY 标识符1(或者常量) [标识符2(或者常量) ] [UPON 助忆名]
如果没有UPON 可选项,在计算机系统隐含指定的输出设备上显示数据。每执行一个DISPLAY 语句,总是从一个新行开始显示的。多用于调试程序时使用。

传送语句(MOVE 语句)
MOVE 语句用来实现数据的传送,将一个数据从一个内存域送到另一个内存域中。相当于其它高级语言中的赋值语句。传送规则(各种类型数据的特点通过MOVE 语句体现):
   MOVE  A  TO  B. ( A 称为发送项,B 称为接收项。)
说明:
如果接收项和发送项在数据部中描述的类型和长度相同,则按字节一一对应地传送。
如果接收项与发送项长度不相同,而两者都是数值数据项,则按小数点对齐原则处理。如果是整数,则认为小数点在最后一位数字之后。接收项长度大于发送项,则多余位补零,接收项长度小于发送项,则产生截断。
对字母或字符数据的传送,按左对齐原则处理。如接收项长度大于发送项的长度,则多余位置补空格,如接收项长度小于发送项的长度,则从右端截断。
MOVE 语句可以将一初等项内容传送给另一初等项,也可以将一组合项内容传送给一初等项,也可以将一初等项内容传送给一组合项。
发送项是数值型数据,而接收项是编辑数值型数据,则先将发送项中数据
按接收项的描述要求进行编辑,然后再传送。
MOVE A(2:6) TO B。(将变量A 从第二位开始取出6 位传送给变量B)

停止语句(STOP 语句)
当实现了程序预期的要求后,应使程序停止执行。
格式为:STOP RUN

你可能感兴趣的:(工作,cobol)