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

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