《精品课程第5章-基本数据类型与计算讲解》由会员分享，可在线阅读，更多相关《精品课程第5章-基本数据类型与计算讲解（85页珍藏版）》请在金锄头文库上搜索。
1、DUT 单位：大连理工大学 作者：陆坤，李凤岐，姜厚云 1 大型主机平台系统应用开发基础 教育部IBM精品课程 DUT 2 第五章 基本数据类型与计算 v5.1 基本数据类型 v5.2 四则运算语句 v5.3 其它算数运算语句 v5.4 表处理 DUT 3 第一节 基本数据类型 v数据类型概述 v数值型数据的描述 v字母型数据的描述 v字符型数据的描述 v编辑型数据的描述 v数据类型小结 DUT 数据类型概述 p PIC是PICTURE的缩写，用来描述初等数据项，它说明： a. 数据是什么类型的，如果是数值型的，是否包含正负号 和小数点？ b. 数据项占多大内存区 c. 是否需要准备有关特殊字
2、符 ( 正负号,小数点,$,* 等 ) p 例如: 01 StudentDetail. 02 StuID PIC 9(7). 02 StuName PIC X(8). p 9(7)=9999999 X(8)=XXXXXXXX DUT 数值型数据的描述 p 9 描述符：表示该位置可以放入一个0 9之间的数字 描述 数值内存中表示 77 X PIC 9 88 77 Y PIC 9(5) 45600456 p 注意： a. 不能输入小数部分，如果输入则被舍弃 b. 不能输入负数，如果输入则负号被舍弃，即存入绝对值 DUT 数值型数据的描述 p V 描述符：指出数据结构中隐含的小数点的位置，小数点 不
3、占内存单元，例如： 描述 数值内存中表示 77 A PIC 9V9 7.777 77 B PIC 9(3)V9(2) 78978900 p 注意： a. V在描述符最后等价于无小数点：99V = 99 b.传送数据时，按小数点对齐原则：多余数值位被截断， 不足位补0 c. 运算时，按小数点位置对准进行运算 d. 输出时，只显示内存中各字节的内容，不显示小数点 p 所以输出时会使用编辑型数据类型 DUT 数值型数据的描述 * p P描述符 当数值很大，如:1000000000，需要用PIC 9999999999 来描述，共占 用10个字节 使用PIC 9P(9)，P是隐含的不占内存单元，运算时按
4、1109进行，只 占用1个字节 对于很小的数，如：0.000012，可以描述为: PIC PPPP99 p 注意： a. P必须出现在全部9之前或之后，如：99P99 是错的 b. P隐含指出小数点的位置：9PP=9PPV，VPP9=PP9 c. 对于很小的数，如：0.000012，可以描述为: PIC PPPP99 d. 9后有n个P，表示10n；9前有n个P，且有m个9， 表示10 -(n+m) e. 输出时不显示零，只显示实际存放的数值 DUT 数值型数据的描述 p S 描述符：指定带符号的数，正负号不占内存单元 描述 数值内存中表示 77 A PIC S99V9 -7.707P p 注
5、意： a. S必须是最左边的一个描述符 b. S只用于运算，输出时不显示S，输出的最后一位 数字特殊 DUT 字母型数据的描述 p A 描述符：指定字母型数据，只存放字母和空格 77 A PIC A(3) VALUE ABC 77 B PIC A(3)VALUE 123/错误 77 C PIC A(3)VALUE * /错误 p 通常被 X 所取代 DUT 字符型数据的描述 当字符串中包含特殊字符时使用，例如： Thierry Henry2006-10-1 p X 描述符：将任意字符存储到数据项 77 S PIC X(12) VALUE BEIJING 2008 p 可以用字母和数字描述符代替
6、部分字符型数据，例如： 77 S PIC A(8)9(4) VALUE BEIJING 2008 DUT 编辑型数据的描述 p 例1： 77 A PIC 999PPP77 B PIC 9(4) MOVE 123000 TO AMOVE 1 TO B DISPLAY ADISPLAY B /123/0001 p 例2： 在商业管理中有时需要一些特殊的符号 $30001,000,000-273.15 DUT 编辑型数据的描述 p . 描述符： 插入小数点，使数值型数据中隐含的小数点能在相应的位 置上显示出来 77 A PIC 99V99 77 B PIC 99.99 MOVE 12.34 TO A
7、MOVE 12.34 TO B DISPLAY ADISPLAY B /1234/12.34 p 前者占用内存区4个字节，后者占用5个字节 p .描述符同样遵循小数点对其原则 DUT 编辑型数据的描述 p , 描述符： 插入逗号，用作分位符 77 A PIC 999999977 A PIC 9,999,999 MOVE 1000000 TO AMOVE 1000000 TO B DISPLAY ADISPLAY B /1000000/1,000,000 p 前者占用内存区7个字节，后者占用9个字节 DUT 编辑型数据的描述 p 0 描述符：在数值型数据后输出相应的0 77 A PIC 999P
8、PP77 A PIC 999000 MOVE 123000 TO AMOVE 123000 TO B DISPLAY ADISPLAY B /123/123000 p 前者占用内存区3个字节，后者占用6个字节 DUT 编辑型数据的描述 p B 描述符：插入空格 77 A PIC 9(3) 77 B PIC B9(3)B MOVE 789 TO A MOVE A TO B DISPLAY A/789 DISPLAY B/ 789 p 前者占用内存区3个字节，后者占用5个字节 DUT 编辑型数据的描述 p 描述符：在数值前后插入正负号 77 A PIC 99 (并不代表这是一个整数，见下面的解释)
9、 77 B PIC 99 MOVE 10 TO AMOVE -10 TO A MOVE 10 TO B MOVE -10 TO B DISPLAY A/10/10 DISPLAY B/ 10/10 p 两者占用内存区3个字节 p 使用 ,不论数值为正或负，一律加符号 p 使用 ,数值为负时加负号，数值为正时前面加空格 DUT 编辑型数据的描述 p $ 描述符： 在数值前加$符 在数值前加正负号和$符 77 A PIC 99 77 A PIC $99 77 B PIC $99 77 B PIC $99 MOVE 10 TO A MOVE A TO B DISPLAY A/10 DISPLAY B
10、/ $10 p 只能在数值数据(9)前加$符 p 正负号不能加到$符后 DUT 编辑型数据的描述 p 浮动插入 $符： 77 A PIC $999.99 77 B PIC $9.99 MOVE 1.23 TO A MOVE A TO B DISPLAY A/$001.23 DISPLAY B/ $1.23 p 注意：如果数值是一个小数，则$只能浮动到小数点的位置 DUT 编辑型数据的描述 p 浮动插入 正负号 ： 77 A PIC +999.99 77 B PIC +9.99 MOVE 1.23 TO A MOVE A TO B DISPLAY A/+001.23 DISPLAY B/ +1.
11、23 p 注意： a. 在编辑型数据的描述中，指定浮动插入的字符个数应该 足够多，以免数据被截断 b. 浮动字符前不能再出现其他符号，如：+$.99 是错的 DUT 编辑型数据的描述 p Z 和 * 描述符：取消高位零，不加 $, 等符号 77 A PIC 999.99 77 B PIC ZZZ.99 77 C PIC *.99 MOVE 1.23 TO A MOVE A TO B MOVE A TO C DISPLAY A/001.23 DISPLAY B/ 1.23 DISPLAY C/* *1.23 DUT 编辑型数据的描述 p 注意： a. 不能同时使用$,浮动和 Z,*浮动 如：ZZ
12、$9.9, *9.9 都是错的 b. 单个的$,可以和Z,*浮动联合使用 如：Z(3).99 , *(3).99 , $ZZ99 都是正确的 c. 如果使Z或* 对应于所有字符，如：ZZZ.ZZ或 *.* ，当数值为0时，则所有数值位全部由空格或*代替，小数 点位也由空格代替或保留 77 A PIC ZZZ.ZZ/六个空格 77 B PIC *.*/*.* 77 C PIC *.99/*.00 DUT 编辑型数据的描述 d. Z,* 可以和 , 一起使用，但当插入的, 前面是被取消 的无用零时，该, 位置也被空格或* 代替 77 A PIC *,*.* 77 B PIC *,*.* 77 C
13、PIC Z,ZZZ.ZZ MOVE 1234.66 TO A MOVE 123.45 TO B MOVE B TO C DISPLAY A /1,234.66 DISPLAY B /*123.45 DISPLAY C / 123.45 DUT 编辑型数据的描述 p / 描述符：插入斜线 77 A PIC 99/99/9999 MOVE 10012006 TO A DISPLAY A/10/01/2006 DUT 编辑型数据的描述 p DB和CR描述符： 在银行业务中，有时用到 DB (debit,借方) 和 CR (credit,贷方 ) DB和CR 只能用作固定插入，而且只作为最后一个描述符
14、 ；当数值为负时，将数据项最后两个字节置为DB或CR； 当数值为正时置为空格 77 A PIC $99.99DB 77 B PIC $99.99CR MOVE 12.34 TO A/$12.34_两个空格 MOVE -12.34 TO A/$12.34DB MOVE 56.78 TO B/$ 56.78_ MOVE - 56.78 TO B/$ 56.78 CR DUT 编辑型数据的描述 p 编辑字符除了可用于数值型数据外，还可用于字符型数据 ；可用的字符只有B和0和 / ， 插入空格和零字符 PIC AAABAAAANEWYEAR PIC ABABABABABCOBOL PIC X(4)BX
15、(2)BX(2)20022002 PIC XX/XX/XXXX06102006 PIC X(5)B(3)CHINAREN PIC 00X(6)00PEOPLE DUT 数据类型小结 p COBOL中用编辑字符来描述数据，主要为打印输出服务。 通过对数据进行编辑，使输出结果符合会计，银行，统计 等行业习惯的形式，使打印报表清晰，灵活，易懂，这是 COBOL语言比其他语言优越的地方 p 格式：层号 数据项名 PICTURE IS 描述符 p 数据类型可以使用的描述符 数值型9 V S P 字母型A 字符型X 编辑数值型9 V P . , B Z $ * 0 / DB CR 编辑字符型A X B 0 / DUT 数据类型小结 DUT 数据类型小结 DUT 数据类型小结 DUT 数据类型小结 DUT 数据类型小结 DUT 32 第二节 四则运算语句 vADD 语句 vSUBTRACT语句 vMULTIPLY语句 vDIVIDE语句 v四则运算小结 vCOMPUTE语句 DUT ADD 语句 p ADD A
