COBOLプログラムで定義した外部属性を持つデータ項目をCプログラムと共有する方法を,次に示します。
なお,外部属性を持つデータ項目の共有属性については,「4.2.2 外部属性(EXTERNAL句)」を参照してください。
:
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).
:
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プログラムからこれを参照,更新できます。このときの注意事項を次に示します。