COBOL概述PART07.docVIP

数据部之二 ——数据部的较高技巧 数据在计算机内的表示形式 计算机内存的组织形式： 计算机是以二进制形式存放数据的，内存的最小单位是二进制位。8位构成一个字节。 字符型数据在内存中的存储形式 不论是字母还是数字，都按一个字节存放一个字符存放。 数值型数据在内存中的存储数据 外部十进制：一个数字在内存中占一个字节 外部浮点数形式： 一般形式： 数符 数值部分 E 阶码符 阶码 例： 77 A PIC +9.99999E+99 表示 +1.23456E+59 注意：外部符点形式的数据不能用VALUE语句赋初值。 内部十进制数：只能存放0—9十个数字，每两个数字占一个字节。 定点二进制形式：将十进制数转换成定点二进制数，存入内存。 数据描述与存储形式的关系 字母型、字符型、编辑型、外部十进制数据和以外部浮点形式表示的数据用标准数据形式来存放 数值型数据可以由程序员任意选定存放形式。 数据在计算机内进行运算，都是化成二进制数以后再进行的。 用法子句（USAGE子句）(SAMPLE7-1) 使用用法 (USAGE) 子句可以使程序设计者自由选择数据在内存中的存放形式。 USAGE子句的一般格式为 DISPLAY [ USAGE IS ] COMPUTATIONAL COMP 其中“USAGE IS DISPLAY”的意思是“显示型的用法”，即此数据适合打印、显示，它采用标准数据类型。COMPUTATIONAL和COMP是同一意思，表示“计算型的用法”表示此数据类型适合计算，它采用适用于计算用的定点二进制形式或内部浮点形式。 标准COBOL只列出DISPLAY和COMPUTATIONAL两种用法的格式。各种计算机还规定了它可采用的有哪几种数据存放形式以及用什么来代表他们，在使用前，请查阅所用计算机的COBOL说明书。 说明：（1）USAGE子句是用来指定数据项在内存中的存储形式的。 （2）如果省略USAGE子句，则隐含表示用DISPLAY形式。 （3）如果对组合项描述为一种存储形式，则表示这个组合项的下属各初等项都是这种形式 （4）USAGE子句指定的数据存储形式不应与PIC子句指定的数据类型矛盾。 （5）长、短浮点形式已确定了内存的长度，不应再用PIC子句。 （6）在传送或运算时不同存储形式的数据型数据间可互相转换。 （7）在用DISPLAY语句显示数据项的内容时，如果数据项的USAGE“用法中”不指定DISPLAY，则在显示前，计算机自动将内存中的数据形式转换（EBCDIC码或ASCII码，试计算机系统而定），然后以字符形式显示。 （8）如果用WRITE语句，则直接输出，不进行转换。 二、符号子句(SIGN子句) SIGN子句用来指定数值型数据描述体中运算符号的状态和位置。 说明：（1）在没有SIGN子句时，数值的符号是存放在数据项最后一个字节中的。 （2）用SIGN子句可以指定符号在数值的前部还是后部。 （3）指定符号单独占一个字节，用“SEPARATE”可选项。 SIGN子句的一般形式 LEADING [ SING IS ] [ SEPARATE CHARACTER ] TRAILING 例：77 A PIC S9(3) VALUE –125 SIGN LEADING(TRAILING) SEPARATE. 注意：（1）它只能用于PIC字符串中含有“S”的数值型数据描述体中。 （2）使用SIGN子句的数据项的用法(USAGE)应当是USAGE DISPLAY。不能用于计算型用法的数据项 （3）用SEPARATE可选项时，内存中增加了一个字节，用来放符号标志。 （4）如果一个数据项的描述体中包含SIGN子句，则数据项的值应包括正或负的符号，否则会出错。 三、重定义子句(REDEFINES子句) (SAMPLE7-2:冒泡排序) 不同的数据项可以共用内存中的同一段空间。 重定义子句的一般形式： 层号 数据名1 REDEFINES 数据名2 例: 01 A. 02 A1 PIC X(6). 02 B1 REDEFINES A1. 03