精品课程第5章-基本数据类型与计算.ppt

表元素赋初值 方法1：使用VALUE子句 a. 可以同时用OCCURS和VALUE子句为所有表元素赋初值 01 A. 03 B OCCURS 3 PIC 99 VALUE ZERO b. 带OCCURS的数据项的下属项也可以使用VALUE子句 01 A. 02 B OCCURS 3. 03 C PIC 99 VALUE ZERO. c. 为表元素赋不同的初值 01 A VALUE ‘ABCDEF’. 02 B OCCURS 3 PIC X(2). *该方法只适用于表元素较少，且元素长度较短的情况 表元素赋初值 方法2：巧妙使用REDEFINES子句 a. 在工作单元节定义一个组合项，其大小和需要赋值的表相同； 在该组合项中定义若干数据项，其描述和表元素相同 b. 对这些数据项分别用VALUE子句赋初值，即要赋给表的初值 01 T-VALUE. 02 TV1 PIC X(6) VALUE ‘050130’. 02 TV2 PIC X(6) VALUE ‘050231’ 02 TV3 PIC X(6) VALUE ‘050329’ c. 用REDEFINES子句将该组合项定义成一个表 01 T REDEFINES T-VALUE. 02 TBL OCCURS 3. 03 CLS PIC X(4). 03 NUM PIC 9(2). 练习：有一批货物，其货物号和单价如下： 0010 0200 0020 0400 0030 0600 0040 0800 0050 1000 从文件中读入一批顾客购货记录（日期，货号，顾客号，购货数量） ，根据上述单价表，计算出购货所需款项，输出到新文件，新文件包括：日期，货号，顾客号，购货数量，单价，销售款数 表元素赋初值 多维表 创建二维表 01 STU-GRADE. 02 STU-REC OCCURS 20 TIMES. 03 STNO X(9). 03 GRADE OCCURS 5 TIMES PIC 9(3). STU-GRADE 的长度 ＝（9 ＋ 3 × 5）× 20 ＝ 480 byte 注意： a. 不是所有的COBOL版本都支持多维 b. 在建立多维表的同时，自动生成低维的表 c. 引用多维表时，两个下标之间用一个或多个空格隔开，或者用 一个逗号加一个以上空格分割，如： G (10 3) 或 G (10, 3) d.表元素在内存中排列顺序如下： G (1, 1) → G (1, 2) → G (1, 3) → G(2, 1) → G (2, 2) → G (2, 3) →… 多维表 请说明下面的定义中哪些数据项是表？是多少维的？ 01 TABLE 02 A1 OCCURS 5 TIMES. 03 B1 PIC X(2). 03 B2 OCCURS 6 TIMES PIC 9(3). 03 B3 OCCURS 7 TIMES. 04 C1 PIC 9(4). 04 C2 OCCURS 8 TIMES PIC 9(5). 02 A2 PIC X(6). 利用PERFORM的多重循环功能控制多维表 77 GRADE-SUB PIC 9. 77 CLASS-SUB PIC 9. 77 STU-SUB PIC 99. 01 SCHOOL. 02 GRADE OCCURS 3. 03 CLASS OCCURS 4. 04 STUDENT OCCURS 60. 05 STU-ID PIC X(5). 05 NAME PIC X(8). 05 AGE PIC 99. 05 ADDR PIC X(40) 多维表 代码如下： PERFORM FIND18 VARYING grade-sub FROM 1 BY 1 UNTIL grade-sub 3 AF