ILE COBOL 解説書

+----------------------------------IBM 拡張----------------------------------+

形式 4 - 内部データ域

この形式は、ジョブごとに作られたシステム定義の内部データ域から ID-1 へデータを転送する場合に使用します。

ACCEPT ステートメント - 形式 4 - 内部データ域
 
>>-ACCEPT--ID-1--FROM--簡略名--+--------------------------+----->
                               |     (1)                  |
                               '-FOR-------+-ID-2-------+-'
                                           '-リテラル-1-'
 
>--+------------+----------------------------------------------><
   '-END-ACCEPT-'
 
 

注:

  1. 構文検査だけ行われます。

この形式が適用可能なのは、SPECIAL-NAMES 段落の中で簡略名が環境名 LOCAL-DATA と関連付けられている場合だけです。

ID-1 への転送は、MOVE ステートメントで、CORRESPONDING 句なしのグループ転送の場合の規則に従って行われます。 ID-1 には日時項目は許されません。 ID-1 の説明に TYPE 文節が含まれる場合は、その文節で参照されるタイプ名は基本項目でなければなりません。

ID-1 は、内部浮動小数点データ項目でも外部浮動小数点データ項目でも可能です。

ID-1 は DBCS または国別データ項目にすることができます。

FOR 句が指定された場合、この句は、コンパイル時に構文上の検査をされますが、プログラムの実行中にはコメントとして扱われます。 リテラル-1 または ID-2 の値は、内部データ域に関連付けられている装置のプログラム装置名を示します。 各ジョブに設けられる内部データ域は 1 つだけあり、1 つのジョブで使用される装置は、すべて同一の内部データ域をアクセスします。 リテラル-1 を指定する場合、リテラル-1 は、非数字で、長さは 10 文字以内でなければなりません。 ID-2 (指定されている場合) は、英数字データ項目で、10 文字以下の長さでなければなりません。内部データ域について詳しくは、「CL プログラミング」を参照してください。

+------------------------------End of IBM 拡張-------------------------------+


[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]