手続き部

USING句は、プログラムの呼び出し時に、呼び出されたプログラムがパラメータを受け取るために指定します。

USINGを介してデータを受け取るためには、プログラムのLINKAGEセクションに、受け取るデータの項目をレベル01またはレベル77の項目として記述します。一方、CALLを使用してサブ・プログラムにデータを転送するためには、呼び出したプログラムのデータ部に転送するパラメータのデータ項目を記述する必要があります。

USINGを介して非COBOLプログラムとCOBOLプログラムの間でデータを送受信することができます。

呼び出すプログラムが渡したパラメータと、呼び出されるプログラムが受け取ったパラメータとの対応関係は、指定したパラメータの名前ではなく位置によって決定されます。呼び出すプログラムと呼び出されるプログラムにおいて、対応される識別子はデータ記述と同じである必要はありませんが、バイト数は一致する必要があります。

パラメータの転送方法には、BY REFERENCE（参照による）方法とBY VALUE（値による）方法があります。パラメータの転送方法についての詳細は、CALLを参照してください。

RETURNING句は、呼び出したプログラムに値を渡すために指定します。

data-name2は、プログラムのLINKAGEセクションにレベル01からレベル77の項目として記述されている必要があります。

RETURNINGデータ項目は、出力専用のデータ項目です。プログラムの初期状態では、このデータ項目の値を予想することができません。そのため、同データ項目を参照する前に必ず初期化してください。RETURNING句についての詳細は、CALLを参照してください。

データが転送される領域です。

以下のデータ項目になることができます。

以下のデータ項目になることができます。

以下のいずれかのカテゴリに属する基本データ項目です。

形式1では、すべて基本数字項目である必要があります。

形式2では、GIVINGの後に記述した識別子を除き、すべて基本数字項目である必要があります。GIVINGの後に記述した識別子は、基本数字項目または、数字編集項目でなければなりません。

形式3では、英数字グループ項目である必要があります。

すべて数字リテラルである必要があります。

ROUNDED句については、ROUNDED句を参照してください。

SIZE ERROR句については、SIZE ERROR句を参照してください。

CORRESPONDING句については、CORRESPONDING句を参照してください。

END-ADD句は、ADDステートメントの範囲を明示的に示すときに使用します。END-ADD句は、別の条件ステートメントにADDステートメントが含まれたときに使用できます。

identifier-1は、プログラム名を指定できるように英数字、英数または数字で宣言されている必要があります。

identifier-1は、ウィンドウ日付フィールドになれません。literal-1の場合は英数字リテラルでなければなりません。

USAGE TYPEは、DISPLAY形式である必要があります。

呼び出されるプログラムを手続き部の最初から実行する場合は、literal-1またはidentifier-1のデータ値には、呼び出されるプログラムの識別部門に定義したプログラム名を指定しなければなりません。

有効なプログラム・エントリー・ポイントを有するデータ項目である必要があります。

USING句は、呼び出されるプログラムに渡される引数を指定します。呼び出されるプログラムの手続き部またはENTRYステートメントの引数の数と、USING句の引数の数は同じである必要があり、引数の順序どおり渡されます。USING句で宣言された引数の値は、呼び出されるプログラムの実行中にのみ有効です。

BY CONTENT句、BY REFERENCE句、BY VALUE句は、別のBY CONTENT句、BY REFERENCE句、BY VALUE句が現れるまでのみ適用されます。BY CONTENT句、BY VALUE句が存在しない場合は、デフォルトとしてBY REFENCE句が想定されます。

BY REFERENCE句は、呼び出し側プログラムからデータ項目のコピーではなく、データ項目のアドレスの値を引数として渡します。したがって、呼び出されるプログラムから呼び出し側プログラムへ渡した引数の値を変更すると、呼び出されるプログラムの終了後にも変更された状態で残ることになります。

以下の項目を設定します。

BY CONTENT句は、呼び出し側プログラムから呼び出されるプログラムへ引数を渡すとき、一時ストレージにコピーしてから値を渡します。したがって、呼び出されるプログラムで引数を変更しても、呼び出し側プログラムのデータは変更されません。

以下の項目を設定します。

BY VALUE句は、呼び出し側プログラムから呼び出されるプログラムにデータの値自体を引数として渡します。したがって、呼び出されるプログラムで引数を変更しても、呼び出し側プログラムのデータは変更されません。

BY VALUE句は、COBOLプログラムと非COBOLプログラム（C言語など）とのインターフェースのために適用されましたが、COBOLプログラムとCOBOLプログラムの間にも使用することができます。

以下の項目を設定します。

以下の項目を設定します。

呼び出されるプログラムをCOBOLまたはCプログラムで作成した場合、CALLステートメントのRETURNING句を指定することができます。COBOLで作成されたサブプログラムを呼び出すCALLステートメントでRETURNING句を指定するときは、以下の内容に注意しなければなりません。

呼び出されるプログラムの実行中に例外が発生する場合、以下のいずれかに処理されます。

呼び出されるプログラムが正常に実行されると、プログラムの制御はimperative-statement-2に移されます。

ON OVERFLOW句は、ON EXCEPTION句と同じ処理を実行します。

END-CALL句は、明示的にCALLステートメントが終了されたことを指定します。

literal-1とidentifier-1は、プログラム名を指定できる必要があります。

literal-1は英数字リテラルである必要があり、identifier-1は英数字、英字、またはゾーン10進数のデータ項目でなければなりません。

OPENステートメントに使用したファイル名を指定します。複数のファイルを指定する場合、各ファイルの編成またはアクセス・モードが同じである必要はありません。

ソート・ファイルまたはマージ・ファイルを使用することはできません。

ファイルが保存される記憶装置の属性を指定します。

テープ・ファイルにのみ適用されます。これらが適用できない記憶装置に指定されている場合、CLOSEステートメントが正常に実行され、ファイルがテープ・ファイルではなかったことを示す値が保存されます。

identifier-1は、基本数字項目、基本数字編集項目、または基本浮動小数点項目を指定する必要があります。

加算、減算、乗算、除算などを組み合わせた算術式を指定することができます。

COMPUTEステートメントが実行されると、算術式の値が計算された後、その結果がidentifier-1に指定されたデータ項目に保存されます。

算術式が1つの識別子、数字関数、リテラルでのみ構成されている場合、identifer-1により参照されるデータ項目の値を、その識別子、数字関数、リテラルの値と同じくすることができます。

ROUNDED句については、ROUNDED句を参照してください。

SIZE ERROR句については、SIZE ERROR句を参照してください。

END-COMPUTE句は、COMPUTEステートメントの範囲を明示的に表すために指定します。

DELETEステートメントを実行する前にREADステートメントが正常に実行されている必要があります。DELETEステートメントが実行されると、システムは直前にREADステートメントで読み込んだレコードを削除します。

順次アクセス・モードのファイルに対し、INVALID KEY句、NOT INVALID KEY句を使用することはできません。

ランダムまたは動的アクセス・モードにおけるDELETEステートメントの実行結果は、ファイル編成（指標ファイルまたは相対ファイル）によって異なります。

DELETEステートメントが実行されたとき、システムは指標ファイルの基本RECORD KEYデータ項目または相対ファイルのRELATIVE KEYデータ項目によってレコードを削除します。

ファイルに該当するレコードが含まれていない場合は、無効キー条件が発生します。

identifier-1は、出力装置に表示されるデータを参照します。

identifier-1は、USAGE INDEX、PROCEDURE-POINTER、FUNCTION-POINTER以外のすべてのデータ項目を参照することができます。identifier-1が2進数、内部10進数、または内部浮動小数点の場合、identifier-1は自動的に以下の外部形式に変更されます。

USAGE POINTERで定義されたデータ項目は、PIC 9(10)を持つゾーン10進数に変換されます。他のカテゴリは変換が不要です。DBCSと非DBCSのオペランドを1つのDISPLAYステートメントで使用することができます。

いかなるリテラルまたは表意定数にすることができます。表意定数が使用される場合、長さ1の分だけ表示されます。

environment-name-1またはmnemonic-name-1は、出力装置に関連付ける必要があります。environment-name-1またはmnemonic-name-1の詳細については、SPECIAL-NAMES段落を参照してください。

UPON句が省略されると、システム出力装置（stdoutなど）が想定されます。

WITH NO ADVANCING句が記述されると、DISPLAYステートメントによりオペランドの内容が出力装置に転送された後、出力装置の文字位置は、次の行の左端に移動せず、最後のオペランドにそのまま残ることになります。

identifier-1とidentifier-2は、基本データ項目である必要があります。

identifier-3とidentifier-4は、基本数字項目または数字編集項目である必要があります。

literal-1とliteral-2は、数字リテラルである必要があります。

形式1、2、3は、ステートメント操作のROUNDED句を参照してください。

形式4と5では、剰余を計算するために使われた商が中間値に保存され、この値は、丸めではなく切捨てが行われます。

identifier-4には、商と除数を乗算した値を被除数から減算した結果が保存されます。identifier-3が数字編集項目の場合は、剰余を計算するために編集されていない中間値が商として使用されます。

オペランドまたは保存値として浮動小数点を使用すると、REMAINDER句は使用できません。

形式1、2、3については、ステートメント操作のSIZE ERROR句を参照してください。

形式4、5の場合、商にサイズ・エラーが発生すると、剰余の計算は意味がありません。したがって、商を保存するidentifier-3と剰余を保存するidentifier-4には以前の値がそのまま維持されます。

剰余にサイズ・エラーが発生した場合、剰余を保存するidentifier-4には以前の値がそのまま維持されます。

END-DIVIDE句は明示的にDIVIDE句の範囲を指定するために使用されます。

CALLステートメントにより呼び出されるエントリー名として英数字リテラルを指定する必要があり、プログラム名の規則に従います。

エントリー名は、プログラム内で一意である必要があり、表意定数を指定することはできません。

プログラムの別のエントリー名と重複されてはなりません。

USING句については、CALLを参照してください。

これらのオペランドを選択サブジェクトといいます。

これらのオペランド全体を選択オブジェクトのセットといいます。

これらのオペランドを選択オブジェクトといいます。

WHEN句に含まれているオペランド全体を選択オブジェクトのセットといいます。

選択サブジェクトまたは選択オブジェクトを、それぞれのセット内で分離します。

範囲を持つ値を指定するときに使用します。

満たされるWHEN句があれば、その句に記述されたimperative-statement-1が実行されます。

満たされるWHEN句はないが、WHEN OTHER句を指定してある場合は、imperative-statement-2が実行されます。WHEN OTHER句が指定されていない場合は、EVALUATEステートメントの次のステートメントが実行されます。

手続き部の構造の条件式で説明する条件式です。

条件に応じて実行されるステートメントを記述します。条件が真であれば、THEN句のstatement-1に記述されたステートメントが実行されます。一方、条件が偽の場合は、ELSE句のstatement-2に記述されたステートメントが実行されるか、NEXT SENTENCEによって処理されます。

IFステートメントを使用することにより、ネストされたIFステートメントの使用が可能になります。ネストされたIFステートメントでは、IF、ELSE、END-IFを利用してマッチされるIFステートメントを確認します。END-IFは最も近い位置にあるIFステートメントとマッチされます。

ピリオドの後にある文を実行します。

END-IFと共に記述されても、END-IFの次のステートメントが実行されるのではなく、最も近いピリオドの後のステートメントが実行されます。

IFステートメントの終了を示します。

RENAMES節を持つことはできません。

値が設定される受け取り領域として、以下のような項目が指定できます。

MOVEステートメントまたはSETステートメントで送り出し領域に指定可能な基本データ項目またはリテラルを指定することができます。

REPLACING句に指定したデータ・カテゴリとidentifier-1のカテゴリが一致する場合、identifier-2またはliteral-1の値がidentifier-1に設定されます。

浮動小数点項目の場合、NUMERICカテゴリとして扱われます。

REPLACING句に同じカテゴリを重複して指定してはなりません。

英数字グループ項目または基本データ項目であり、かつUSAGE DISPLAY、DISPLAY-1である項目、または英数字タイプの特殊レジスターを指定できます。

使用方法が同じであれば、データのカテゴリは特に問題にはなりません。

基本データ項目であり、USAGE DISPLAY、DISPLAY-1の項目が指定できます。

英数字、DBCSカテゴリでなければなりません。それぞれのリテラルは、identifier-1とカテゴリが同じである必要があります。

identifier-1がUSAGE DISPLAYの場合、ALLで始まらない別の表意定数にすることができます。

TALLYING句は、指定した文字のオカレンスを数えます。

identifier-2はカウント・フィールドであり、PICTURE文字列にPを使用しない基本整数項目である必要があります。identifier-3、literal-1は集計フィールドです。

REPLACING句は、データ項目の特定の文字を置き換えます。

identifier-3とliteral-1は、置換できるサブジェクト項目です。identifier-5とliteral-3は、サブジェクトを置き換えする置換項目です。サブジェクトと置換項目は同じ長さである必要があります。

identifier-4とliteral-2は区切り文字です。区切り文字はカウントに含まれず、置き換えも行われません。

INITIALは、指定された項目の最初のオカレンスです。

すべてのデータ項目の文字を、指定された置換文字に変換します。

identifier-6とliteral-4は、変換される文字列を指定します。identifier-7とliteral-5は、変換する文字列を指定します。置換される文字列と置換する文字列の長さは同じである必要があります。

identifier-1とliteral-1は、送り出し領域です。

identifier-2は、受け取り領域であり、組み込み関数は指定できません。

受け取りフィールド（identifier-2）の長さ、添え字付け、参照変更は、データがその受け取りフィールドに移動する直前に評価されます。

データ変換は起きません。

位置合わせ規則に従って、データの位置合わせが行われ、空白で埋め込みまたは切り捨てが発生します。

送り出し項目と受け取り項目の長さが異なる場合、JUSTIFIED句の記述に従って受け取り項目に切り捨てが行われます。基本的に右端の文字が切り捨てられます。詳細については、JUSTIFIED節を参照してください。

位置合わせ規則に従って、データの位置合わせが行われ、空白で埋め込みまたは切り捨てが発生します。

送り出し項目が受け取り項目の長さより大きい場合は、送り出し項目の右端から超えた分の文字が切り捨てられます。

最初の送り出し項目が符号を持つ場合は、符号なしの値を使用します。符号が別の記憶領域を占めている場合、符号文字は移動されず、送り出し項目の長さは、符号が占有している長さを引いたサイズになります。

データ変換は起こりません。

送り出し項目と受け取り項目の長さが異なる場合、送り出し項目は右端から切り捨てられるか、DBCS空白で埋められます。

送り出し項目が浮動小数点の場合、その値は受け取り項目に指定された使用方法に従って変換および移動されます。

送り出し項目が浮動小数点ではない場合、数値が内部浮動小数点に変換され、受け取り項目の使用方法に従って変換および移動されます。

送り出し項目が内部浮動小数点ではない場合、送り出し項目の数値を内部浮動小数点形式に変換して移動します。

位置合わせ規則に従って、小数点位置合わせまたは、ゼロによる埋め込みが行われます。

受け取り項目に記号が付いている場合、送り出し項目の記号は受け取り項目の記号位置に入れられます。送り出し項目が符号なしである場合は、正の符号（+）が生成され、受け取り項目の符号位置に入られます。

送り出し項目が英数字、英数字編集の場合、送り出し項目が符号なし整数データとして移動されます。

送り出し項目が浮動小数点の場合、受け取り項目のPICTURE句に合わせて固定小数点形式に変換されてから移動されます。

受け取り項目が数字編集項目の場合、PICTURE句に指定された形式に従って、送り出し項目の編集が行われます。

送り出し項目が数字編集項目の場合、編集記号を除いた数字リテラルの値だけを受け取り項目に移動します。受け取り項目も数字編集の場合は、受け取り項目のPICTURE句に指定された編集記号に合わせてデータが移動されます。

受け取り項目のカテゴリが英数字、英数字編集、数字編集であり、送り出し項目が数字の場合、送り出し項目のPICTURE句に指定されたP位置には、ゼロが指定されているとみなされます。

有効な基本データ項目

文字列または数字リテラル

表意定数

有効な基本データ項目

英数字グループ項目

入力ファイルとしてオープンします。

出力ファイルとしてオープンします。

新規作成されるファイルを使用することができます。レコードが含まれているファイルを使用すると、ファイルをオープンする際に既存のレコードは削除されます。

入出力ファイルとしてオープンします。

ファイルを既存のレコードに追加するか、または新規作成する際に使用される出力ファイルをオープンします。

ファイルが存在する場合は、既存のレコードの次に追加し、存在しない場合は新規作成します。

オープンされるファイル名を記述します。

FD項目に記述されている必要があります。

テープ・ファイルにのみ適用されます。

procedure-name-1とprocedure-name-2のいずれも手続き部内で使用するプロシージャ名である必要があります。

procedure-name1と2の両方が’使用される場合、それのいずれかが宣言型プロシージャ内に定義されたプロシージャであれば、もう1つのプロシージャも宣言型プロシージャ内に定義されていなければなりません。

procedure-name-1が使用された場合、imperative-statement-1とEND-PERFORMを指定することができません。

procedure-name-1を省略した場合、imperative-statement-1とEND-PERFORMを必ず指定します。

PERFORMによって実行されるステートメントです。

整数項目を指定する必要があります。

identifier-1が正数ではなく、0または負数の場合、PERFORMステートメントは実行されず、PERFORMステートメントの次のステートメントが実行されます。

PERFORMステートメントが実行された後は、identifier-1を変更してもプロシージャの実行回数は変更されません。

正の整数である必要があります。

OFCOBOLで共通して使用できる条件です。

ステートメントの条件が真であれば、PERFORMステートメントは実行されません。

数字データ項目である必要があります。

浮動小数点データ項目も指定可能です。

数字リテラルである必要があります。

浮動小数点データ項目も指定可能です。

OFCOBOL内で共通して使用できる条件です。

ステートメントの条件が真であれば、PERFORMステートメントは実行されません。

identifier-2またはidentifier-5に添え字が付いている場合、データ項目が設定されるか、変更されるたびに値を評価します。

identifier-3、identifier-4、identifier-6、identifier-7に添え字が付いている場合にも、各データの値を設定または変更するたびに値を評価します。

以下は、TEST BEFORE句を使用したPERFORMステートメントのフローチャートです。

TEST BEFORE句を使用したPERFORMステートメントのフローチャート

以下は、TEST AFTER句を使用したPERFORMステートメントのフローチャートです。

TEST AFTER句を使用したPERFORMステートメントのフローチャート

以下のようなPERFORMステートメントがあると想定した場合、OFCOBOLでは、以下の順でPERFORMステートメントをチェックします。

以下は、TEST BEFORE句を使用したPERFORMステートメントのフローチャートです。

TEST BEFORE句を使用したPERFORMステートメントのフローチャート

以下は、TEST AFTER句を使用したPERFORMステートメントのフローチャートです。

TEST AFTER句を使用したPERFORMステートメントのフローチャート

3つの識別子を使用するPERFORMステートメントでの処理は、2つの識別子を使用するPERFORMステートメントでの処理と同様に動作します。ただし、IDENTIFIER-5がIDENTIFIER-7の分だけ増えるたびに、IDENTIFIER-8にIDENTIFIER-10を加算した後、CONDITION-3をチェックする手順が追加されます。

PERFORMステートメントが終了すると、IDENTIFIER-5とIDENTIFIER-8は、終了時点のIDENTIFIER-6とIDENTIFIER-9の現行値を持つことになります。IDENTIFIER-2は、最後に増分または減分された値を持ちます。

3つ以上の場合は、前述の例にAFTER句が追加された処理となります。

指標名に対する初期化の値を増加または減少させるときは、OFCOBOLの指標名の規則に従います。

FROM句では、識別子またはリテラルが正の整数である必要があります。

BY句の識別子は整数である必要があり、リテラルは0以外の整数でなければなりません。

VARYING句またはAFTER句の識別子は必ず整数で指定します。識別子は内部的にSETステートメントを介して初期化されます。

BY句での識別子は正の整数である必要があり、リテラルは0以外の整数でなければなりません。

データ部のFD項目に記述されている必要があります。

次のレコードを読み込みます。

順次アクセス・モードの場合、NEXTの存在有無に関係なく、READステートメントの実行には影響を与えません。

動的アクセス・モードの場合、レコードを順次に読み込むためには、NEXT RECORD句を記述する必要があります。

レコードを読み込んで受け取るフィールドを指定します。

identifier-1は、MOVEステートメントの規則に従って、レコード名1が送り出し項目として指定された有効な受け取り項目である必要があります。

identifier-1とfile-name-1は、同じ記憶領域を参照してはなりません。

INTO句を指定したREADステートメントの実行結果は、以下の2つのステートメントを実行した結果と同じです。

READ file-name-1.
MOVE record-name-1 TO identifier-1.

指標ファイルにのみ使用できます。

data-name-1は、file-name-1と関連したファイルのレコード・キーを指定する必要があります。data-name-1を修飾することができますが、添え字付けはできません。

順次アクセスの場合、AT END句とEXCEPTION/ERRORプロシージャを両方とも省略できます。

INVALID KEY句とEXCEPTION/ERRORプロシージャを両方とも省略できます。

明示的にREADステートメントの終了を示します。

論理的なシーケンスにより、次の位置にあるレコードを読み込みます。

NEXT RECORD句を記述する必要はありません。

AT END条件

キー順に従って次のレコードを読み込みます。NEXT RECORD句を記述する必要があります。

READステートメントを実行する前に、OPEN、STARTまたはREADステートメントが正常に実行され、ファイル位置指示子が設定されている必要があります。

ファイルが順次アクセス・モードの場合、NEXT RECORD句を記述する必要はありません。

ファイルが動的アクセス・モードの場合、レコードを順次に読み込むためにNEXT RECORD句を記述する必要があります。

アクセスする次のレコードが存在しないと、AT END条件が起こります。

相対ファイルに対してRELATIVE KEY節が指定されている場合、READステートメントが実行されると、読み込んだレコードの相対キーを示すために、RELATIVE KEYデータ項目を更新します。

形式2 READステートメントが実行されると、指定されたキーに対応するレコードを見つけて読み込みます。ファイル位置指示子は、このレコードを指定します。

指定されたキーに対応するレコードが存在しないと、INVALID KEY条件が起こり、READステートメントの実行は失敗します。

KEY句が記述されていないと、基本RECORD KEYがREADステートメントの実行でキーとして使用されます。KEY句が記述されていると、data-name-1がREADステートメントの実行でキーとして使用されます。

形式2 READステートメントが実行されると、RELATIVE KEYデータ項目に含まれている相対レコード番号を持つレコードを読み込み、ファイル位置指示子はこのレコードを指定します。

ファイルに該当するレコードが存在しなければ、INVALID KEY条件が起こり、READステートメントの実行は失敗します。

相対ファイルに対してKEY句が記述されてはなりません。

データ部のSD項目に記述されているレコード名を使用する必要があります。

record-name-1は修飾することができます。

RELEASEステートメントが実行されると、record-name-1の現在の内容は、ソート処理フェーズに移動されます。

identifier-1は、以下のいずれかを参照しなければなりません。

identifier-1は、MOVEステートメントの規則に従って、レコード名1が受け取り項目として指定された有効な送り出し項目である必要があります。

identifier-1とrecord-name-1は、同じ記憶領域を参照してはなりません。

RELEASEステートメントの実行後にも、identifier-1の情報は依然として有効です。

データ部のSD項目に記述されている必要があります。

1つ以上のレコードが記述されていると、それらのレコードは記憶領域を共有します。RETURNステートメントが実行された後は、現行レコードのみが使用可能です。

転送されたレコードをidentifier-1に移動します。

RETURNステートメントにより、file-name-1のすべてのレコードが処理されてからAT END条件が起こり、imperative-statement-1が実行されます。

RETURNステートメントが実行される間、AT END条件が発生しなければ、NOT AT END句で指定されたimperative-statement-2を実行します。

RETURNステートメントの終了を記述します。

データ部のFD項目に記述されているレコード名を使用する必要があります。

record-name-1は修飾することができます。

FROM identifier-1句を使用したRELEASEステートメントの実行結果は、以下の順で記述されたステートメントの実行結果と同じです。

MOVE identifier-1 TO record-name-1.
REWRITE record-name-1

identifier-1は、以下のいずれかを参照する必要があります。

identifier-1は、MOVEステートメントの規則に従って、レコード名1が受け取り項目として指定された有効な送り出し項目である必要があります。

identifier-1とrecord-name-1は、同じ記憶領域を参照してはなりません。REWRITEステートメントが実行された後も、identifier-1の情報は依然として有効です。

INVALID KEY条件は、以下の場合に起こります。

REWRITEステートメントの終了を示します。

順次ファイルに対して、REWRITEステートメントが実行する前に最後に実行された入出力ステートメントは、正常なREADステートメントである必要があります。REWRITEステートメントが実行されると、READステートメントによって読み込まれたレコードが置き換えられます。

INVALID KEY句を記述することはできません。EXCEPTION/ERRORプロシージャは記述することができます。

順次アクセス・モードの場合、基本RECORD KEYの値に対応するレコードが置き換えられます。REWRITEステートメントが実行されるとき、この値は、常に最後に読み込まれたレコードの基本RECORD KEYの値と一致する必要があります。つまり、順次アクセス・モードでは最後に読み込んだレコードに対してのみ更新することができます。この際、基本RECORD KEYに該当する部分は変更できず、残りのデータ部分を変更してからレコードを更新することができます。

INVALID KEY句とEXCEPTION/ERRORプロシージャは省略可能です。

アクセス・モードがランダムまたは動的の場合、基本RECORD KEYの値に該当するレコードが更新されます。

無効キー条件が起きると、REWRITEステートメントは失敗し、レコードは更新されません。

順次アクセス・モードでは、INVALID KEY句を記述することができません。EXCEPTION/ERRORプロシージャは記述することができます。REWRITEステートメントが実行されると、READステートメントによって読み込まれたレコードが更新されます。

アクセス・モードがランダムまたは動的の場合、INVALID KEY句またはEXCEPTION/ERRORプロシージャを記述することが可能であり、両方とも省略することができます。RELATIVE KEYデータ項目のレコードが更新されるとき、該当するレコードが存在しなければ無効キー条件が起こります。

検索する表を指定します。

identifier-1のデータ記述項目には、INDEXED BY句を指定したOCCURS節を含める必要があります。

identifier-1は添え字付きまたは参照変更されてはなりません。

identifier-1は、多次元表に含まれている下位のデータ項目を参照することができます。この場合、表の各次元ごとにINDEXED BY句が記述されている必要があります。

WHEN句に記述された条件を満たすことなく、検索を終了するときの処理を指定します。AT END条件が起こると、imperative-statement-1に記述されたステートメントが実行されます。

検索する表を指定します。

identifier-1のデータ記述項目には、INDEX BY句とKEY IS句を持つOCCURS節が含まれている必要があります。

identifier-1は添え字付きまたは参照変更されてはなりません。

identifier-1は、多次元表に含まれている下位のデータ項目を参照することができます。この場合、表の各次元ごとにINDEXED BY句が記述されている必要があります。

WHEN句に記述されている条件を満たすことなく、検索を終了するときの処理を指定します。

AT END条件が起こると、imperative-statement-1に記述されているステートメントが実行されます。

WHEN句の条件が満たされると、検索は終了し、imperative-statement-2のステートメントが実行されるか、NEXT SENTENCEによって近いピリオドの後にあるステートメントを実行します。

表の中に満足される条件がないと、検索の終了後にAT END条件が起こり、AT END句が存在すればimperative-statement-1のステートメントが実行されます。これらの場合、最後の指標の値を予測することができません。

以下の項目を設定します。

index-name-1は、値を変更するフィールドです。

index-name-1は、データ部のOCCURS節のINDEXED BY句で宣言した項目です。

identifier-1は、値を変更するフィールドです。

整数データ項目または指標データ項目である必要があります。

index-name-2は、変更する値を指定するフィールドです。

項目の値は、OCCURS節のINDEXED BY句によって指定される必要があります。

identifier-2は、変更する値を指定するフィールドです。

整数データ項目または指標データ項目である必要があります。

integer-1は、変更する値を指定するフィールドです。これは、正の正数のみ指定できます。

SETステートメントによって値が変更されるフィールドです。したがって、index-name-3は、SETステートメントの実行前も実行後も、関連する表の指標範囲内に含まれている必要があります。

値を変更するフィールドであるidentifier-3は、グループ項目ではなく、基本整数データ項目である必要があり、integer-2は、0以外の整数でなければなりません。

形式２のSETステートメントが実行されると、index-name-3はidentifier-3またはinteger-2によって指定された値を増加（UP BY）または減少（DOWN BY）させます。index-name-3は、複数のフィールドを同時に記述することが可能であり、記述されたすべてのフィールドは左から右へ増加または減少されます。

条件変数を指定できるcondition-name-1を指定します。

condition-name-1のVALUE節内に2つ以上リテラルが指定されている場合、最初のリテラルと等しい値を指定します。2つ以上のcondition-name-1を指定した場合は、SETステートメントの中で指定されている順と同じです。

変更するフィールドです。これは、USAGE IS POINTERとして指定されている必要があります。

identifier-5は、LINKAGE SECTIONの中にレベル01またはレベル77で指定される必要があります。

変更するアドレス値です。これは、USAGE IS POINTERとして指定されている必要があります。

identifier-7は、LINKAGE SECTION、WORKING-STORAGE SECTION、またはLOCAL-STORAGE SECTIONで定義したデータ項目である必要があります。

レベル66またはレベル88を除いた、別のレベルを指定することができます。

ADDRESS OF identifier-7は、identifier-7のアドレスを指定するものであり、識別子の値そのものを意味するものではありません。

identifier-4またはidentifier-5のアドレス値に無効なアドレス値を指定するために使用します。

ソートされるレコードが含まれているファイル名であり、SD項目に記述されている名前です。

ソートされるレコードが含まれているデータ記述(data description)です。グループ・タイプであり、ソートしたデータが含まれている必要があります。

ソート・キーが昇順なのか降順なのかを指定します。

DUPLICATES句が記述されてない場合、同じキーを持つレコードの順序は予測できません。

この句が指定されると、キーは同じレコードに対してソートされ、その後は以下のような順となります。

構文チェックのみ行われます。

入力ファイルを記述します。

INPUT PROCEDUREにはRELEASEステートメントがあり、一度に1つのレコードをfile-name-1が参照するファイルに転送します。

そのほか、様々なステートメント（OPEN、READ、CLOSEなど）を使用して、入力レコードを選択、コピー、変更することができます。ソート処理を実行する前に入力レコードを選択および変更するプロシージャ名を記述します。

出力ファイルを記述します。

出力プロシージャにはRETURNステートメントがあり、file-name-1が参照するファイルから一度に1つのレコードを受け取ります。そのほか、多様なステートメント（OPEN、WRITE、CLOSEなど）を使用して、出力レコードを選択、コピー、変更することができます。

ソート処理を実行した後、出力レコードを選択および変更するプロシージャ名を記述します。

順次アクセス・モードまたは動的アクセス・モードのファイル名である必要があります。

file-name-1は、データ部のFD項目に定義されている必要があります。

KEY句が記述されると、ファイル位置指示子は、条件を満たすキーを持つレコードに位置付けられます。

ファイル制御項目の中にFILE STATUSが記述されていると、STARTステートメントの実行時に関連するファイル状態キーも変更されます。

以下の場合、無効キー条件が起こります。

STARTステートメントの終了を示します。

浮動小数点数と英数字リテラルを指定することができます。

ALLリテラルを除く表意定数を指定することができます。

送り出しフィールドを指定します。USAGE DISPLAYまたはUSAGE DISPLAY-1を明示的または暗黙的に指定したデータ項目である必要があります。英数字タイプの特殊レジスターを指定できます。

literal-1は、英数字カテゴリに属している必要があります。ALLというワードで始まらない任意の表意定数（NULLを除く）を指定することができます。表意定数は、それぞれ1文字の英数字リテラルとみなされます。

文字列を区別する区切り文字を指定します。

以下の項目を設定します。

受け取りフィールドを指定します。

以下の項目を設定します。

結果データを入れるデータ・フィールドの文字の長さを指します。ポインター・フィールドは、送り出し文字列のUSAGEがDISPLAY、DISPLAY-1の場合、相対的な文字の長さを示します。

ポインター・フィールドは、結果データの長さに1を加えた値を入れられる十分な大きさのデータ・フィールドを指定します。

以下の項目を設定します。

オーバーフローは、以下のような状況下で起こります。

コマンドで制御の移動が明示されている場合は、そのコマンドの規則に従って継続され、そうでない場合は、コマンドを実行した後、STRINGステートメントの最後に転送されます。

STRINGステートメントの実行時にオーバーフロー条件が発生していなければ、ON OVERFLOW句は無視されます。このとき、プログラムの制御は、STRINGステートメントの最後に転送されます。また、NOT ON OVERFLOW句が指定されている場合は、一緒に指定されたコマンドに移されます。

以下の項目を設定します。

STRINGステートメントの範囲の終わりを明示的に指定します。

END-STRING句を使用して、他の条件ステートメントの中にSTRINGステートメントを条件式としてネストすることができます。

2バイトの文字は、2バイト文字間のMOVEステートメントの規則が適用されます。

それ以外の場合は、英数字間の基本移動に関するMOVEステートメントの規則が適用されます。

その送り出しフィールドの区切り文字に達した場合（区切り文字自体は移動されません）

その送り出しフィールドの右端の文字まで移動された場合

形式1でのidentifier-1またはidentifier-2は、基本数字データ項目、浮動小数点データ項目を指定する必要があります。

形式2でのidentifier-1またはidentifier-2は、基本数字データ項目、浮動小数点データ項目を指定し、identifier-3は、数字データ項目または数字編集データ項目を指定する必要があります。

形式3では、英数字グループ項目を指定する必要があります。

数字リテラルと浮動小数点データ項目を指定する必要があります。

ROUNDED句については、ROUNDED句を参照してください。

SIZE ERROR句については、SIZE ERROR句を参照してください。

CORRESPONDING句については、CORRESPONDING句を参照してください。

END-SUBTRACT句は、SUBTRACT句の範囲を明示的に示すために指定します。

送り出しデータ・フィールドを指定します。

指定されたフィールドのデータがINTOと一緒に指定されたデータ受け取りフィールドのidentifier-4に転送されます。

identifier-1は、英字、英数字、英数字編集、DBCSのカテゴリに属するデータ項目である必要があります。

データを転送する際、データを区切るための区切り文字を指定します。

DELIMITED BY句を指定していない場合は、DELIMITER IN句およびCOUNT IN句を指定することができません。

以下の項目を設定します。

分割処理されたデータを移動するフィールドを指定します。

区切り文字によって削除されたデータを保存するフィールドを指定します。

検査済みのデータの長さが保存されるフィールドをし指定します。区切り文字は長さに含まれません。

POINTER句を指定した場合、ポインター・フィールドidentifier-7の値は、データが1つずつ転送されるたびに増加します。最終的にUNSTRINGステートメントの実行が終了すると、ポインター・フィールドには、送り出しフィールド内で検査された文字の長さとその初期値を加算した値が入ります。

UNSTRINGステートメントの実行前に、ユーザーはポインター・フィールドの値を初期化する必要があります。

以下の項目を設定します。

TALLYING句が指定されている場合、カウント・フィールドidentifier-8には、最終的に分割されたデータ項目の長さの合計に初期値を加えた値が保存されます。

UNSTRINGステートメントの実行前に、ユーザーはカウント・フィールドの値を初期化する必要があります。

以下の項目を設定します。

オーバーフローは、以下のような条件で起こります。

以下の項目を設定します。

UNSTRINGステートメントの範囲の終わりを明示的に指定します。END-UNSTRING句を使用して、他の条件ステートメントでUNSTRINGステートメントを条件式としてネストすることができます。

データ部のFD項目に記述されている必要があります。

record-name-1は、修飾することができます。ソート・ファイルとマージ・ファイルと関連付けることはできません。

FROM句のWRITEステートメントの実行結果は、以下の2つのステートメントを実行​​した場合と同じです。

MOVE identifier-1 TO record-name-1.
WRITE record-name-1.

identifier-1は、以下のいずれかを参照します。

identifier-1は、MOVEステートメントの規則に従って、record-name-1が受け取り項目として指定された有効な送り出し項目である必要があります。

identifier-1とrecord-name-1は、同じ記憶領域を参照してはなりません。WRITEステートメントの実行後も、identifier-1の情報は依然として有効です。

ADVANCING句の規則

LINAGE-COUNTERの規則

END-OF-PAGE句が指定されており、WRITEステートメントによって論理ページの最後に達すると、END-OF-PAGE句のimperative-statement-3に指定されたステートメントを実行します。END-OF-PAGE句が指定されている場合、FD項目にはLINAGE節が含まれている必要があります。

END-OF-PAGE条件は、ページ本体内のフッター領域にレコード行が印刷されるか、ADVANCING句によって行送りが生じた場合に発生します。

自動ページ・オーバーフロー条件は、WRITEステートメントが現在のページ本体で最後まで処理されず、次のページに進むときに発生します。

END-OF-PAGE条件または自動ページ・オーバーフロー条件が起こり、END-OF-PAGE句が指定されていると、imperative-statement-3に指定されたステートメントが実行されます。

以下の場合、無効キー条件が起こります。

明示的にWRITEステートメントの終了を示します。

順次ファイルの最大レコード長は、ファイルが作成されたときに設定され、以降は変更できません。

ファイル位置指示子は、WRITEステートメントの実行に影響を与えません。

ファイル制御項目にFILE STATUS節が指定されていると、WRITEステートメントの実行後、その結果によりファイル状態キーが更新されます。

指標ファイルに対してWRITEステートメントを実行する前に、基本レコード・キー（ファイル制御項目にRECORD KEYで定義されたデータ項目）を目的の値で設定する必要があります。この値は、ファイル内で一意でなければなりません。

ファイル制御項目にACCESS IS SEQUENTIALが指定されていると、RECORD KEY値の順にレコードが書き込まれる必要があります。

ファイル制御項目にACCESS IS SEQUENTIALが指定されていると、最初のレードは相対レコード番号1、2番目のレコードは相対レコード番号2、3番目のレコードは相対レコード番号3、...というようにファイルに書き込まれます。このとき、ファイル制御項目にRELATIVE KEYが指定されていれば、書き込まれたレコードの相対番号がRELATIVE KEYに保存されます。

ファイル制御項目にACCESS IS RANDOMまたはACCESS IS DYNAMICが指定されていると、WRITEステートメントが実行される前に、RELATIVE KEYが指定された値を持っている必要があります。WRITEステートメントが実行されると、このレコードは、ファイル内の指定された相対レコード番号として保存されます。

作成されたXML文書を受け取る領域です。

identifier-1は次のいずれかを参照する必要があります。

XML形式に変換される基本データ項目またはグループ項目です。

identifier-2は関数識別子であったり、参照変更を持つことはできませんが、添え字は持つことができます。identifier-2はidentifier-1、identifier-3と重複してはなりません。identifier-2はRENAMES節を指定できません。

上記の規則に従って無視されない、identifier-2によって指定されたすべてのデータ項目は次の条件を満たす必要があります。

COUNT IN句を指定した場合、identifier-3はXML GENERATEステートメントの実行後に作成されたXML文字のエンコーディングでのカウントを含みます。一般的にカウントはバイト単位です。

identifier-3はPICTURE文字列の記号Pなしに定義される整数データ項目である必要があります。identifier-3はidentifier-1、identifier-2と重複してはなりません。

XML文書の作成中にエラーが発生した場合、例外条件があります。たとえば、identifier-1が作成されたXML文書を含むほど大きくない場合は、XMLの作成が中止され、identifier-1の内容は定義されません。もしCOUNT IN句が指定されていれば、idientifier-3は0からidentifier-1の長さまでの範囲で作成された文字位置のカウントを含みます。

ON EXCEPTION句を指定した場合、制御はimperative-statement-1に転送されます。ON EXCEPTION句を指定していない場合は、NOT ON EXCEPTION句が存在しても無視され、制御はXML GENERATEステートメントの最後に転送されます。

NOT ON EXCEPTION句を指定した場合、XML文書の作成中に例外条件が発生しなければ、制御はimperative-statement-2に転送され、例外条件が発生したら、XML GENERATEステートメントの最後に転送されます。ON EXCEPTION句を指定した場合は無視されます。

XML GENERATEステートメントまたはXML PARSEステートメントの最後を示します。

identifier-1は、XML文書の文字列を含みます。identifier-1は英数字データ項目、または英数字グループ・データ項目である必要があります。

XMLパーサーが作成する様々なイベントを処理するプロシージャの名前を指定します。

XMLイベントに対してパーサーはprocedure-name-1というプロシージャの最初のステートメントに制御を転送します。制御は常に処理プロシージャからXMLパーサーに返されます。

処理プロシージャはXMLイベントが処理されるすべてのステートメントで構成されます。処理プロシージャの範囲には、処理プロシージャの範囲にあるCALL、EXIT、GO TO、GOBACK、PERFORMステートメントが実行されるすべてのステートメントが含まれます。処理プロシージャの範囲では、GOBACKまたはEXIT PROGRAMステートメントが実行されてはなりません。処理プロシージャではSTOP RUNステートメントを使用して実行装置を終了することができます。

ON EXCEPTION句はXML PARSEステートメントで例外条件が発生したときに実行されます。

XMLパーサーがXML文書の処理中にエラーを検知した場合、例外条件が存在します。パーサーはまず「EXCEPTION」が含まれた特殊レジスターXML-EVENTを使用して制御を処理プロシージャに転送することで、XML例外を通知します。また一般のXMLイベントについて、パーサーに戻る前に処理プロシージャがXML-CODEを-1に設定した場合にも例外条件が存在します。この場合、パーサーがXML-EVENTを「EXCEPTION」に表示せずに句の分析が終了します。

ON EXCEPTION句を指定した場合、パーサーはimperative-statement-1に制御を転送します。ON EXCEPTION句を指定せずにNOT ON EXCEPTION句を指定した場合、NOT ON EXCEPTION句は無視され、制御はXML PARSEステートメントの最後に転送されます。処理プロシージャがXML例外イベントを処理し、XML-CODEを0に設定した後、制御権限をパーサーに返す場合、例外条件はそれ以上存在しません。

NOT ON EXCEOPTION句はXML PARSE処理を終了するとき、例外条件が存在しない場合に実行されます。XML PARSE処理を終了時に例外条件が存在しない場合、NOT ON EXCEPTIONが指定されていれば、制御はNOT ON EXCEPTION句のimperative-statement-2に転送されます。NOT ON EXCEPTION句が指定されていなければ、制御はXML PARSEステートメントの最後に転送され、ON EXCEPTION句が指定されていれば、無視されます。

特殊レジスターXML-CODEはXML PARSEステートメントを実行した後に0を含みます。

XML GENERATEステートメントまたはXML PARSEステートメントの最後を示します。