COBOL程序设计—PPT学习教案

1、会计学1COBOL程序设计程序设计PPT课件课件第1页/共89页第2页/共89页第3页/共89页。在一个记录中可以分为若干层次。第4页/共89页WORKED 是组合项第5页/共89页 06 OVERTIME PIC 99. 第6页/共89页第7页/共89页第8页/共89页第9页/共89页第10页/共89页RECORD IS OMITTEDDATA RECORD IS RECEIVABLE.表示文件中包含的记录名（ RECEIVABLE）。这一项可以省略第11页/共89页01 RECEIVABLE PIC X(80).第12页/共89页NAME PIC X(65). 65个字符第13页/共89页

2、第14页/共89页第15页/共89页第16页/共89页第17页/共89页第18页/共89页第19页/共89页第20页/共89页 第21页/共89页n（4节的信息显示，小数点不会显示出来。如果想显示小数点，使用后面介绍的编辑型数据第22页/共89页第23页/共89页B23第24页/共89页“9”之前有n个P，则应乘以10-(n+k)，其中k为9的个数。第25页/共89页第26页/共89页第27页/共89页表示此数是负数。第28页/共89页第29页/共89页第30页/共89页TABCD第31页/共89页第32页/共89页第33页/共89页AYESAN1MOVE YES TO A.MOVE N1 T

3、O A.第34页/共89页第35页/共89页第36页/共89页第37页/共89页第38页/共89页第39页/共89页第40页/共89页135000001这是你想要的吗？这是你想要的吗？第41页/共89页注意：注意：编辑型数据项编辑型数据项(例如上面的例如上面的B)仅仅是为了输仅仅是为了输出的需要，没有其它作用，它不能用来运出的需要，没有其它作用，它不能用来运算。算。第42页/共89页n123412.34第43页/共89页112502.5第44页/共89页12345678123,456.78第45页/共89页1231230000第46页/共89页1231 2 3第47页/共89页+12 12第4

4、8页/共89页描述符描述符数值为正数值为正数值为负数值为负说明说明加加“”号号加加“”号号一律加符号一律加符号数前空格数前空格加加“”号号只对负值加负号只对负值加负号第49页/共89页12356$123.56第50页/共89页125+$12.5 $12.5第51页/共89页00212+002.12$002.12这是我们想要的这是我们想要的结果结果吗？吗？第52页/共89页00212 +2.12 $2.12第53页/共89页第54页/共89页第55页/共89页0008574 85.74 * * * 85.74第56页/共89页第57页/共89页第58页/共89页第59页/共89页描述字符串ISP

5、ICTUREPIC第60页/共89页第61页/共89页第62页/共89页第63页/共89页第64页/共89页第65页/共89页第66页/共89页/P390R1 JOB ACCT#,P390,CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), / NOTIFY=&SYSUID /RUNCBL EXEC PGM=EXAM4A4 /STEPLIB DD DSN=P390.THQ.LOAD,DISP=SHR /INFILE DD DSN=P390.EXAM4A4.INPUT,DISP=SHR /PRIFILE DD DSN=P390.EXAM4A4.OUTPUT,DISP=(NEW,

6、CATLG,DELETE), / UNIT=3390,SPACE=(CYL,(10,1) /SYSPRINT DD SYSOUT=* /SYSOUT DD SYSOUT=* 000001LI LI10022788806051500050002001000000002WANG HONG20022800755005577086703660109000003MA 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、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 *第67页/共89页第68页/共89页第69页/共89页第70页/共89页第71页/共89页结果如下结果如下12345612345646=12+3401 A VALUE 123456.这是错误的，不能这这是错误的，不能这样样IGYGR1118-S: A VALUE clause literal for a group item was not a nonnumeric literal. The VALUE clause was discarded对组合项整体而言，一律按字符型数据项处理。对组合项整体而言，一律按字符型数据项处理。第72页/共89页n是正确的第73页/共89页第74页/共89页第75页/共89页第