例 - 外部データ宣言の翻訳

Header-to-copy ユーティリティが C ソース コード内の外部データ宣言を等価な COBOL COPY ファイル形式に翻訳する例を次に示します。

C のソース

typedef struct _WidgetClassRec *WidgetClass;
extern WidgetClass widgetClass;

COBOL 出力 (.cpy ファイル)

 01  WidgetClass       is typedef       usage data-pointer.

.ext ファイルへの出力

 01  1widgetClass      is external by "widgetClass"
                       usage data-pointer.

COBOL では、定義する型の名前と外部データ項目の名前の重複は許可されません。そのため、この例では外部データ項目の名前の先頭に 1 が付加されています。シンボル名、widgetClass は、リンカーによって C のソース内で宣言されている外部データ項目への参照を解決するときに使用されます。