cobol程序設(shè)計(jì)—(編輯修改稿)
2025-08-31 17:47 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 VE H TO Q. ? DISPLAY H. ? DISPLAY Q. 12345678 123, (三 )插入零，用 ―0‖描述符 例如： ?…… ?WORKINGSTORAGE SECTION. ? 01 H PIC 999PPPP. ? 01 Q PIC 9990000. ? PROCEDURE DIVISION. ? S. MOVE 123 TO H. ? MOVE H TO Q. ? DISPLAY H. ? DISPLAY Q. 123 1230000 (四 )插入空格，用“ B‖描述符 例如 ? …… ? 01 H PIC 999. ? 01 Q PIC 9B9B9. ? PROCEDURE DIVISION. ? S. MOVE 123 TO H. ? MOVE H TO Q. ? DISPLAY H. ? DISPLAY Q. 123 1 2 3 (五 )插入正負(fù)號(hào)．用“ +”或“ ”描述符 例如： ?…… ?WORKINGSTORAGE SECTION. ? 01 A PIC S99. ? 01 B PIC +99. ? 01 C PIC 99. ? PROCEDURE DIVISION. ? S. MOVE 12 TO A. ? MOVE A TO B. ? MOVE A TO C. ? DISPLAY B. ? DISPLAY C. +12 12 規(guī)則： ?當(dāng)用描述符“ +” 時(shí)，不論數(shù)值為正或負(fù)，一律加符號(hào)。當(dāng)用“ ” 時(shí)，當(dāng)數(shù)值為正時(shí)數(shù)值前空一格，數(shù)值為負(fù)時(shí)，加一負(fù)號(hào)。 ?符號(hào)也可以加在數(shù)值的后面 ? 如用： 02 A2 PIC 99+，則輸出為 12+。 描述符 數(shù)值為正 數(shù)值為負(fù) 說(shuō)明 ＋ 加“＋”號(hào) 加“－”號(hào) 一律加符號(hào) － 數(shù)前空－格 加“－”號(hào) 只對(duì)負(fù)值加負(fù)號(hào) (六 )插入“ $” (1)把“ $”加在數(shù)字前 例如 ? 77 A PIC 9(3)V99. ? 77 B PIC $. ? PROCEDURE DIVISION. ? S. MOVE TO A. ? MOVE A TO B. ? DISPLAY A. ? DISPLAY B. 12356 $ (2)在數(shù)字前加正負(fù)號(hào)和 $ 例如： ? 77 A PIC S99V9. ? 77 B PIC +$. ? 77 C PIC $. ? PROCEDURE DIVISION. ? S. MOVE TO A. ? MOVE A TO B. ? MOVE A TO C. ? DISPLAY A. ? DISPLAY B. ? DISPLAY C. 125 +$ $ (七 )浮動(dòng)插入正負(fù)號(hào)和“ $‖ ? 問(wèn)題的提出： ? 例如： ? 77 A PIC S9(3)V99. ? 77 B PIC +9(3).99. ? 77 C PIC $9(3).99. ? PROCEDURE DIVISION. ? S. MOVE TO A. ? MOVE A TO B. ? MOVE A TO C. ? DISPLAY A. ? DISPLAY B. ? DISPLAY C. 00212 + $ 這是我們想要的結(jié)果 嗎？ 問(wèn)題的解決： 例如： ? 77 A PIC S9(3)V99. ? 77 B PIC +(4).99. ? 77 C PIC $(4).99. ? PROCEDURE DIVISION. ? S. MOVE TO A. ? MOVE A TO B. ? MOVE A TO C. ? DISPLAY A. ? DISPLAY B. ? DISPLAY C. 注意，＋，－號(hào)和 $不能同時(shí)浮動(dòng) 00212 + $ (八 )取消高位零，用“ Z”和“ *”描述符 ? 問(wèn)題：用 $， +， 浮動(dòng)，可以取消高位零，但在數(shù)值前出現(xiàn) $或 +、 號(hào)。 ? 如果 只要求取消高位零 ，我們?cè)趺醋瞿兀? ? ——用“ Z”和“ *”描述符，二者有不同的用處。 例如： ? 77 A PIC 9(5)V99. ? 77 B PIC Z(5).99. ? 77 C PIC *(5).99. ? PROCEDURE DIVISION. ? S. MOVE TO A. ? MOVE A TO B. ? MOVE A TO C. ? DISPLAY A. ? DISPLAY B. ? DISPLAY C. 連續(xù)的“ *”號(hào)用作票據(jù)的“保護(hù)符號(hào)”，以防涂改數(shù)值。 0008574 * * * 注意： ?(1)不能同時(shí)用 Z浮動(dòng)和 +、 、 $浮動(dòng)。 ?(2)單個(gè)的 +、 、 $可以與 Z或 *浮動(dòng)連用： 以下為合法的語(yǔ)句： ? 77 A2 PIC +Z(3).99. ? 77 A3 PIC *(3).99. ? 77 A2 PIC $Z(3).99. ? 77 A2 PIC $*(3).99. ?(3)如果使“ z”或“ *”對(duì)應(yīng)于所有的數(shù)字字符，當(dāng)數(shù)值為0時(shí)，則所有數(shù)字位全部由 空格 或 *代替。小數(shù)點(diǎn)位置上，由空格代替 (用 Z描述符時(shí) )或保留“ .‖(用 *描述符時(shí) )。 (九 )插入“ DB‖和“ CR‖字符 ? 在銀行業(yè)務(wù)戶，有時(shí)用到“ DB‖ (debit，借方 )和“ CR‖ (credit，貸方 )。 ? DB和 CR只能用作固定插入，而且只作為最后一個(gè)描述符。當(dāng)數(shù)值為負(fù)時(shí)，在編輯型數(shù)據(jù)項(xiàng)中最后兩個(gè)字節(jié)中置 DB或者 CR，數(shù)值為正時(shí)，此兩字節(jié)留空格。 編輯字符除了可用于 數(shù)值型數(shù)據(jù) 的編輯外，還可以用于 字符型數(shù)據(jù) 的編輯?？捎糜谧址蛿?shù)據(jù)的編輯字符為 B和 0字符。 PIC子句小結(jié) ? (一 )PIC子句用來(lái)說(shuō)明數(shù)據(jù)的 類型 和 長(zhǎng)度 。 PIC子句的一般格式為： 描述字符串ISP I C T U R EP I C }{(二 )每一種類型數(shù)據(jù)可以使用的描述字符如下： (三 )描述字符的含義 （四 )
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1