COBOL程序設(shè)計(jì)—PPT學(xué)習(xí)教案

1、會(huì)計(jì)學(xué)1COBOL程序設(shè)計(jì)程序設(shè)計(jì)PPT課件課件第1頁(yè)/共89頁(yè)第2頁(yè)/共89頁(yè)第3頁(yè)/共89頁(yè)。在一個(gè)記錄中可以分為若干層次。第4頁(yè)/共89頁(yè)WORKED 是組合項(xiàng)第5頁(yè)/共89頁(yè) 06 OVERTIME PIC 99. 第6頁(yè)/共89頁(yè)第7頁(yè)/共89頁(yè)第8頁(yè)/共89頁(yè)第9頁(yè)/共89頁(yè)第10頁(yè)/共89頁(yè)RECORD IS OMITTEDDATA RECORD IS RECEIVABLE.表示文件中包含的記錄名（ RECEIVABLE）。這一項(xiàng)可以省略第11頁(yè)/共89頁(yè)01 RECEIVABLE PIC X(80).第12頁(yè)/共89頁(yè)NAME PIC X(65). 65個(gè)字符第13頁(yè)/共89頁(yè)

2、第14頁(yè)/共89頁(yè)第15頁(yè)/共89頁(yè)第16頁(yè)/共89頁(yè)第17頁(yè)/共89頁(yè)第18頁(yè)/共89頁(yè)第19頁(yè)/共89頁(yè)第20頁(yè)/共89頁(yè) 第21頁(yè)/共89頁(yè)n（4節(jié)的信息顯示，小數(shù)點(diǎn)不會(huì)顯示出來(lái)。如果想顯示小數(shù)點(diǎn)，使用后面介紹的編輯型數(shù)據(jù)第22頁(yè)/共89頁(yè)第23頁(yè)/共89頁(yè)B23第24頁(yè)/共89頁(yè)“9”之前有n個(gè)P，則應(yīng)乘以10-(n+k)，其中k為9的個(gè)數(shù)。第25頁(yè)/共89頁(yè)第26頁(yè)/共89頁(yè)第27頁(yè)/共89頁(yè)表示此數(shù)是負(fù)數(shù)。第28頁(yè)/共89頁(yè)第29頁(yè)/共89頁(yè)第30頁(yè)/共89頁(yè)TABCD第31頁(yè)/共89頁(yè)第32頁(yè)/共89頁(yè)第33頁(yè)/共89頁(yè)AYESAN1MOVE YES TO A.MOVE N1 T

3、O A.第34頁(yè)/共89頁(yè)第35頁(yè)/共89頁(yè)第36頁(yè)/共89頁(yè)第37頁(yè)/共89頁(yè)第38頁(yè)/共89頁(yè)第39頁(yè)/共89頁(yè)第40頁(yè)/共89頁(yè)135000001這是你想要的嗎？這是你想要的嗎？第41頁(yè)/共89頁(yè)注意：注意：編輯型數(shù)據(jù)項(xiàng)編輯型數(shù)據(jù)項(xiàng)(例如上面的例如上面的B)僅僅是為了輸僅僅是為了輸出的需要，沒(méi)有其它作用，它不能用來(lái)運(yùn)出的需要，沒(méi)有其它作用，它不能用來(lái)運(yùn)算。算。第42頁(yè)/共89頁(yè)n123412.34第43頁(yè)/共89頁(yè)112502.5第44頁(yè)/共89頁(yè)12345678123,456.78第45頁(yè)/共89頁(yè)1231230000第46頁(yè)/共89頁(yè)1231 2 3第47頁(yè)/共89頁(yè)+12 12第4

4、8頁(yè)/共89頁(yè)描述符描述符數(shù)值為正數(shù)值為正數(shù)值為負(fù)數(shù)值為負(fù)說(shuō)明說(shuō)明加加“”號(hào)號(hào)加加“”號(hào)號(hào)一律加符號(hào)一律加符號(hào)數(shù)前空格數(shù)前空格加加“”號(hào)號(hào)只對(duì)負(fù)值加負(fù)號(hào)只對(duì)負(fù)值加負(fù)號(hào)第49頁(yè)/共89頁(yè)12356$123.56第50頁(yè)/共89頁(yè)125+$12.5 $12.5第51頁(yè)/共89頁(yè)00212+002.12$002.12這是我們想要的這是我們想要的結(jié)果結(jié)果嗎？嗎？第52頁(yè)/共89頁(yè)00212 +2.12 $2.12第53頁(yè)/共89頁(yè)第54頁(yè)/共89頁(yè)第55頁(yè)/共89頁(yè)0008574 85.74 * * * 85.74第56頁(yè)/共89頁(yè)第57頁(yè)/共89頁(yè)第58頁(yè)/共89頁(yè)第59頁(yè)/共89頁(yè)描述字符串ISP

5、ICTUREPIC第60頁(yè)/共89頁(yè)第61頁(yè)/共89頁(yè)第62頁(yè)/共89頁(yè)第63頁(yè)/共89頁(yè)第64頁(yè)/共89頁(yè)第65頁(yè)/共89頁(yè)第66頁(yè)/共89頁(yè)/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頁(yè)/共89頁(yè)第68頁(yè)/共89頁(yè)第69頁(yè)/共89頁(yè)第70頁(yè)/共89頁(yè)第71頁(yè)/共89頁(yè)結(jié)果如下結(jié)果如下12345612345646=12+3401 A VALUE 123456.這是錯(cuò)誤的，不能這這是錯(cuò)誤的，不能這樣樣IGYGR1118-S: A VALUE clause literal for a group item was not a nonnumeric literal. The VALUE clause was discarded對(duì)組合項(xiàng)整體而言，一律按字符型數(shù)據(jù)項(xiàng)處理。對(duì)組合項(xiàng)整體而言，一律按字符型數(shù)據(jù)項(xiàng)處理。第72頁(yè)/共89頁(yè)n是正確的第73頁(yè)/共89頁(yè)第74頁(yè)/共89頁(yè)第75頁(yè)/共89頁(yè)第