SPECIAL-NAMES 段落 - 形式 .----------------------------------------. V | >>-SPECIAL-NAMES.----+------------------------------------+-+---> +-環境名-1--+----+--簡略名-1---------------+ | '-IS-' | '-環境名-2--+-+----+--簡略名-2--| cond |-+-' | '-IS-' | '-| 条件 |------------------' .-----------------. .--------------. V | V | >----+-------------+-+----+----------+-+--+------------+--------> '-ALPHABET 文節-' '-CLASS 文節-' '-CONSOLE 文節-' .--------------------------. V | >--+-------------------+----+----------------------+-+----------> | (1) | | (2) | '-CRT STATUS 文節-----' '-CURRENCY SIGN 文節-----' >--+---------------+--+------------------+----------------------> | (1) | '-DECIMAL-POINT 文節-' '-CURSOR 文節-----' .-------------------------. .-------------------. V | V | >----+---------------------+-+----+---------------+-+-----------> | (1) | | (1) | '-LINKAGE TYPE 文節-----' '-FORMAT 文節-----' .-------------------. V | >----+---------------+-+--+-----------------------+-------------> | (1) | | (1) | '-LOCALE 文節-----' '-PROGRAM STATUS 文節-----' >--+-------+--------------------------------------------------->< | (3) | '-.-----' 条件 |--+-ON--+--------+--+----+--条件-1--+-----------+-+--------------| | '-STATUS-' '-IS-' '-| OFF 句 |-' | '-| OFF 句 |--+------------------------------+-' '-ON--+--------+--+----+--条件-1-' '-STATUS-' '-IS-' OFF 句 |--OFF--+--------+--+----+--条件-2--------------------------------| '-STATUS-' '-IS-'
表 1 は、環 境名-1 の簡略名に関連付けられた処置を示しています。
| 環境名-1 | 環境名に関係付けられた 簡略名が使用される ステートメント | 使用法 |
|---|---|---|
| CSP | WRITE | 印刷を行う際、スペース送りを抑止します。 装置が PRINTER のときだけ使用します。 |
| C01 | WRITE | 次のページにスキップします。装置が PRINTER のときだけ使用します。 |
| ATTRIBUTE-DATA | ACCEPT | トランザクション・ファイルにより獲得されたプログラム装置についての属性データを検索します。 ただしファイルがオープンされているときに限られます。 |
| I-O-FEEDBACK | ACCEPT | ファイル上で行われた最後の入出力操作についての情報を与えます。 ただしファイルがオープンされているときに限られます。 |
| DATA-AREA | ACCEPT、DISPLAY | システム・データ域を検索または更新します。 |
| OPEN-FEEDBACK | ACCEPT | ファイルについての情報を与えますが、ファイルがオープンされているときに限られます。 |
| CONSOLE、 SYSTEM-CONSOLE | ACCEPT、DISPLAY | システム・オペレーターのメッセージ待ち行列 (QSYSOPR) と通信します。 |
| LOCAL-DATA | ACCEPT、DISPLAY | ジョブごとにシステムが作成したローカル・データ域へデータを転送、あるいはローカル・データ域からデータを検索します。 |
| PIP-DATA | ACCEPT | 開始前のジョブの一部として実行されるプログラム用に、プログラム初期設定パラメーター (PIP) データ域からデータを取り出します。 |
| REQUESTOR | ACCEPT、DISPLAY | ユーザー・ワークステーション (対話型ジョブ)、バッチ入力ストリーム、またはジョブ・ログ (バッチ・ジョブ) と通信します。 |
| SYSIN | ACCEPT | REQUESTOR と同じ (ACCEPT ステートメントの場合のみ)。 |
| SYSOUT | DISPLAY | REQUESTOR と同じ (DISPLAY ステートメントの場合のみ)。 |
UPSI-7 ~ UPSI-0 は、COBOL プログラムの外部で定義されたプログラム・スイッチをオブジェクト時に識別する COBOL 名です。 これらの内容は英数字と見なされます。 ゼロの値はオフになり、1 の値がオンになります。
UPSI-0 1 番目のバイト (左端)
UPSI-1 2 番目のバイト
UPSI-2 3 番目のバイト
⋮
UPSI-7 8 番目のバイト (右端)
SYSTEM-SHUTDOWN は、システム・オペレーターがシステムをシャットダウン保留状態にした場合またはジョブがある制御手段によってキャンセルされた場合に ON にセットされる内部スイッチです。 関連する ON または OFF 条件名は、条件名が有効なところではどこでも参照できます。 これらの状況をプログラムによって変更することはできません。
簡略名と環境名は、固有名でなくてもかまいません。 環境名にも使用される簡略名を選択すると、その名前に対する任意の参照では、簡略名としてのその定義の方が、環境名としての定義よりも優先されます。
手続き部では、UPSI スイッチ状況は、関連した条件名によりテストされます。 すべての条件名はレベル 88 項目に等しくなります。 それに関連した簡略名は、指定された場合には、条件変数と見なされ、修飾に使用できます。
パラメーターの SPECIAL-NAMES 段落に宣言された名前はすべて、包含されるどのプログラムからでも参照できます。