例 - 名前のない宣言の翻訳

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

C のソース

  typedef struct {
     int type;
     union {
        char b[20];
        short s[10];
        long l[5];
     } data;
  } XClientMessageEvent;

生成される COBOL コード

 01  XClientMessageEvent is typedef.
     02  type                   usage int.
     02  filler          pic x(2).
     02  data.
         03  data.
             04  1b      pic x(20).
         03  filler redefines data.
             04  s occurs 10    usage short.
         03  filler redefines data.
             04  l occurs 5     usage long.