MAPNAME

プログラム名とエントリ ポイント名を、OS/VS COBOL、DOS/VS COBOL、VS COBOL II、および COBOL/370 と互換性を保つためにコンパイラで変更できるようにします。
注: この指令は、ネイティブ COBOL でのみサポートされています。

構文:

 >>-.---.-.----.--MAPNAME-------------------><  
    +-/-+ +-NO-+

パラメーター:

なし

プロパティ:

デフォルト: NOMAPNAME
段階: 構文チェック
$SET: 最初の行

説明:

MAPNAME を指定すると、コンパイル時に定義されるプログラム名とエントリ ポイント名、およびプログラムで次のように参照されるプログラム名とエントリ ポイント名に影響があります。

  • 一番外側のプログラム内のみにある ENTRY 文
  • CALL identifier 文ではない CALL literal
  • 入れ子プログラム内ではない一番外側のプログラム内のプログラム名記述項

互換性のない名前が見つかると、警告メッセージが生成され、変更された名前がオブジェクト プログラム内で使用されます。規則および変更内容は、次のとおりです。

  • 先頭 8 文字は、プログラム名の間で一意である必要があります。名前は先頭 8 文字に切り捨てられます。
  • 先頭の文字はアルファベットである必要があります。先頭の文字が数字の場合は、次のように変更されます。
    0       becomes    J 
    1 - 9   become     A - I
  • ハイフン (-) の使用は許されていません。使用している場合は、ゼロ (0) に変更されます。