COBOL語(yǔ)言程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告-實(shí)驗(yàn)一

1、.COBOL語(yǔ)言程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告姓 名學(xué) 號(hào)班 級(jí)指 導(dǎo) 教 師開(kāi) 設(shè) 學(xué) 期2012-2013第二學(xué)期實(shí)驗(yàn)題目實(shí)驗(yàn)一：大型主機(jī)編程環(huán)境實(shí)驗(yàn)日期2013年6月評(píng) 定 成 績(jī)?cè)u(píng)定人簽字評(píng) 定 日 期東北大學(xué)軟件學(xué)院2013年3月；COBOL語(yǔ)言程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告一、 實(shí)驗(yàn)?zāi)康氖煜/OS環(huán)境，掌握程序編譯鏈接運(yùn)行過(guò)程。能夠編寫(xiě)運(yùn)行一個(gè)簡(jiǎn)單的cobol程序。對(duì)主機(jī)的基本操作能夠基本掌握，對(duì)cobol語(yǔ)言編程的簡(jiǎn)單規(guī)范能夠了解。二、 實(shí)驗(yàn)內(nèi)容與實(shí)驗(yàn)步驟實(shí)驗(yàn)內(nèi)容：編寫(xiě)一個(gè)簡(jiǎn)單的COBOL程序，顯示“I did it”.，編譯運(yùn)行該程序并查看程序運(yùn)行結(jié)果。實(shí)驗(yàn)步驟：1. 安裝IBM Personal Co

2、mmunication主機(jī)通信軟件從學(xué)校BlackBoard平臺(tái)上COBOL語(yǔ)言程序設(shè)計(jì)課程提供的“課程文檔”欄目中下載IBM Personal Communication安裝程序，在PC機(jī)上運(yùn)行Setup安裝程序。上述安裝程序安裝完成之后，運(yùn)行其中包含的“啟動(dòng)或配置會(huì)話”程序進(jìn)行通信配置；點(diǎn)擊“新建會(huì)話”按鈕新建一個(gè)與IBM主機(jī)的通信鏈接，出現(xiàn)如下圖所示主機(jī)定制通信對(duì)話框：進(jìn)行設(shè)置參數(shù)2. 登錄系統(tǒng)（IP: 218.199.92.1）啟動(dòng)第1步驟建立的配置會(huì)話，出現(xiàn)如圖4所示的登錄界面，在Enter your choice=之處鍵入TSO及回車(chē)（回車(chē)鍵為右側(cè)CTRL鍵），進(jìn)入主機(jī)操作系統(tǒng)。出

3、現(xiàn)用戶登錄界面，輸入合法的用戶名以及密碼。鍵入回車(chē)（右側(cè)CTRL鍵）之后，進(jìn)入下圖所示的主機(jī)系統(tǒng)ISPF界面：3. 創(chuàng)建分區(qū)數(shù)據(jù)集URXXX.COBOL.SOURCE和URXXX.COBOL.LOADLIB輸入3.2進(jìn)行創(chuàng)建數(shù)據(jù)集如下圖按F3功能鍵，可以返回ISPF操作界面，重新在該界面按照上述方法創(chuàng)建分區(qū)數(shù)據(jù)4 進(jìn)入3.4 Data Set List Utility界面對(duì)所創(chuàng)建數(shù)據(jù)集進(jìn)行編輯 在Command下面輸入E，在UR001.COBOL.SOURCE右邊輸入（LAB1）回車(chē)，輸入如下代碼，注意程序要求符合COBOL語(yǔ)法，部頭等從第八列開(kāi)始并編寫(xiě)代碼如下。5 程序的編譯鏈接運(yùn)行過(guò)程在分

4、區(qū)數(shù)據(jù)集URXXX.COBOL.SOURCE中創(chuàng)建成員JCL，用于放COBOL的編譯運(yùn)行程序。6退出系統(tǒng)實(shí)驗(yàn)內(nèi)容、原理分析1 給出數(shù)據(jù)結(jié)構(gòu)或函數(shù)定義2 用流程圖表示出來(lái)程序設(shè)計(jì)的思想3給出具體實(shí)驗(yàn)步驟三、實(shí)驗(yàn)過(guò)程與分析編寫(xiě)一個(gè)cobol程序首先必須熟悉主機(jī)的操作環(huán)境，運(yùn)行不同的命令來(lái)實(shí)現(xiàn)不同的操作，必須熟悉簡(jiǎn)單的操作命令。在編輯完代碼后容易出現(xiàn)代碼內(nèi)容出現(xiàn)錯(cuò)誤的情況，在提交完JCL程序代碼后，會(huì)出現(xiàn)maxcc=12的情況，這個(gè)時(shí)候需要回到程序中進(jìn)行對(duì)編寫(xiě)程序的代碼進(jìn)行檢查。另一方面，也可以從下圖所示的地方進(jìn)入錯(cuò)誤列表中，編譯出的文件會(huì)提示我們所寫(xiě)的代碼哪里出現(xiàn)了錯(cuò)誤，可能是拼寫(xiě)錯(cuò)誤，也可能是程

5、序部塊缺失等需要仔細(xì)查找。四、實(shí)驗(yàn)結(jié)果總結(jié)此程序的實(shí)驗(yàn)結(jié)果如下圖，我們可以在主機(jī)系統(tǒng)的系統(tǒng)輸出文件中找到我們看到的實(shí)驗(yàn)結(jié)果界面跳轉(zhuǎn)到SDSF界面，在COMMAND INPUT =>輸入 ST UR016*，回車(chē)，進(jìn)入作業(yè)狀態(tài)隊(duì)列，在查找的相應(yīng)作業(yè)前輸入？，進(jìn)入該作業(yè)輸出的詳細(xì)信息中，可在相應(yīng)信息前輸入S,回車(chē)，查看程序運(yùn)行結(jié)果。此運(yùn)行結(jié)果會(huì)顯示DISPLAY的內(nèi)容。五、對(duì)實(shí)驗(yàn)的意見(jiàn)與建議此次實(shí)驗(yàn)讓我們對(duì)主機(jī)的操作有了更深一步的了解和認(rèn)識(shí)。在對(duì)主機(jī)的基本操作上有了較為深刻的理解。對(duì)現(xiàn)在銀行等大型企業(yè)的業(yè)務(wù)處理等方面運(yùn)用的語(yǔ)言有了比其他人更深入的認(rèn)識(shí)。對(duì)于沒(méi)有操作界面依靠命令的操作系統(tǒng)，實(shí)驗(yàn)上與其他