[计算机软件及应用]Ch2第二章 COBOL程序数据一.pptVIP

Level Number层号 01 02-49 66 77 88 简单插入符 特殊插入符 固定插入符 固定插入符(续) 浮点插入符 零抑制替换插入符 练习 PIC Value Result $$$$.99 0.123 ??? $$$9.99 0.123 ??? $,$$$,999.99 -1234.56 ??? +,+++,999.99 -123456.789 ??? $$,$$$,$$$.99CR -1234567 ??? ++,+++,+++.+++ 0000.00 ??? 答案 PIC Value Result $$$$.99 0.123 $.12 $$$9.99 0.123 $0.12 $,$$$,999.99 -1234.56 $1,234.56 +,+++,999.99 -123456.789 -123,456,78 $$,$$$,$$$.99CR -1234567 $1,234,567.00CR ++,+++,+++.+++ 0000.00 COBOL for Mainframe Fundamentals Ch2 COBOL程序数据(一) COBOL 程序中的基本数据： Variables,变量,比如 TAXRATE Literals,直接数,比如 123.45、’TOM’ Figurative Constants,符号常量，比如 ZERO 和其他程序设计语言不同，COBOL不支持用户自定义常量。 COBOL 数据类型 COBOL不是强类型的语言，因此不同“类型”数据之间的区别并不明显。 目前我们主要关注两类数据： numeric 数字的 text or string 文本或字符 数据的类型之所以重要是因为，它决定了可以进行的操作。 COBOL 类型匹配的规则也并不如其他语言严格，如： COBOL 数字的数据项，有时候并不真正存放“数字的”数据。 COBOL数据描述 COBOL 不是强类型的语言，它采用了特殊的数据描述机制。 COBOL 使用“declaration by example”(用例子描述)的策略。 实际上，程序员向系统提供例子，样本或PICTURE(图画)来描述数据项是什么样的。 系统从“picture”中获得为数据项分配空间的必要信息。 声明数据项 COBOL声明变量的一行语句由三部分构成： 层号(level number) 数据名或标示符 一个 PICTURE clause. 可以用 value clause初始化数据项。 DATA DIVISION. WORKING-STORAGE SECTION. 01 Num1 PIC 999 VALUE ZEROS. 01 VatRate PIC V99 VALUE .18. 01 StudentName PIC X(10) VALUE SPACES.  数据定义语法 level-number data-name-1|FILLER [PICTURE clause] [USAGE clause] [VALUE clause] [REDEFINES clause] [OCCURS clause] [JUSTIFIED clause] ….. 标识符 最长30个字符 A-Z, a-z, 0-9, 连字符 不能以连字符(-)开始或结尾 不能是COBOL保留字 至少有一个字母字符 数据项（变量）的类型 COBOL数据项具有层次(Hierarchical): elementary item基本项 group item组(合)项 组数据项里可以包含其他的组数据项,也可以包含基本项 这种层次关系是通过数据项定义时的位置和层号的大小来决定的,层号较小的数据项包含层号较大的数据项. 例1 01 CRSINFO. 02 STUREC. 05 STUNO….. 05 STUNAME… 05 STUADDR….. 02 CRSREC. 05 CRSID….. 05 CRSNAME…. 例2 01 CRSINFO. 02 STUREC. 05 STUNO….. 05 FILLER PIC X(10). 05 STUNAME… 05 STUADDR….. 02 CRSREC. 05 CRSID….. 05 CRSNAME…. FILLER占位符的用途是什么？