COBOL語言程序設(shè)計實驗報告-實驗一

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

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

3、現(xiàn)用戶登錄界面，輸入合法的用戶名以及密碼。鍵入回車（右側(cè)CTRL鍵）之后，進(jìn)入下圖所示的主機系統(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界面對所創(chuàng)建數(shù)據(jù)集進(jìn)行編輯 在Command下面輸入E，在UR001.COBOL.SOURCE右邊輸入（LAB1）回車，輸入如下代碼，注意程序要求符合COBOL語法，部頭等從第八列開始并編寫代碼如下。5 程序的編譯鏈接運行過程在分

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

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