例題
[P5149.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5149. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 VCHR TYPEDEF. 000006 02 WLENG PIC S9(4) BINARY. 000007 01 WSTOCK. 000008 02 WPNO PIC 9(7). 000009 02 WNAM PIC X(22). 000010 02 WRNAM REDEFINES WNAM. 000011 03 TYPE VCHR. 000012 02 WQOH PIC S9(8) BINARY. 000013 PROCEDURE DIVISION. 000014 STOP RUN. 000015 END PROGRAM P5149.
P5149.cob 11: JMN5149I-S REDEFINES句を持つ集団項目に従属する最初の項目が，TYPE句を持つ場合，再定義される項目の境界は，レベル番号01の項目の要求する境界に合っていなければなりません．境界調整は行いません．
詳細な説明
8バイト境界に合わせて定義しなければなりません．
