例題
[P2224.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2224. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD SQFILE. 000010 01 SQREC PIC X(80). 000011 WORKING-STORAGE SECTION. 000012 01 WGRP. 000013 02 WSUBG1 CHARACTER TYPE MODE-1. 000014 03 PIC X(10). 000015 03 PIC N(10). 000016 03 PIC X(10). 000017 03 PIC N(20). 000018 02 WSUBG2 REDEFINES WSUBG1. 000019 03 PIC X(10). 000020 03 PIC N(10). 000021 03 PIC X(10). 000022 03 PIC N(20). 000023 PROCEDURE DIVISION. 000024 WRITE SQREC FROM WGRP 000025 END PROGRAM P2224.
P2224.cob 18: JMN2224I-W CHARACTER TYPE句またはPRINTING POSITION句が有効なデータ項目が再定義されています．印刷結果は保証されません．
詳細な説明
CHARACTER TYPE句は印字するときの文字の形式を，PRINTING POSITION句は横方向の印字位置を指定する句です．これらの句が有効になっているデータ項目が別のデータ項目で再定義(REDEFINES)されていると，COBOL処理系は印字のための情報を正しく取得できず，その結果，期待する印刷結果が得られないことがあります．
