COBOL2002 ユーザーズガイド


19.1.5 外部属性を持つデータ項目の共用

COBOLプログラムで定義した外部属性を持つデータ項目をCプログラムと共有する方法を,次に示します。

なお,外部属性を持つデータ項目の共有属性については,「4.2.2 外部属性(EXTERNAL句)」を参照してください。

COBOLプログラム
                      :
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 EXTREC IS EXTERNAL.        ………… EXTERNAL領域定義
         02 EXT-REC1 PIC S9(9) USAGE COMP.
         02 EXT-REC2 PIC S9(4) USAGE COMP.
         02 EXT-REC3 PIC X(14).
                      :
Cプログラム
struct extarea{
    int   ext_rec1;
    short ext_rec2;
    char  ext_rec3[14];
};
int sample2()
{
  extern struct extarea EXTREC;  ……… 外部参照宣言
  if (EXTREC.ext_rec1 == 1){
      EXTREC.ext_rec2 = 2;
  }
  return(0);
}

COBOLプログラムで外部属性を持つデータ項目を指定した場合,Cプログラムからこれを参照,更新できます。このときの注意事項を次に示します。