COBOL2002 ユーザーズガイド
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プログラムからこれを参照,更新できます。このときの注意事項を次に示します。
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.