データ部には、表示ファイルのレコード定義およびファイル管理記述項に指定したデータの定義を記述します。表示ファイルのレコードは、XMDLIBを指定したCOPY文を使って画面帳票定義体から取り込むことができます。
以下にCOBOLプログラムの記述例を示します。
DATA DIVISION. FILE SECTION. FD ディスプレイファイル. *>--+ COPY ADDRDSP OF XMDLIB. *> |各表示ファイルのレコードを画面帳票定義体からCOPY文で取り込み FD プリンタファイル. *> | COPY ADDRPRT OF XMDLIB. *>--+ WORKING-STORAGE SECTION. 01 DSP-FORMAT PIC X(08). *>--+ 01 DSP-GROUP PIC X(08). *> | 01 DSP-MODE PIC X(02). *> |FILE-CONTROLで定義した表示ファイル（画面機能）の 01 DSP-CONTROL PIC X(06). *> |各データ項目の定義 01 DSP-ATTN PIC X(04). *> | 01 DSP-STATUS1 PIC X(02). *> | 01 DSP-STATUS2 PIC X(04). *>--+ 01 PRT-FORMAT PIC X(08). *>--+ 01 PRT-GROUP PIC X(08). *> | 01 PRT-MODE PIC X(02). *> | FILE-CONTROLで定義した表示ファイル（帳票機能）の 01 PRT-CONTROL PIC X(06). *> | 各データ項目の定義 01 PRT-STATUS1 PIC X(02). *> | 01 PRT-STATUS2 PIC X(04). *>--+
