|
見出し部 | データ部 | |
環境部では、計算機機種の物理的な特性によるデータ処理上の問題を取り扱う、標準的な方法を指定する。たとえば、翻訳用計算機と実行用計算機の構成を指定できる。それに加えて、入出力管理、ハードウエアの特殊な仕様、管理技法などに関する情報も指定できる。
COBOL原始要素において、環境部は書いても書かなくてもよい。
ENVIRONMENT DIVISION. [構成節] [入出力節]
プログラムに環境部が含まれる場合、環境部がプログラムの中の最初の部である場合にのみ、環境部の見出しを書かなくてもよい。構成節（configuration section）は、環境部を構成する節の1つである。構成節で指定する事柄には、特定のシステムに依存するデータ処理システムの様相、特殊な管理技法、局所名を外部名に関連づける方法などがある。この節は翻訳用計算機段落、実行用計算機段落、特殊名段落、リポジトリ段落に分けられる。翻訳用計算機段落では、ソース要素を翻訳する計算機の構成を記述する。実行用計算機段落では、コンパイラによって生成されたランタイム・モジュールを実行する計算機の構成を記述する。特殊名段落では、通貨記号および通貨文字列の指定、小数点の選択、記号文字の指定、作成者語と利用者が指定する呼び名との関連づけ、符号系名と文字集合または文字の照合順序への対応づけ、クラス名と文字集合の関連づけを行う。リポジトリ段落では、局所名を外部資源と関連づけ、どの組み込み関数がこの原始単位用の予約語となるかを指定する。
構成節は書いても書かなくてもよい。
.
構成節がプログラムの中の最初の文である場合にだけ、構成節の見出しを書かなくてもよい。
他のプログラムに含まれるプログラムの中には、構成節を記述できない。
メソッド定義中に構成節を記述してはならない。
ファクトリ定義またはオブジェクト定義の中に翻訳用計算機、実行用計算機、リポジトリの各段落を記述してはならない。他の原始単位を含むソース単位の構成節の中に明示的または暗黙的に記述されている事項は、直接的または間接的に含まれる各原始単位にも適用される。
翻訳用計算機（source-computer）段落は、翻訳単位を翻訳する計算機を識別する。
翻訳用計算機段落のすべての句は、それらが明示的または暗黙的に指定されたソース単位およびその原始単位に含まれる任意のソース単位に適用される。実行用計算機（object-computer）段落には、コンパイラによって作成されたランタイムモジュールを実行するのに使う計算機を記述する。
この段落は書いても書かなくてもよい。
MEMORY
SIZE（記憶容量）句とSEGMENT-LIMIT(区分制限)句は、ANSI'85においては廃要素に分類されており、ANSI標準を次回に全面改訂する際には削除される予定である。
このCOBOL処理系に組み込まれているすべての方言では、MEMORY
SIZE句 とSEGMENT-LIMIT句は注記としてだけ使用する。FLAG STD指令を使用すると、この構文が使われているすべての箇所を見つけ出すことができる。
標準COBOL定義の一部を構成するにもかかわらず、X/OpenのCOBOL言語定義では、MEMORY
SIZE句と SEGMENT-LIMIT句は明示的に除外されている。したがって、X/Openに準拠するCOBOL原始プログラムにおいては、MEMORY
SIZE句と SEGMENT-LIMIT句を使用するべきではない。
実行用計算機段落は、OBJECT-COMPUTER
見出しだけから成る。
およびその中に含まれる原始要素の中
で使用される。
特殊名（special-names）段落は、通貨記号および通貨文字列、小数点,
記号文字、
利用者が指定する呼び名に対する作成者語、文字集合や文字の照合順序に対する符号系名、文字の組に対するクラス名などの、指定または選択を行う手段を示す。
パラメータの引渡し方について予め定義してあるいくつかの方式の中から、1つを選択できる。CALL（呼ぶ）文およびPROCEDURE
DIVISIONの見出しの拡張機能によって、これらのパラメータ引渡し方式をプログラム間連絡に使用できるようになった。
特殊名段落中の句は、どのような順序で書いても構わない。
クラスを定義する原始単位の外側のレベルでは、CURSORおよびCRT
STATUS句を指定してはならない。
クラス定義のファクトリまたはオブジェクトにおいては、指定できる句はCURSORおよびCRT
STATUSだけである。
ンターフェイス定義中に特殊名段落を指定した場合、使用できる句はALPHABET,
CURRENCY, DECIMAL-POINTだけである。
またはSWITCH-nオプションが使用されている
場合は、その呼び名は指定できない。
ただし、SET文の中でだけは指定できる。
その呼び名には、条件名を最低限1つ付ける。
条件名を付ける必要はない。
ALPHABET（符号系名）句の中の数字定数の有効な最小値は、ALPHASTART指令の影響を受ける。
浮動小数点数または2バイト文字は指定できない。
STANDARD-D1とASCIIは同義語であり、どちらを書いてもよい。
特殊名段落の中では、予約語のISはまったく必要ない。
定数-4句の中に指定する定数は、下記のようにする。
浮動小数点数または2バイト文字は指定できない。
定数-1から定数-5には、記号文字の表意定数を指定してはならない。
１つのSYMBOLIC
CHARACTERS （記号文字）句の中には、同じ記号文字-1は1回だけ使用できる。
各記号文字-1とそれに対応する各整数-1とは、SYMBOLIC
CHARACTERS句の中の位置によって関係付けられる。最初の記号文字-1が最初の整数-1と対にされ、2番目の記号文字-1が2番目の整数-1と対にされるという具合いに、SYMBOLIC
CHARACTERS句全体を通じて対応付けが行われる。ISまたはAREを間に置くのは読みやすくするためだけである。
整数-1の有効な最小値は、SYMBSTARTコンパイラ指令の影響を受ける。
記号文字-1に指定する一連の文字と整数-1に指定する一連の数字とは、1対1で対応させる。このことは、各IS指定またはARE指定の内部でも、SYMBOLIC
CHARACTERS句全体でも、当てはまる。
整数-1で指定する文字位置は、計算機固有の文字集合の中に存在させる。
IN指定を書く場合は、符号系名-2で指定する文字集合の中に、整数-1で指定する文字位置を存在させる。符号系名-2は、ALPHABET（符号系）句に指定してあるものとする。
または、各国語の定数でなければならない。
C
または R は使用可能
L
は使用可能
E
は使用不可
N
は使用不可
G
は使用不可
小文字の英字は使用不可
小文字の英字は、ここで使用不可と明記されているものを除き、使用可能
PICTURE
SYMBOLが使用されている場合は、定数-6の長さに制限はなく、以下に従うものとする。
定数-7は、1字の英数字定数から成るものとし、表意定数であってはならない。同じ定数-7が複数存在してはならない。
定数-7には、計算機の符号化文字セットの文字のすべてが使用可能。ただし、以下を除く。
C
および Rは使用可能
G
は使用不可
定数-6 の字類が各国語型の場合は、関連づけられた通貨記号は、用途がNATIONALである数字編集項目の定義にのみ使用可能とする。
整数-2は、0から65535までの符号のつかない整数とする。
CURSOR
IS 句のデータ名-1は、作業場所節
で宣言されなければならない。
CRT STATUS
句は、各形式 4以降の状態値の転記先となるデータ項目を指定する。
または、各形式
5 以降の状態値の転記先となるデータ項目を指定する。
または、各ACCEPT
文以降の状態値の転記先となるデータ項目を指定する。環境によっては、これは作業場所の最初の64Kでのみ定義可能。
データ名-2
は作業場所節で記述され、3バイトの長さでなければならない。
CURSOR
IS句は、ACCEPT文によって使用されるカーソルの番地を保持するデータ項目を指定する。 ASCII
指定が含まれる場合は、文字符号系または文字の照合順序は、米国標準規格X3.4-1968に規定されている情報交換用米国標準コードとなる。
STANDARD-2指定が含まれる場合は、文字符号系は、国際標準646の情報処理交換用7ビット・コード化文字集合に規定されている、ISO7ビット・コードの国際参照版となる。
EBCDIC指定が含まれる場合は、文字符号系および文字の照合順序はEBCDICとなる。
NATIVE（計算機固有）句を指定すると、計算機に固有の文字符号系または文字の照合順序が使用される。計算機に固有の文字の照合順序は、NATIVE指令を使用して、ASCIIまたはEBCDICのどちらかに設定できる。
ASCII符号系およびASCIIとEBCDICの文字の照合順序と両者の対応関係については、付録の文字符号系と文字の照合順序の章を参照。
またはデータを表わすために使用される文字符号系の中で、
ただし、表意定数HIGH-VALUEを特殊名段落の中で定数として指定した場合を除く。
プログラムの文字の照合順序で順序位置が最大のものが2つ以上ある場合は、最後に指定した方が表意定数のHIGH-VALUEとなる。
ただし、表意定数LOW-VALUEを特殊名段落の中で定数として指定した場合は例外である。
プログラムの文字の照合順序で順序位置が最小のものが2つ以上ある場合は、最後に指定した方が表意定数のLOW-VALUEとなる。
浮動小数点数定数は、利用者が定義した文字の照合順序の中では使用できない。
特殊名段落の中で定数として指定した場合、表意定数のHIGH-VALUEとLOW-VALUEはそれぞれ、固有の文字の照合順序の中の順序位置が最大のものと最小のものとなる。
SYMBOLIC
CHARACTERS句は、表意定数のように使用できる利用者語を定義するために使用する。IN指定を指定しないと、記号文字-1は固有の文字集合の中で順序位置が整数-1によって指定される文字を表わす。IN指定を書くと、整数-1は符号系名-2によって指定される文字集合の中の文字の順序位置を表わす。
記号文字-1の内部表現は、固有の文字集合の中の該当する文字の内部表現となる。
CURRENCY
SIGN 句が PICTURE SYMBOL指定とともに使用されている場合は、定数-7が通貨記号として使用される。
CURRENCY SIGN 句がPICTURE SYMBOL指定を伴わずに使用されている場合は、 定数-6が通貨記号として使用される。
通貨記号が小文字である場合は、その大文字として処理される。この句を指定しないと、COBOLの文字集合に定義されている通貨記号だけが、PICTURE句の中で使用できる。 詳細については、COBOL言語の概念の章の文字集合節を参照。
NUMERIC
SIGN句を指定すると、符号付き数字項目の符号の位置を個々に指定しなかった場合、末尾に独立の符号が付けられる。
呼び名を使用できるところでは、代わりに機能名を使用できる。
| TAB
|
縦のタブ位置へ飛ぶ（必要に応じて出力レコード中にASCII X"0B"を挿入） | WRITE ADVANCING文 |
| PRINTER
|
プリンタ | DISPLAY文 |
| FORMFEED
|
改ページする（必要に応じて出力レコード中にASCII X"0C" を挿入） | WRITE ADVANCING文 |
| COMMAND-LINE
|
コマンド転送 | ACCEPTおよびDISPLAY文 |
| ARGUMENT-NUMBER
|
コマンド行の引数番号 | ACCEPTおよびDISPLAY文 |
| ARGUMENT-VALUE
|
コマンド行の引数値 | ACCEPT文 |
| ENVIRONMENT-NAME
|
環境変数名 | DISPLAY文 |
| ENVIRONMENT-VALUE
|
環境変数値 | ACCEPTおよびDISPLAY文 |
| SYSERR
|
標準エラー装置 | DISPLAY文 |
このCOBOLシステムに組み込まれている
OS/VS COBOL,VS COBOLIIおよびSAAにおいて使用できる機能名を下の表6-1に示す。
| OSVS | VSC2 Rel (2) | COBOL/370 またはVSC2 Rel (3)/(4) |
SAA L1 | |
|---|---|---|---|---|
| SYSIN | y | y | y | y |
| SYSIPT | U | U | y | |
| SYSOUT | y | y | y | y |
| SYSLIST | y | |||
| SYSLST | U | U | y | |
| SYSPCH | U | U | y | |
| SYSPUNCH | U | y | y | |
| CONSOLE | y | y | y | y |
| C01 | y | y | y | y |
| C02 | y | y | y | |
| C03 | y | y | y | |
| C04 | y | y | y | |
| C05 | y | y | y | |
| C06 | y | y | y | |
| C07 | y | y | y | |
| C08 | y | y | y | |
| C09 | y | y | y | |
| C10 | y | y | y | |
| C11 | y | y | y | |
| C12 | y | y | y | |
| S01 | y | y | y | |
| S02 | y | y | y | |
| S03 | U | y | ||
| S04 | U | y | ||
| S05 | U | y | ||
| CSP | y | y | y | y |
| 1 char rw literal | y | |||
| AFP-5A | y |
| y | メインフレームのコンパイラおよびCOBOLシステムに明記されており、受け付けられる。 |
| U | 明記されていないが、メインフレームのコンパイラに受け付けられる。 |
CLASS句は、指定した文字の組に名前を付ける働きをする。クラス名-1はクラス条件の中でだけ参照できる。クラス名-1には、この句に指定する定数の値によって表わされる文字の組だけが含まれる。各定数の値は下記の内容を表わす。
THROUGH指定を書くと、固有文字集合における定数-4から定数-5までのすべての文字がクラス名-1によって表わされる文字の組に含まれる。THROUGH指定に書く一連の文字は、固有文字集合の中で昇順であっても降順であってもよい。
CALL-CONVERSION句を使用すると、パラメータ受渡しに関して予め定義されているいくつかの方式の中から1つを選択できる。これによって、COBOL以外の言語で書かれ、パラメータ受渡し方式の異なる副プログラムを呼び出せる。
CONSOLE
IS CRT句を指定すると、ACCEPT文またはDISPLAY文のうち、作用対象が画面でなく特定の形式に固有の句を含まないものが、形式 5 として扱われるようになる。CONSOLE
IS CRT句を指定しないと、それらの文は標準のANSI ACCEPT文またはDISPLAY文として扱われる。
CURSOR
IS句は、ACCEPT文によって使用され、カーソルの番地を保持するデータ項目を指定する。
CRT
STATUS句は、形式 4 または形式 5 のACCEPT文が実行されるたびに、状態値が転記されるデータ項目を指定する。
特殊名段落にCRT
STATUS句を指定すると、形式 4 または形式 5 のACCEPT文が実行されるたびに（詳細については後述する）、その結果を示す値がデータ名-2に入れられる。データ名-2は状態キーから構成される。そのそれぞれに、ACCEPT文を実行した結果の状態が記録される。各状態キーの意味を以下に説明する。
状態キー1: データ名-1の最初のバイトは、CRT状態キー1である。このデータ記述には、PICTURE 9 USAGE DISPLAYと指定しておく。この状態キーはACCEPT操作の終了を引き起こした条件を表わす。このキーがとる具体的な値は下記のとおり。
| "0" | 終了キーまたは最後の項目の外に出る自動スキップを表わす |
| "1" | 利用者が定義したファンクション・キーを表わす |
| "2" | COBOLシステムで定義されているファンクション・キーを表わす |
| "9" | エラーが発生したことを表わす |
終了キーとは、ACCEPT操作を終わらせるためのキーである（たとえば、実行キー）。ACCEPTの最後の項目でフィールド・タブ・キーを押すと、終了キーとして働くように設定する構成オプションもある。ファンクション・キーを定義することも構成オプションである。
この状態値に"0" が返されて終了することを、正常終了という。
ACCEPT文の中にON EXCEPTION指定を書くと、CRT状態キーの値が" 0" 以外であった場合、指定した無条件命令が実行される。
CRT 状態キー2: データ名-1の2番目のバイトは、状態キー2である。ここには、ACCEPT操作を終了させた条件のさらに詳細を示すコードが記録される。状態キー2の形式と値はCRT状態キー1の値によって変わる。その具体的な値を下の表6-2に示す。
| キー 1 | キー 2 | 意味 | |
|---|---|---|---|
| 形式 | 値 | ||
| 0 | PIC 9 DISPLAY | 0 | 操作員が終了キーを押した |
| 0 | PIC 9 DISPLAY | 1 | 最後の項目の外に出る自動スキップ |
| 1 | PIC 99 COMP | 0-127 | ファンクション・キー番号 |
| 2 | PIC 99 COMP | 0-26 | ファンクション・キー番号 |
| 9 | PIC 99 COMP | 0 | 画面内に項目が何もない |
ファンクション・キー番号については、COBOLシステムのマニュアル中の画面処理およびユーザインターフェイスに関する記述を参照。
CRT 状態キー3: データ名-1の3番目のバイトは、状態キー3である。これはPICTURE 99 COMP-X または PICTURE 99 COMPとして定義する。 (NOIBMCOMP指令を指定して)。 CRT状態キー1とCRT状態キー2がともにゼロであるならば、ACCEPT操作を終わらせたキーそのままのキーボード・コードがCRT状態キー3に記録される。これ以外では、CRT状態キー3の内容はどうなるかわからない。
単一のキーではなく、いくつかのキーを連続して打つことによって1つの機能が実行されるように設定されている場合、最初に打たれたキーに対するコードだけが返される。
リポジトリ段落では、環境部の範囲内で使用できるクラス名、インターフェイス名、属性名、およびプログラムプロトタイプ名を指定できる。さらに、FUNCTIONという語を指定せずに使用できる組み込み関数名を宣言することもできる。
クラスであるクラス名-1はパラメータ化されたクラスであるクラス名-2から作成される。そのさい、仮パラメータの各仕様が対応する実パラメータで置き換えられる。その置換はCOPY文とREPLACE文の処理が終わった後で行われる。
インターフェイスinterface-名-2は、指定された各仮パラメータを対応する実パラメータに置き換えることにより、パラメータ化されたインターフェイスinterface-3から作成される。この置き換えは、COPYおよびREPLACE文の処理後に実行される。
入出力節では、外部媒体とランタイム要素との間での、データの転送と処理を制御するために必要な情報を取り扱う。
INPUT-OUTPUT SECTION. [ ファイル管理段落 ] [ 入出力管理段落 ]
入出力節はプログラム定義中に指定できる。クラス定義においては、入出力節を指定できる箇所は、ファクトリ定義、オブジェクト定義、メソッド定義の中だけである。インターフェイス定義中に入出力節を指定してはならない。
ファイル管理段落では、各ファイルに名前を付けるとともに、ファイルに関するその他の情報を指定する。
ファイル管理記述項では、ファイルに名前を付けるとともに、ファイルに関するその他の情報を指定する。
標準COBOL定義の一部を構成するにもかかわらず、X/OpenのCOBOL言語定義では、ASSIGN句中のRECORD
DELIMITER指定とRESERVE指定と反復記号は明示的に除外されている。したがって、X/OpenのCOBOLに準拠する原始プログラム内では、これらの指定および記号を使用するべきではない。.
データ名-1は、データ部の中で英数字データ項目または集団項目として宣言できる。この場合、そのファイルの外部名を保持できるだけの十分な長さをとる必要がある。
データ名-1を原始要素の中で明示的に宣言しないと、COBOLシステムが暗黙的に英数字データ項目として宣言する。その長さは、ファイル名の長さとして許される最大の長さがとられる。FROM指定の中にデータ名-1を書く場合は、データ部の中で明示的に宣言しておかなければならない。
NOT
OPTIONAL指定は、入出力両用モードでファイルを開く場合にだけ効力をもつ。
外部ファイル参照、データ名-1、定数-1はファイルの外部名を指定する。
EXTERNAL指定またはDYNAMIC指定を書く場合、定数-1を指定してはならないDYNAMIC指定を書く場合、外部ファイル名に指定した語は外部ファイル参照として解釈される。
または用途が表示用の2文字の数字データ項目
として定義しておく。データ部のファイル節または
局所記憶節
内では定義できない。
データ名-3は、作業場所節または連絡節の中で6バイトの集団項目として定義しておく。
データ名-4は、作業場所節の中で英数字データ項目として定義しておく。
定数-2は、1文字の文字定数とする。
データ名-5は修飾してもよい。これはデータ部の中で、1文字の英数字データ項目として定義しておく。通信節またはファイル節または報告書節の中では定義できない。
文字列は、予約語または利用者名または定数であってはならない。
KEYBOARDは、操作卓入力を意味する。
DISPLAYは、操作卓出力を意味する。
PRINTERはシステムの主たる印刷装置を指す。
PRINTER-1はシステムの2番目の印刷装置を指す。
分割キー名は、該当するファイル名のレコード内のいくつかのデータ項目をつなげたものである。これはSTART文またはREAD文の中でだけ使用できる。
および分割キー名-1と分割キー名-2によって参照されるデータ名
は、該当するファイルのレコード記述項の中で定義しておく。
これらのデータ項目は、どの項類のデータとして定義してもよい。しかし、SELECT句内で指定したファイル
> に対する入出力文に関しては、キーは必ず英数字項目として扱われる。
および分割キー名-1と分割キー名-2によって参照されるデータ名
に可変長項目を指定することはできない。詳細は、データ部 - ファイルおよびデータ記述の章のOCCURS(反復)句節を参照。
および分離キー名-1 および分離キー名-2が参照するデータ名すべて
PASSWORD句を指定する場合、対応するRECORDKEY句またはALTERNATE
RECORD KEY句の直後に書く。 1つのASSIGN句内にファイル割当てをいくつか記述した場合、最初のもの以外は注記になる。
使用しているオペレーティングシステムに付随するマニュアルに別途指定されていないかぎり、RESERVE句は注記になる。
データ名-3は、指定しても注記になる。
PASSWORD句は注記になる。
ASSIGN句内の予約語DYNAMICは、定数-1またはデータ名-1の値が外部ファイル記憶環境におけるファイル名であることを示す。
ASSIGN句内の予約語EXTERNALは、指定したファイルが外部環境においては外部ファイル参照によって識別されることを示す。それを通じて、指定したファイルがさらに外部ファイル記憶環境名に対応付けられることもある。(ある操作環境での外部ファイル名の設定については、ファイル処理に関するCOBOLのマニュアルを参照。)
外部ファイル参照中に文字"-" が含まれていると、最後の"-"
の後ろに続く部分の名前だけが、外部環境においてファイルを識別するために使用される。
外部ファイル参照かデータ名-1か定数-1を指定せずにDISKを指定するか、FROMを指定せずにDISKを指定するかすると、そのファイルはディスク・ファイルでその名前はファイル記述中のVALUE
OF FILE-ID に指定されることを表わす。このファイル記述中にVALUE OF FILE-ID句が含まれていない場合は、そのディスク・ファイルの名前は、ファイル名-1
(「内部ファイル名」) と同じであると想定される。
必要語DISK,
KEYBOARD, DISPLAY, PRINTER, PRINTER-1のどれかの後ろに外部ファイル参照かデータ名-1か定数-1が続く場合、その必要語は無視される。
DISK
FROMを指定すると、そのファイルはディスク・ファイルでありディスク上のファイル名はデータ名-1の値であることを表わす。しかし、そのファイルに対してOPEN文を実行すると、データ名-1はすべて空白とされて、そのディスク・ファイルの名前はファイル名-1（「内部ファイル名」）と同じであると想定される。
SHARING句では、ファイルに適用する共有モードを指定する。ただし、この句はOPEN文のSHARING句によって上書きされることがある。この句ではまた、レコード・ロックが有効であるか否かを指定する。詳しくは、翻訳集団の概念の章の共有モード
節で指定する。LOCK
MODE句は該当するファイルに適用するロック方式を指定するものであり、書いても書かなくてもよい。
この句を省略した場合、ファイルを開くと、そのファイルは排他モードにおかれる。ただし、入力モードで開いた場合を除く。
LOCK
MODE IS EXCLUSIVEを指定すると、ファイルを開いた実行単位はそのファイル全体の鍵を取得する。
LOCK
MODE IS AUTOMATICまたはLOCK MODE IS MANUALを指定すると、開いたファイルは実行単位の間で共有される。ただし、出力モードで開いたファイルおよび拡張モードで開いた索引ファイルと相対ファイルは、常に排他モードにおかれる。
ROLLBACK句を指定すると、更新取消し機能を備えたCOBOLシステムではトランザクションのロギングが行われる。システムでの実現方法については、ファイル処理に関するCOBOLのマニュアルを参照。
ROLLBACK句を指定すると、WITH
LOCK ON MULTIPLE RECORDSが自動的に発効される。
WITH
LOCK ON RECORD句は、ファイル中の1レコードだけをロックすることを指定する。
WITH
LOCK ON MULTIPLE RECORDS句は、ファイル中の複数のレコードをロックすることを指定する。複数のレコードをロックする必要があるときは、この句を指定しなければならない。
LOCK
MODE IS AUTOMATIC WITH LOCK ON RECORDを指定すると、該当するファイルを対象にしたREAD文を実行したときに、該当する1レコードがロックされる。その後でそのファイルに入出力操作を行うと、そのレコードはロックを解除される。ただし、START文は例外である。
LOCK
MODE IS AUTOMATIC WITH LOCK ON MULTIPLE RECORDを指定すると、該当するファイルを対象にしたREAD文を実行したときに、該当する1レコードがロックされる。いったんロックされたレコードは、CLOSE,
COMMIT, ROLLBACK, UNLOCKのどれかの文を実行するまで、または個々のロックがDELETE文で削除されるまで解除されない。
LOCK
MODE IS MANUAL WITH LOCK ON RECORDを指定すると、該当するファイルを対象にしたWITH LOCK指定を伴うREAD文を実行したときにだけ、該当する1レコードがロックされる。その後で、そのファイルに入出力操作を行うと、そのレコードはロックを解除される。ただし、START文は例外である。
LOCK
MODE IS MANUAL WITH LOCK ON MULTIPLE RECORDSを指定すると、該当するファイルを対象にしたREAD WITH
KEPT LOCK文を実行したときに、該当する1レコードがロックされる。いったんロックされたレコードは、CLOSE, COMMIT, ROLLBACK,
UNLOCKのいずれかの文を実行するまで解除されない。
ロックモードにMANUALまたはAUTOMATICを指定しWITH
LOCK ON MULTIPLE RECORDSを指定しないと、単一レコードをロックするものと想定される。
EXTERNALと定義したファイルに対して、ASSIGN指令または必要語を用いてSELECT/ASSIGN文中でデータ名-1をファイル名に割り当てるか、あるいはファイル記述項のVALUE
OF句の形式 2 を用いてファイル名を割り当てる場合、下記の規則に従う。
この規則に反していても、コンパイル時にはそのことは検出されない。しかし、実行単位中のランタイム要素
が実行時にこの規則から外れると、結果は保証されない。
レコード・ロックについての詳細は、ファイル処理に関するCOBOLのマニュアルを参照。
LINE ADVANCING FILEを指定すると、印刷装置に適したファイルが作成される。このファイルの冒頭には、復帰文字が置かれる。各レコードを書き出す際の改行指定には、省略時解釈としてAFTER
ADVANCING 1 LINEが設定される。形式についての詳細は、ファイル処理に関するCOBOLのマニュアルを参照。
PADDING
CHARACTER句は注記になる。
関連するファイル結合子（file
connector）が外部ファイル結合子である場合、そのファイル結合子に関連する実行単位中のPADDING CHARACTER句の指定内容は、すべて同じにする。データ名-5が外部のものである場合、外部データ項目を参照する。
RECORD
DELIMITER句は注記になる。
明示的にまたは暗黙的にLINE
SEQUENTIAL ORGANIZATION を指定すると、ファイルは固定長のレコードから構成され、その各レコードに1行分のデータが記録されるものとされる。このレコードが格納される際には、後行の空白は削除される。1行の定義はオペレーティングシステムによって異なる。復帰および改行のどちらか一方または両方によって1行の末尾を区切るものもあれば、固定長のレコードとして余白に充てん文字を詰めるものもある。どちらにしても、使用しているCOBOLシステムは、そのオペレーティングシステムのエディタ・ソフトウェアと互換性のあるファイルを必ず作成する。
LOCK
MODE IS句は注記になる。
および分割キー名-1 に参照されるどのデータ名
および分割キー名-1 に参照されるデータ名のどれか
関連するファイル結合子が拡張ファイル結合子である場合、そのファイル結合子に対応する実行単位中のすべてのファイル記述項は、対応するレコード中で、同じ相対的な位置にあるデータ名-1に対して、同じデータ記述項を記述する。
または分割キー名-1
およびデータ名-8
または分割キー名-2
のデータ記述ならびにレコード内でのそれらの相対位置は、ファイルが作成されたときと同じにする。また、副レコードキーの数も、ファイルが作成されたときと同じにする。このチェックは環境によっては構成可能である。("ファイル処理のためのプログラマガイド"の"呼出し可能ファイルハンドラ"に記述されている、呼出し可能ファイルハンドラ構成ファイル中のKEYCHECK属性を参照。)
SUPPRESS句では、副指標（alternate
index）にスパースキー（sparse key）を使用することを要求する。スパースキーは呼出し可能ファイル・ハンドラ（Callable File
Handler）を通じてのみ利用可能であり、すべてのシステムで利用できるとはかぎらない（ファイル・ハンドラの詳細については、COBOLシステムのマニュアルを参照）。
分割キー名-1は、データ名-6および、発生するデータ名-7すべての、指定された順での連結から成るレコードキーを定義する。分割キー名-2は、データ名-9および、発生するデータ名-10すべての、指定された順での連結から成るレコードキーを定義する。
SORT STATUS句を指定すると、各整列処理の実行が終わった時点で、データ名-2によって指定される2文字のデータ項目に値が設定される。この値は整列処理の終了結果を示す。以下の状態キーの組み合わせが可能である。状態キー1=0で状態キー2=0であれば、正常終了を表わす。状態キー1=3で状態キー2=0であれば、パラメータ誤りを表わす。状態キー1=9であれば、状態キー2にオペレーティングシステムのエラーメッセージ番号が入れられている。状態キー
1 および 2、および状態の定義について詳しくは、手続き部の章の入出力状態節を参照。SORT
STATUS句の代わりにFILE STATUS句を使用できる。しかし、整列ファイルまたは併合ファイルに指定したFILE
STATUS句は、SORT STATUSの同義語として扱われる。
入出力管理段落では、再開点、ファイル間で共有する記憶領域、複数ファイル・リール中の順編成ファイルの位置を指定する。
入出力管理段落のRERUN句およびMULTIPLE
FILE TAPE句は、ANSI '85標準では廃要素に分類されており、ANSI標準の次回の全面改訂の際に、削除される予定である。
この構文は、このCOBOLシステムに組み込まれているすべての方言で全面的に使用できる。FLAGSTD指令を使用すると、この構文が使われているすべての箇所を見つけ出すことができる。
標準COBOL定義の一部を構成するにもかかわらず、X/OpenのCOBOL言語定義では、RERUN句およびMULTIPLE
FILE TAPE句は明示的に除外されている。したがって、X/OpenのCOBOLに準拠する原始プログラム内ではこれらの句を使用するべきではない。
1つの原始要素中に複数のSAME句を指定してもよい。しかし、下記の制約がある。
文字列は、予約語または定数または利用者名であってはならない。
入出力管理段落中の各句は、後ろに終止符（.）を置いてもよい。 RERUN句は注記になる。
APPLY句は注記になる。
MULTIPLE
FILE句は注記になる。
Copyright © 2002 Micro Focus
International Limited. All rights reserved.
本書、ならびに使用されている商標および商品名は国際法によって保護されています。
|
見出し部 | データ部 | |