COBOL语言程序设计

1、COBOL语言程序设计,许毅,第四章 数据部（一）,4.1 概述,1、数据部的作用 数据部（DATA DIVISION）是整个COBOL程序中唯一描述数据的部分。凡是在程序中涉及的全部数据（输入数据、输出数据以及中间数据），都要在数据部中加以说明描述 两种数据： 孤立数据项 组合,组合数据项数据是相互关联的，也就是说存在内在联系 这是COBOL程序数据的最大特点,程序过程部中出现的所有数据项都应当在数据部中对它门的属性进行说明。包括： (1)每一个数据项的类型(是数值型或字符型)，它们在内存中的存储形式。它们的长度(占多少字节)。 (2)数据项间的相互关系。有的数据项之间有从属关系例如一个组合

2、项包括若干个初等项。哪些数据项是文件记录中的一部分?哪些数据项与文件无关，即不从属于记录。 (3)描述记录与文件的关系，即内存中的输入输出记录区是与哪一个文件有关联 (4)文件的属性。由多个记录组成一个“物理块”，一个记录包含多少个字节?文件有无标号记录等。,2、数据的层次和层号 COBOL中把有从属关系的数据用层次(level)关系来描述。数据的层次结构是：记录组合项初等项。 逻辑上不能再细分的项，称为初等项(亦称基本项Elementary item)。 包含苦干个初等项的项称组合项(Group item )。 数据项的最高层次是记录(Record)。在一个记录中可以分为若干层次。,如有一“

3、工人的每周工时记录”，其数据关系如下： TIME-RECORD是记录名， WEEKS-END-DATA和HOURS-WORKED 是组合项,我们在数据部中按照以下方式来表示： 01 TIME-RECORD. 03 NAME PIC X(20). 03 WORKER-NUMBER PIC 9(6). 03 WEEKS-END-DATE. 05 MONTH PIC 99. 05 DAY-NUMBER PIC 99. 05 YEAR PIC 99. 03 HOURS-WORKED. 06 REGULAR PIC 99. 06 OVERTIME PIC 99.,层次规定如下： (1)用来描述数据的层次

4、结构的层号从01开始，到49，即可用的层号为0149。记录的层次最高，定为01层号 (2)从属项的层号比其上属项的层号高。即层号小的组合项包含层号大的数据项(组合项或初等项)。 层号不必要求连续。 (3)如果几个数据项都从属于同一组合项但互不从属，则这几个数据项应具有相同的层号,3、数据部的结构 数据部中通常用到的有以下几个节： (一)文件节(FILE SECTION) 用来描述程序中用到的输入文件和输出文件及其记录中各数据项的属性。 (二)工作单元节(WORKING-STORAGE SECTION) 用来描述程序中用到的中间数据项。 (三)联接节(LINKAGE SECTION) 用来描述与

5、调用程序间发生数据传递的数据项。 (四)报表节(REPORT SECTION) 为了完成报表编制功能，此节用来规定欲输出的报表的“体裁”，设计各报表栏的打印形式和方法等。 后面两个部分将在以后介绍。,4.2 文件节（FILE SECTION）,1、文件节的作用 程序中每一个输入或输出文件都要在文件节中加以描述。 (1)文件名和文件属性。 (2)文件中包括的记录的名字。 (3)每个记录中数据的层次关系。 (4)记录中各数据项的数据形式和占内存的大小。 举例如下页：,DATA DIVISION. FILE SECTION. FD ACCOUNTS-RECEIVABLE (文件名) LABEL RE

6、CORD IS STANDARD. DATA RECORD IS RECEIVABLE. 01 RECEIVBLE. (记录名) 02 ACCOUNT PIC 9(6). 02 FILLER PIC X(3). 02 AMOUNT PIC 9(6). 02 NAME PIC X(65).,2、文件描述 文件描述从FD（FILE DESCRIPTION）开始。FD后面跟文件名。此文件名为程序中使用的内部文件名 LABEL RECORD IS STANDARD表示“标号记录是标准”的。COBOL处理的磁盘磁带文件一般都有标号，故需要如此声明 对于卡片文件、打印文件等没有标号的文件则应写成： LAB

7、EL RECORD IS OMITTED DATA RECORD IS RECEIVABLE.表示文件中包含的记录名（ RECEIVABLE）。这一项可以省略,最简单的文件描述体的一般格式,3、记录描述 记录描述由01层号开头，后跟记录名： 01 RECEIVABLE. 注意本行末尾的句点 在数据部的文件节要描述出记录的层次关系以及描述每个初等项的类型和长度 如果记录下面不再分项，则如下表示 01 RECEIVABLE PIC X(80).,4、数据项描述 在每一个初等项的名字后跟一个PIC子句，用来描述数据的类型和长度。例如： ACCOUNT PIC 9(6). 数值型，6位 FILLER

8、PIC X(3). 字符型，3个字符 AMOUNT PIC 9(6). 数值型，6位 NAME PIC X(65). 字符型，65个字符,5、文件节的书写格式 FD从A区开始，01层必须从A区开始，其他层号可以从A区也可以从B区开始。最好按照层次关系写成缩进形式： FD 01 A 02 B 03 C,6 举例(例4.1),000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. EXAM4A1. 000400 ENVIRONMENT DIVISION. 000600 INPUT-OUTPUT SECTION. 000700 FILE-CONTROL.

9、 000800 SELECT ABC ASSIGN TO INFILE. 000850 SELECT XYZ ASSIGN TO OUTFILE. 000900 DATA DIVISION. 001000 FILE SECTION. 001100 FD ABC LABEL RECORD IS STANDARD. 001200 01 A PIC X(80). 001250 FD XYZ LABEL RECORD IS STANDARD. 001300 01 B. 001400 02 FILLER PIC X. 001500 02 C PIC X(80). 001600 PROCEDURE DIV

10、ISION. 001700 K. OPEN INPUT ABC. 001710 OPEN OUTPUT XYZ. 001800 T. READ ABC AT END GO TO J. 001810 MOVE A TO C. 001900 WRITE B. 002000 GO TO T. 002100 J. DISPLAY PROGRAM END. 002200 CLOSE ABC. 002210 CLOSE XYZ. 002300 STOP RUN.,运行程序的JCL,/P390R1 JOB ACCT#,P390,CLASS=A, / MSGCLASS=H,MSGLEVEL=(1,1), /

11、NOTIFY=&SYSUID /RUNCBL EXEC PGM=EXAM4A1 /STEPLIB DD DSN=P390.THQ.LOAD,DISP=SHR /INFILE DD DSN=P390.THQ.COBOL(EXAM4A1), / DISP=SHR /OUTFILE DD DSN=P390.RESULT.DAT, / DISP=(NEW,CATLG,DELETE), / UNIT=3390,SPACE=(CYL,(10,1) /SYSPRINT DD SYSOUT=* /SYSOUT DD SYSOUT=*,4.3 字型子句（PIC子句）,PIC是Picture的缩写，用来描述每一个

12、初等数据项： 数据项的类型（数值、字符、字母），数值型的数据是否包含正负号、小数点 数据项占多大的内存域 是否需要按打印的要求准备相关字符（$、+、-、*）,例如 01 A. 02 A1 PIC 9999. 02 A2 PIC AAAA. 02 A3 PIC XXXX. A是记录名，下属三个初等项。A1是数值型，A2是字母型，A3是字符型。分别由四位构成。 一般来说，其在内存中也是4个字节,1、数值型数据的描述,（一）”9”描述符 表示在该位置上可以放入一个09之间的数字。 01 A PIC 999. 表示A可以放入000999之间任一个三位数。999可以记为9(3),注意： 1、在数值型的数

13、据中只能放09之间的数字，不能放空格，输入的时候是从左到右进入，如对于上面的声明，针对ACCEPT A, 如果只从控制台输入一个“1”，那么系统自动在后面补零，那么系统内部的值是100。如果要输入1，则应该输入001 2、用”9”描述符只能表示整数，如果输入小数，则被略去 3、如果送入一个负号，则负号被略去 注意，2、3点指的是用MOVE传递数据的情况，从控制台输入数据的情况随系统不同处理方式不定,（二）”V”描述符 指出在数值数据结构中隐含的小数点位置 03 M PIC 999V99. 表示M共5位，可以放09的数字。前三位与后两位之间有一个隐含的小数点。 注意：这个小数点不占内存，而是由编

14、译器处理的。 MOVE 215.63 TO M,MOVE 1215.637 TO M 注意，M只能存放5个数字，那么，该语句执行过后M的值是215.63。更多的例子如下：,说明 （1）V在描述符的最后，相当于没有小数点 （2）一个数据的描述符中只能出现一个V （3）运算时，按隐含的小数点位置对准进行运算。例如 （4）显示时，只将内存中的内容显示出来，小数点不会显示出来。如果想显示小数点，使用后面介绍的编辑型数据,（三）P描述符 当数值很大，后面有若干0，可以使用P描述符。如： 01 A PIC 9PPPPPPPPP 或 01 A PIC 9P(9) 其在内存中只保存一位数字9，但，运算的时候，

15、其相当于9109,当数值很小的时候，如0.000023,可以如下描述：01 B PIC PPPP99 或 P(4)99。表示在两个数字前，还有4个0。注意，4个0前是小数点和一个前导0。如图： 则B的值为0.000023,注意： （1）P必须出现在全部“9”之前或全部“9”之后，如99P99的写法是错误的。P表示前导0的时候前0前还有一个小数点。 （2）用“P”，则小数点的位置已经确定。V和P不能相矛盾。如：PPV99（00.43）是错误的 （3）如果“9”之后有n个P，表示内存中的数应乘以10n。如果在“9”之前有n个P，则应乘以10-(n+k)，其中k为9的个数。,举例：,（4）显示或打印

16、的时候P并不打印（和V相似），上表中AMOUNT如果直接输出的话就是1802 （5）P描述符在商业上不常用，主要用于科技计算。但是请注意，COBOL语言本身主要不是用于科学计算。,（四）S描述符 负号如何表示？需要一个“S”描述符，如： 02 D PIC S99. 可以将一个正的或负的数存放在D中，如： MOVE -12 TO D. 注意：如上描述的数据D只有二位，S不计入数据项长度。系统可以在最后一位的数放上一个标志位表示负数,例如： 上表中表示隐含的小数点位置，4表示对于C这种描述的数据项，在4所在的字节里面，放入一个负号标记。表示整个数值是负的，即表示-1112.34,注意 （1）S必须

17、是最左边的一个描述符 （2）在内存中，S不占位，在运算时，S起作用。 输出的时候，按内存实际信息输出。例如： 在IBM Z900中，-12的输出是1k,2 字母型数据的描述,字母型数据项用A描述符，在这种类型的数据项中只允许存放字母和空格（注意和后面字符型的区别）。例如： 02 T PIC AAAA. 表示T中可以放入4个字母 MOVE ABCD TO T 则内存中内容如右图,T,IDENTIFICATION DIVISION. PROGRAM-ID. EXAM4A2. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELE

18、CT PRINT-FILE ASSIGN TO SYSPRINT. DATA DIVISION. FILE SECTION. FD PRINT-FILE RECORD CONTAINS 16. 01 T. 02 FILLER PIC X. 02 T1 PIC A(5). 02 T2 PIC A(3). 02 T3 PIC A(2). 02 T4 PIC A(5). PROCEDURE DIVISION. S. OPEN OUTPUT PRINT-FILE. MOVE THIS TO T1. MOVE IS TO T2. MOVE A TO T3. MOVE BOOK TO T4. WRITE

19、T AFTER 4. CLOSE PRINT-FILE. STOP RUN.,运行上面例子的JCL程序 运行结果： 运行后记录T中的内容：,/P390R1 JOB ACCT#,P390,CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), / NOTIFY=&SYSUID /RUNCBL EXEC PGM=EXAM4A2 /STEPLIB DD DSN=P390.THQ.LOAD,DISP=SHR /SYSPRINT DD SYSOUT=* /SYSOUT DD SYSOUT=*,* THIS IS A BOOK *,3 字符型数据的描述,字符型数据的规定： 由任意的COBOL

20、字符组成的数据，称为字符型数据。该类型不是数值类型，不能用于计算 03 A PIC X(3).,MOVE YES TO A.,MOVE NO TO A.,说明： (1) 字符型数据可以用X描述，也可以用9和A来描述。如对于COBOL-85八个字符，可以如下描述： 02 R3 PIC X(8). 02 R3 PIC A(5)X9(2). 思考：对于SIN(X)呢？对于大家的学号呢？,可以看出：当混合使用描述符9，A或X时，数据必定为字符型的，譬如用99X99，A99，AXA等描述的都是字符型的数据项。 数值型数据的描述只能用9，V，S，P描述符。字符型数据的描述中可以用9，A，X。 (2)、字母

21、型数据既可以用A描述，也可用X。 字母型的作用是当某一数据项中全为字母的时候，可以保证数据的正确。将非字母的数据送入字母型会出错。,（3）字符型数据中可以放数字，如： 02 K PIC X(3). 02 M PIC 9(3). MOVE 123 TO K. MOVE 123 TO M. 注意，K和M中都是123，但是其含义不同，M是123这个值，而K只是123这三个字符 MOVE 123 TO K. 在COBOL85中，这句语句是正确的，其含义和加引号的结果是一样的。 但是MOVE 1A3 TO M.则不正确。 注意：字符型数据不能用于计算,例43 在数据部中描述职工工资记录。设职工工资数据存

22、放在一个磁盘文件中，假定该文件的内部文件名为INPUT-FILE，记录名为GZQD-R(以汉语拼音表示的“工资清单”,“R”是记录的缩写)。每个职工的工资清单为一个记录，它包括职工编号、姓名、基本工资、附加工资、副食补助、洗理费、托儿费、房租、互助金、病串假扣除等项。,DATA DIVISION. FILE SECTION. FD INPUT-FILE RECORD CONTAINS 80 RECORDING MODE IS F. 01 GZQD-R. 02 BH PIC 9(6). 02 XM PIC X(10). 02 JBGZ PIC 9(3)V99. 02 FJGZ PIC 9V99.

23、 02 FSBZ PIC 9V9. 02 XLF PIC 9V99. 02 TEF PIC 99V99. 02 FZ PIC 99V99. 02 HZJ PIC 99V99. 02 BSJKC PIC 99V99. 02 FILLER PIC X(35).,4 编辑型描述符,大家观察如下例子 02 H PIC 999PPP. 02 Q PIC 9(6). MOVE 135000 TO H. MOVE 1 TO Q. DISPLAY H. DISPLAY Q. 结果是什么样子？,135 000001,这是你想要的吗？,$99.20 123,456,789 等显示方式如何实现？ 编辑型描述符： C

24、OBOL专门有一种形式的数据项，它不是作计算用的，而是只作为输出数值数据时增加或改变某些所需的符号，起“编辑”的作用,注意： 编辑型数据项(例如上面的B)仅仅是为了输出的需要，没有其它作用，它不能用来运算。,(一)插入小数点“.”，用“.”描述符 例如： 01 H PIC 99V99. 01 Q PIC 99.99. PROCEDURE DIVISION. S. MOVE 12.34 TO H. MOVE H TO Q. DISPLAY H. DISPLAY Q.,1234 12.34,01 H PIC 999v99. 01 Q PIC 9.9. PROCEDURE DIVISION. S.

25、MOVE 112.50 TO H. MOVE H TO Q. DISPLAY H. DISPLAY Q.,11250 2.5,(二)插入逗号“,”作分位号，用“,”描述符 例如： 01 H PIC 9(6)V99. 01 Q PIC 999,999.99. PROCEDURE DIVISION. S. MOVE 123456.78 TO H. MOVE H TO Q. DISPLAY H. DISPLAY Q.,12345678 123,456.78,(三)插入零，用“0”描述符 例如： WORKING-STORAGE SECTION. 01 H PIC 999. 01 Q PIC 99900

26、00. PROCEDURE DIVISION. S. MOVE 123 TO H. MOVE H TO Q. DISPLAY H. DISPLAY Q.,123 1230000,(四)插入空格，用“B”描述符 例如 01 H PIC 999. 01 Q PIC 9B9B9. PROCEDURE DIVISION. S. MOVE 123 TO H. MOVE H TO Q. DISPLAY H. DISPLAY Q.,123 1 2 3,(五)插入正负号用“+”或“-”描述符 例如： WORKING-STORAGE SECTION. 01 A PIC S99. 01 B PIC +99. 01

27、 C PIC -99. PROCEDURE DIVISION. S. MOVE 12 TO A. MOVE A TO B. MOVE A TO C. DISPLAY B. DISPLAY C.,+12 12,规则： 当用描述符“+”时，不论数值为正或负，一律加符号。当用“-”时，当数值为正时数值前空一格，数值为负时，加一负号。 符号也列以加在数值的后面 如用：02 A2 PIC 99+，则输出为12+。,(六)插入“$” (1)把“$”加在数字前 例如 77 A PIC 9(3)V99. 77 B PIC $999.99. PROCEDURE DIVISION. S. MOVE 123.56

28、TO A. MOVE A TO B. DISPLAY A. DISPLAY B.,12356 $123.56,(2)在数字前加正负号和$ 例如： 77 A PIC S99V9. 77 B PIC +$99.9. 77 C PIC -$99.9. PROCEDURE DIVISION. S. MOVE 12.5 TO A. MOVE A TO B. MOVE A TO C. DISPLAY A. DISPLAY B. DISPLAY C.,125 +$12.5 $12.5,(七)浮动插入正负号和“$” 问题的提出： 例如： 77 A PIC S9(3)V99. 77 B PIC +9(3).99

29、. 77 C PIC $9(3).99. PROCEDURE DIVISION. S. MOVE 2.12 TO A. MOVE A TO B. MOVE A TO C. DISPLAY A. DISPLAY B. DISPLAY C.,00212 +002.12 $002.12,这是我们想要的结果吗？,问题的解决： 例如： 77 A PIC S9(3)V99. 77 B PIC +(4).99. 77 C PIC $(4).99. PROCEDURE DIVISION. S. MOVE 2.12 TO A. MOVE A TO B. MOVE A TO C. DISPLAY A. DISPL

30、AY B. DISPLAY C. 注意，号和$不能同时浮动,00212 +2.12 $2.12,(八)取消高位零，用“Z”和“*”描述符 问题：用$，+，-浮动，可以取消高位零，但在数值前出现$或+-号。 如果只要求取消高位零，我们怎么做呢？ 用“Z”和“*”描述符，二者有不同的用处。,例如： 77 A PIC 9(5)V99. 77 B PIC Z(5).99. 77 C PIC *(5).99. PROCEDURE DIVISION. S. MOVE 85.74 TO A. MOVE A TO B. MOVE A TO C. DISPLAY A. DISPLAY B. DISPLAY C.

31、 连续的“*”号用作票据的“保护符号”，以防涂改数值。,0008574 85.74 * * * 85.74,注意： (1)不能同时用Z浮动和+、-、$浮动。 (2)单个的+、-、$可以与Z或*浮动连用： 以下为合法的语句： 77 A2 PIC +Z(3).99. 77 A3 PIC -*(3).99. 77 A2 PIC $Z(3).99. 77 A2 PIC $*(3).99. (3)如果使“z”或“*”对应于所有的数字字符，当数值为0时，则所有数字位全部由空格或*代替。小数点位置上，由空格代替(用Z描述符时)或保留“.”(用*描述符时)。 (4)“Z”，“*”可与“,”一起使用，但当插入的

32、“,”前边是被取消的无用零时，该“,”位置也被空格或“*”代替。,(九)插入“DB”和“CR”字符 在银行业务户，有时用到“DB” (debit，借方)和“CR” (credit，贷方)。 DB和CR只能用作固定插入，而且只作为最后一个描述符。当数值为负时，在编辑型数据项中最后两个字节中置DB或者CR，数值为正时，此两字节留空格。,编辑字符除了可用于数值型数据的编辑外，还可以用于字符型数据的编辑。,5、PIC子句小结 (一)PIC子句用来说明数据的类型和长度。PIC子句的一般格式为：,(二)每一种类型数据可以使用的描述字符如下：,(三)描述字符的含义,（四)程序举例 例4.4 从磁盘数据文件中

33、读入职工的工资记录，计算出实发工资.输出到磁盘建立工资文件,IDENTIFICATION DIVISION. PROGRAM-ID. EXAM4A4. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INPUT-FILE ASSIGN TO INFILE. SELECT PRINT-FILE ASSIGN TO PRIFILE. DATA DIVISION. FILE SECTION. FD INPUT-FILE RECORD CONTAINS 80 RECORDING MODE IS F. 01 GZQD-R.

34、 02 BH PIC 9(6). 02 XM PIC X(10). 02 JBGZ PIC 9(3)V99. 02 FJGZ PIC 9V99. 02 FSBZ PIC 9V9. 02 XLF PIC 9V99. 02 TEF PIC 99V99. 02 FZ PIC 99V99. 02 HZJ PIC 99V99. 02 BSJKC PIC 99V99. 02 FILLER PIC X(35).,FD PRINT-FILE RECORD CONTAINS 80 RECORDING MODE IS F. 01 GZQD-P. 02 FILLER PIC X. 02 BH-P PIC 9(6).

35、 02 FILLER PIC X. 02 XM-P PIC X(10). 02 FILLER PIC XX. 02 JBGZ-P PIC 9(3).99. 02 FILLER PIC XX. 02 FJGZ-P PIC 9.99. 02 FILLER PIC XX. 02 FSBZ-P PIC 9.9. 02 FILLER PIC XX. 02 XLF-P PIC 9.99. 02 FILLER PIC XX. 02 TEF-P PIC 99.99. 02 FILLER PIC XX. 02 FZ-P PIC 99.99. 02 FILLER PIC XX. 02 HZJ-P PIC 99.9

36、9. 02 FILLER PIC XX. 02 BSJKC-P PIC 99.99. 02 FILLER PIC XX. 02 SFGZ-P PIC 9(4).99.,PROCEDURE DIVISION. K. OPEN INPUT INPUT-FILE OUTPUT PRINT-FILE. D. MOVE SPACE TO GZQD-P. READ INPUT-FILE AT END CLOSE INPUT-FILE, PRINT-FILE STOP RUN. S. MOVE BH TO BH-P. MOVE XM TO XM-P. MOVE JBGZ TO JBGZ-P. MOVE FJ

37、GZ TO FJGZ-P. MOVE FSBZ TO FSBZ-P. MOVE XLF TO XLF-P. MOVE TEF TO TEF-P. MOVE FZ TO FZ-P. MOVE HZJ TO HZJ-P. MOVE BSJKC TO BSJKC-P. SU. COMPUTE SFGZ-P = JBGZ + FJGZ + FSBZ + XLF - TEF - FZ - HZJ - BSJKC. X. WRITE GZQD-P GO TO D.,运行上面例子的JCL程序 输入数据集： 输出数据集,/XUYIR1 JOB ACCT#,XUYI,CLASS=A,MSGCLASS=H,MSG

38、LEVEL=(1,1), / NOTIFY=&SYSUID /RUNCBL EXEC PGM=EXAM4A4 /STEPLIB DD DSN=XUYI.THQ.LOAD,DISP=SHR /INFILE DD DSN=XUYI.THQ.COPYBK(GZQD),DISP=SHR /PRIFILE DD DSN=XUYI.THQ.COPYBK(GZQDOUT),DISP=SHR /SYSPRINT DD SYSOUT=* /SYSOUT DD SYSOUT=*,000001LI LI10022788806051500050002001000 000002WANG HONG200228007550

39、05577086703660109 000003MA MIN15088950756881050155002000000,000001 LI LI 100.22 7.88 8.0 6.05 15.00 05.00 02.00 10.00 000002 WANG HONG 200.22 8.00 7.5 5.00 55.77 08.67 03.66 01.09 000003 MA MIN 150.88 9.50 7.5 6.88 10.50 15.50 02.00 00.00 * Bottom of Data *,4.4 工作单元节（WORKING-STORAGE SECTION）又译作工作存储节,1、工作单元节的作用 程厅中用的数据项分两部分： 一是用于输入或输出文件的，在数据部的文件节中加以描述。 一是非输入或输出的数据。如运算过程的中间结果，或用作累计数的数据项等。则在工作单元节中描述。 可以利用工作单元节为某些数据赋以初值(用VAL