COBOLⅠ-第4章 數(shù)據(jù)の印刷(中文翻譯版).doc

第四章，數(shù)據(jù)的印刷 41數(shù)據(jù)打印應該考慮的問題點 在數(shù)據(jù)打印上，應該考慮以下幾點：（a） 大標題，小標題的打?。╞） 行間距（c） 編輯（讓打印的數(shù)據(jù)比較容易看清）去掉有效數(shù)字前不需要的0每三位加一個逗號加上通貨記號編集前：打印什么還不知道。編集后：有大標題行，小標題行，數(shù)據(jù)也有貨幣符號和逗號，看起來更方便一些。 第4章，第5章學習可以打印日本文字的打印方法 漢字打印機，EBCDIK編碼文字（英文，數(shù)字，假名，特殊文字等文字）以及KEIS編碼文字（日文文字），可以打印。打印時，KEIS編碼文字是EBCDIK編碼文字的2倍。42 例題2 - 1 將從文件中輸入的數(shù)據(jù)做成輸入表。 輸入輸出數(shù)據(jù)形式（a） 輸入數(shù)據(jù)形式 采購文件（b） 輸出數(shù)據(jù)形式 采購清單處理標準 作為輸入文件的記錄的明細，1頁上印刷25項 每一頁，打印大標題和小標題 行與行之間空一行 單價，采購數(shù)量，總額，去掉有效數(shù)字前的0，3位一個豆號 單價采購額等有效數(shù)字前加注通貨符號。4.3打印處理的順序及PAD4.3.1 處理所需要的區(qū)域 輸入?yún)^(qū)和輸出區(qū)進貨清單的輸出區(qū)域，打印機的輸出區(qū)域最大值只能保證384個字節(jié)。進貨清單中的大小標題，明細行，這些要在作業(yè)區(qū)域中定義。 作業(yè)區(qū)域 （a）大標題行，小標題行的作業(yè)區(qū)域 大標題行，小標題行，要事前在作業(yè)區(qū)域中定義。打印時要把它傳到輸出區(qū)域打印。標題行的向出力領域移動的時候，用WRITE文。 （b）明細行的區(qū)域把要打印的一條輸入數(shù)據(jù)，移動到明細行區(qū)域，再經由輸出區(qū)域打印。（c） 與行數(shù)區(qū)域為判定采購文件是否已讀完、要使用區(qū)域，還要把打印了的明細行計數(shù)、所已行數(shù)區(qū)域定義是必須的。432 主結構和前處理 主結構 文件打開的處理 前處理 變成1之前，進行循環(huán)處理 關閉文件處理 前處理 將設為0 輸入采購文件的第一個記錄433 主處理 明細行的打印 輸入?yún)^(qū)域的各項目移到明細行區(qū)域，再經由輸出區(qū)域打印明細行后，隔一行打印一行。明細行的移動，隔行打印處理，使用WRITE文進行。這種處理一直持續(xù)到輸入數(shù)據(jù)沒有為止。 行數(shù)計數(shù)及改頁 每次打印明細行，加一行，如果行數(shù)計數(shù)到25，則換頁。換頁之后，行數(shù)（計數(shù)）又返回到0。標題的打印 改頁后，打印大標題，小標題。 改頁處理和打印大標題的處理，都使用WRITE語句來做。 為了打印出第一頁的標題，要在前處理當中把行數(shù)的初期值設置為25。434 輸入處理 輸入采購文件中的記錄 文件結束后，設為1 46 435 完成例題的PAD例題1、 在COBOL中，可以將作業(yè)區(qū)域的內容直接輸出嗎?答 不可以， 在WRITE之后，必須指定輸出文件。 也就是說，一定要用輸出區(qū)域指名的數(shù)據(jù)名（來寫文）， 因此，作業(yè)區(qū)域的數(shù)據(jù)一旦被傳到輸出區(qū)域后才能進行輸出。4.4 IDENTIFICATION DIVISION 和 ENVIRONMENT DIVISION4.5 DATA DIVISION (FILE SECTION) 4.5.1 DATA DIVISION 的構成 在FILE SECTION中 記述輸入文件與輸出文件的文件和記錄，在WORKING-STORAGE SECTION 中記述了處理必要的作業(yè)區(qū)域。4、5、2 FILE SECTION (1) 輸入輸出數(shù)據(jù)形式 (a) 輸入數(shù)據(jù)形式 采購文件 文件名 記錄名 (b)輸出數(shù)據(jù)形式 采購清單 非模塊紀錄 文件名 記錄名 漢字打印機的輸出區(qū)域，要保有384字節(jié)的區(qū)域，即用英數(shù)文項目表示保有分成384位的區(qū)域4、6 DATA DIVISION 4、6、1 WORKING-STORAGE SECTION 作業(yè)區(qū)域要在WORKING-STORAGE SECTION中定義()層號 0149表示從屬關系 01 從第8位開始寫()FILLER 是對處理中不使用的項目起的約定名，可以省略()PICTURE形式指定項目的形式、長度及編集形式()VALUE定數(shù) 在定義的區(qū)域里，放入特定的數(shù)字或值，指定定數(shù)，定數(shù)有文字定數(shù)、數(shù)字定數(shù)、數(shù)學定數(shù)、日文定數(shù)、表意定數(shù)等。 不能指定與數(shù)據(jù)形式矛盾的定數(shù)。VALUE只能在WORKING-STORAGE SECTION中指定462 、行數(shù)區(qū)域的定義 是英數(shù)字項目1位，因為行數(shù)從025 ，所以行計數(shù)器要定義為數(shù)字項目2位用 PACK形式。463 標題區(qū)域和設定初始值（1）控制文字用區(qū)域 為了在打印機上打印數(shù)據(jù)時，能控制打印紙的走紙，所以在輸出數(shù)據(jù)的前頭的第1列是控制走紙用的控制文字，這個控制文字可以叫打印控制文字，根據(jù)WRITE中的空行、換頁，系統(tǒng)自動設定。因此，控制文字要在輸出數(shù)據(jù)開始的1列定義。但是，控制文字的內容不打印。（2）CHARACTER TYPE KEIS 像例題中的采購清單一樣，打印的數(shù)據(jù)中包括日語項目時，在記錄中，應該指定CHARACTER TYPE KEIS。（）在打印控制文字的項目，不能指定在CHARACTER TYPE KEIS中。（3）保大標題行的區(qū)域 為大標題行全體起的數(shù)據(jù)名，叫做HI-大行標題，因為各項目不使用數(shù)據(jù)名來處理，寫入約定用語的FILE 因為FILLER 可以被省略，本書中將其省略。 除了輸出數(shù)據(jù)以外、在開始的地方，要確保1列的送紙的控制文字的區(qū)域。 特別是當大標題行包括日語時，必須指定CHARACTER TYPE KEIS 將送紙控制文字項目以后的項目總結形成集團項目，這個集團項目被指定為CHARACTER TYPE KEIS。（4）初始值的設定 在大標題行，小標題行的區(qū)域中都要事先指定標題文字的初期值，在保區(qū)域中，標題文字和值做為初始值被事前設定，用VALUE指定定數(shù)（關于定數(shù)在第3章已經學習過）。（a） 文字定數(shù) 被指定的定數(shù)，同英數(shù)字項目的移動相同，從區(qū)域的左端開始進入，剩余的部分為空格。 設空格為定數(shù)時，只需在左端的第一位指定空格，其他剩余部分都為空格，即只在一個位數(shù)指定空格，區(qū)域全體都可以變成空格。(b)數(shù)字定數(shù) 被指定的定數(shù)，同數(shù)字項目的移動相同以小數(shù)點為基準進入，其他部分填入0，當定數(shù)沒有指定符號（+、）時，被認為是正數(shù)(c) 日語定數(shù) 被指定的定數(shù)同日語項目的移動相同，從左端開始寫入，剩余部分為空白(d)表意定數(shù) 所謂表意定數(shù)，就是那些為了表示特定文字和值而事先決定好了拼寫方式的預約用語。 指定表意ZERO 同指定數(shù)字定數(shù)0結果完全相同。 指定的表意定數(shù)為SPACE時，與文字定數(shù)中指定空格的結果一樣。（5）大標題行的初始值設定（6）小標題區(qū)域和初始值設定 這個編程中，標題文字和除此之外的空白是分別加以記述，但是在文字定數(shù)和日語定數(shù)的時候，文字從指定區(qū)域的左端進入，多余的部分為空格，所以標題文字和右側的空白可以在一起記述。這時，右側空白及文字都要被作為日語項目，日語項目1位相當于有2個字節(jié)，10位的英數(shù)字項目變成5位的日文項目小標題的編程如下所示練習題： 在下面編程的VALUE的指定中，書寫方式正確的，寫出項目中的內容，錯誤的說明理由。問題1、 在打印時，輸出數(shù)據(jù)的控制文字的1個字節(jié)中，不可以指定VALUE SPACE嗎? 可不可以與右側的空白合在一起定義?答可以指定，但是控制文字的1個字節(jié)的內容，并不是由程序員設定，而是根據(jù)WRITE文的空行及換頁的指示，由系統(tǒng)自動設定的，只要保留了這個區(qū)域，內容是什么都沒有問題?？梢詫⒂覀鹊目瞻缀显谝黄鸲x。問題2、 WORKING-STORAGE SECTION 中，按照大標題行、小標題行，明細行這樣的順序來定義區(qū)域，必須按這一順序進行記述嗎？答：以什么樣的順序記述都沒關系。問題3、 文字定數(shù)和日語定數(shù)的位數(shù)較多，在一行寫不下的情況下如何處理? 答 首先，要盡量保證文字定數(shù)和日語定數(shù)的完整性，將VALUE以后的內容盡可能，寫在一行(如編程例1)，還可以將該項目分開(如編程例2)記述。 在引用符開始和引用符結束之間進行換行的時候，要用續(xù)行符來指示接續(xù)。接續(xù)的方法 第1行用72位第2行的第7位寫上續(xù)行符第2行從12位以后寫引用符，然后寫出文字定數(shù)和日語定數(shù)問題4、 本書中的關于標題行的例子中，是將日語項目的標題和它右側的空格結合在一起記述的，在此，右側的空格的大小以2個字節(jié)換算成1位的日文項目的位數(shù)來記述。如某右側的空白的大小為奇數(shù)位時，該如何記述?答 空白的區(qū)域為奇數(shù)位時，不能將日語的標題文字和空白結合記述。 這時標題文字和空格分別加以記述。問題5、 在作業(yè)區(qū)域中定義標題行和明細行的區(qū)域的時候，有效文字右側的空格不用定義嗎? 答 不必定義。用WRITE 文打印數(shù)據(jù)時，首先將作業(yè)區(qū)域行的內容移動到輸出區(qū)域，這時，根據(jù)集團項目的移動規(guī)則，剩余的地方為空白，所以沒有必要定義右側的空白區(qū)域。另外，輸出區(qū)域的數(shù)據(jù)在打印機上打印的時候， 對超過打印用紙1行長度的空格不打印。問題6 數(shù)字定數(shù)0和表意定數(shù)ZERO相類似，那文字定數(shù)0和表意定數(shù)ZERO是否完全相同？答：不同。4.6.4 明細行區(qū)域與編集輸入記錄的各項目在明細行中打印。同時，在各項目間事先用初始值填入空白，然后，將單價、數(shù)量、購進額等數(shù)據(jù)每三位用逗號隔開，在前面添上貨幣記號等這樣的編集處理。（1） 編集 英數(shù)字項目原封不動地移動到明細行中打印就可以，但是數(shù)字項目為了看起來更方便，要進行編集處理。 編集要做到以下事情： 清除有效數(shù)字前無效的0 每3位插入逗號 插入小數(shù)點 增加貨幣符號 追加符號 在指定編集形式的項目中、如果移動數(shù)據(jù)，就能進行數(shù)據(jù)的編集。（2） 編集形式的指定（）形式 數(shù)值數(shù)據(jù)的編集形式用以下的編集文字來指定。9 表示數(shù)字1位Z 去掉有效數(shù)字前不要的0， 插入逗號. 插入小數(shù)點￥ 追加貨幣符號、 追加符號（a） 數(shù)字原封不動打印時(編集數(shù)字9)（b） 編集文字9，表示有一位數(shù)字原封不動的打印 沒有指定小數(shù)點時，假定小數(shù)點在最右端，以小數(shù)點為基礎進行移動、編集（b）除去有效數(shù)字前不要的0 編集文字Z表示有一位數(shù)字，把有效數(shù)字前的0 轉換為空格來表示。例：的0消去，然后再打印。(c) 插入逗號編集文字 在想插入逗號的位置上指定編集文字“，”指定了逗號，數(shù)字的表示位數(shù)也同時加長了。在指定的地方加入逗號，有效數(shù)字前面逗號以及0都被置換為空白。（d）追加貨幣符號（編輯文字：￥） 貨幣符號的編集分為固定編集和浮動編集2種。 固定編集在數(shù)據(jù)前面同樣位置打印編集文字。 浮動編集在數(shù)據(jù)的有效數(shù)字的前一位打印編集文字。 總之，根據(jù)值得不同，編集文字的位置有所移動。（）固定編集在固定編集中，在開始的地方指定一個通貨符號。接受方只增加了一個符號位的長度。（）浮動編集 在浮動編集中，指定二個以上連續(xù)的通貨符號。接受方增加了指定的符號位數(shù)的長度。例：有效數(shù)字的前面加通貨符號打印 關于固定編集的例子Z的部分，全部用￥來替換。貨幣符號，添加在有效數(shù)字前面，有效數(shù)字前的0或逗號，用空格置換。 （e）增加小數(shù)點時（編輯文字：、） 指定編輯文字“”（同終止符一樣的符號）。接受方的數(shù)位只增長相應的長度。例：打印小數(shù)點有兩位的數(shù)據(jù) （f）符號的編集（編輯文字：+，-） 在被指定的位置上打印符號 ，接受方，只增長了符號位的長度。 （）使用編輯文字“+”時 正值移動時打印的符號 負值移動時打印的符號 （）使用編集文字“”時 正值移動時不打印符號，用空格補足。 負值移動時打印的符號。例：數(shù)據(jù)是負的時候，打印號 符號分為固定編集和浮動編集2種。上面的例子是固定編集，浮動編集時，連續(xù)2次以上的符號。本書所使用的作業(yè)區(qū)域的數(shù)據(jù)名的命名方法。本書中，作業(yè)區(qū)域的數(shù)據(jù)由于WORKING-STORAGE SECTION，在前頭加上W-。而且，像標題行，明細行等用于打印輸出的數(shù)據(jù)，以及其他，在數(shù)據(jù)名之前，為明確數(shù)據(jù)的位置加注文字。因為他們使用的都是日文文字，HI-，D-等，因此在編程用紙上1個文字，占2位。 練習題4-2 1下面的文章，是關于到現(xiàn)在為止學到的內容。請在（）種填入適當?shù)恼Z句。 打印數(shù)值時，為便于閱讀，每3位插入1個逗號，去除有效數(shù)字前不用的0，插入小數(shù)點，加上貨幣符號，這叫做（）。以（）來指定編集的形式，用（）語句移動數(shù)據(jù)是進行編集。 追加貨幣符號有2種方式，經常在指定的位置加入貨幣符號的（），和在有效數(shù)字的前一位加入貨幣符號的（）。 追加貨幣符號，正負符號，插入小數(shù)點時，接受方僅增長貨幣符號和逗號等文字數(shù)的相同的位數(shù)，比如，在7位的數(shù)值中，每3位插入一個逗號，加上貨幣符號，整體上占（）位的區(qū)域。 2下面是MOVE語句實行時接受方的數(shù)據(jù)，或者說為了出現(xiàn)如下圖的顯示，該如何指定PICTURE？問題1 插入逗號，必須每3位才可以嗎？ 答：不，不是3位也可以。作為金額編集印刷時，通常是每3位插入一個逗號的。但僅僅作為數(shù)字列加以區(qū)分時，每兩位，每四位，可以在任何位置插入。 問題2：關于帶有2位小數(shù)部分的數(shù)據(jù)，可以象下面這樣，指定編集，除去0嗎？ 答：不能。編輯文字Z，對數(shù)字位置的全部，或者只能對小數(shù)點左側的數(shù)字可以指定。 關于貨幣符號或符號的浮動編集是一樣的。問題3 編輯用的文字，也可以用括號圍起來進行循環(huán)嗎？ 答：可以，但是，編集用的文字按原樣記述更容易理解。例：能夠做像下圖所示的循環(huán)指定 問題4 6位的數(shù)字項目，每3位插入逗號，進行貨幣符號的浮動編集，要寫成￥，￥，￥9。 答：不對。這是在6位的￥，￥9，在前面追加1位編輯文字，指定為￥，￥9。不能指定￥，123，456這樣的編集。 問題5 雖然編集文字的和能用浮動編集表示，但要怎樣指定呢？ 答：同貨幣符號一樣，或要連續(xù)指定2次，可以在有效數(shù)字的前一位打印符號。 數(shù)據(jù)是正的時候為空格（符號不打?。?7 PROCEDURE DIVISION（主過程） 在主過程中，打開文件，實行前處理，直到變成1為止一直進行主處理的循環(huán)。然后關閉文件，程序終了。48 PROCEDURE DIVISION（前處理） 在前處理中，設定為0，行數(shù)設定為25，指示實行輸入處理，輸入第1件記錄。設定時0是文字定數(shù)，所以必須要用引用符。4.9 PROCEDURE DIVISION（主處理）4.9.1 數(shù)據(jù)的比較（IF文） 比較2個數(shù)據(jù)，根據(jù)結果選擇不同處理。 IF文 （）條件 比較計算結果，加以表示。 （）THEN語句 條件成立時，實行的語句。 可以為多條語句。 （）ELSE語句 條件不成立時，實行語句。 （）CONTINUE 不論條件是否成立，當沒有應該實行的語句時，記述約定用語CONTINUE、它表示實行IF語句的下一條語句。 （）ENT-IF 表示IF語句結束。 條件 條件是指，比較項目與被比較項目用比較計算符連接起來的式子。 在第3章學習PERFORM語句的條件時，也記述了同樣的規(guī)則。 （a）比較計算符 比較計算符（，=，=，=）的前后，要有1字以上的空格。 比較的種類 比較分為英數(shù)字項目，數(shù)字項目，日文項目等比較。（a） 數(shù)字項目比較 當比較數(shù)據(jù)位數(shù)字項目或數(shù)字定數(shù)時，考慮符號，小數(shù)點的位置，用數(shù)值的大小來比較。和比較時，判定大（b） 英數(shù)字項目比較 比較數(shù)據(jù)為英數(shù)字項目或文字定數(shù)時，從數(shù)據(jù)的左端開始，一個一個文字比較，根據(jù)EBCDIK表的順序決定大小。大小的順序，空格特殊文字假名英文數(shù)字。比如說，英文A與B比較，B較大，Z同1比較，1較大。例1比較項目同被比較項目位數(shù)相同時 從左側起按順序比較，判斷數(shù)據(jù)4大于數(shù)據(jù)3。例2比較項目與被比較項目位數(shù)不同時位數(shù)相異時，將短的一方的右側用空格補足，與長的進行比較。在這個例子中，數(shù)據(jù)3與數(shù)據(jù)5相等。 日文項目的比較 比較數(shù)據(jù)為日本項目或日文定數(shù)時，從數(shù)據(jù)的左側開始一個一個文字，參照KEIS表的順序決定大小。 大小的順序，特殊文字數(shù)字英文平假名片假名漢字。 KEIS表，因為文字的種類很多，本書沒有具體記錄。從左面開始比較數(shù)據(jù)，按照KEIS表比較的話，那么，大。 PAD與IF語句（a） 當條件成立，或條件不成立時,都有執(zhí)行的命令語句。 條件成立時（數(shù)據(jù)1數(shù)據(jù)2時）實行1處理，IF語句的下一條語句，即轉移到H處理。 條件不成立時（數(shù)據(jù)1數(shù)據(jù)2時）實行2處理，IF語句的下一條語句，即轉移到H處理。（b） 條件不成立時，沒有執(zhí)行語句。 條件成立時（數(shù)據(jù)1數(shù)據(jù)2時） 實行1處理，IF語句的下一條語句，即轉移到H處理。 條件不成立時（數(shù)據(jù)1數(shù)據(jù)2時）根據(jù)CONTINUE指定，IF語句的下一條語句，即轉移到H處理。行數(shù)等于25的時候，也就是說條件成立的時候，進行打印大標題行小標題行的和行數(shù)設0的處理。行數(shù)不等于25的時候，也就是說不滿足條件的時候，不進行任何處理，所以進行指定CONTINUE.THEN 和ELSE要錯位些，這樣更容易看。 問題1 在IF語句中，可以（嵌入）寫IF語句嗎？ 答：可以。但是，一個IF語句的結束時，一定有一個END-IF語句對應。 問題2 在例題中，行數(shù)的25是用MOVE語句傳入的，與此相對，是不是也可以在WORKING-STORAGE SECTION中的VALUE中定義?答：沒關系。也就是說，在WORKING-STORAGE SECTION中指定的VALUE，在程序運行之前，要先代入數(shù)值。然后，在這一區(qū)域內的內容，有可能在PROCEDURE DIVISION中被變更。 編程如下。4、9、2數(shù)據(jù)的打印打印數(shù)據(jù)。 WRITE語句 （）記錄名 指定輸出的記錄名（輸出區(qū)域的名稱）。 （）數(shù)據(jù)名 打印的內容，從指定的數(shù)據(jù)名（作業(yè)區(qū)域中定義的數(shù)據(jù)）裝入輸出區(qū)域 （）AFTER 只能在用打印機輸出時加以指定，表示轉行，換頁之后的打印。 *整數(shù) 指定換行數(shù) 換行數(shù)099之間 *PAGE 換頁時，要指定約定用語PAGE，而不是整數(shù)。 （）WRITE語句是指，將在FROM后指定的數(shù)據(jù)名的內容，轉移到記錄名指定的輸出區(qū)域，然后打印。 （）根據(jù)被AETER指定的換行，換頁的情況，控制文字被自動放入輸出區(qū)域的最開始的1列，根據(jù)這個控制文字進行打印大標題行換頁打印，小標題行和明細行隔行打印、打印明細行前，要把輸入?yún)^(qū)域中的數(shù)據(jù)移動到明細行中，明細行中的必要數(shù)據(jù)齊了之后打印、打印完畢之后，行數(shù)加1。 410 PROCEDURE DIVISION（輸入處理） 輸入處理，從輸入文件中輸入記錄。輸入文件的記錄被讀完后，設置成1?？偨Y 換頁處理 每次印刷明細行時，行數(shù)加1。 行數(shù)為25時，換頁，印刷標題。 換頁后，行數(shù)回到0。 行數(shù)在初始值時被設定為25。 打印機的輸出區(qū)域 能打印日文文字（KEIS編碼）的打印機，設定384個字符的區(qū)域。 標題行，明細行的作業(yè)區(qū)域 在輸出數(shù)據(jù)開始的1個字符，定義為打印機控制文字用的區(qū)域。 打印包括日文項目在內的數(shù)據(jù)時，指定CHARACTER TYPE KEIS。 用VALUE預先設定標題文字以及項目間的空格的初始值。 對數(shù)值